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

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

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

小學生 Rank: 1

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-7-28 18:04 | 只看該作者

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

我想請問有一個例題，已經將兩兩的中心求出，
例如:n筆資料(A,B)
第一筆資料(5,5)
第二筆資料(6,6)
先計算得1跟2的中心為(5.5 , 5.5)
而在矩陣上對照1跟2的計算公式為 (第一筆資料A-(12的A平均))^2+(第二筆資料A-(12的A平均))^2+(第一筆資料B-(12的B平均))^2+(第二筆資料B-(12的B平均))^2
不是很會敘述，不知道這樣有沒有比較清楚
附件內是我用手打的方陣，因為花的時間比較長，想請問能否用VBA縮短時間

方陣.rar (8.64 KB)

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

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

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

複製代碼

小學生 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
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

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

5^#

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

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

小學生 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

7^#

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

回復 5# linlin00

更正，K的部分問題已經解決了!

高中生 Rank: 3 Rank: 3

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

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

8^#

發表於 2015-7-29 12:43 | 只看該作者

回復 6# linlin00

不知是不是你想要的
其實只是把它以陣列的方式去跑(陣列比在儲存格跑快很多)

Public Sub Ex1()
Dim ar1(), ar2()
n = 1
arr = Range("a2:c" & Cells(Rows.Count, 1).End(xlUp).Row) '當ABC三欄往下增加資料時會自動讀取位置
ReDim ar2(1 To UBound(arr) + 1, 1 To UBound(arr) + 1)
ar2(1, 2) = 1
For i = 1 To UBound(arr) - 1
ar2(1, i + 2) = i + 1
X = i + 1
For j = X To UBound(arr)
ReDim Preserve ar1(1 To 3, 1 To n)
ar1(1, n) = arr(i, 1) & "," & arr(j, 1)
ar1(2, n) = (arr(i, 2) + arr(j, 2)) / 2
ar1(3, n) = (arr(i, 3) + arr(j, 3)) / 2
ar2(j, 1) = j - 1
ar2(j + 1, i + 1) = (arr(i, 2) - ar1(2, n)) ^ 2 _
+ (arr(j, 2) - ar1(2, n)) ^ 2 _
+ (arr(i, 3) - ar1(3, n)) ^ 2 _
+ (arr(j, 3) - ar1(3, n)) ^ 2
n = n + 1
Next
Next
ar2(j, 1) = i
Range("F2").Resize(UBound(ar1, 2), UBound(ar1, 1)) = Application.Transpose(ar1)
Range("J1").Resize(UBound(ar2, 2), UBound(ar2, 1)) = ar2
End Sub

複製代碼

小學生 Rank: 1

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

9^#

發表於 2015-7-29 14:23 | 只看該作者

回復 8# lpk187
謝謝，這個速度變很快，而且也能得到我想要的結果，不過多了好多我不懂的東西還需要花點時間吸收.....

小學生 Rank: 1

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

10^#

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

回復 2# lpk187

我目前使用這一個來操作，想請問如果要找方陣範圍內的最小值並回傳是哪兩個的組合，有辦法做到嗎?
下一步想要將這一個最小值的兩組做結合，接著算新的一個方陣

靜思自在 : 愛不是要求對方，而是要由自身的付出。

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