Board logo

標題: 請教vba表單查詢問題 [打印本頁]
作者: afu9240    時間: 2017-11-30 16:21     標題: 請教vba表單查詢問題

版主 各位大大好
    小妹在此請教,內容為訓練履歷表 其中mark是有兩筆,如何讓表單顯示兩筆mark得資料,另外sheets(2)也能顯示兩筆mark的資料
  請高手幫個忙!!!小妹感激不盡
作者: rouber590324    時間: 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)
作者: afu9240    時間: 2017-11-30 17:06

回復 2# rouber590324


    感謝大大回復~~要如何在表單顯示兩筆以上呢,,,sheets(2)會重複出現第一筆mark資料
作者: joblyc017    時間: 2017-12-2 22:02

回復 1# afu9240


    個人練習，輸入姓名，清單方塊與工作表2列出
[attach]28060[/attach]
[attach]28061[/attach]
作者: jeffrey628litw    時間: 2017-12-3 18:13

[attach]28080[/attach]
回復  afu9240
請問樓主的解答，我將您的程式碼加入，但出不來您的效果，是哪裡有問題呢?
[attach]28080[/attach]

    個人練習，輸入姓名，清單方塊與工作表2列出
joblyc017 發表於 2017-12-2 22:02
作者: joblyc017    時間: 2017-12-3 19:03

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

回復 5# jeffrey628litw


    表單的版面沿用afu9240大的款式，故沒有清單方塊，請依實際情況調整程式碼
[attach]28081[/attach]
作者: jeffrey628litw    時間: 2018-1-2 19:53

回復  jeffrey628litw


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



    好的，謝謝大大



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)