返回列表下一主題上一主題發帖

請教vba表單查詢問題

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-11-30 16:21 | 只看該作者

請教vba表單查詢問題

版主各位大大好
小妹在此請教,內容為訓練履歷表其中mark是有兩筆,如何讓表單顯示兩筆mark得資料,另外sheets(2)也能顯示兩筆mark的資料
請高手幫個忙!!!小妹感激不盡

資料.zip (37.7 KB)

樓主熱帖

yvonne

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2017-11-30 16:52 | 只看該作者

如下試試
工作表2.[A1:G65536].ClearContents
   X = 工作表1.[A65536].End(xlUp).Row
   Y = 工作表2.[A65536].End(xlUp).Row
   For M = 1 To X
   If 工作表1.Cells(M, 1) = TextBox1.Value Then
   工作表2.Cells(Y + 1, 1).Resize(, 7).Value = 工作表1.Cells(M, 1).Resize(, 7).Value
Y = Y + 1
End If
Next

Private Sub CommandButton2_Click()
Label15.Caption = ""
Label16.Caption = ""
Label17.Caption = ""
Label18.Caption = ""
Label19.Caption = ""
Label20.Caption = ""
Label21.Caption = ""
Label22.Caption = ""
Label23.Caption = ""
Label24.Caption = ""
Label25.Caption = ""

qq = 1
yy = 1

   工作表2.[A1:G65536].ClearContents
   X = 工作表1.[A65536].End(xlUp).Row
   Y = 工作表2.[A65536].End(xlUp).Row
   For M = 1 To X
   If 工作表1.Cells(M, 1) = TextBox1.Value Then
   工作表2.Cells(Y + 1, 1).Resize(, 7).Value = 工作表1.Cells(M, 1).Resize(, 7).Value
Y = Y + 1
End If
Next

Do '將sheet1查詢到的資料送到sheet2
      If Sheets(1).Cells(qq, 1) = TextBox1.Text Then
         Label15.Caption = Sheets(1).Cells(qq, 2)
         Label16.Caption = Sheets(1).Cells(qq, 3)
         Label17.Caption = Sheets(1).Cells(qq, 5)
         Label18.Caption = Sheets(1).Cells(qq, 4)
         Label19.Caption = Sheets(1).Cells(qq, 6)
         Label20.Caption = Sheets(1).Cells(qq, 7)

羅

TOP

afu9240