小揮 wrote:
人員存檔關閉檔案後
樓主，終於等到您這句了~~原來是把檔案(表單)關閉了~~所以下次開啟，才有必要去抓取最新一筆資料。
小揮 wrote:
是否能讓表單內的textbox自動抓取上次人員輸入的值
可以喔，樓主可以在
Private Sub UserForm_Activate() '表單開啟初始化'
這句的後面，加上抓取的程式。
底下是完整的程式碼：
Private Sub UserForm_Activate() '表單開啟初始化'
ComboBox1.AddItem "彭湘云"
ComboBox1.AddItem "吳振宏"
ComboBox1.AddItem "潘國均"
ComboBox1.AddItem "羅國菘"
ComboBox1.AddItem "張益誠"
ComboBox1.AddItem "徐明義"
If Range("A5") <> "" Then '如果A4往下已經有輸入資料，就執行「自動抓取上次人員輸入的值」
Range("A4").Select '輸入游標(作用儲存格)先放在A4格
Selection.End(xlDown).Select '作用格移到資料最底下(最新，上次人員輸入的資料列)
'MsgBox ActiveCell.Row '顯示目前作用格所在列數 ，除錯用
'以下不使用offset位移
Tb1 = Range("b" & ActiveCell.Row)
ComboBox1.Value = Range("c" & ActiveCell.Row)
Tb2 = Range("d" & ActiveCell.Row)
Tb3 = Range("e" & ActiveCell.Row)
Tb23 = Range("f" & ActiveCell.Row)
Tb24 = Range("g" & ActiveCell.Row)
Tb25 = Range("h" & ActiveCell.Row)
Tb26 = Range("i" & ActiveCell.Row)
Tb27 = Range("j" & ActiveCell.Row)
Tb29 = Range("l" & ActiveCell.Row)
Tb30 = Range("m" & ActiveCell.Row)
Tb31 = Range("n" & ActiveCell.Row)
Tb32 = Range("o" & ActiveCell.Row)
Tb33 = Range("p" & ActiveCell.Row)
Tb34 = Range("q" & ActiveCell.Row)
Tb35 = Range("r" & ActiveCell.Row)
Tb36 = Range("s" & ActiveCell.Row)
Tb37 = Range("t" & ActiveCell.Row)
Tb38 = Range("u" & ActiveCell.Row)
Tb39 = Range("v" & ActiveCell.Row)
Tb4 = Range("w" & ActiveCell.Row)
Tb5 = Range("x" & ActiveCell.Row)
Tb6 = Range("y" & ActiveCell.Row)
Tb7 = Range("z" & ActiveCell.Row)
Tb8 = Range("aa" & ActiveCell.Row)
Tb9 = Range("ab" & ActiveCell.Row)
Tb10 = Range("ac" & ActiveCell.Row)
Tb11 = Range("ad" & ActiveCell.Row)
Tb12 = Range("ae" & ActiveCell.Row)
Tb13 = Range("af" & ActiveCell.Row)
Tb14 = Range("ag" & ActiveCell.Row)
Tb15 = Range("ah" & ActiveCell.Row)
Tb16 = Range("ai" & ActiveCell.Row)
Tb17 = Range("aj" & ActiveCell.Row)
Tb18 = Range("ak" & ActiveCell.Row)
Tb19 = Range("al" & ActiveCell.Row)
Tb20 = Range("am" & ActiveCell.Row)
End If
End Sub
樓主試試結果，回報看看？
)
