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

[Âà¶K] VBAªº¼g§@§Þ¥©»P¼W¶i®Ä¯à

½Ð±Ðª©¤j
¹³§Úªºµ{¦¡·Q²¤Æ
¦ý¸Ì­±¦³­nÅܪºÄæ¦ì
¥²¶·­n¥Î ActiveSheet.Paste
¤~¯à°Ê§@
½Ð°Ý³o¼Ë­n¦p¦ó²¤Æ
§Ú¥Î±zªº¤è¦¡
­×§ï§Úªºµ{¦¡¬°
    Sheets("¥_°ÏICªí").Range("B2").Copy Sheets("²Î­p").Range("B2")
    Sheets("²Î­p").Range("E3:E22").Copy Sheets("¥_¤@¬ü´I").Range("B3")
¦ý­ì¥»¸ÓÅܰʪº"E3:E22"¼Æ­È´N¤£ÅܰʤF
½Ðª©¤jÀ°§Ú¬Ý¬Ý°ÝÃD©Ò¦b
·PÁ±z

§Ú­ì¥»ªº¥¨¶°¦p¤U

Sub ¥_¤@¬ü´I()
' ¥_¤@¬ü´I Macro
¦b 2012/7/5 ¿ý»sªº¥¨¶°

    Sheets("¥_°ÏICªí").Select
    Range("B2").Select
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   

    Sheets("¥_°ÏICªí").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("¥_°ÏICªí").Select
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("¥_°ÏICªí").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("¥_°ÏICªí").Select
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("F3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("¥_°ÏICªí").Select
    Range("B7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("G3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

TOP

¤Þ¥Î¥D¤å
¨ä¹ê¥i¥H³o»ò¼g --
¡@Sheets(2).Range("B1") = Sheets(1).Range("A1")
¦pªG¤º®e»P®æ¦¡³£­n½Æ»s¡A¥i¥H³o»ò¼g --
¡@Sheets(1).Range("A1").Copy Sheets(2).Range("B1")
Lin

TOP

¦^´_ 1# Hsieh


½Ð±Ðª©¤j
¹³§Úªºµ{¦¡·Q²¤Æ
¦ý¸Ì­±¦³­nÅܪºÄæ¦ì
¥²¶·­n¥Î ActiveSheet.Paste
¤~¯à°Ê§@
½Ð°Ý³o¼Ë­n¦p¦ó²¤Æ
§Ú¥Î±zªº¤è¦¡
­×§ï§Úªºµ{¦¡¬°
    Sheets("¥_°ÏICªí").Range("B2").Copy Sheets("²Î­p").Range("B2")
    Sheets("²Î­p").Range("E3:E22").Copy Sheets("¥_¤@¬ü´I").Range("B3")
¦ý­ì¥»¸ÓÅܰʪº"E3:E22"¼Æ­È´N¤£ÅܰʤF
½Ðª©¤jÀ°§Ú¬Ý¬Ý°ÝÃD©Ò¦b
·PÁ±z

§Ú­ì¥»ªº¥¨¶°¦p¤U

Sub ¥_¤@¬ü´I()
' ¥_¤@¬ü´I Macro
¦b 2012/7/5 ¿ý»sªº¥¨¶°

    Sheets("¥_°ÏICªí").Select
    Range("B2").Select
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   

    Sheets("¥_°ÏICªí").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("¥_°ÏICªí").Select
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("¥_°ÏICªí").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("¥_°ÏICªí").Select
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("F3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("¥_°ÏICªí").Select
    Range("B7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("²Î­p").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¥_¤@¬ü´I").Select
    Range("G3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

TOP

«Ü´Îªº¤º®e
­n¦n¦n¾Ç²ß¤@¤U

TOP

·PÁ¤À¨É ·PÁ¤À¨É
Good

TOP

exapmle.rar (117.34 KB) ¦^´_ 1# Hsieh


     ¶W¯Åª©¥D±z¦n

¦³¤@ÂI°ÝÃD·Q¸ò±z½Ð±Ð

§Ú·Q¥Î±z³o½gÃD¨ìªº " ¦b¤£¦Psheet¶¡½Æ»s¶K¤W" ªº§Þ¥© ¨Ó¹ï·Ó¨â­Ó¤£¦Psheets¤§¶¡ªº¤½¥qªº¦WºÙ  ¦pªG¬Û²Å  ´N±N¸Ó¤½¥q2005¦~ªºreturn½Æ»s¶K¤W¨ìsheet1

¤£ª¾¹D¬°¦ó¨S¿ìªk¨Ï¥Î ( Á`¬O¥u¦³¤T­Ó¦W¦r¦³§ì¨ì¸ê®Æ)

ªþ¤W§ÚªºÀÉ®× ½Ð±z¹L¥Ø

ÁÂÁÂ

TOP

ÁÂÁ±оÇ.­È±o¥[¥H«ä¦Ò¤@¤U.

TOP

·PÁª©¥D¤À¨É

Åý§Ú¨ü¯q­ê²L

TOP

¦hÁ¤À¨É
§Ú¤~­è¶i¨ìVBAªº¥@¬É
¯uªº³£¬O³z¹L¥¨¶°¾Ç²ß

ÁöµM¬Ý¤F¦üÀ´«DÀ´  ¦ý¬O§Ú·|®É®É©ñ¦b¤ß¤Wªº...

TOP

¤p§Ì§Ú¬O·s¤â¡A¦]¬°»Ý­n®É¤~·|¼g¤@¤UVBA¡A©Ò¥H§Þ¥©ÁÙ¤£¯Â¼ô¡A¦b¦¹·Q½Ð±Ð¤@¤U¦U¦ì«e½ú¡C

  ³Ì«á¨â¦æ"ÄÀ©ñª«¥óÅܼÆ"¬O¬Æ»ò·N«ä? ³£¬O¦b¼g¦bsubªº³Ì«á¶Ü? ¦]¬°°õ¦æ°j°é©Î¨ä¥L°Ê§@®É°O¾Ð¤U¨Óªº¨º¨Ç¸ê®Æ¼È¦s­nÅý¥¦®ø¥¢¶Ü?! ¥i¬O·í°õ¦æ§¹¤@½ü«á³£¤w¸g¿é¥X¨ì«ü©wªº¦a¤è¤FÕÙ¡C

                                                                                                                                                           ·PÁ«e½ú«ü¾É
ªì·sªÌ~«ü±ÐÅo~

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD