VBA - 如何設計透過表單及其輸入內容搜尋表格內同樣編號的資料並更新其同一行上的資料

#vba表單設計 #vba find #vba match

ChrisL 2022-08-24 20:32:10 ‧ 2805 瀏覽

分享至

VBA新手求助，目前想設計一個方便的入貨出貨系統給員工並簡化工作程序。
如圖例，想以表單帶出兩個搜尋及記錄空格進行搜尋相同的訂單編號，並且對同一行上的出貨數量進行登記，最後的庫存數量可以由excel內建的簡易算是得出。
目前的進度為紀錄新訂單時能夠自動排序＋透過表單輸入的click自動新增一筆新訂單的資料，無奈網路上找不到能夠透過表單輸入內容進行搜尋＋更改或刪除同一行資料的範例。

登入發表討論

直播研討會

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

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2022-08-24 22:41:26

最佳解答

參考這篇和那篇即可寫出你要的功能

我寫好了如下圖

VBA 程式碼有三個部份，說明如下：
1.UserForm - 要自己畫，有兩點要注意
1.1 訂單編號輸入方塊是 TextBox1;出貨數量輸入方塊是 TextBox2
1.2 出貨按鈕(CommandButton1_Click) 的程式碼如下

Private Sub CommandButton1_Click()
    Set rng = SearchStr(TextBox1.Value)
    If rng Is Nothing Then
        MsgBox "Not Found " & TextBox1.Value
    Else
        rng.Offset(0, 3).Value = TextBox2.Value
    End If
End Sub

2.SearchStr(搜尋字串函數) - 寫在 Module1(模組)裡

Function SearchStr(str As String) As Range

Dim wb As Workbook
Dim s1 As Worksheet
Dim rng As Range

Set wb = ThisWorkbook
Set s1 = wb.Sheets("Sheet1")

Set rng = s1.Columns("B:B")
Set SearchStr = rng.Find(What:=str, LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)

End Function

3.showForm(在工作表裡顯示 UserForm1) - 也寫在 Module1(模組)裡

Sub showForm()
    UserForm1.Show
End Sub

回應 7
分享
檢舉

看更多先前的回應...收起先前的回應...

ChrisL iT邦新手 5 級 ‧ 2022-08-26 14:45:36 檢舉

請問經過測試後出現UserForm1第二行的"rng="被標註並且系統顯示「變數未定義」的警示，已經確認在Module1中已經宣告rng=Range了，請問是哪邊需要更改呢？

海綿寶寶 iT邦大神 1 級 ‧ 2022-08-26 14:49:30 檢舉

是「CommandButton1_Click()」裡吧...
我這裡是不會
我看一下

海綿寶寶 iT邦大神 1 級 ‧ 2022-08-26 14:55:50 檢舉

我只測得出一種情形
就是在程式裡加上 Option Explicit (表示「所有變數都須事先宣告，下圖中的第一列)
(註：我原本是沒有這一列)

解決方法有兩個：
1.把 Option Explicit 刪掉
2.加上一列宣告，加上之後如下

Option Explicit
Private Sub CommandButton1_Click()
    Dim rng As Range
    Set rng = SearchStr(TextBox1.Value)
    If rng Is Nothing Then
        MsgBox "Not Found " & TextBox1.Value
    Else
        rng.Offset(0, 3).Value = TextBox2.Value
    End If
End Sub