Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21302 / 76807

←次へ　｜　前へ→


	【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

1 hits

▼

【60905】Find検索について mao 09/3/23(月) 9:24