¼g¤@Ó¥t¦s·sÀɪº¥¨¶°¡A¦ý¬O»Ýn.pdf file¡A¨º»òÀ³«ç§ï¼g¡H
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
Sheets("invoice").Range("L7")
¥t¥~·Q½Ð±Ð¡A¥H¤Wªº«ü¥O¡A¬O¶K¤W L7ªº¡A«ç¼Ë¥i³]©wµL«ü¦Vªº«ü¥O¡H |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¥»©«³Ì«á¥Ñ Blade ©ó 2014-1-18 01:50 ½s¿è
¥ý¬Ý¬Ý¹Ï¤ù¡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 |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
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 |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¥»©«³Ì«á¥Ñ Blade ©ó 2014-1-21 19:16 ½s¿è
·í§Ú¿ï¤F¡A«OÅ@¤u§@ªí¡A¥H¤Uµ{¦¡«K·|¥X¿ù»~¡C- Sub InvoiceNo()
- Dim xRNo As Range, i As Integer, y As Integer, R As Integer, RR As Integer
- Set xRNo = Range("Q2")
- 'Set xRNo = Range("D5")
- y = Len(xRNo) '[µo²¼½s¸¹]ªº¦r¦êÓ¼Æ
- For i = 1 To y
- If R = 0 And Mid(xRNo, i, 1) Like "[0-9]" Then R = i '§ä[µo²¼½s¸¹]¤¤²Ä¤@ӼƦr
- If Mid(xRNo, i, 1) Like "[!0-9]" Then RR = i '§ä[µo²¼½s¸¹]¤¤³Ì«áªº¤å¦r
- Next
- If RR > R Or R = 0 Or xRNo = 0 Then '¼Æ¦r¦b¤å¦r¤§«e(©Î¥u¦³¤å¦r),¥u¦³¼Æ¦r
- MsgBox "¡iª`·N¡j¦¬¾Ú½s¸¹¥X¿ù !!!"
- Else
- xRNo = Mid(xRNo, 1, R - 1) & Format(Mid(xRNo, R) + 1, String((y - R + 1), "0"))
- End If
-
- Range("Q2").Select
- 'Range("D5").Select
- Selection.Copy
- Range("D6").Select
- ActiveSheet.Paste
- Application.CutCopyMode = False
- With Selection.Font
- .ColorIndex = xlAutomatic
- .TintAndShade = 0
- End With
- Range("A4").Select
- '¦p y - R + 1 = 5
- '¦p :Format(568, String((y - R + 1), "0")) => Format(568, "00000") => 5¦ì¼Æ: 00568
- End Sub
½Æ»s¥N½X ¥X¿ù»~ªº¥y¤l- xRNo = Mid(xRNo, 1, R - 1) & Format(Mid(xRNo, R) + 1, String((y - R + 1), "0"))
½Æ»s¥N½X |
|
|
|
|
|
|