1樓：匿名使用者
右鍵點該工作表的名字（在工作簿的左下方呢），檢視**，貼上如下**：
private sub worksheet_change(byval target as range)
on error goto line1
if target.range("a1").address = "$am$1" then
columns("bu:cj").hidden = false
select case target.range("a1").value
case 2
columns("bu:ce").hidden = true
case 3
range("bu:bz,ci:cj").entirecolumn.hidden = true
case 4
range("bu:bv,cg:cj").entirecolumn.hidden = true
case 5
range("bu:bu,ce:cj").entirecolumn.hidden = true
case 6
columns("cc:cj").hidden = true
end select
end if
line1: end sub
回到excel，功能實現。
2樓：匿名使用者
private sub worksheet_change(byval target as range)
if target.column = 2 and target.row < 21 then
if cells(target.row, 2) < 6 then rows(target.row).entirerow.hidden = true
end if
end sub
以上**表示，在b1:b20進行輸入操作，如果輸入的數值小於6的，就會自動隱藏。 附上excel**入門到精通教程,excel**教程 http:
在excel中如何用vb實現以下內容
3樓：魚木混豬喲
sub main()
if cells(1,"a").value="中國" then cells(1,"b")="111"
if cells(1,"a").value="美國" then cells(1,"b")="1123"
end sub
以此為例，在excel中呼叫vba程式的操作步驟如下（excel2007為例）：
1.選擇」開發工具「選項卡，點選」visual basic「（或者用快捷鍵alt+f11）
3.在程式編輯區域，複製上上述**
4.點選上面的三角號，執行程式
5.關閉vba介面，返回工作表，就可以看到程式執行結果，如下圖：
6.如果再次執行程式，可以用快捷鍵alt+f8（或者步驟1中的」巨集「），出現如下圖介面，選擇要執行的巨集，點選執行即可。
4樓：匿名使用者
private sub worksheet_selectionchange(byval target as range)
dim wkst as worksheetdim content as stringset wkst = thisworkbook.worksheets("sheet1")
content = wkst.range("a1").valueselect case content
case "中國":
wkst.range("b1").value = "111"
case "美國":
wkst.range("b1").value = "222"
end select
set wkst = nothing
end sub
EXCEL中如何用公式實現資料比較後大的在資料後打向上紅箭頭
選擇baia3單元格，在 條件格式 中，du以公式建立規則zhi，分別輸入 a3 a2 格式dao選擇 字型 專自定義 在通用屬格式後面，加上向上的箭頭符號，字型顏色紅色 a3 a2 格式選擇 字型 自定義 在通用格式後面，加上向下的箭頭符號，字型顏色綠色 詳見附圖 試下，高階版本里的 條件格式 條...
如圖所示，該如何用excel實現想要的效果
你是想得到c列的結果嗎？在excel中，如何能達到我想要的這個效果，應該要用到批量移動單元格 在名稱框中輸入 a51 a100，回車 就選中了這些資料 按ctrl c c 按兩次c鍵，右側出現剪貼簿和複製的資料。再輸入 a101 a150，回車，複製 按你的習慣操作 資料就到剪貼簿中了.繼續操作多組...
在vb中如何用程式表達listbox中被選中的專案
for i 1 to list1.listitems.count 逐條判斷是否被選中，如果選中，得到該專案if list1.listitems i selected true then stritem list1.listitems i end if next vb程式設計如何將listbox中選中...