文字儲存格+1 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 文字儲存格+1

返回列表下一主題上一主題發帖

[發問] 文字儲存格+1

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2012-9-28 11:19 | 顯示全部帖子

回復 1# borshun88
[H3] = Left([G3], 2) & (Val(Mid([G3], 3)) + 1)

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2012-9-28 14:15 | 顯示全部帖子

回復 3# chin15

Sub Test()
[G3].AutoFill [G3:H3]
[H3].AutoFill [H3:I3]
[I3].AutoFill [I3:J3]
End Sub
' G H I J
' AK123456 AK123457 AK123458 AK123459

複製代碼

這的確也是一種好方法！

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 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)

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2012-9-29 08:42 | 顯示全部帖子

回復 6# ML089
收到，謝謝你！
我只是單純地在說明如何應用而已，再次謝謝你！

靜思自在 : 甘願做、歡喜受。

返回列表下一主題上一主題