返回列表 上一主題 發帖

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

samneng

帖子
17 
主題
6 
精華
0 
積分
28 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2015-12-11 
最後登錄
2016-2-16 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-12-25 14:02 | 只看該作者

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

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

工作表.jpg (98.89 KB)

工作表.jpg

收藏 分享

samneng

帖子
17 
主題
6 
精華
0 
積分
28 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2015-12-11 
最後登錄
2016-2-16 
5#
發表於 2015-12-28 18:21 | 只看該作者
不好意思再次請教各位大大...小的已經依yen956大大方式成功建立ITEM搜尋方式並反饋在相應欄位
但小的想新增另一搜尋條件LotNo... 但似乎變更無效想請問各位大大前輩們是否小的有忽略什麼...懇請指教...謝謝!!

如下圖

附件 : 有新增一按鈕可執行表單...
  1. 工作表單.zip (42.11 KB)

  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
複製代碼

TOP

samneng

帖子
17 
主題
6 
精華
0 
積分
28 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2015-12-11 
最後登錄
2016-2-16 
4#
發表於 2015-12-26 18:54 | 只看該作者
謝謝yen956大大的幫忙.. 正是小的需要的功能!..
由於小的剛入論壇尚未了解到發文的規則若有錯誤之處敬請不吝指導...
也是正在摸索中的新手... 只要比小的厲害的都是前輩和大大們...
先前小的也有試著解讀GBKEE大大之前的工時系統文章..奈何才疏學淺不得要領以致厚著臉皮尋求協助
再次感謝yen956大大的幫忙.. 12萬分的感激!!.. 也謝謝站上各位前輩大大們經驗的文章分享
小的才能慢慢一步一步的成長... 煩請不吝指教和糾正...謝謝!!

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
3#
發表於 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

samneng

帖子
17 
主題
6 
精華
0 
積分
28 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2015-12-11 
最後登錄
2016-2-16 
2#
發表於 2015-12-25 14:03 | 只看該作者
測試檔20151225.zip (31.24 KB)

抱歉附上檔案內容...謝謝!!

TOP

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