Excel VBA質問箱 IV

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

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


53483 / 76732 ←次へ | 前へ→

【28062】Re:セル参照でその下のセルに値を入れたい
質問  りょうた  - 05/8/27(土) 18:56 -

引用なし
パスワード
   >>>※セルを参照して、値があれば、そのセルの一つ下のセルに0を代入する方法。
>>
>>Offsetプロパティをヘルプで調べてみてください。
>>こんな感じでできます。
>>
>>Sub Macro1()
>> With Range("A1")
>>  If .Value <> "" Then
>>   .Offset(1) = "0"
>>  End If
>> End With
>>End Sub

参考にして

Sub Macro1()
 With Range("A1,A11,A21,・・・・,A291")
  If .Value <> "" Then
   .Offset(1) = "0"
  End If
 End With
End Sub

の様に作成したら、出来た!・・・と、思ったのですが
よく試すと、"A1"セルに対しては、""の時は、"A2"セルに""のままで
"文字"の時は、"A2"セルに"0"を代入するのですが、
それ以降のセル("A11","A21"・・・・,"A291")に対しては、
""であっても"文字"であっても、("A12","A22"・・・・"A292")に
"0"を代入してしまいます。

何故なのか、わかりません・・・。

どうしてでしょうか?

かみちゃんさん
わからないでしょうか?

初歩的なことなのかもしれませんが、初心者なもので
どうか、よろしくお願いいたします
0 hits

【28054】セル参照でその下のセルに値を入れたい りょうた 05/8/27(土) 16:58 質問
【28056】Re:セル参照でその下のセルに値を入れたい かみちゃん 05/8/27(土) 17:19 回答
【28060】Re:セル参照でその下のセルに値を入れたい りょうた 05/8/27(土) 18:12 お礼
【28062】Re:セル参照でその下のセルに値を入れたい りょうた 05/8/27(土) 18:56 質問
【28063】Re:セル参照でその下のセルに値を入れたい かみちゃん 05/8/27(土) 19:10 回答
【28064】Re:セル参照でその下のセルに値を入れたい りょうた 05/8/27(土) 19:34 お礼

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