|
>1行毎に数式を入れる
H3からH68までのセルに、ボタンをクリックする毎に一つずつ数式を入れるなら、
まず UserForm_Initialize() のコードのどこかに
Range("$H:$H").Clear
と追加して、CommandButton1_Click() の方は
Dim FmR As Long
と変数の宣言を追加、数式を入力するコードは
If WorksheetFunction.CountBlank(Range("H3:H68")) > 0 Then
With Range("H3:H68").SpecialCells(4).Cells(1)
FmR = .Row
.Formula = _
"=IF(ISBLANK($G" & FmR & "),"""",IF(ISERROR($G" & _
FmR & "/$F" & FmR & "),"""",$G" & FmR & "/$F" & FmR & "))"
End With
End If
とすれば良いでしょう。事前にH列を全クリアするのは、確実に空白セルを
作っておくためです。こちらでテストしたとき、そうしないと CountBlank関数
や SpecialCellsメソッドが正しく働かなかったからです。
|
|