帖子: 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) 確有錯誤訊息
請問要如何修正

樓主熱帖

sylorosa

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 7
點名: 0
作業系統: windows7
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2012-10-18
最後登錄: 2013-9-14

11^#

發表於 2012-10-18 21:02 | 只看該作者

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

Rosa

TOP

yangjie

中學生 Rank: 2

帖子: 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

c_c_lai

博士班 Rank: 6 Rank: 6

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

9^#

發表於 2012-9-29 08:42 | 只看該作者

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 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

yangjie

中學生 Rank: 2

帖子: 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

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

borshun88

中學生 Rank: 2

帖子: 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

c_c_lai

博士班 Rank: 6 Rank: 6

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

4^#

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

複製代碼

這的確也是一種好方法！

TOP

chin15

中學生 Rank: 2

帖子: 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