註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 關於三迴圈的用法不知是否錯誤,感謝大大們的指導。(以解決,感謝H大,G大謝謝你)
返回列表
下一主題
上一主題
發帖
[發問]
關於三迴圈的用法不知是否錯誤,感謝大大們的指導。(以解決,感謝H大,G大謝謝你)
av8d
發短消息
加為好友
av8d
當前離線
UID
5389
帖子
710
主題
280
精華
0
積分
1016
金錢
1016
點名
0
作業系統
Windows 10
軟體版本
Office 2019
閱讀權限
50
性別
男
在線時間
260 小時
註冊時間
2011-6-30
最後登錄
2025-1-19
大學生
帖子
710
主題
280
精華
0
積分
1016
點名
0
作業系統
Windows 10
軟體版本
Office 2019
閱讀權限
50
性別
男
註冊時間
2011-6-30
最後登錄
2025-1-19
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2011-9-10 12:07
|
只看該作者
[發問]
關於三迴圈的用法不知是否錯誤,感謝大大們的指導。(以解決,感謝H大,G大謝謝你)
本帖最後由 av8d 於 2011-9-11 02:41 編輯
For
i = 8 To 13
For j = 2 To 7
arr = Array(1, 10, 50, 100, 500, 1000)
For k = 0 To 5
A(i) = A(j) * arr(k)
Next k
Next j
Next i
以上迴圈跑出來的結果會是這樣嗎?(如下)
A(8) = A(2) * 1
A(9) = A(3) * 10
A(10) = A(4) * 50
A(11) = A(5) * 100
A(12) = A(6) * 500
A(13) = A(7) * 1000
可是運算出來的結果卻是(如下)
我的A(2)=0照道理A(8)要等於0
可是我的A(8)卻等於3000
不知道是哪裡出了
問題
,再次感謝熱心助人的大大們。
樓主熱帖
如何讓下拉選單選取後自動跳到儲存格相對應
執行階段錯誤 '438': 物件不支援此屬性或方
關於WIN7的C:\Windows\Temp底下的資料是否能
(謝謝恩師們,7/4完成) 關於自訂表單TextBo
如何取多個工作表非空白的值
判斷選取某列或某欄儲存格的欄或列?(已解答
出現"下列功能無法儲存在無巨集的活頁簿"(謝
遞增排序A1~A10,如何讓A1後面是A2而不是A1
關於選取儲存格後,該列範圍變色,出現位移
關於預覽列印或直接列印
收藏
分享
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
119
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4137 小時
註冊時間
2010-4-30
最後登錄
2025-5-17
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
119
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-5-17
2
#
發表於 2011-9-10 12:37
|
只看該作者
回復
1#
av8d
For j = 8 To 13
arr = Array(1, 10, 50, 100, 500, 1000)
For k = 0 To 5
A(j) = A(k + 2) * arr(k)
Next k
Next j
學海無涯_不恥下問
TOP
av8d
發短消息
加為好友
av8d
當前離線
UID
5389
帖子
710
主題
280
精華
0
積分
1016
金錢
1016
點名
0
作業系統
Windows 10
軟體版本
Office 2019
閱讀權限
50
性別
男
在線時間
260 小時
註冊時間
2011-6-30
最後登錄
2025-1-19
大學生
帖子
710
主題
280
精華
0
積分
1016
點名
0
作業系統
Windows 10
軟體版本
Office 2019
閱讀權限
50
性別
男
註冊時間
2011-6-30
最後登錄
2025-1-19
3
#
發表於 2011-9-10 12:58
|
只看該作者
本帖最後由 av8d 於 2011-9-10 13:28 編輯
回復
2#
Hsieh
成功了~(如下)
j = 2
k = 0
For i = 8 To 13
Ar = Array(1, 10, 50, 100, 500, 1000)
A(i) = A(j) * Ar(k)
j = j + 1
k = k + 1
Next i
感謝~
TOP
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
4
#
發表於 2011-9-10 13:40
|
只看該作者
回復
3#
av8d
Ar = Array(1, 10, 50, 100, 500, 1000)
For i = 8 To 13
A(i) = A(i - 6) * Ar(i - 8)
Next
複製代碼
TOP
靜思自在 :
知識要用心體會,才能變成自己的智慧。
返回列表
下一主題
上一主題
Access
Excelㄧ般區
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲