1樓：太極健
你只講了上海，沒有說其他，這裡以上海為例，你可以加上其他的。如果有資料可以引用，直接引用即可。這裡是直接賦值
**如下（單元格事件）
private sub worksheet_change(byval target as range)
if target.address <> "$g$13" then exit sub '不是g13單元格，退出程式
if target.value = "上海" then[g38] = 1
[g51] = 1
[g55] = 1
end if
end sub
2樓：匿名使用者
private sub worksheet_change(byval target as range)
if target.address = "$g$13" then
select case target.value
case "上海": [g38] = 1: [g51] = 1: [g55] = 1
case "北京": [g38] = 2: [g51] = 2: [g55] = 2
case "天津": [g38] = 3: [g51] = 3: [g55] = 3
case "武漢": [g38] = 27: [g51] = 27: [g55] = 27
end select
end if
end sub
詳見附件，修改起來應該不復雜吧！
用excel vba做一個下拉選單框，根據單元格輸入內容匹配資料列裡面包含輸入內容的資料，然後快速錄入單元 20
3樓：
用單元格事件就可以了
4樓：匿名使用者
txtbox + listbox 控制元件 事件程式
5樓：匿名使用者
這個是模糊查詢，是用控制元件嗎
vba怎樣把一個單元格中的值賦給另一個單元格
6樓：小李無刀
excel vba在程式設計時，經常會遇到取單元格值，並賦值，一般是兩種語句：
1、range("a1")這樣的，直接使用引用。賦值即可使用range("a1")=range("b1")
2、cells(行號，列號）這樣的，使用rc引用方式，賦值可使用cells(1,1)=cells(1,2)
7樓：秋風奏鳴曲
wlorkbooks("book1").sheet(sheet1).cells(1,1).
formula = wlorkbooks("book2").sheet(sheet1).cells(2,1).
text
以上是隻複製數值
wlorkbooks("book1").sheet(sheet1).cells(1,1).
formula = wlorkbooks("book2").sheet(sheet1).cells(2,1).
formula
以上是複製公式內容
wlorkbooks("book1").sheet(sheet1).cells(1,1).
copy wlorkbooks("book2").sheet(sheet1).cells(2,1)
以上相當於ctrl+c,ctrl+v 複製，效果和第二種差不多
8樓：哲木子
不用這麼寫，其實很簡單，你用下我的試試，workbooks("book2").sheet1.cells(2,1)=workbooks("book1").
sheet1.cells(1,1),你寫反了肯定報錯了
9樓：匿名使用者
不是wlorkbooks，是workbooks
sheet(sheet1), 是sheets("sheet1")
10樓：
workbooks("book2.xls").sheet(sheet1).
cells(2,1).copy workbooks("book1.xls").
sheet(sheet1).cells(1,1)
excel vba怎樣指向單元格並把單元格的值賦值給一個變數？
11樓：魚木混豬喲
假設把 sheet1 中a1單元格賦值給x變數，語句如下：
x = sheets(1).range("a1")
假設x經過計算後，得到一個變數值y，那麼把y賦值給a1，語句為：
sheets(1).range("a1")=y
這樣就實現了單元格與變數之間的相互賦值
關於此例中涉及到的vba中變數的相關知識：
1、什麼是變數
變數是一個命名的記憶體位置。是在程式或**執行過程中，用於臨時儲存資料，並且其儲存的資料可以根據需要發生改變的一個命名專案。
變數由名稱(變數名)和資料型別指定：
變數名——用來引用變數
資料型別——確定變數所能儲存資訊的種類以及所佔儲存空間的大小
2、變數的命名規則
（1）名稱是由字母(a-z，a-z)或數字和下劃線「_」的任意組合。(在excel 2002以後的版本中也可以包含中文)；最後一個字元可以是型別說明符；
（2）變數名的長度不得超過255個字元
（3）變數名在有效的範圍內必須是唯一的。有效的範圍就是引用變數可以被程式識別的作用範圍 例如一個過程、一個窗體等等；
（4）變數名不能是vba中的保留字（關鍵字），也不能是末尾帶型別說明符的保留字，但可以把保留字嵌入變數名。
說明：（1）變數名是不區分大小寫的。如abc、abc、abc等都是一樣的；
（2）定義和使用變數時，通常要把變數名定義為容易使用閱讀和能夠描述所含資料用處的名稱；
（3）根據需要混合使用大小寫字母和數字。如果需要使用多單片語，變數中每個單詞的第一個字母大寫，例如：datatemp表示臨時資料，也可以兩個單詞中下劃線分隔，例如：last_num；
（4）對於變數名也有更好的建議，每個變數名以兩個或三個字元縮寫開始，這些字元縮寫對應於變數要儲存資料的資料型別。例如strworksheet as string表用來示工作表名，字首str表示當前變數的型別。
如何在excel中用公式實現在工作表1的A列引用工作表2和工作表3的A列
sheet2 if iserror vlookup a1,sheet1 a a,1,0 vlookup a1,sheet3 a a,1,0 vlookup a1,sheet1 a a,1,0 下拉 不失一般性，表1的a列 表2的a列 表3的a列分別用同一工作表的a列 b列 c列來表述。為表述方便，假...
如何在ecel中實現a列某一單元格與b列其中單
將原a列直接修改顯示結果，只能使用vba，公式需要進行操作。d1輸入 vlookup a1,b c,2,0 下拉填充，然後，複製d列，右鍵，選擇性貼上，勾選，數值，確定。這樣d列就是你要的內容 d1輸入 vlookup a1,b c,2,0 下拉填充，然後，複製d列，右鍵，選擇性貼上，勾選，數值，確...
如何在ecel中函式影象，如何在excel中函式影象
一點設計演示 1.以y 1 1 x 為例，新建一個excel檔案。開啟，找到其中的一個列，比如a列，在第一單元格中輸入變數值，如a1中輸入x。在a2 a10單元格中輸入變數的取值1,2,3,4 10。2.在後一列，b1中輸入因變數y。然後在b列b2 b10與a列對應的單元格中輸入分別輸入 1 1 0...