|
||
|
*停權中*
加入日期: Feb 2004
文章: 2,909
|
(請益)VBA一些問題
A1=100 'A1等於數字100
. . . A99=150 'A99等於數字150 I = 1 TO 99 B = "A" & I '希望B可以讀取A01~A99的數字 NEXT I =========================== 希望B可以讀取A1~A99的數字 不過B執行結果,單純就A1~A99的文字 有啥辦法可以讓B讀取到設定的數字嗎? 麻煩大大們指點了! |
|||||||
2013-06-08, 09:00 PM
#1
|
|
|
Advance Member
  加入日期: Dec 2002
文章: 441
|
一般這種應該是定義一個陣列來儲存變數值
然後迴圈就很容易處理 如果是讀工作表裡連續儲存格的值就會用 range 或 cells |
||
|
2013-06-09, 01:55 AM
#2
|
|
|
*停權中*
加入日期: Feb 2004
文章: 2,909
|
引用:
是反過來... 要將1~99的計算變數填到不同工作頁,不同表格內 現在就卡到 B可以讀不到A1~A99的數字...QAQ 又不想拆成很多串CALL來CALL去的Orz... 才想說用這種方法... 先感謝大大指點了... |
|
|
2013-06-09, 10:52 AM
#3
|
|
|
Advance Member
加入日期: Dec 2002
文章: 441
|
不太清楚你的困難點，貼一段陣列值的處理
包括基本陣列的定義，值的設定以取迴圈處理參考 Sub Macro1() Dim A() A = Array(1, 2, 3, 4, 5) For I = 0 To 4 MsgBox A(I), vbOKOnly Next End Sub |
|
2013-06-10, 01:40 AM
#4
|
|
|
*停權中*
加入日期: Feb 2004
文章: 2,909
|
引用:
恩~感謝大大的指導 我那問題,可以PM請教大大嗎? |
|
|
2013-06-10, 09:15 PM
#5
|
|
|
Advance Member
加入日期: Dec 2002
文章: 441
|
引用:
好，不趕的話，端午我會在家，如果問題不難，或許我還有能力 先講在前頭，在下vba能力只算是肉腳級.....不一定能幫上忙.... |
|
|
2013-06-10, 10:06 PM
#6
|
|
|
Regular Member
 加入日期: Feb 2003
文章: 57
|
讀資料那行要這樣寫才對
b=Range("a" & i) 不過，整個程式有很大的問題 (這是全部的程式嗎???) 執行完之後 b=range("a99") ， a01~a98等於作白工 整個程式可簡化成 b = range("a99") 更重要的事，我看不懂您的問題 ============================= 我"猜"您要問的可能是 讀取 sheet1 工作表 a1~a100 的內容 到 sheet2 工作表 b1~b100 填入 For i = 1 To 100 Sheet2.Range("b" & i) = Sheet1.Range("a" & i) Next i 此文章於 2013-06-10 11:58 PM 被 h12200 編輯. |
|
2013-06-10, 11:49 PM
#7
|
|
|
*停權中*
加入日期: Feb 2004
文章: 2,909
|
引用:
>>>Range("a" & i) 阿~直接填進去這我到沒試過...= =a 看來應該可行= =+ 上面這串,算是把問題拿出來簡化後的狀態吧 早上問前輩,他也說看不懂我在問啥XDDDDD 後來整串給他看,他才知道我在問啥Orz... 基本上大概解決了 感謝大大們的經驗指點了!!! |
|
|
2013-06-11, 09:16 PM
#8
|
|
