請問如何使用VBA計算方陣 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問如何使用VBA計算方陣

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

[發問] 請問如何使用VBA計算方陣

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

6^# 跳轉到 »

發表於 2015-7-29 10:15 | 只看該作者

我的資料多的時候多半會超過1000筆，請問有辦法讓這個程式執行得更快嗎?

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

5^#

發表於 2015-7-29 09:56 | 只看該作者

回復 4# lpk187
很容易明白的解釋，非常感謝!!
再請教一下，我輸入後K的位置會發生編譯錯誤，這個問題該如何排除?

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2015-7-29 01:08 | 只看該作者

本帖最後由 lpk187 於 2015-7-29 01:18 編輯

回復 3# linlin00

K值為什麼要11如下圖
K值為Column數，從K欄開始計數所以為11，L欄為12，依此類推！

以此例題，其實有很多方式可以做，但我選擇最基礎的一種方式，讓你容易理解，這方式如果資料很多的時候，其實速度會有些慢的！

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

3^#

發表於 2015-7-28 23:16 | 只看該作者

回復 2# lpk187
謝謝lpk187大的回答，有幾個地方想在請問一下
這裡為甚麼需要用一個k?為什麼k需要先設為11?

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-7-28 20:40 | 只看該作者

本帖最後由 lpk187 於 2015-7-28 20:43 編輯

回復 1# linlin00

我利用上次的程式來完成它！
也就是原來的A、B、C 3欄的原有資料來完成

Public Sub Ex()
s = 2
k = 11
For i = 2 To 6
X = i + 1
For j = X To 7
Cells(s, "F") = Cells(i, 1) & "," & Cells(j, 1)
Cells(s, "G") = (Cells(i, 2) + Cells(j, 2)) / 2
Cells(s, "H") = (Cells(i, 3) + Cells(j, 3)) / 2
Cells(j, k) = (Cells(i, 2) - Cells(s, "G")) ^ 2 _
+ (Cells(j, 2) - Cells(s, "G")) ^ 2 _
+ (Cells(i, 3) - Cells(s, "h")) ^ 2 _
+ (Cells(j, 3) - Cells(s, "h")) ^ 2
s = s + 1
Next
k = k + 1
Next
End Sub

複製代碼

靜思自在 : 受人點水之恩，須當湧泉以報。

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