返回列表 上一主題 發帖

請教vba表單查詢問題

請教vba表單查詢問題

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

資料.zip (37.7 KB)

yvonne
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

如下試試
    工作表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

回復 2# rouber590324


    感謝大大回復~~要如何在表單顯示兩筆以上呢,,,sheets(2)會重複出現第一筆mark資料
yvonne
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 1# afu9240


    個人練習,輸入姓名,清單方塊與工作表2列出
VBA解法3.gif
2017-12-2 22:01

VBA3.png
2017-12-2 22:01
*YC的筆記鋪 - Excel、Word教學
http://lyc017.pixnet.net/blog
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

訓練履歷TEST v.01.zip (25.86 KB)
回復  afu9240
請問樓主的解答,我將您的程式碼加入,但出不來您的效果,是哪裡有問題呢?


    個人練習,輸入姓名,清單方塊與工作表2列出
joblyc017 發表於 2017-12-2 22:02
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

本帖最後由 joblyc017 於 2017-12-3 19:06 編輯

回復 5# jeffrey628litw


    表單的版面沿用afu9240大的款式,故沒有清單方塊,請依實際情況調整程式碼
2017-12-03_185852.png
2017-12-3 19:01
*YC的筆記鋪 - Excel、Word教學
http://lyc017.pixnet.net/blog
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題