矩阵乘法excel vba数据

Question

我是新的excel VBA，并想提出问题。我有一个带有标题的销售数据。 26行和12列。

下面是我的伪数据：

Dummy Data

我想创建按钮来改变货币。例如点击欧元将数据更改为欧元，然后点击美元将数据更改为美元。

这是我对按钮的一个代码：

Sub Change_to_EUR()Dim BM_Store_Sales_EUR As Variant 
Dim BM_Store_Sales_IDR 
BM_Store_Sales_EUR = Sheet3.Range(Cells(2, 2), Cells(26, 13)).Value 
BM_Store_Sales_IDR = Application.WorksheetFunction.MMult(BM_Store_Sales_EUR, "$O$1") 
MsgBox BM_Store_Sales_EUR 
End Sub 

Answer 1

你可以做这样的事情（不需要矩阵）

调用Change_Currency有一个真正的说法倍数的范围与汇率O1，与假的（或离开它空白）调用它划分

Sub Button1_Click() 
Call Change_Currency(True) 
End Sub 

Sub Button2_Click() 
Call Change_Currency 
End Sub 

代码

Sub Change_Currency(Optional bEuro As Boolean) 
Dim ws As Worksheet 
Dim rng1 As Range 
Set ws = Sheets(1) 
Set rng1 = ws.Range(ws.[b2], ws.[m26]) 
ws.[o1].Copy 

If bEuro Then 
    rng1.PasteSpecial xlPasteValues, xlDivide 
Else 
    rng1.PasteSpecial xlPasteValues, xlMultiply 
End If 

Application.CutCopyMode = False 
End Sub