エクセルののマクロについて教えてください
Sub search()
Dim i As Long, lastCol As Long, c As Range, str As String, wS As Worksheet
Set wS = Worksheets("sheet2")
wS.Cells.Clear
str = Application.InputBox("検索内容を入力")
Application.ScreenUpdating = False
With Worksheets("sheet1")
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
.Columns(lastCol + 1).Insert
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
Set c = Range(.Cells(i, "A"), .Cells(i, lastCol)).Find(what:=str, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
.Cells(i, lastCol + 1) = 1
End If
Next i
If WorksheetFunction.CountIf(.Columns(lastCol + 1), 1) > 0 Then
.Range("A1").AutoFilter field:=lastCol + 1, Criteria1:=1
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy wS.Range("A1")
wS.Columns.AutoFit
wS.Columns(lastCol + 1).Delete
wS.Activate
.Columns(lastCol + 1).Delete
.AutoFilterMode = False
Else
MsgBox "該当データなし"
End If
End With
Application.ScreenUpdating = True
End Sub
エクセルで上のシステムをネットから持ってきました。
上から5行目のinputboxを"Sheet3"のA列からデータを持ってきてプルダウンで表示させたいのですがユーザーフォームでオブジェクトを組まないで表示させる方法を教えてください
お礼
回答していただき感謝します。 やはり教えていただいた方法でしかないようですね。 他にももっと簡単なやり方があるかなと思ったもので… ありがとうございました。