|
こんばんは
「参照」シートの IU、IV列を作業列として使います。
ユーザーフォーム(Userform1)の構成は、
会社名選択のコンボボックスコントロール(Combobox1)
最終ID表示用ラベルコントロール(Label1)
終了用コマンドボタン(Commandbutton1)を配置して下さい。
Private Sub ComboBox1_Change()
Dim fR As Range
With Worksheets("参照").Range("A1").CurrentRegion.Columns(1)
Me.Label1.Caption = ""
Set fR = .Cells.Find( _
Me.ComboBox1.Value, .Cells(1), xlFormulas, _
xlWhole, , xlPrevious)
If fR Is Nothing Then
Me.Label1.Caption = "該当会社無し。"
Else
Me.Label1.Caption = fR(1, 2).Value
End If
End With
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim fD As Variant
Application.ScreenUpdating = False
With Worksheets("参照").Range("A1").CurrentRegion.Columns(1)
.Offset(, 254).Formula = "=A1"
.Offset(, 255).Formula = "=IF(A1<>A2,B1,"""")"
With .Offset(, 254).Resize(, 2)
.Value = .Value
.Sort .Columns(2), xlAscending, header:=xlYes
End With
On Error Resume Next
fD = .Offset(1, 255).SpecialCells(xlCellTypeConstants) _
.Offset(, -1).Value
Me.ComboBox1.List = fD
On Error GoTo 0
.Offset(, 254).Resize(, 2).ClearContents
End With
Application.ScreenUpdating = True
Me.Label1.Caption = ""
End Sub
標準モジュールに
'================================================
Sub main()
UserForm1.Show
End Sub
これでMainを実行してみて下さい。
コンボボックスで選択でラベルにIDを表示します。
一部文章お借りしました。>chinose さん
|
|