|
'行の指定
Public Const Plan As Byte = 20
Public Const Real As Byte = 23
'列の指定
Public Const mC As Byte = 13
Sub Cal()
Cells(Plan, 13) = Shin(Cells(Plan - 1, Input_C))
Cells(Real, 13) = Shin(Cells(Real - 1, Input_C))
end sub
Function Shin(Row1 As Byte) As String
If Row1 = 1 Then
Shin = "10%"
ElseIf Row1 = 2 Then
Shin = "25%"
endif
End Function
と書きます。
Cells(Plan, 13) = Shin(Cells(Plan - 1, Input_C))
Cells(Real, 13) = Shin(Cells(Real - 1, Input_C))
とずらずら・・とおなじような記述が必要でとてもすっきりしません。
おなじようにFunctionでかいたり、なにかあどばいすありませんか?
|
|