Board logo

標題: [發問] 請問如何將篩選條件顯示在表單內並新增資料在同一欄位 [打印本頁]
作者: samneng    時間: 2015-12-25 14:02     標題: 請問如何將篩選條件顯示在表單內並新增資料在同一欄位

請問各位前輩..大大們!... 小的已經爬過論壇文章也自己手動編寫一份工作表單 (初學者尚在摸索中)
但在工作交接常日輸入表單內...查詢ITEM後無論如何試都無法將"工作交接事項"的工作表內欄位轉寫到表單內的對應欄位
請教應該如何在篩選後可顯示表單內的對應欄位並將下方新增的資訊寫入同一列後面欄位中!..
請各位前輩...大大們幫忙一下!... 謝謝!!
作者: samneng    時間: 2015-12-25 14:03

[attach]22976[/attach]

抱歉附上檔案內容...謝謝!!
作者: yen956    時間: 2015-12-25 17:58

是這樣嗎?
[attach]22979[/attach]
試試看!!
  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
複製代碼
作者: samneng    時間: 2015-12-26 18:54

謝謝yen956大大的幫忙.. 正是小的需要的功能!..
由於小的剛入論壇尚未了解到發文的規則若有錯誤之處敬請不吝指導...
也是正在摸索中的新手... 只要比小的厲害的都是前輩和大大們...
先前小的也有試著解讀GBKEE大大之前的工時系統文章..奈何才疏學淺不得要領以致厚著臉皮尋求協助
再次感謝yen956大大的幫忙.. 12萬分的感激!!.. 也謝謝站上各位前輩大大們經驗的文章分享
小的才能慢慢一步一步的成長... 煩請不吝指教和糾正...謝謝!!
作者: samneng    時間: 2015-12-28 18:21

不好意思再次請教各位大大...小的已經依yen956大大方式成功建立ITEM搜尋方式並反饋在相應欄位
但小的想新增另一搜尋條件LotNo... 但似乎變更無效想請問各位大大前輩們是否小的有忽略什麼...懇請指教...謝謝!!

如下圖
[attach]23004[/attach]
附件 : 有新增一按鈕可執行表單...
  1. [attach]23005[/attach]

  3. Private Sub CommandButton3_Click()

  5. '宣告變數
  6. Dim b
  7. Dim myRange As Range, MH
  8. Dim myTable As Worksheet
  9. Dim Xrow As Long
  10. Dim Rng As Range


  13. Set myTable = Sheets("工作交接事項")
  14. Set myRange = Range("工作交接事項").Columns(1).Find(a, LookAt:=xlWhole)

  16. '宣告b = 表單的LotNo
  17. b = UserForm3.LotNo.Text

  19. '顯示全部資料的多重篩選
  20. With ActiveSheet.Range("工作交接事項")
  21.     .Parent.AutoFilterMode = False
  22.    
  23.     '設定LotNo為搜尋條件
  24.     If b <> "" Then .AutoFilter Field:=6, Criteria1:=b

  26. End With

  28. Xrow = myTable.[F2].End(xlDown).Row
  29. Set Rng = myTable.[F2].Resize(Xrow - 1, 1)

  31. MH = Application.Match(LotNo.Value, Rng, 0) 'MH
  32. If IsNumeric(MH) Then
  33.         反應日期.Value = myTable.Cells(MH + 1, "B") '反應日期
  34.         反應人員.Value = myTable.Cells(MH + 1, "C")    '反應人員
  35.         機台.Value = myTable.Cells(MH + 1, "D")  '機台
  36.         Recipe.Value = myTable.Cells(MH + 1, "E")  'Recipe
  37.         Lot.Value = myTable.Cells(MH + 1, "F")  'Lot
  38.         異常簡碼.Value = myTable.Cells(MH + 1, "G")  '異常簡碼
  39.         異常問題描述.Value = myTable.Cells(MH + 1, "H")  '異常問題描述
  40.         處置狀況.Value = myTable.Cells(MH + 1, "I")  '處置狀況

  42. End If

  44. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)