Excel VBA質問箱 IV

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

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


66508 / 76734 ←次へ | 前へ→

【14789】Re:エラー処理に関して
回答  Asaki  - 04/6/8(火) 0:37 -

引用なし
パスワード
   こんばんは。
後ろから失礼します。

↓こんなんでしょうか?
Sub test2()
  Dim i    As Long
  Dim c    As Range

On Error Resume Next

  Cells(1, 2).Activate
  For i = 0 To 2
    Set c = Columns(2).Find(What:=Array("AA", "BB", "CC")(i), LookIn:=xlValues, _
      LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False, MatchByte:=False)
    If Not c Is Nothing Then
      c.Interior.ColorIndex = 8
      c.EntireRow.SpecialCells(xlCellTypeConstants, xlNumbers).Interior.ColorIndex = 8
    End If
  Next i
End Sub

"AA" とか、複数あるんでしょうか?
それだと、そこもループが要るかと。

1 hits

【14755】エラー処理に関して 123 04/6/7(月) 6:46 質問
【14758】Re:エラー処理に関して つん 04/6/7(月) 9:30 回答
【14774】Re:エラー処理に関して 123 04/6/7(月) 21:22 質問
【14776】Re:エラー処理に関して つん 04/6/7(月) 22:43 回答
【14780】Re:エラー処理に関して 123 04/6/7(月) 23:03 質問
【14784】Re:エラー処理に関して つん 04/6/7(月) 23:35 発言
【14789】Re:エラー処理に関して Asaki 04/6/8(火) 0:37 回答
【14834】Re:エラー処理に関して 123 04/6/8(火) 19:10 お礼
【14792】Re:エラー処理に関して kein 04/6/8(火) 0:59 回答

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