Excel VBA質問箱 IV

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

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


59894 / 76738 ←次へ | 前へ→

【21508】Re:変数の定義
質問  ほい  - 05/1/22(土) 1:37 -

引用なし
パスワード
   りすりすさんとG-Luckさんから回答頂いた通りにやったつもりが下のマクロです。
お二人ともありがとうございます。

しかしエラーメッセージはなくなったものの
B2セルからB3、B4と下へセルの内容を確認し、
セルが空でない場合はその右隣のセルの値を「1」にする
という結果が得られません。

あと、どこをどのようにすれば良いのでしょうか?

Option Explicit
Sub 数()
Dim i As Long
Dim cgd As Variant
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
0 hits

【21449】変数の定義 ほい 05/1/21(金) 14:38 質問
【21452】Re:変数の定義 りすりす 05/1/21(金) 15:03 回答
【21457】Re:変数の定義 ほい 05/1/21(金) 16:12 質問
【21459】Re:変数の定義 G-Luck 05/1/21(金) 16:17 回答
【21508】Re:変数の定義 ほい 05/1/22(土) 1:37 質問
【21515】Re:変数の定義 ponpon 05/1/22(土) 10:58 回答
【21516】Re:セルが空でない場合に値を設定したい かみちゃん 05/1/22(土) 11:06 回答
【21517】Re:変数の定義 ほい 05/1/22(土) 11:27 お礼

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