GBKEE

¦^´_ 30# Blade
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Selection.Resize(, 3).Copy Sheets("invoice").Range("L7")
   
4.    
   
5.     'Selection.Resize(, 3).Copy    :½d³òªº½Æ»s
   
6.     'Sheets("invoice").Range("L7") :¶K¤Wªº¦ì¸m
   
7.     '
   
8.     Sheets("invoice").Activate
   
9.     Sheets("invoice").Range("K7").Select
   
10.    
    
11. End Sub

½Æ»s¥N½X

Blade

¦^´_  Blade
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2014-1-17 06:52

·PÁª©¤jªº«ü±Ð¡C
§Ú·Q°Ý°Ý¡A(, 3)¬O¬Æ»ò·N«ä¡H
½d³ò¬OA&Bªº¿ï©w¡A¦pªG¬OA-F¡A¨º»ò¬O§_­×§ï¦¨(, 5....6)¡A¦p¦¹Ãþ±À¡H

Blade

Sheets("invoice").Range("L7")
¥t¥~·Q½Ð±Ð¡A¥H¤Wªº«ü¥O¡A¬O¶K¤W L7ªº¡A«ç¼Ë¥i³]©wµL«ü¦Vªº«ü¥O¡H

GBKEE

¦^´_ 33# Blade
Selection.Resize(¦C¼Æ, Äæ¼Æ).Copy Sheets("invoice").Range("L7")
¬Ù²¤ ¦C¼Æ =¦PSelectionªº¦C¼Æ
¬Ù²¤ Äæ¼Æ =¦PSelectionªºÄæ¼Æ

§A»¡:«ç¼Ë¥i³]©wµL«ü¦Vªº«ü¥O
¤°»ò¬OµL«ü¦V»¡©ú¤@¤U

Blade

¦^´_  Blade
Selection.Resize(¦C¼Æ, Äæ¼Æ).Copy Sheets("invoice").Range("L7")
¬Ù²¤ ¦C¼Æ =¦PSelectio ...
GBKEE µoªí©ó 2014-1-17 19:37

·PÁ¡I
Selection.Resize §Ú§¹¥þ©ú¥Õ¤F¡C:)
§Ú¨£¬Ù²¤¤F¬O³o様 Selection.Resize(, 3)
¦pªG¡A§Ú¦C©MÄæ³£¬Ù²¤¡ASelection.Resize(,)¬O§_³o様¡H

Blade

¥ý¬Ý¬Ý¹Ï¤ù¡C
§Ú²{¦bÀ´±o¥ÎSelection.Resize¡C
§Ú¦P様¦a¦bcourse¨º­¶¡A³£°µ¤F«öÁäµ¹¨C¤@­Ó½Òµ{¡C
²{§Ú§ÚÀ´¤FSelection.Resize¡A§Ú·|¥Î¬Û¦P«ü¥O¥h³B²zcourse¨º­¶¡A¦ý¬Ocopy¨ìinvoice¡A¨º¸Ì§Ú¦³5¦æ¸ê®Æ¡C
¦pªG§Ú Copy Sheets("invoice").Range("B13")¡A¨º»ò¨C¦¸§Ú¿ïcourse¡A³£¥u¯àcopy¨ì B13¡A¥t¥~¨º4¦æ§ÚÀ³«ç½s¼g«ü¥O©O¡H
Copy Sheets("invoice").Range("B13") §ÚÀ³¥Î¬Æ»ò«ü¥O©O¡H

Blade

Selection.Resize(, 13).Copy Sheets("invoice").Selection.Resize(, 13)
Selection.Resize(, 13).Copy Sheets("invoice").Selection.Resize(, 1).Paste
Selection.Resize(, 13).Copy Sheets("invoice").Range("B13").Select

GBKEE

¦^´_ 35# Blade

§Ú¨£¬Ù²¤¤F¬O³o様 Selection.Resize(, 3)
¦pªG¡A§Ú¦C©MÄæ³£¬Ù²¤¡ASelection.Resize(,)¬O§_³o様¡H

¨º´N¤£»Ý¥ÎResize,ª½±µ¥ÎSelection
36#ªº¤º®e¬Ý¤£À´¬°¦ó¤£ª½±µ¤W¶ÇexcelÀÉ»¡©ú
37# Selection.Resize(, 13).Copy Sheets("invoice").Selection.Resize(, 13)
2003·|¿ù»~,­n§ï¦¨©ú½Tªº¦ì¸m¦p [A5] , ¥t«á­±.Paste .Select ¤]·|¦³¿ù»~,
§Aªºª©¥»¥i¥Î¶Ü?

Blade

§Úªº¬O2010

Blade

·í§Ú¿ï¤F¡A«OÅ@¤u§@ªí¡A¥H¤Uµ{¦¡«K·|¥X¿ù»~¡C

1. Sub InvoiceNo()
   
2.     Dim xRNo As Range, i As Integer, y As Integer, R As Integer, RR As Integer
   
3.     Set xRNo = Range("Q2")
   
4.     'Set xRNo = Range("D5")
   
5.     y = Len(xRNo)                                      '[µo²¼½s¸¹]ªº¦r¦ê­Ó¼Æ
   
6.     For i = 1 To y
   
7.         If R = 0 And Mid(xRNo, i, 1) Like "[0-9]" Then R = i    '§ä[µo²¼½s¸¹]¤¤²Ä¤@­Ó¼Æ¦r
   
8.         If Mid(xRNo, i, 1) Like "[!0-9]" Then RR = i            '§ä[µo²¼½s¸¹]¤¤³Ì«áªº¤å¦r
   
9.     Next
   
10.     If RR > R Or R = 0 Or xRNo = 0 Then  '¼Æ¦r¦b¤å¦r¤§«e(©Î¥u¦³¤å¦r),¥u¦³¼Æ¦r
    
11.         MsgBox "¡iª`·N¡j¦¬¾Ú½s¸¹¥X¿ù !!!"
    
12.    Else
    
13.         xRNo = Mid(xRNo, 1, R - 1) & Format(Mid(xRNo, R) + 1, String((y - R + 1), "0"))
    
14.     End If
    
15.    
    
16.     Range("Q2").Select
    
17.   'Range("D5").Select
    
18.     Selection.Copy
    
19.     Range("D6").Select
    
20.     ActiveSheet.Paste
    
21.     Application.CutCopyMode = False
    
22.     With Selection.Font
    
23.         .ColorIndex = xlAutomatic
    
24.         .TintAndShade = 0
    
25.     End With
    
26.     Range("A4").Select
    
27.      '¦p  y - R + 1 = 5
    
28.      '¦p :Format(568, String((y - R + 1), "0")) => Format(568, "00000") => 5¦ì¼Æ:  00568
    
29. End Sub

½Æ»s¥N½X

¥X¿ù»~ªº¥y¤l

1.         xRNo = Mid(xRNo, 1, R - 1) & Format(Mid(xRNo, R) + 1, String((y - R + 1), "0"))

½Æ»s¥N½X