Question

我是VBA的新手，我正在尝试计算一个单元格值的百分比，但它不起作用。我从Textfield给出百分比值，我设计用于使用宏从excel中获取值。

这里我写了一些代码，

Set sh = ThisWorkbook.Sheets("Requirements_Ranking")
RowCount = sh.UsedRange.Rows.Count
RowCount = "S" & RowCount

var1 = "50"
If TextBox1.Value = var1 Then

    Sheets("Requirements_Ranking").Range("B3:B10").Copy
    Sheets("Coverage").Range("A3").PasteSpecial xlPasteValues

    var2=(RowCount*var1)/100

Answer 1

试试这个

var1 = 50如果cint（TextBox1.Value）= var1那么

使用VBA计算单元格值的百分比

1 个答案: