詢問矩陣設計問題

我寫了一個 4*4 的矩陣, 矩陣值會有分數, 但執行後 < 0 的部份都顯示 0
如果才能讓它顯示分數?

語法:
Dim myarray1(2 To 5, 2 To 5) As Integer

myarray1(2, 2) = 1
myarray1(2, 3) = 1
myarray1(2, 4) = 3
myarray1(2, 5) = 5

myarray1(3, 2) = 1
myarray1(3, 3) = 1
myarray1(3, 4) = 2
myarray1(3, 5) = 4

myarray1(4, 2) = 1 / 3
myarray1(4, 3) = 1 / 3
myarray1(4, 4) = 1
myarray1(4, 5) = 5

myarray1(5, 2) = 1 / 5
myarray1(5, 3) = 1 / 4
myarray1(5, 4) = 1 / 5
myarray1(5, 5) = 1

For i = 2 To 5
For j = 2 To 5
Cells(i, j).Value = myarray1(i, j)
Next j
Next i

End Sub

TOP

temple

小學生 Rank: 1

帖子: 19
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-12-28
最後登錄: 2015-6-22

2^#

發表於 2015-2-27 17:19 | 顯示全部帖子

問題已解決非常謝謝你

TOP

temple

小學生 Rank: 1

帖子: 19
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-12-28
最後登錄: 2015-6-22

3^# 倒序看帖

打印

字體大小: tT

發表於 2015-2-27 18:23 | 顯示全部帖子

[發問] VBA 中計算數值問題

我設計了一個 3*3 的矩陣, 想做 row 的乘法,
例如, myarray1(2,2) 的 1 * myarray1(3, 2) = 1 *myarray1(4, 2) = 1 / 3
即 1*1*3

這個語法要怎麼寫?

Dim myarray1(2 To 4, 2 To 4) As Single

myarray1(2, 2) = 1
myarray1(2, 3) = 1
myarray1(2, 4) = 3

myarray1(3, 2) = 1
myarray1(3, 3) = 1
myarray1(3, 4) = 2

myarray1(4, 2) = 1 / 3
myarray1(4, 3) = 1 / 2
myarray1(4, 4) = 1

For i = 2 To 4
For j = 2 To 4
Cells(i, j).Value = myarray1(i, j)
Next j
Next i

End Sub

temple

小學生 Rank: 1

帖子: 19
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-12-28
最後登錄: 2015-6-22

4^#

發表於 2015-3-1 16:27 | 顯示全部帖子

先謝謝超級版主的建議, 我是想在矩陣中再加一個欄位, 可以自動做 row的計算, 像下面那個矩陣一樣
1.............1........3.........(1*1*3)
1.............1....... 2........(1*1*3)
1/3.....1/2.......1........(1/3*1/2*1)

TOP

temple

小學生 Rank: 1

帖子: 19
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-12-28
最後登錄: 2015-6-22

5^#

發表於 2015-3-4 16:00 | 顯示全部帖子

想再詢問超級版主，若我再加入一個欄位，從 3*3 變 4*4, 應該怎麼修改語法？(看了好久, 不太了解 ReDim 這句語法)

1.............1........3.......2........(1*1*3*2)
1.............1....... 2......1.........(1*1*3*1)
1/3.....1/2.......1.......3........(1/3*1/2*1*3)

TOP

temple

小學生 Rank: 1

帖子: 19
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-12-28
最後登錄: 2015-6-22

6^#

發表於 2015-3-5 14:12 | 顯示全部帖子

謝謝你 --- 我會再練習看看, 有問題再麻煩你囉~~

TOP

temple

小學生 Rank: 1

帖子: 19
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-12-28
最後登錄: 2015-6-22

7^#

發表於 2015-5-28 18:37 | 顯示全部帖子

我想請問超級版主, 如果用VBA語法, 如何判斷矩陣中的任一數值被改變, 並且能夠讓它重新計算1.............1........3.......2........(1*1*3*2)
1.............1....... 2......1.........(1*1*3*1)
1/3.....1/2.......1.......3........(1/3*1/2*1*3)
再麻煩您~~

TOP

temple