Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53489 / 76738

←次へ　｜　前へ→


	【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