質問: Excelマクロについて教えてください。 Excel「データの入力規則」でマクロを使い以下のようにしたいのですが、やり方をご教授ください。 情報ソースでも可 1プルダウンメニューのサイズを拡大 2プルダウンメニューの項目表示を任意に変えたい。 例えば プルダウンメニューでは 001 A商店 002 B商店 003 C商店 となるが、「001 A商店」を選択するとセルには 001 と表示されるようにしたい。
回答: 1 入力規則のサイズはセル幅による固定です。変えることは出来ません。文字の大きさも固定です。 ですからサイズを大きくできるActiveXコントロールのコンボボックスを使いましょう。 まず、該当シートのG1:G3にリストを作成しておきます。 ActiveXコントロールのコンボボックスを任意の場所に描画します。サイズは少し大きめがいいでしょう。フォントはあとで14に設定します。14くらいなら年配の人でも大丈夫です。 次に該当シートのシートタブを右クリック 「コードの表示」を選ぶとVBEが開きます。以下の2つのコードをコピペします。 Sub コンボボックス設定() With ComboBox1 .Font.Size = 14 .list = Range("G1:G3").Value End With End Sub Private Sub ComboBox1_Change() ActiveCell.NumberFormat = "@" ActiveCell = Left(ComboBox1.Value, 3) End Sub コピペしたらコンボボックス設定を1回だけ実行します。 コンボボックスにリストが入り、文字を大きくします。 あとはセルを選択、コンボボックスからリストを選ぶとセルに番号が入ります。