帖子: 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)

樓主熱帖

samneng

小學生 Rank: 1

帖子: 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

yen956

高中生 Rank: 3 Rank: 3

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

3^#

發表於 2015-12-25 17:58 | 只看該作者

是這樣嗎?

試試看!!

'Sheets("工作交接事項")_CommandButton1
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
'UserForm1_CommandButton1
Private Sub CommandButton1_Click()
Dim sh As Worksheet, Rng As Range, MH
Dim LstR As Integer
Set sh = Sheets("工作交接事項")
LstR = sh.[A2].End(xlDown).Row
Set Rng = sh.[A2].Resize(LstR - 1, 1)
MH = Application.Match(TextBox1.Value, Rng, 0)
If IsNumeric(MH) Then
TextBox2.Value = sh.Cells(MH + 1, "B") '反應日期
TextBox3.Value = sh.Cells(MH + 1, "C") '反應人員
'~~
'~~
End If
End Sub
'UserForm1_CommandButton2
Private Sub CommandButton2_Click() 'OK
Unload Me
End Sub

複製代碼

TOP

samneng

小學生 Rank: 1

帖子: 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

samneng

小學生 Rank: 1

帖子: 17
主題: 6
精華: 0
積分: 28
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
註冊時間: 2015-12-11
最後登錄: 2016-2-16

5^#

發表於 2015-12-28 18:21 | 只看該作者

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

如下圖

附件 : 有新增一按鈕可執行表單...

工作表單.zip (42.11 KB)
下載次數: 5

2015-12-28 18:20
Private Sub CommandButton3_Click()
'宣告變數
Dim b
Dim myRange As Range, MH
Dim myTable As Worksheet
Dim Xrow As Long
Dim Rng As Range
Set myTable = Sheets("工作交接事項")
Set myRange = Range("工作交接事項").Columns(1).Find(a, LookAt:=xlWhole)
'宣告b = 表單的LotNo
b = UserForm3.LotNo.Text
'顯示全部資料的多重篩選
With ActiveSheet.Range("工作交接事項")
.Parent.AutoFilterMode = False
'設定LotNo為搜尋條件
If b <> "" Then .AutoFilter Field:=6, Criteria1:=b
End With
Xrow = myTable.[F2].End(xlDown).Row
Set Rng = myTable.[F2].Resize(Xrow - 1, 1)
MH = Application.Match(LotNo.Value, Rng, 0) 'MH
If IsNumeric(MH) Then
反應日期.Value = myTable.Cells(MH + 1, "B") '反應日期
反應人員.Value = myTable.Cells(MH + 1, "C") '反應人員
機台.Value = myTable.Cells(MH + 1, "D") '機台
Recipe.Value = myTable.Cells(MH + 1, "E") 'Recipe
Lot.Value = myTable.Cells(MH + 1, "F") 'Lot
異常簡碼.Value = myTable.Cells(MH + 1, "G") '異常簡碼
異常問題描述.Value = myTable.Cells(MH + 1, "H") '異常問題描述
處置狀況.Value = myTable.Cells(MH + 1, "I") '處置狀況
End If
End Sub

複製代碼

TOP