Office 2013 の 64 ビット版
上記より、抜粋
32 ビットの Office 用に作成された ActiveX コントロールと
COM アドインは 64 ビット プロセスで動作しません。
MSCOMCTL.OCXが使用できない…
代替策 こんな感じか…
Sub test()
UserForm1.Show
End Sub
Private Sub ListBox1_Click()
Worksheets("Sheet1").Range(ActiveCell.Address(False, False, xlA1)).Value = UserForm1.ListBox1.Value
Unload Me
End Sub
Private Sub UserForm_Initialize()
UserForm1.Caption = "三都の入力"
With ListBox1
.AddItem "神戸"
.AddItem "大阪"
.AddItem "京都"
End With
End Sub