12
返回列表 上一主題 發帖

處理STRING時遇到困難

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
11# 跳轉到 »
發表於 2012-8-29 12:12 | 只看該作者
回復  小俠客
InStr(raw.Cells(i, 3), "小學")   這只會傳回數字
你自串中 初小, 小學,初中, 國中....  ...
GBKEE 發表於 2012-8-28 09:44



我忽然想到，如果我把小學、中學、大學、研究生以上的類別用array儲起來，用FOR LOOP + select case 或if是不是可以？
例如：
  1. scl(1,1) = "初小"
  2. scl(1,2) = "小學"
  3. scl(2,1) = "初中"
  4. scl(2,2) = "高中"
  5. scl(3,1) = "大學"
  6. .
  7. .
  8. .

  10. edu(1)="小學"
  11. edu(2)="中學"
  12. edu(3)="大學"
  13. .
  14. .

  16. for j = 1 to 4
  17.         for k = 1 to 2
  18.                 select case instr(raw.Cells(i, 3), scl(j,k))
  19.                         case >0
  20.                                 vbtype=edu(j)
  21.                 end select
  22.         next k
  23. next j
複製代碼
但如果sub中放了太多的array，會有點混亂，而且類似的array在其他的sub 也會用到，如果在每一個sub都存有相同的array，維護時也很麻煩，所以我打算用public const去define array，但失敗了。

我的做法是：

public dim scl(4,2) as string
const dim scl(1,1) = "初小"
const scl(1,2) = "小學"
.

sub abc()

是不是不能在public define 2dimensional的 array？

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2012-8-29 13:08 | 只看該作者
本帖最後由 GBKEE 於 2012-8-29 13:09 編輯

回復 11# 小俠客
  1. Option Explicit
  2. Public scl, edu                  '此公用變數 可供其他程序使用   
  3. Private Sub Workbook_Open()  ' Workbook_Open 是ThisWorkbook 模組的程式碼
  4.     設立陣列
  5. End Sub
  6. Sub 設立陣列()  '在此設立陣列 可供其他程序使用   
  7.     ReDim scl(1 To 3, 1 To 2)
  8.     ReDim edu(1 To 3)
  9.     scl(1, 1) = "初小"
  10.     scl(1, 2) = "小學"
  11.     scl(2, 1) = "初中"
  12.     scl(2, 2) = "國中"
  13.     scl(3, 1) = "大學"
  14.     scl(3, 2) = "專科"
  15.     edu(1) = "小學"
  16.     edu(2) = "中學"
  17.     edu(3) = "大學"
  18. End Sub
  19. Sub Ex()   '執行 "設立陣列" 程序後可執行此程序
  20.     Dim j, k, w, vbtype
  21.     w = "--國中**"
  22.     For j = 1 To UBound(scl)
  23.         For k = 1 To UBound(scl, 2)
  24.            If InStr(w, scl(j, k)) Then vbtype = edu(j): GoTo Define_unit
  25.         Next k
  26.     Next j
  27. Define_unit:
  28.     MsgBox vbtype
  29. End Sub
複製代碼

TOP

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
13#
發表於 2012-8-29 23:47 | 只看該作者
回復  小俠客
GBKEE 發表於 2012-8-29 13:08



  嘩！我在網上四處找"excel vba public const array"，只能找到1 dimension array的設定方法
原來還有這一招，又學起來了，謝謝版大

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
12
返回列表 上一主題