Excel VBA質問スレ Part5at TECHExcel VBA質問スレ Part5 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト650:デフォルトの名無しさん 08/02/03 16:39:17 os:xp excel:2003 VBAで指定列からＡを検索し、発見したら隣のセルに0を入れるマクロを組みたいのですが、組み方がVBA初心者の為わかりません。 （例） L列に、A、B、C、D、E、Fとランダムに文字が入っていて、 文字Aを検索し、発見したら隣のI列に値0を入れるというマクロです。 Sub Search() Dim A As String Set A = Worksheets("Sheet1").Cells.Find("A") If A Is Nothing Then ActiveCell.Offset(0, 1).Value = 0 End If End Sub と自分で考えてみたのですが、Aがあった時、、、、 とコードが書けないです。 大変困っているので、ご教授頂けないでしょうか？ 長文失礼しました！ 651:デフォルトの名無しさん 08/02/03 18:19:53 突っ込みどころが多すぎ 全部に突っ込むの面倒なので正解書いておく Sub Search() Dim A As Range Set A = Worksheets("Sheet1").Columns("L").Find("A") If Not A Is Nothing Then A.Offset(0, 1).Value = 0 End If End Sub うわ､プロシージャ宣言やEnd Ifなど､間違いようのない部分以外､全部間違ってるじゃんw 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch