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中用巨集（VBA）實現VLOOKUP的功能
慶年工坊 function myvlookup val,rg as range,n as integer,f as boolean arr rg if f then for i ubound arr to 1 step 1if val arr i,1 thenmyvlookup arr i,n en...
如何在ecel中用公式做日曆，如何在Excel中用一個公式做日曆？
特特拉姆咯哦 1 在單元格c2 e2分別輸入文字 年 月 b4 h4區域輸入星期一至星期日的英文縮寫 mon tues wed thur fri sat sun 2 插入兩個兩個表單控制元件 數值調節鈕 步驟如圖 開發工具 插入 數值調節鈕 用於調節年份和月份的數值 3 選擇b5 h10單元格區域，...
vba等號後面如何賦值多個值，vba如何在乙個有內容的單元格後面賦值（插入）乙個變數的值
sub yanse dim rg as range,x,sx array 1,3,7,22 所有情況x join x,for each rg in range a1 g7 s rg.value with rg.interior if instr 1,x,s 0 then x colorindex 1...