返回列表 上一主題 發帖

[發問] 變數加編號

swede

帖子
3 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
winxp 
軟體版本
office97 
閱讀權限
10 
性別
男 
註冊時間
2012-2-12 
最後登錄
2012-5-18 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-12 21:07 | 只看該作者

[發問] 變數加編號

請問各位高手

我以Mid函數取得字串並定義為adate，adate含有多個左括號，現欲取得每一個左括號的位置：

PL1 = InStr(adate, "(")
For i = 2 To 10
j = i - 1
PLi = InStr(1 + PRj, adate, "(")
Next

但上述程式碼無法取得左括號的位置，例如字串中第二個左括號PL2，請問應朝甚麼方向改寫?謝謝
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
262  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-25 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2012-2-19 10:29 | 只看該作者
本帖最後由 Hsieh 於 2012-2-19 10:31 編輯

回復 4# swede
只對括號數量做循環，減少迴圈數
同樣是傳回所有左括號的位置
應用如下
  1. Sub nn()
  2. Dim Ar()
  3. adate = [A1]
  4. s = 1
  5. For i = 1 To Len(adate) - Len(Replace(adate, "(", ""))
  6. k = InStr(s, adate, "(")
  7.   ReDim Preserve Ar(i - 1)
  8.   Ar(i - 1) = k
  9.   s = k + 1
  10. Next
  11. If InStr(adate, "(") > 0 Then MsgBox Join(Ar, ",") Else MsgBox "不含("
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

swede

帖子
3 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
winxp 
軟體版本
office97 
閱讀權限
10 
性別
男 
註冊時間
2012-2-12 
最後登錄
2012-5-18 
6#
發表於 2012-2-18 23:44 | 只看該作者
感謝GBKEE 提供另外寫法， 我會試試看

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-2-14 08:33 | 只看該作者
回復 1# swede
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xi As Integer, S
  4.     For xi = 1 To Len(adate)
  5.         If Mid(adate, xi, 1) = "(" Then
  6.         S = IIf(S <> "", S & "," & xi, xi)
  7.         End If
  8.     Next
  9.     If S <> "" Then MsgBox S
  10. End Sub
複製代碼

TOP

swede

帖子
3 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
winxp 
軟體版本
office97 
閱讀權限
10 
性別
男 
註冊時間
2012-2-12 
最後登錄
2012-5-18 
4#
發表於 2012-2-13 23:04 | 只看該作者
感謝兩位回覆，因為要取得每一個左括號的位置，所以register313 的寫法比較符合我需要的，謝謝。

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
262  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-25 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-2-12 22:30 | 只看該作者
回復 1# swede

s = 1
For i = 1 To Len(adate) - Len(Replace(adate, "(", ""))
k = InStr(s, adate, "(")
  MsgBox k
  s = k + 1
Next
學海無涯_不恥下問

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-2-12 22:21 | 只看該作者
回復 1# swede
  1. Sub ZZ()
  2. '第1個(的位置放在ARR(1),第2個(的位置放在ARR(2)...
  3. Dim ARR(10)                              '至多可找10個"("
  4. ARR(1) = InStr(1, adate, "(")
  5. For I = 2 To 100                         '字串至多100字元
  6.   X = InStr(ARR(I - 1) + 1, adate, "(")
  7.   If X <> 0 Then
  8.      ARR(I) = X
  9.      Cells(I, "B") = ARR(I)
  10.   Else:     End
  11.   End If
  12. Next
  13. End Sub
複製代碼

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題