麻辣家族討論版版 » Excel程式區 » 從字串中取得固定位置的數字

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

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

中學生 Rank: 2

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

收藏

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-6-22 15:34 | 只看該作者

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

中學生 Rank: 2

帖子: 9
主題: 2
精華: 0
積分: 56
點名: 0
作業系統: Win XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-8
最後登錄: 2017-9-4

3^#

發表於 2011-6-22 16:28 | 只看該作者

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-6-22 16:54 | 只看該作者

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

中學生 Rank: 2

帖子: 9
主題: 2
精華: 0
積分: 56
點名: 0
作業系統: Win XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-8
最後登錄: 2017-9-4

5^#

發表於 2011-6-22 18:37 | 只看該作者

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

中學生 Rank: 2

帖子: 9
主題: 2
精華: 0
積分: 56
點名: 0
作業系統: Win XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-8
最後登錄: 2017-9-4

6^#

發表於 2011-6-22 18:42 | 只看該作者

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

靜思自在 : 人生最大的成就是從失敗中站起來。

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