|
こんばんわ。
・・・ん???
ひょっとして、セルは1個しか選択してへんのでっか?
上のコードは検索対象範囲のセル範囲(1行)を全部選択した場合で書いてます。
任意のセルを選択した状態で、そのセルのある行全体を対象に検索するって
ことやったら、
With Selection
↓
With Selection.EntireRow
それとも・・・
全ての行を対象に、検索文字列があれば列の非表示したいんかな?
もしもそういうことやったら、
Sub test2()
Dim Target As String
Dim FoundCell As Range
Dim FirstAddress As String
Target = Application.InputBox("検索文字列入力", "検索", Type:=2)
If Target = "False" Then Exit Sub
With ActiveSheet.UsedRange
Set FoundCell = .Find(Target, LookIn:=xlValues)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
FoundCell.EntireColumn.Hidden = True '見つかる都度非表示に
Set FoundCell = .FindNext(FoundCell)
If FoundCell Is Nothing Then Exit Do
If FoundCell.Address = FirstAddress Then Exit Do
Loop
End If
Set FoundCell = Nothing
End With
End Sub
こんなんかな?
どのセルを選択してその結果どうしたいのか、質問するときははっきり書いておくれやす。
よろしゅーに。
ほな。
|
|