|
▼Kein さん:
ありがとうございます。
遅くまですみません
クリア以外うまくいきました 思い通りgoodです
>>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メソッドが正しく働かなかったからです。
|
|