Board logo

標題: [發問] 文字儲存格+1 [打印本頁]
作者: borshun88    時間: 2012-9-28 10:48     標題: 文字儲存格+1

Dear 大大
請問一下
G3儲存格的值為 AK125546--"文字格式"
H3= G3+1 數值要為 AK125547
VBA 寫法為
range("H3")=(Left(G3, Len(G3) - 3) & Right(G3, 3) + 2)  確有錯誤訊息
請問要如何修正
作者: c_c_lai    時間: 2012-9-28 11:19

回復 1# borshun88
[H3] = Left([G3], 2) & (Val(Mid([G3], 3)) + 1)
作者: chin15    時間: 2012-9-28 13:59

另一選擇：
  [G3].AutoFill [G3:H3]
作者: c_c_lai    時間: 2012-9-28 14:15

回復 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
複製代碼
這的確也是一種好方法！
作者: borshun88    時間: 2012-9-28 19:02

回復 2# c_c_lai
感謝大大的幫忙
問題解決了
作者: ML089    時間: 2012-9-28 19:32

回復 4# c_c_lai

可以簡化
     [G3].AutoFill [G3:J3]
作者: yangjie    時間: 2012-9-28 23:10

回復 4# c_c_lai
請教
    此問題若再 VBA裡
得到 n="AK4568"
  應如何寫 簡化程式  使TextBox1.text=="AK4568"+1
                   得到   TextBox1.text=="AK4569"之結果
作者: c_c_lai    時間: 2012-9-29 08:36

回復  c_c_lai
請教
    此問題若再 VBA裡
得到 n="AK4568"
  應如何寫 簡化程式  使TextBox1.text= ...
yangjie 發表於 2012-9-28 23:10

如果是我個人，會是以下之應用處理：
TextBox1.text = Left(n, 2) & (Val(Mid(n, 3)) + 1)
作者: c_c_lai    時間: 2012-9-29 08:42

回復 6# ML089
收到，謝謝你！
我只是單純地在說明如何應用而已，再次謝謝你！
作者: yangjie    時間: 2012-9-29 10:20

回復 8# c_c_lai
謝了
我是用TextBox1.text = Left(str1, 2) & (Clng(Mid(str1, 3, len(str1)-3)) + 1)
原來Mid(str1, 3)) 可以省略第三變數
作者: sylorosa    時間: 2012-10-18 21:02

謝謝，各位大大無私的分享，受益了，感謝!!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)