Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39149 / 76732 ←次へ | 前へ→

【42702】Re:範囲指定について
回答  Kein  - 06/9/19(火) 19:17 -

引用なし
パスワード
   SpecialCellsメソッドを確実に働かせる方法として、以下のようなコードは
どうでしょーか ?

Sub TestA()
  On Error Resume Next
  With Range("A1", Range("A65536").End(xlUp).Offset(1)).Offset(, 255)
   .Formula = "=IF(ISBLANK($C1),1)"
   .SpecialCells(3, 1).Offset(, -253).Value = "使用不可"
   .ClearContents
  End With
End Sub

もしISBLANK関数がうまくいかないなら、=IF($C1="""",1) という式に
変更してみて下さい。
0 hits

【42687】範囲指定について Rilly 06/9/19(火) 13:47 発言
【42693】Re:範囲指定について パン 06/9/19(火) 15:09 発言
【42694】Re:範囲指定について りん 06/9/19(火) 15:10 回答
【42697】Re:範囲指定について Jaka 06/9/19(火) 16:55 発言
【42700】Re:範囲指定について りん 06/9/19(火) 18:08 回答
【42696】Re:範囲指定について ハナ 06/9/19(火) 16:13 質問
【42713】Re:範囲指定について yata 06/9/19(火) 22:38 発言
【42719】Re:範囲指定について ハナ 06/9/20(水) 8:17 お礼
【42702】Re:範囲指定について Kein 06/9/19(火) 19:17 回答

39149 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free