Excel VBA質問箱 IV

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

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


10286 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【22308】範囲を指定してセルに文字を入力
質問  イオン  - 05/2/15(火) 19:27 -

引用なし
パスワード
   こんにちは。

ブックの複数セルに特定の文字を入力したいのですが、
下記のように J列にもともと何かしら記入がある行に対して
隣のK列のセルに”承認”という文字を入力するようにする
ようなマクロを作成したいと考えています。 


  J列   K列

5  木村   承認
6  伊藤   承認
7  田中  承認
8 
9
.
.
.

何かよい方法があるでしょうか?
初心者なので恐縮ですが 教えていただけるよう
お願いいたします。

【22309】Re:範囲を指定してセルに文字を入力
回答  かみちゃん  - 05/2/15(火) 20:30 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>下記のように J列にもともと何かしら記入がある行に対して
>隣のK列のセルに”承認”という文字を入力するようにする

以下のコードは、選択した範囲の1つ右隣のセルに「承認」という文字を入力します。
 For Each c In Selection
  If c.Value <> "" Then
   c.Offset(, 1).Value = "承認"
  End If
 Next

【22310】Re:範囲を指定してセルに文字を入力
発言  ichinose  - 05/2/15(火) 20:33 -

引用なし
パスワード
   ▼イオン さん:
こんばんは。

>こんにちは。
>
>ブックの複数セルに特定の文字を入力したいのですが、
>下記のように J列にもともと何かしら記入がある行に対して
>隣のK列のセルに”承認”という文字を入力するようにする
>ようなマクロを作成したいと考えています。 
>
>
>  J列   K列
>
>5  木村   承認
>6  伊藤   承認
>7  田中  承認
>8 
>9
>.
>.
>.
>
>何かよい方法があるでしょうか?
>初心者なので恐縮ですが 教えていただけるよう
>お願いいたします。

これは、いろんな方法がありますから、

'===============================================
Sub test()
  On Error Resume Next
  Dim rng As Range
  Set rng = Range("j:j").SpecialCells(xlCellTypeConstants)
  If Err.Number = 0 Then
   rng.Offset(0, 1).Value = "承認"
   End If
  On Error GoTo 0
End Sub

他の方法も考えてみて下さいネ!!
コードは、アクティブシートに対して処理しています。

【22311】Re:範囲を指定してセルに文字を入力
回答  ponpon  - 05/2/15(火) 20:48 -

引用なし
パスワード
   ▼イオン さん:
>こんにちは。
>
>ブックの複数セルに特定の文字を入力したいのですが、
>下記のように 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

【22313】Re:範囲を指定してセルに文字を入力
お礼  イオン  - 05/2/15(火) 21:21 -

引用なし
パスワード
   ▼ponpon さん、かみちゃんさん、ichinoseさん

みなさん、いろいろと教えていただきありがとうございました。
うまく動作することができました。
また、とても勉強になりました。

ご親切なご教授ありがとうございました。

【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

【22699】Re:範囲を指定してセルに文字を入力
回答  ponpon  - 05/2/28(月) 20:02 -

引用なし
パスワード
   ponponです。こんばんは。
>>     If .Cells(i, "j").Value <> "" Then
>>       .Cells(i, "j").Offset(, 1).Value = "承認"

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

はいそうです。offsetをヘルプで調べてみてください。

【22701】Re:範囲を指定してセルに文字を入力
お礼  イオン  - 05/2/28(月) 20:14 -

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


ありがとうございました。
ヘルプも確認いたしました。


本当にありがとうございました。

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