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

[µo°Ý] ¸ß°Ý¡G¦p¦ó±Nªí³æ¤º¸ê®Æ½Æ»s¨ì¥t¤@ªí³æ(¸ê®Æ®w¤¤)

[µo°Ý] ¸ß°Ý¡G¦p¦ó±Nªí³æ¤º¸ê®Æ½Æ»s¨ì¥t¤@ªí³æ(¸ê®Æ®w¤¤)

Dear ¥ý¶i,
§Ú¦³¤@ªí³æ©ó¨C¤@¦¸¶ñ¼g®É¡A·Q­n±Nªí³æ¤º®e½Æ»s¨ì"¸ê®Æ®w"¤¤
¼g¤FVBA»yªk¡A¦ý¬O¥¢±Ñªº¡AÁٽЦU¦ìÀ°¦£¬Ý¤@¤U»yªk±Ð¾É§Ú
·PÁÂ!

test.rar (22.11 KB)

¶À¦â©³ªº³¡¥÷¬O­nCOPY¨ì"¸ê®Æ®wªº¡A§Ú§Æ±æ¨C°µ¤@¦¸ªí³æ¡A´N¥i¥HCOPY¨ì¸ê®Æ®w(¸ê®Æ®w¬O«ùÄò·s¼Wªº)
0001.jpg
2019-2-14 19:36


0002.jpg
2019-2-14 19:36




VBA»yªk

Private Sub CommandButton1_Click()


'«ü©w¤u§@ªí/·s¼W¤@µ§
    If Sheets("¸ê®Æ®w").Range("A2") = "" Then
        R = 2
    Else
        R = Sheets("¸ê®Æ®w").Range("A1").End(xlDown).Row + 1
    End If
    Sheets("¸ê®Æ®w").Cells(R, "A") = Sheets("°e­×³æ").Range("C3")
    Sheets("¸ê®Æ®w").Cells(R, "B") = Sheets("°e­×³æ").Range("E3")
    Sheets("¸ê®Æ®w").Cells(R, "C") = Sheets("°e­×³æ").Range("C5")
    Sheets("¸ê®Æ®w").Cells(R, "D") = Sheets("°e­×³æ").Range("D5")
    Sheets("¸ê®Æ®w").Cells(R, "E") = Sheets("°e­×³æ").Range("E5")
    Sheets("¸ê®Æ®w").Cells(R, "F") = Sheets("°e­×³æ").Range("G5")
    Sheets("¸ê®Æ®w").Cells(R, "G") = Sheets("°e­×³æ").Range("H5")

    Sheets("¸ê®Æ®w").Cells(R, "A") = Sheets("°e­×³æ").Range("C3")
    Sheets("¸ê®Æ®w").Cells(R, "B") = Sheets("°e­×³æ").Range("E3")
    Sheets("¸ê®Æ®w").Cells(R, "C") = Sheets("°e­×³æ").Range("C6")
    Sheets("¸ê®Æ®w").Cells(R, "D") = Sheets("°e­×³æ").Range("D6")
    Sheets("¸ê®Æ®w").Cells(R, "E") = Sheets("°e­×³æ").Range("E6")
    Sheets("¸ê®Æ®w").Cells(R, "F") = Sheets("°e­×³æ").Range("G6")
    Sheets("¸ê®Æ®w").Cells(R, "G") = Sheets("°e­×³æ").Range("H6")

    Sheets("¸ê®Æ®w").Cells(R, "A") = Sheets("°e­×³æ").Range("C3")
    Sheets("¸ê®Æ®w").Cells(R, "B") = Sheets("°e­×³æ").Range("E3")
    Sheets("¸ê®Æ®w").Cells(R, "C") = Sheets("°e­×³æ").Range("C7")
    Sheets("¸ê®Æ®w").Cells(R, "D") = Sheets("°e­×³æ").Range("D7")
    Sheets("¸ê®Æ®w").Cells(R, "E") = Sheets("°e­×³æ").Range("E7")
    Sheets("¸ê®Æ®w").Cells(R, "F") = Sheets("°e­×³æ").Range("G7")
    Sheets("¸ê®Æ®w").Cells(R, "G") = Sheets("°e­×³æ").Range("H7")


    Sheets("¸ê®Æ®w").Cells(R, "A") = Sheets("°e­×³æ").Range("C3")
    Sheets("¸ê®Æ®w").Cells(R, "B") = Sheets("°e­×³æ").Range("E3")
    Sheets("¸ê®Æ®w").Cells(R, "C") = Sheets("°e­×³æ").Range("C8")
    Sheets("¸ê®Æ®w").Cells(R, "D") = Sheets("°e­×³æ").Range("D8")
    Sheets("¸ê®Æ®w").Cells(R, "E") = Sheets("°e­×³æ").Range("E8")
    Sheets("¸ê®Æ®w").Cells(R, "F") = Sheets("°e­×³æ").Range("G8")
    Sheets("¸ê®Æ®w").Cells(R, "G") = Sheets("°e­×³æ").Range("H8")


    Sheets("¸ê®Æ®w").Cells(R, "A") = Sheets("°e­×³æ").Range("C3")
    Sheets("¸ê®Æ®w").Cells(R, "B") = Sheets("°e­×³æ").Range("E3")
    Sheets("¸ê®Æ®w").Cells(R, "C") = Sheets("°e­×³æ").Range("C9")
    Sheets("¸ê®Æ®w").Cells(R, "D") = Sheets("°e­×³æ").Range("D9")
    Sheets("¸ê®Æ®w").Cells(R, "E") = Sheets("°e­×³æ").Range("E9")
    Sheets("¸ê®Æ®w").Cells(R, "F") = Sheets("°e­×³æ").Range("G9")
    Sheets("¸ê®Æ®w").Cells(R, "G") = Sheets("°e­×³æ").Range("H9")


    Sheets("¸ê®Æ®w").Cells(R, "A") = Sheets("°e­×³æ").Range("C3")
    Sheets("¸ê®Æ®w").Cells(R, "B") = Sheets("°e­×³æ").Range("E3")
    Sheets("¸ê®Æ®w").Cells(R, "C") = Sheets("°e­×³æ").Range("C10")
    Sheets("¸ê®Æ®w").Cells(R, "D") = Sheets("°e­×³æ").Range("D10")
    Sheets("¸ê®Æ®w").Cells(R, "E") = Sheets("°e­×³æ").Range("E10")
    Sheets("¸ê®Æ®w").Cells(R, "F") = Sheets("°e­×³æ").Range("G10")
    Sheets("¸ê®Æ®w").Cells(R, "G") = Sheets("°e­×³æ").Range("H10")


    Sheets("¸ê®Æ®w").Cells(R, "A") = Sheets("°e­×³æ").Range("C3")
    Sheets("¸ê®Æ®w").Cells(R, "B") = Sheets("°e­×³æ").Range("E3")
    Sheets("¸ê®Æ®w").Cells(R, "C") = Sheets("°e­×³æ").Range("C11")
    Sheets("¸ê®Æ®w").Cells(R, "D") = Sheets("°e­×³æ").Range("D11")
    Sheets("¸ê®Æ®w").Cells(R, "E") = Sheets("°e­×³æ").Range("E11")
    Sheets("¸ê®Æ®w").Cells(R, "F") = Sheets("°e­×³æ").Range("G11")
    Sheets("¸ê®Æ®w").Cells(R, "G") = Sheets("°e­×³æ").Range("H11")

    MsgBox "·s¼W¸ê®Æ¦¨¥\!", 0 + 64
   
   
End Sub
Just do it.

Private Sub CommandButton1_Click()
Dim xR As Range, xE As Range
For Each xR In [C5:C11]
    If xR = "" Then GoTo 101
    Set xE = [¸ê®Æ®w!A65536].End(xlUp)(2).Resize(1, 7)
    xE = Array([C3], [E3], xR, xR(1, 2), xR(1, 3), xR(1, 5), xR(1, 6))
101: Next
End Sub

TOP

¦^´_ 2# ­ã´£³¡ªL
Dear ­ã´£³¡ªL,
¯uªº«Ü·P¿E±zªº«ü¾É¡A¤Ó·P®¦¤F¡I
Just do it.

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD