12
返回列表 上一主題 發帖

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

temple

帖子
19 
主題
2 
精華
0 
積分
22 
點名
0  
作業系統
windows  
軟體版本
7 
閱讀權限
10 
註冊時間
2014-12-28 
最後登錄
2015-6-22 
11# 跳轉到 »
發表於 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

帖子
19 
主題
2 
精華
0 
積分
22 
點名
0  
作業系統
windows  
軟體版本
7 
閱讀權限
10 
註冊時間
2014-12-28 
最後登錄
2015-6-22 
10#
發表於 2015-3-5 14:12 | 只看該作者
謝謝你 --- 我會再練習看看, 有問題再麻煩你囉~~

TOP

GBKEE

帖子
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 選擇性引數。當改變原有陣列最後一維的大小時，仍然保有原來的資料的關鍵字。


  2. Option Explicit
  3. Sub EX()
  4.     Dim AR()
  5.     AR = [A1:F2].Value '-> AR(1 To 2, 1 To 6)
  6.    
  7.     ReDim Preserve AR(1 To 2, 1 To 7)
  8. End Sub
複製代碼







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

TOP

temple

帖子
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

帖子
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
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim myarray1(2 To 4, 2 To 4) As Single
  4.     Dim AR As Variant
  5.     Dim i As Integer, j As Integer
  6.    
  7.     myarray1(2, 2) = 10
  8.     myarray1(2, 3) = 10
  9.     myarray1(2, 4) = 3
  10.    
  11.     myarray1(3, 2) = 5
  12.     myarray1(3, 3) = 17
  13.     myarray1(3, 4) = 2

  15.     myarray1(4, 2) = 1 / 3
  16.     myarray1(4, 3) = 1 / 2
  17.     myarray1(4, 4) = 1
  18.    
  19.     AR = myarray1
  20.     ReDim Preserve AR(LBound(myarray1) To UBound(myarray1), LBound(myarray1, 2) To UBound(myarray1, 2) + 1)
  21.    
  22.     For i = LBound(AR) To UBound(AR)
  23.         AR(i, UBound(AR, 2)) = Application.Product(Application.WorksheetFunction.Index(myarray1, i - LBound(AR) + 1))
  24.     Next
  25.    
  26.     i = UBound(AR, 1)
  27.     i = i - LBound(AR, 1) + 1 '第一維的元素數
  28.     j = UBound(AR, 2)
  29.     j = j - LBound(AR, 2) + 1 '第二維的元素數
  30.    
  31.     With ActiveSheet.Range("C5")     '指定楚墫格位置
  32.         .Resize(i, j) = AR      '擴充的範圍指定為Ar的值
  33.     End With
  34. End Sub
複製代碼
1

評分人數

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

TOP

temple

帖子
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

帖子
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

是這樣嗎?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim myarray1(2 To 4, 2 To 4) As Single
  4.     Dim i As Integer, j As Integer
  5.     i = UBound(myarray1, 1)
  6.     i = i - LBound(myarray1, 1) + 1 '第一維的元素數
  7.     j = UBound(myarray1, 2)
  8.     j = j - LBound(myarray1, 2) + 1 '第二維的元素數
  9.    
  10.     myarray1(2, 2) = 1
  11.     myarray1(2, 3) = 1
  12.     myarray1(2, 4) = 3
  13.    
  14.     myarray1(3, 2) = 1
  15.     myarray1(3, 3) = 1
  16.     myarray1(3, 4) = 2

  18.     myarray1(4, 2) = 1 / 3
  19.     myarray1(4, 3) = 1 / 2
  20.     myarray1(4, 4) = 1

  22.     With Range("C5")                '指定楚墫格位置
  23.         .Resize(i, j) = myarray1    '擴充的範圍指定為myarray1的值
  24.     End With
  25. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

temple

帖子
19 
主題
2 
精華
0 
積分
22 
點名
0  
作業系統
windows  
軟體版本
7 
閱讀權限
10 
註冊時間
2014-12-28 
最後登錄
2015-6-22 
4#
發表於 2015-2-27 17:19 | 只看該作者
問題已解決   非常謝謝你

TOP

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

版主Rank: 7Rank: 7Rank: 7

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

貴賓勳章熱烈參與勳章好學求知勳章
3#
發表於 2015-2-26 13:48 | 只看該作者
1.將定義改成 Dim myarray1(2 To 5, 2 To 5) As Single 就可以
2.儲存格 格式改成 分數格式
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

temple

帖子
19 
主題
2 
精華
0 
積分
22 
點名
0  
作業系統
windows  
軟體版本
7 
閱讀權限
10 
註冊時間
2014-12-28 
最後登錄
2015-6-22 
2#
發表於 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

        靜思自在 : 小事不做、大事難成。
12
返回列表 上一主題