|
▼ほい さん:
>B2セルからB3、B4と下へセルの内容を確認し、セルが空でない場合はその右隣のセルの値を「1」にするマクロ(下記)をつくったつもりですが、「コンパイルエラー、変数が定義されていません」とエラーメッセージがでて「i = 1」のiに色がつきます。
>どこをどのようにすれば動作するのか教えて下さい。(マクロのヘルプがインストールされていないエクセルを使用しています)
>
>Option Explicit
>
>Sub 数()
>i = 1
>Do Until IsEmpty(Range("b2").Offset(i - 1, 0)) = False
> cgd = Range("b2").Offset(i - 1, 0).Value
> With Range("c2").Offset(i - 1, 0).
> .Value = 1
> End With
> i = i + 1
> Loop
>End Sub
Withの最後の . がいりません
この文だと
空なら、隣へ1を出力。
空でないなら、終了。
ずっと空なら1をはきつずけiが最終行越えるとエラー起こす
といった指令になってます。
修正が必要ですね。
|
|