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

1^# 跳轉到 »

發表於 2015-2-26 02:39 | 只看該作者

詢問矩陣設計問題

我寫了一個 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

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

2^#

發表於 2015-2-26 13:48 | 只看該作者

1.將定義改成 Dim myarray1(2 To 5, 2 To 5) As Single 就可以
2.儲存格格式改成分數格式

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

temple

小學生 Rank: 1

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

3^#

發表於 2015-2-27 17:19 | 只看該作者

問題已解決非常謝謝你

TOP

temple

小學生 Rank: 1

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

4^# 倒序看帖

打印

字體大小: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2015-3-1 07:56 | 只看該作者

回復 4# temple

是這樣嗎?

Option Explicit
Sub Ex()
Dim myarray1(2 To 4, 2 To 4) As Single
Dim i As Integer, j As Integer
i = UBound(myarray1, 1)
i = i - LBound(myarray1, 1) + 1 '第一維的元素數
j = UBound(myarray1, 2)
j = j - LBound(myarray1, 2) + 1 '第二維的元素數
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
With Range("C5") '指定楚墫格位置
.Resize(i, j) = myarray1 '擴充的範圍指定為myarray1的值
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

temple

小學生 Rank: 1

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

6^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2015-3-1 21:16 | 只看該作者

回復 6# temple
試試看

Option Explicit
Sub Ex()
Dim myarray1(2 To 4, 2 To 4) As Single
Dim AR As Variant
Dim i As Integer, j As Integer
myarray1(2, 2) = 10
myarray1(2, 3) = 10
myarray1(2, 4) = 3
myarray1(3, 2) = 5
myarray1(3, 3) = 17
myarray1(3, 4) = 2
myarray1(4, 2) = 1 / 3
myarray1(4, 3) = 1 / 2
myarray1(4, 4) = 1
AR = myarray1
ReDim Preserve AR(LBound(myarray1) To UBound(myarray1), LBound(myarray1, 2) To UBound(myarray1, 2) + 1)
For i = LBound(AR) To UBound(AR)
AR(i, UBound(AR, 2)) = Application.Product(Application.WorksheetFunction.Index(myarray1, i - LBound(AR) + 1))
Next
i = UBound(AR, 1)
i = i - LBound(AR, 1) + 1 '第一維的元素數
j = UBound(AR, 2)
j = j - LBound(AR, 2) + 1 '第二維的元素數
With ActiveSheet.Range("C5") '指定楚墫格位置
.Resize(i, j) = AR '擴充的範圍指定為Ar的值
End With
End Sub

複製代碼

1 評分人數

HUNGCHILIN: 金錢 + 5

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

temple

小學生 Rank: 1

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

8^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2015-3-5 09:17 | 只看該作者

回復 8# temple

ReDim 陳述式在程序層次中用來重新配置動態陣列變數的儲存空間。
語法
ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .
Preserve 選擇性引數。當改變原有陣列最後一維的大小時，仍然保有原來的資料的關鍵字。

Option Explicit
Sub EX()
Dim AR()
AR = [A1:F2].Value '-> AR(1 To 2, 1 To 6)
ReDim Preserve AR(1 To 2, 1 To 7)
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

temple

小學生 Rank: 1

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

10^#

發表於 2015-3-5 14:12 | 只看該作者

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

TOP