1樓：匿名使用者
給點提示你，但真沒有辦法幫你全部寫了。看下面的**你應該就懂了，不懂在看附件（看你挺有錢，收你5元），還有問題，追就是；
private sub commandbutton1_click()dim x, op
op = "北京人"
for x = 1 to range("a1000").end(3).row
if cells(x, 1) = textbox1.text and optionbutton1.value = true then
cells(x, 1).offset(0, 2) = opend if
next x
end sub
2樓：
我估計能做窗體這些查詢賦值 什麼的應該難不到你吧是不太清楚遍歷controls嗎？
dim ctr as control,saddress$for each ctr in me.controlsif typename(ctr).name="optionbutton" then
if ctr.value=true then saddress=ctr.caption
end if
next
以上是遍歷當前窗體的所有控制元件，並取得選取的optionbutton的名稱
word巨集如何查詢excel裡的資料並寫入 20
3樓：匿名使用者
sub test()
set owb = oexcel.workbooks.open("d:\test.xls") '寫你自己的excel路徑
msgbox owb.sheets("sheet1").range("c5") '取"sheet1"工作表c5單元格的值
oexcel.quit '退出excel
end sub
按 alt+f11 開啟vbe視窗，通過選單選擇「插入」-「模組」，輸入以上**。
這裡採用的是後置繫結方法，無需事先載入excel物件引用庫。
如果在此過程中希望excel視窗不可見，可在呼叫open方法開啟excel之前設定visible屬性：
oexcel.visible = false
4樓：e俠兔
為什麼不在excel裡把資料弄好，再放到word裡？
vba怎麼在一列中寫入查詢的資料
5樓：廈門侯玩轉電子科技
給個列子 在 c列找 包含 「寧波」 的單元格 ，如果 是完全匹配 xlpart 改成xlwhole
sub 查詢()
set findcell = columns("c").find("寧波", lookat:=xlpart)
if not findcell is nothing thenmsgbox findcell.row
else
msgbox "沒找到符合條件的單元格"
end if
end sub
6樓：於然自習室
excel 2016 怎麼使用萬用字元查詢資料
電子**中用巨集實現查詢功能，並將查詢到的所有資料前的序號複製到新工作表中，
7樓：匿名使用者
使用vba的find方法來查詢，找到後直接把需要的結果提出來
vba查詢，輸入查詢內容，並顯示全部相同值同行的所有資料排列出來
8樓：匿名使用者
這次算是說清楚了，**如下：
複製**到你**當中的模組當中，然後表1按鈕指定test巨集，在表2的a1輸入查詢到值，點選表1按鈕執行即可
sub test()
dim rng as range, arr, i%
with sheet2
.range("a2:h65536").clearcontents
if .range("a1") = "" then
msgbox "查詢失敗，表2當中a1單元格沒有輸入內容！", vbinformation
exit sub
else
i = range("a65536").end(xlup).row
arr = range("a1:h" & i)
for i = 2 to ubound(arr)
if arr(i, 8) = .range("a1").value then
if rng is nothing then
set rng = range("a" & i & ":h" & i)
else
set rng = union(rng, range("a" & i & ":h" & i))
end if
end if
next
if not rng is nothing then
rng.copy .range("a2")
else
msgbox "你雖然輸入了值，但是並沒有找到相關的人內容，請核實後再輸入！"
end if
end if
end with
end sub
在已知的陣列中查詢某個數,輸出匹配數在陣列中的位置 第幾個 ,如果沒有找到輸出沒有找到
那證明資料是不存在的。陣列 array 是有序的元素序列。若將有限個型別相同的變數的集合命名，那麼這個名稱為陣列名。組成陣列的各個變數稱為陣列的分量，也稱為陣列的元素，有時也稱為下標變數。用於區分陣列的各個元素的數字編號稱為下標。陣列是在程式設計中，為了處理方便，把具有相同型別的若干元素按有序的形式...
vba刪除excel資料，vba中怎麼清空工作表中的資料
對於刪除重複資料，excel 2007中有一個功能可以刪除，不需要vba程式設計。方法 選中重複資料出現的單元格區域 選單 欄 資料 刪除重複項 點選 確定 即可如圖 在excel開啟控制元件工具箱，在excel中新增一個button commandbutton1 然後在button上滑鼠右鍵 檢視...
EXCEL資料問題用VBA處理
終於弄明白你的意思了。修改一個通用的 sub 一次的數 dim arr dim ir x y i dim k t t1 set d createobject scripting.dictionary ir range a65536 end xlup rowarr range a1 a ir valu...