|
Sample Macro コントロール・リストボックス(ワークシートの) |
 |
|
|
|
4-1) リストボックスの表示項目をクリア |
 |
 |
'=========================================================================================
Private Sub リストボックスの表示項目をクリアする()
Worksheets("SSS").DrawingObjects("リスト 1").ListFillRange = "" '※１、２
End Sub
'=========================================================================================
＜コメント＞
※１ SSSにはリストボックスのあるシート名を記入
※２ "リスト 1"には、リストボックスの名前を記入
サンプルブックのダウンロードは ここをクリック （YNxv234_listbox_clear.xls 78KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。
|
|
4-2) リストボックスの表示項目をセット |
|
|
'=========================================================================================
Private Sub リストボックスの表示項目をセットする()
Worksheets("SSS").DrawingObjects("リスト 1").ListFillRange = "管理表!A2:A4" '※１､２､３
End Sub
'=========================================================================================
＜コメント＞
※１ SSSにはリストボックスのあるシート名を記入
※２ "リスト 1"にはリストボックスの名前を記入
※３ "管理表!A2:A4"には表示する項目が入ったシート名とセル範囲を記入
サンプルブックのダウンロードは ここをクリック （YNxv234_listbox_set.xls 79KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。
|
|
4-3) リストボックスの表示項目をリセット |
|
|
'=========================================================================================
Private Sub リストボックスの表示項目をリセットする()
Worksheets("SSS").DrawingObjects("リスト 1").Select 'リストボックスを選択する '※１､２
With Selection
.ListFillRange = ""
.LinkedCell = ""
End With 'クリアする
With Selection
.ListFillRange = "管理表!A2:A4"
.LinkedCell = "呼出!$A$2"
End With 'セットする '※３、４
End Sub
'=========================================================================================
＜コメント＞
※１ SSSにはリストボックスのあるシート名を記入
※２ "リスト 1"にはリストボックスの名前を記入
※３ "管理表!A2:A4"には表示する項目が入ったシート名とセル範囲を記入
※４ "呼出!$A$2"にはリンクするセルのシート名とセル番号を記入
サンプルブックのダウンロードは ここをクリック （YNxv234_listbox_reset.xls 75KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。
|
|
4-4) リンクするセルをクリア |
|
|
'=========================================================================================
Private Sub リストボックスのリンクするセルをクリアする()
Worksheets("SSS").DrawingObjects("リスト 1").LinkedCell = "" '※１、２
End Sub
'=========================================================================================
＜コメント＞
※１ SSSにはリストボックスのあるシート名を記入
※２ "リスト 1"には、リストボックスの名前を記入
サンプルブックのダウンロードは ここをクリック （YNxv234_linkcell_clear.xls 79KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。
|
|
4-5) リンクするセルをセット |
|
|
'=========================================================================================
Private Sub リストボックスのリンクするセルをセットする()
Sheets("SSS").Select 'シートを選択する ※１
リンクするセル = "呼出!$A$2" '※２
Worksheets("SSS").DrawingObjects(リストボックス名).LinkedCell = リンクするセル
End Sub
'=========================================================================================
＜コメント＞
※１ SSSにはリストボックスのあるシート名を記入
※２ "呼出!$A$2"にはリンクするセル番号を記入
サンプルブックのダウンロードは ここをクリック （YNxv234_linkcell_set.xls 80KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。
|
|
