Excel VBA質問箱 IV

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

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


21227 / 76732 ←次へ | 前へ→

【60907】Re:Find検索について
発言  Jaka  - 09/3/23(月) 13:21 -

引用なし
パスワード
   動かなかったので修正。
やりたい事が良く解ってないけど。

With Worksheets("検索")   '.UsedRange
 With .Columns(6)
  Set FoundCell = .Cells.Find(What:=Mynumber, After:=.Cells(.Cells.Count), _
              LookIn:=xlValues, LookAt:=xlPart, _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlNext, MatchCase:=False, _
              MatchByte:=False)
 End With
 If FoundCell Is Nothing Then
   Exit Sub
 End If
 msg = MsgBox("会社コードは「" & FoundCell.Offset(, -2) & "」" & Chr(13) & _
    "会社名は「" & FoundCell.Offset(, -1) & " 」でした。", vbOKCancel)
 If msg = vbCancel Then
  Exit Sub
 End If

 fs = FoundCell.Row
 F列検索後E列会社名 = FoundCell.Offset(, -1).Value
 
 With .Columns(5)
  Set FoundCell = .Cells.Find(What:=F列検索後E列会社名, After:=.Cells(fs), _
              LookIn:=xlValues, LookAt:=xlPart, _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlNext, MatchCase:=False, _
              MatchByte:=False)

  Do Until fs = FoundCell.Row
    FoundCell.Interior.ColorIndex = 3
    Ct = Ct + 1
    Set FoundCell = .FindNext(FoundCell)
  Loop
  If Ct > 0 Then
    .Cells(fs).Interior.ColorIndex = 3
  End If
 End With

End With

0 hits

【60905】Find検索について mao 09/3/23(月) 9:24 質問
【60906】Re:Find検索について つん 09/3/23(月) 11:39 回答
【60907】Re:Find検索について Jaka 09/3/23(月) 13:21 発言
【60908】Re:Find検索について mao 09/3/23(月) 17:09 お礼

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