Цитата Vygov:
|
Что применить в таком случае? »
|
Код:
Sub Superpupermacros()
Select Case Cells(1, 1).Value
Case 1: Cells (1, 2).Value = Cells(1, 1).Value * 5
Case 2: Cells (1, 2).Value = Cells(1, 1).Value * 10
Case 3: Cells (1, 2).Value = Cells(1, 1).Value * 15
Case 4: Cells (1, 2).Value = Cells(1, 1).Value * 20
...
Case 2000000: Cells (1, 2).Value = Cells(1, 1).Value * 10000000
...
End Select
End Sub
