Excel VBA質問箱 IV

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

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


43214 / 76732 ←次へ | 前へ→

【38570】Re:繰り返し検索についての質問
回答  Kein  - 06/6/6(火) 14:42 -

引用なし
パスワード
   >組立図と名前のつくセル
と書くと Range("組立図") の意味になります。エクセルではセル範囲に
このように名前を付けることができますから、基本を知っている人には
誤解を与えます。で「"CVPARTS"シートのH列に、"組立図"という値が
見つからなかったら、処理を止める」ということにすれば、もっとすっきり
します。あと、Findのループ処理の代わりに、数式で検索する方法も取り入れて

Sub 組立図の関連()
  Dim WS As Worksheet
  Dim FR As Range
  Dim MyV As String

  Set FR = Worksheets("CVPARTS") _
  .Range("H:H").Find("*組立図*", , , xlPart)
  If FR Is Nothing Then
   MsgBox "CVPARTSシートに組立図の文字列が見つかりません", 48
   Exit Sub
  Else
   MyV = FR.Value: Set FR = Nothing
  End If
  For Each WS In Worksheets
   If WS.Name Like "*ユニットマスター*" Then
     On Error Resume Next
     With WS.Range("G1", WS.Range("G65536").End(xlUp)).Offset(, 26)
      .Formula = "=FIND(" & MyV & ",$G1)"
      .SpecialCells(3, 1).Offset(, -26) _
      .Interior.Color = RGB(0, 255, 0)
      .ClearContents
     End With
   End If
  Next
End Sub 

0 hits

【38542】繰り返し検索についての質問 ゆっけ 06/6/6(火) 11:03 質問
【38548】Re:繰り返し検索についての質問 Jaka 06/6/6(火) 12:14 発言
【38564】修正 Jaka 06/6/6(火) 14:08 発言
【38549】Re:繰り返し検索についての質問 Statis 06/6/6(火) 12:16 発言
【38554】Re:繰り返し検索についての質問 ハチ 06/6/6(火) 12:45 発言
【38559】Re:繰り返し検索についての質問 ハト 06/6/6(火) 13:42 回答
【38570】Re:繰り返し検索についての質問 Kein 06/6/6(火) 14:42 回答
【38581】Re:繰り返し検索についての質問 ゆっけ 06/6/6(火) 16:55 お礼
【38584】Re:繰り返し検索についての質問 ゆっけ 06/6/6(火) 18:04 質問
【38614】Re:繰り返し検索についての質問 ハト 06/6/7(水) 11:14 発言
【38616】Re:繰り返し検索についての質問 ハチ 06/6/7(水) 13:13 発言
【38655】Re:繰り返し検索についての質問 ゆっけ 06/6/8(木) 6:50 お礼

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