ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð±Ðvbaªí³æ¬d¸ß°ÝÃD

¦p¤U¸Õ¸Õ
    ¤u§@ªí2.[A1:G65536].ClearContents
     X = ¤u§@ªí1.[A65536].End(xlUp).Row
     Y = ¤u§@ªí2.[A65536].End(xlUp).Row
     For M = 1 To X
     If ¤u§@ªí1.Cells(M, 1) = TextBox1.Value Then
     ¤u§@ªí2.Cells(Y + 1, 1).Resize(, 7).Value = ¤u§@ªí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
   
     ¤u§@ªí2.[A1:G65536].ClearContents
     X = ¤u§@ªí1.[A65536].End(xlUp).Row
     Y = ¤u§@ªí2.[A65536].End(xlUp).Row
     For M = 1 To X
     If ¤u§@ªí1.Cells(M, 1) = TextBox1.Value Then
     ¤u§@ªí2.Cells(Y + 1, 1).Resize(, 7).Value = ¤u§@ªí1.Cells(M, 1).Resize(, 7).Value
    Y = Y + 1
    End If
    Next
   
   
    Do '±Nsheet1¬d¸ß¨ìªº¸ê®Æ°e¨ì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

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD