標題: 從字串中取得固定位置的數字 [打印本頁]

---

作者: dennis_yang    時間: 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

---

作者: oobird    時間: 2011-6-22 15:34

ar1 = "h=8"
xx = InStr(ar1, "=")
yy = Mid(ar1, xx + 1, 10)
另外Sub index()
不能用 index 作為程式名，系統保留字

---

作者: dennis_yang    時間: 2011-6-22 16:28

試了一下
可是還是一直出現下面訊息
是Excel不完整嗎? 我換了幾台電腦測試都一樣出現編輯錯誤
[attach]6756[/attach]
[attach]6757[/attach]

---

作者: oobird    時間: 2011-6-22 16:54

你這個檔案中有錯誤的引用，到vba編輯器中的工具~設定引用項目中找到錯誤，取消勾選
或者重開一個新檔來用
再不然把mid改為vba.mid試試！

---

作者: dennis_yang    時間: 2011-6-22 18:37

多謝木工版主的協助
改為vba.mid試作OK
但是我的vba編輯器中的工具~"設定引用項目"中是反白,無法設定耶,應該是非企業版的關係
還是謝謝啦!!

---

作者: dennis_yang    時間: 2011-6-22 18:42

程式執行中斷時,"設定引用項目"反白,解除後,即可設定
勾選取消"遺漏......"
測試OK
再一次謝謝

---

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