返回列表 上一主題 發帖

請教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

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大的款式,故沒有清單方塊,請依實際情況調整程式碼

TOP

回復  jeffrey628litw


    表單的版面沿用afu9240大的款式,故沒有清單方塊,請依實際情況調整程式碼 ...
joblyc017 發表於 2017-12-3 19:03



    好的,謝謝大大

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題