OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

Excelの入力規則のドロップダウンリストの表示のフォントについて

  • 困ってます
  • 質問No.247831
  • 閲覧数3561
  • ありがとう数1
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 58% (66/113)

エクセル2000を使用しています。
入力規則のリストを使って、ドロップダンウンリストから選択するようにして
いるのですが、このドロップダウンリストを表示させた状態のフォントの大きさを
調節できるのでしょうか?
選択する項目を見やすくしたいのです。
一時的に画面の拡大をする方法もありますが、ドロップダウンリスト内で選択する
時点(項目を選ぶ時)でもっと見やすくしたいのです。
何か方法がありましたら、教えてください。
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1

残念ながら、入力規則のドロップダウンリストに関するカスタマイズ機能は無い様です。
残念ながら、入力規則のドロップダウンリストに関するカスタマイズ機能は無い様です。

  • 回答No.2
レベル13

ベストアンサー率 68% (791/1163)

>何か方法がありましたら、教えてください。 入力規則での拡大は難しいですね。 代替案として、コンボボックスで入力規則と同様機能を作ってみました。シート1(Sheet1)で実行してみます。  (使いようによっては、入力規則以上の表現ができるでしょう) 1.入力規則をリスト化したデータをシートに書いておきます。例えばセル範囲『Z1:Z10』とします。 2.表示→ツールバーでVisual ...続きを読む
>何か方法がありましたら、教えてください。

入力規則での拡大は難しいですね。

代替案として、コンボボックスで入力規則と同様機能を作ってみました。シート1(Sheet1)で実行してみます。
 (使いようによっては、入力規則以上の表現ができるでしょう)

1.入力規則をリスト化したデータをシートに書いておきます。例えばセル範囲『Z1:Z10』とします。
2.表示→ツールバーでVisual BasicをチェックしてVisual Basicのツールバーを出します。
3.コントロールツールボックスのアイコンをクリックしてダイアログを表示。
4.そこからコンボボックスをクリックして画面に貼り付けます。
4-1.コンボボックスを右クリックしてプロパティを選択。
4-2.(オブジェクト名)はComboBox1のままとします。
4-2.プロパティのListFillRangeにZ1:Z10。
4-3.プロパティの 'Width'   で幅
         'Height'   で高さ
         'Font'    でフォント
         'BackColor' で背景色 が指定できます。

好きに大きさを調整して下さい。何度でもできます。
コンボボックスの作成が終わったとして、次にシカケのマクロを書きます。

5.ツール→マクロ→Visual Basic Editor でVBE画面に移り、
  表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示。
  Sheet1をダブルクリック。でてきたコードウインドウに下記マクロを貼り付けます。
6.入力規則列1 = の次に入力規則を適用してコンボボックスを表示させる範囲を指定します。
7.シートに戻り、指定した範囲をクリックすれば入力規則と同様なコンボボックスが出るはずです。
入力規則にあるメッセージの処理などは割愛しました。 ご参考に。


ここから

'入力規則列1 :入力規則を適用する列名、範囲
'       列全体なら『E:E』のようにする
'       列の一部なら『E1:E100』のようにする。連続する列、範囲も可
 Const 入力規則列1 = "E1:E100"

'出力位置横、縦:コンボボックスを出す相対位置(0は同じ列または行、1は右または下)
 Const 出力位置横 = 0
 Const 出力位置縦 = 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error GoTo ErrorHandler  'エラー対応

  With ComboBox1
    If Target.Count = 1 Then  '単一セルの操作の場合
      If Not Intersect(Target, Range(入力規則列1)) Is Nothing Then '列の特定
          .Visible = True      'コンボボックスを見えるようにする
          .Top = Target.Offset(出力位置縦, 出力位置横).Top  '縦位置
          .Left = Target.Offset(出力位置縦, 出力位置横).Left '横位置
          .LinkedCell = Target.Address            'リンクするセル
      Else
        .Visible = False  'コンボボックスを見えなくする
      End If
    Else
      .Visible = False    'コンボボックスを見えなくする
    End If
  End With

  Exit Sub

ErrorHandler:

End Sub
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ