返回列表 上一主題 發帖

[發問] 請問如何將篩選條件顯示在表單內並新增資料在同一欄位

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2015-12-25 17:58 | 顯示全部帖子
是這樣嗎?
test.gif
試試看!!
  1. 'Sheets("工作交接事項")_CommandButton1
  2. Private Sub CommandButton1_Click()
  3.     UserForm1.Show
  4. End Sub

  6. 'UserForm1_CommandButton1
  7. Private Sub CommandButton1_Click()
  8.     Dim sh As Worksheet, Rng As Range, MH
  9.     Dim LstR As Integer
  10.     Set sh = Sheets("工作交接事項")
  11.     LstR = sh.[A2].End(xlDown).Row
  12.     Set Rng = sh.[A2].Resize(LstR - 1, 1)
  13.     MH = Application.Match(TextBox1.Value, Rng, 0)
  14.     If IsNumeric(MH) Then
  15.         TextBox2.Value = sh.Cells(MH + 1, "B")  '反應日期
  16.         TextBox3.Value = sh.Cells(MH + 1, "C")  '反應人員
  17.         '~~
  18.         '~~
  19.     End If
  20. End Sub

  22. 'UserForm1_CommandButton2
  23. Private Sub CommandButton2_Click()   'OK
  24.     Unload Me
  25. End Sub
複製代碼

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題