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

[µo°Ý] ¤å¦rÀx¦s®æ+1

[µo°Ý] ¤å¦rÀx¦s®æ+1

Dear ¤j¤j
½Ð°Ý¤@¤U
G3Àx¦s®æªº­È¬° AK125546--"¤å¦r®æ¦¡"
H3= G3+1 ¼Æ­È­n¬° AK125547
VBA ¼gªk¬°
range("H3")=(Left(G3, Len(G3) - 3) & Right(G3, 3) + 2)  ½T¦³¿ù»~°T®§
½Ð°Ý­n¦p¦ó­×¥¿

¦^´_ 1# borshun88
[H3] = Left([G3], 2) & (Val(Mid([G3], 3)) + 1)

TOP

¥t¤@¿ï¾Ü¡G
  [G3].AutoFill [G3:H3]

TOP

¦^´_ 3# chin15
  1. Sub Test()
  2.     [G3].AutoFill [G3:H3]
  3.     [H3].AutoFill [H3:I3]
  4.     [I3].AutoFill [I3:J3]
  5. End Sub
  6. '     G               H               I                J
  7. '  AK123456        AK123457        AK123458        AK123459
½Æ»s¥N½X
³oªº½T¤]¬O¤@ºØ¦n¤èªk¡I

TOP

¦^´_ 2# c_c_lai
·PÁ¤j¤jªºÀ°¦£
°ÝÃD¸Ñ¨M¤F

TOP

¦^´_ 4# c_c_lai

¥i¥H²¤Æ
     [G3].AutoFill [G3:J3]
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# c_c_lai
½Ð±Ð
    ¦¹°ÝÃD­Y¦A VBA¸Ì
±o¨ì n="AK4568"
  À³¦p¦ó¼g ²¤Æµ{¦¡  ¨ÏTextBox1.text=="AK4568"+1
                   ±o¨ì   TextBox1.text=="AK4569"¤§µ²ªG

TOP

¦^´_  c_c_lai
½Ð±Ð
    ¦¹°ÝÃD­Y¦A VBA¸Ì
±o¨ì n="AK4568"
  À³¦p¦ó¼g ²¤Æµ{¦¡  ¨ÏTextBox1.text= ...
yangjie µoªí©ó 2012-9-28 23:10

¦pªG¬O§Ú­Ó¤H¡A·|¬O¥H¤U¤§À³¥Î³B²z¡G
TextBox1.text = Left(n, 2) & (Val(Mid(n, 3)) + 1)

TOP

¦^´_ 6# ML089
¦¬¨ì¡AÁÂÁ§A¡I
§Ú¥u¬O³æ¯Â¦a¦b»¡©ú¦p¦óÀ³¥Î¦Ó¤w¡A¦A¦¸ÁÂÁ§A¡I

TOP

¦^´_ 8# c_c_lai
Á¤F
§Ú¬O¥ÎTextBox1.text = Left(str1, 2) & (Clng(Mid(str1, 3, len(str1)-3)) + 1)
­ì¨ÓMid(str1, 3)) ¥i¥H¬Ù²¤²Ä¤TÅܼÆ

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD