利用VBA USERFORM進行多條件資料搜尋並更改資料

#excel #vba #vba find vba userform

m26122 2022-12-21 21:52:49 ‧ 1043 瀏覽

分享至

VBA新手求救，目前想利用VBA userform輸入欲搜尋的數值後，從資料中找出相對應之藥品、領藥號及數量，並將原數量更改為修改後數量，目前只搜尋到單條件的搜尋及修改，請求各位大神協助!!

孫守真任真甫 iT邦研究生 4 級 ‧ 2023-03-25 11:58:32 檢舉

菩薩慈悲：最好是用螢幕分享演示一下您想要操作的過程給末學看，如果都沒菩薩慈悲回答，末學我能力又可及的話，再試試看。感恩感恩　南無阿彌陀佛
https://meet.google.com/vaa-tyhh-xug （Google Meet 我現在在線上。若不在就是下線了。菩薩您若不棄，再聯絡我看看，這裡自介及google都找得到末學。阿彌陀佛）

您也可以試著用用Bing大菩薩或chatGPT大菩薩或YouChat大菩薩或Adrenaline大菩薩問看看，請諸大菩薩幫您寫個程式碼應用感恩感恩　讚歎讚歎諸佛菩薩　南無阿彌陀佛
http://ai.com/
https://www.bing.com/search?form=M6003A&OCID=M6003A&q=Bing+AI&showconv=1
https://you.com/search?q=who+are+you&tbm=youchat
https://useadrenaline.com/playground

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

haiyen_lee

iT邦新手 5 級 ‧ 2022-12-21 22:48:05

你好，不太明白你所說的「只搜尋到單條件的搜尋」的意思，如果可以搜尋到單條件，if 後面條件用 and 連結不是就可以做到多條件的搜尋嗎？

回應 3
分享
檢舉

m26122 iT邦新手 5 級 ‧ 2022-12-21 23:08:02 檢舉

不好意思沒打清楚，我指的是目前網路上的教學我只有看到搜尋單條件然後去修改，但是沒有看到雙條件的

m26122 iT邦新手 5 級 ‧ 2022-12-21 23:12:48 檢舉

操作方法大概是類似海綿寶寶大神的
https://ithelp.ithome.com.tw/m/questions/10209911

haiyen_lee iT邦新手 5 級 ‧ 2022-12-22 16:04:19 檢舉

請參考
'表單上的按鈕
Private Sub CommandButton1_Click()
藥品代號 = TextBox1.Text
領藥號 = TextBox2.Text
原數量 = TextBox3.Text
修改後數量 = TextBox4.Text
Sheets("工作表1").Select

For i = 2 To ActiveSheet.Range("A1").End(xlDown).Row
    If Cells(i, 1) = 藥品代號 And Cells(i, 2) = 領藥號 And Cells(i, 3) = 原數量 Then
       Cells(i, 3) = 修改後數量
    End If
Next

End Sub

'Module1
Public 藥品代號 As String
Public 領藥號 As String
Public 原數量 As String
Public 修改後數量 As String

Sub 開啟巨集()
UserForm1.Show
End Sub

登入發表回應