請問一下,假設A1~A10及C1~C10的儲存格,分別填寫不同的數字,我如何做一個按鈕,按一下就做除法(假設分母固定為3),再按一下就回到我原來填寫的數字?
Private Sub CommandButton1_Click()
Static b As Boolean
If b Then
For i = 1 To 10
Cells(i, 1) = a(i)
Cells(i, 3) = c(i)
Next
Else
For i = 1 To 10
a(i) = Cells(i, 1)
c(i) = Cells(i, 3)
Cells(i, 1) = Round(a(i) / 3, 2) '取小數點後兩位數
Cells(i, 3) = Round(c(i) / 3, 2)
Next
End If
b = Not b
End Sub