VBA表列/行转换和更改货币

Question

我在 VBA 中有一个作业，必须将现有表的行转换为列，但我只需显示表中的两行，所有这些都必须在 ActiveX 控件按钮的帮助下完成。我还必须通过按钮将表格单元格值更改为欧元，然后再更改回爱沙尼亚克朗。第三，我必须根据新表找到它的价值和价格。

我已经尽可能地编写了代码，但它无法正常工作。有几个问题：a）首先，按下求解按钮后，它不会给出新表中的所有值，b）其次，当我尝试使用货币更改按钮欧元/克朗时，它会无限地乘以我的值，第三，当我必须找到最便宜的短信套餐名称及其价格时，我没有得到正确的答案。

我想我的解释非常混乱，所以我添加了可以在此处看到的 Excel 文件： http://www.2shared.com/file/awEG5hf-/KT_online.html

代码真的很长，所以我不想在这里添加它，但是作业中的图像看起来像这样： 该图像显示了作业的正确解决方案。

如果有人能抽出时间来帮助我，我真的非常非常感激。非常感谢。

Answer 1

尝试更改以下子表

SHEET1

Private Sub CommandButton1_Click()
    If Sheet1.Range("E6").Value = "Prices in Euros" Or Sheet1.Range("E6").Value = ""    Then eek
End Sub

Private Sub CommandButton2_Click()
    If Sheet1.Range("E6").Value = "Prices in Kroons" Or Sheet1.Range("E6").Value = "" Then eur
End Sub

Private Sub CommandButton3_Click()
    lahenda
End Sub

MODULE1

Sub lahenda()

With Sheet1
    .Range("B8:B16,F8:F16").Copy
    .Range("B18:J19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
    .Range("C23").Formula = "=MIN(H9:H16)"
    .Range("C24").Formula = "=INDEX(B9:B16,MATCH(minhind,H9:H16,0),1)"
End With

End Sub

MODULE2

Sub eur()
    Dim prk As Range, hinnad As Range, koht1
    Dim n, m
    Set prk = Range("alg").CurrentRegion
    n = prk.Rows.Count - 1
    m = prk.Columns.Count - 1
    Set hinnad = prk.Offset(1, 1).Resize(n, m)

    Set koht1 = prk.Cells(2, 2)

    ReDim a(1 To n, 1 To m), paketid(1 To n), naitajad(1 To m)
    ReDim veerg(1 To n), rida(1 To m)
    ReDim b(1 To n, 1 To m)

    a = hinnad

    kurss = Range("kurss")
    tee_tabel a(), n, m, b(), kurss
    tabel_lehele b(), n, m, koht1
 Sheet1.Range("E6").Value = "Prices in Euros"
End Sub

MODULE3

Sub eek()
    Dim prk As Range, hinnad As Range, koht1 As Range
    Dim n, m
    Set prk = Range("alg").CurrentRegion
    n = prk.Rows.Count - 1
    m = prk.Columns.Count - 1
    Set hinnad = prk.Offset(1, 1).Resize(n, m)

    Set koht1 = prk.Cells(2, 2)

    ReDim a(1 To n, 1 To m), paketid(1 To n), naitajad(1 To m)
    ReDim veerg(1 To n), rida(1 To m)
    ReDim b(1 To n, 1 To m)

    a = hinnad

    kurss = Range("kurss")
    tee_tabel a(), n, m, b(), kurss
    tabel_lehele b(), n, m, koht1
 Sheet1.Range("E6").Value = "Prices in Kroons"
End Sub