Excel VBA質問箱 IV

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

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


58767 / 76732 ←次へ | 前へ→

【22688】Re:範囲を指定してセルに文字を入力
質問  イオン  - 05/2/28(月) 10:43 -

引用なし
パスワード
   ▼ponpon さん:

こんにちわ。
以前、下記の回答をいただきありがとうございました。
コードの内容について質問なのですが、

>     If .Cells(i, "j").Value <> "" Then
>       .Cells(i, "j").Offset(, 1).Value = "承認"

これは、J列が空欄ではないときに J+1列に”承認”を入力ということでしょうか?
質問ばかりで申し訳ございませんが よろしくお願いいたします。

>>
>>ブックの複数セルに特定の文字を入力したいのですが、
>>下記のように J列にもともと何かしら記入がある行に対して
>>隣のK列のセルに”承認”という文字を入力するようにする
>>ようなマクロを作成したいと考えています。 
>>
>>
>>  J列   K列
>>
>>5  木村   承認
>>6  伊藤   承認
>>7  田中  承認
>>8 
>>9
>>.
>>.
>>.
>>
>>何かよい方法があるでしょうか?
>>初心者なので恐縮ですが 教えていただけるよう
>>お願いいたします。
>ponponです。私も初心者です。
>これでもいけると思います。
>
>Sub test()
>  Dim i As Long
>  With Sheets("sheet1")
>    For i = 1 To .Range("j65536").End(xlUp).Row
>     If .Cells(i, "j").Value <> "" Then
>       .Cells(i, "j").Offset(, 1).Value = "承認"
>     End If
>    Next
>  End With
>
>End Sub
0 hits

【22308】範囲を指定してセルに文字を入力 イオン 05/2/15(火) 19:27 質問
【22309】Re:範囲を指定してセルに文字を入力 かみちゃん 05/2/15(火) 20:30 回答
【22310】Re:範囲を指定してセルに文字を入力 ichinose 05/2/15(火) 20:33 発言
【22311】Re:範囲を指定してセルに文字を入力 ponpon 05/2/15(火) 20:48 回答
【22313】Re:範囲を指定してセルに文字を入力 イオン 05/2/15(火) 21:21 お礼
【22688】Re:範囲を指定してセルに文字を入力 イオン 05/2/28(月) 10:43 質問
【22699】Re:範囲を指定してセルに文字を入力 ponpon 05/2/28(月) 20:02 回答
【22701】Re:範囲を指定してセルに文字を入力 イオン 05/2/28(月) 20:14 お礼

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