|
始めて質問します。
VBA初心者です。
雑誌のおまけについていたモジュールを、業務に活用しようとしたのですが、乗物ボタンからー>部門ボタンに変えたいのですが、LISTBOXの表示を変更出来ません。
よろしくお願いします。
シートにボタンを配置しています。機能には問題ありません。Vlookupとの併用で、項目を選択出来ます。
どなたか教えて下さい!
'部門ボタンから
Sub nori()
DialogSheets("norimono").ListBoxes("no_list").Value = True
If DialogSheets("norimono").Show = True Then
DialogSheets("norimono").ListBoxes ("no_list")
nori_no = CVar(DialogSheets("norimono").ListBoxes("no_list").Value)
r = ActiveCell.Row
On Error Resume Next
Cells(r, 1).Value = nori_no
End If
On Error GoTo 0
End Sub
|
|