Excel VBA質問箱 IV

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

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


59135 / 76732 ←次へ | 前へ→

【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

他の方法も考えてみて下さいネ!!
コードは、アクティブシートに対して処理しています。
1 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 お礼

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