|
▼りん さん:
ご返事ありがとうございます。教えていただいたコードを入れて実行してみたのですが、「結合されたセルの一部を変更することはできません」とのメッセージが出て止まりました。
保護しているセルにも、していないセルにも結合しているセルがあります。結合しているとうまくいかないのでしょうか・・・もう少し自分でも調べてみますが、もし解ればよろしくお願いします。
>ネジクマ さん、こんばんわ。
>> そこで以下のようなコードを打ちました。エラーは出ないのですが、何も変化しないようです。どこが間違っているのでしょうか?あるいは全然別の書き方があるのでしょうか?よろしくお願いします。
>
>セルをひとつずつチェックしてみてください。
>
>Sub test()
> Dim r1 As Range
> '計算をとめておく
> Application.Calculation = xlCalculationManual
> '保護されていないセルならクリア
> For Each r1 In ActiveSheet.Range("A1:AM1000")
> If r1.Locked = False Then r1.ClearContents
> Next
> '計算再開
> Application.Calculation = xlCalculationAutomatic
> Application.Calculate
>End Sub
|
|