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

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

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

ª©¥D ¦U¦ì¤j¤j¦n
    ¤p©f¦b¦¹½Ð±Ð,¤º®e¬°°V½m¼i¾úªí ¨ä¤¤mark¬O¦³¨âµ§,¦p¦óÅýªí³æÅã¥Ü¨âµ§mark±o¸ê®Æ,¥t¥~sheets(2)¤]¯àÅã¥Ü¨âµ§markªº¸ê®Æ
  ½Ð°ª¤âÀ°­Ó¦£!!!¤p©f·P¿E¤£ºÉ

¸ê®Æ.zip (37.7 KB)

yvonne

¦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

¦^´_ 2# rouber590324


    ·PÁ¤j¤j¦^´_~~­n¦p¦ó¦bªí³æÅã¥Ü¨âµ§¥H¤W©O,,,sheets(2)·|­«½Æ¥X²{²Ä¤@µ§mark¸ê®Æ
yvonne

TOP

¦^´_ 1# afu9240


    ­Ó¤H½m²ß¡A¿é¤J©m¦W¡A²M³æ¤è¶ô»P¤u§@ªí2¦C¥X
VBA¸Ñªk3.gif
2017-12-2 22:01

VBA3.png
2017-12-2 22:01

TOP

°V½m¼i¾úTEST v.01.zip (25.86 KB)
¦^´_  afu9240
½Ð°Ý¼Ó¥Dªº¸Ñµª¡A§Ú±N±zªºµ{¦¡½X¥[¤J¡A¦ý¥X¤£¨Ó±zªº®ÄªG¡A¬O­þ¸Ì¦³°ÝÃD©O?


    ­Ó¤H½m²ß¡A¿é¤J©m¦W¡A²M³æ¤è¶ô»P¤u§@ªí2¦C¥X
joblyc017 µoªí©ó 2017-12-2 22:02

TOP

¥»©«³Ì«á¥Ñ joblyc017 ©ó 2017-12-3 19:06 ½s¿è

¦^´_ 5# jeffrey628litw


    ªí³æªºª©­±ªu¥Îafu9240¤jªº´Ú¦¡¡A¬G¨S¦³²M³æ¤è¶ô¡A½Ð¨Ì¹ê»Ú±¡ªp½Õ¾ãµ{¦¡½X
2017-12-03_185852.png
2017-12-3 19:01

TOP

¦^´_  jeffrey628litw


    ªí³æªºª©­±ªu¥Îafu9240¤jªº´Ú¦¡¡A¬G¨S¦³²M³æ¤è¶ô¡A½Ð¨Ì¹ê»Ú±¡ªp½Õ¾ãµ{¦¡½X ...
joblyc017 µoªí©ó 2017-12-3 19:03



    ¦nªº¡AÁÂÁ¤j¤j

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD