返回列表 上一主題 發帖

從字串中取得固定位置的數字

dennis_yang

帖子
9 
主題
2 
精華
0 
積分
56 
點名
0  
作業系統
Win XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-8 
最後登錄
2017-9-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-22 15:05 | 顯示全部帖子

從字串中取得固定位置的數字

Hello
想要從字串中取得固定位置的數字(等號後面的數字)
如: 想從"h=8"取出8
以下程式無法執行, 可否幫幫忙, 修改一下? 順便幫忙轉成數值. 謝謝

Sub index()
Dim ar1, xx
Dim yy
ar1 = "h=8"
xx = InStr(1, ar1, "h", 1)
yy = Mid(ar1, xx + 1, 10)
End Sub
收藏 分享

dennis_yang

帖子
9 
主題
2 
精華
0 
積分
56 
點名
0  
作業系統
Win XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-8 
最後登錄
2017-9-4 
2#
發表於 2011-6-22 16:28 | 顯示全部帖子
試了一下
可是還是一直出現下面訊息
是Excel不完整嗎? 我換了幾台電腦測試都一樣出現編輯錯誤

TOP

dennis_yang

帖子
9 
主題
2 
精華
0 
積分
56 
點名
0  
作業系統
Win XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-8 
最後登錄
2017-9-4 
3#
發表於 2011-6-22 18:37 | 顯示全部帖子
多謝木工版主的協助
改為vba.mid試作OK
但是我的vba編輯器中的工具~"設定引用項目"中是反白,無法設定耶,應該是非企業版的關係
還是謝謝啦!!

TOP

dennis_yang

帖子
9 
主題
2 
精華
0 
積分
56 
點名
0  
作業系統
Win XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-8 
最後登錄
2017-9-4 
4#
發表於 2011-6-22 18:42 | 顯示全部帖子
程式執行中斷時,"設定引用項目"反白,解除後,即可設定
勾選取消"遺漏......"
測試OK
再一次謝謝

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題