12
返回列表 上一主題 發帖

[發問] 文字儲存格+1

borshun88

帖子
15 
主題
5 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
女 
來自
taipai 
註冊時間
2012-4-1 
最後登錄
2017-4-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-9-28 11:19 | 只看該作者
回復 1# borshun88
[H3] = Left([G3], 2) & (Val(Mid([G3], 3)) + 1)

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
3#
發表於 2012-9-28 13:59 | 只看該作者
另一選擇：
  [G3].AutoFill [G3:H3]

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 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
複製代碼
這的確也是一種好方法！

TOP

borshun88

帖子
15 
主題
5 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
女 
來自
taipai 
註冊時間
2012-4-1 
最後登錄
2017-4-22 
5#
發表於 2012-9-28 19:02 | 只看該作者
回復 2# c_c_lai
感謝大大的幫忙
問題解決了

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
6#
發表於 2012-9-28 19:32 | 只看該作者
回復 4# c_c_lai

可以簡化
     [G3].AutoFill [G3:J3]
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
7#
發表於 2012-9-28 23:10 | 只看該作者
回復 4# c_c_lai
請教
    此問題若再 VBA裡
得到 n="AK4568"
  應如何寫 簡化程式  使TextBox1.text=="AK4568"+1
                   得到   TextBox1.text=="AK4569"之結果

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
8#
發表於 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)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2012-9-29 08:42 | 只看該作者
回復 6# ML089
收到，謝謝你！
我只是單純地在說明如何應用而已，再次謝謝你！

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
10#
發表於 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)) 可以省略第三變數

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
12
返回列表 上一主題