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

このQ&Aに関連する最新のQ&A

A 回答 (2件)

>何か方法がありましたら、教えてください。



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

代替案として、コンボボックスで入力規則と同様機能を作ってみました。シート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
    • good
    • 0

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

    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

QExcel:既入力項目をドロップダウンリストに(入力規則?)

Excelで、
ある列に簡単な文字列を入力していっているのですが、
それまでに同じ列で入力したのと同じ内容を入力する際に、
ドロップダウンリストを使いたいと思っております。
入力リストとも思うのですが、内容が固定でなく、
新たな内容を入力したら、それもリストで
使えるようにしたいです。

(例)
AAA
(空白)
(空白)
BBB
(空白)
CCC
(空白)
    ←ここを入力するときに、
     AAA・BBB・CCCから選択またはDDDを手入力
    ←上でDDDを入力していたらAAA・BBB・CCC・DDDから選択
     そうでなければAAA・BBB・CCCから選択
以下ずっとこんな感じ(新項目を入力したら以後それもリストに入ってほしい)

このような場合、どのように設定したらよいのか、
お分かりの方がいらっしゃいましたらご回答ください。

Aベストアンサー

こんにちは。

>自動的にリスト形式になってしまい、新たな(=リストにない)項目入力ができなくなってしまいます。

これは、私のミスです。すみません。それと、細かい点も見直してみました。また、ダブルクリックではなく、右クリックや、Alt + ↑に置き換えることも可能です。

以下のようにすれば、リストにないものでも加えられるようになります。入力規則のドロップダウンが邪魔になるときに、消すプログラムも付けておきます。シートをアクティブにすると消えます。

それと、今は、文字のリストを使っていますので、たぶん、そんなに多く入らないかもしれません。もし、そういう状況になったら、シートのどこかにリストを作ってあげれば、1000個ぐらいは可能になると思います。ただ、1000個もあったら、探すのが面倒だと思いますが。


'-------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tRng As Range
  Cancel = True
  ActiveCell.EntireColumn.Validation.Delete
  If WorksheetFunction.CountA(Target.EntireColumn) = 0 Then Exit Sub
  Set tRng = Range(Cells(1, Target.Column), Cells(Rows.Count, Target.Column).End(xlUp))
  With Target.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
     Operator:=xlBetween, Formula1:=UniqLists(tRng)
    .IgnoreBlank = True
    .InCellDropdown = True
    .ShowError = False
  End With
End Sub

Function UniqLists(rng As Range) As String
'リスト化する関数プロシージャ
  Dim i As Long
  Dim ret As Variant
  Dim buf As String
  With rng.Columns(1)
    For i = 1 To .Rows.Count
      If .Cells(i, 1).Value <> "" Then
        ret = Application.Match(.Cells(i, 1).Value, .Cells, 0)
        If IsNumeric(ret) And ret = i Then
          buf = buf & "," & .Cells(i, 1).Value
        End If
      End If
    Next i
  End With
  UniqLists = Mid(buf, 2)
End Function

'-------------------------------------------
Private Sub Worksheet_Activate()
'シートをアクティブしたときに、入力規則のリストを削除する
Dim rng As Range
 On Error Resume Next
 Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
 rng.Validation.Delete
 Set rng = Nothing
 On Error GoTo 0
End Sub

こんにちは。

>自動的にリスト形式になってしまい、新たな(=リストにない)項目入力ができなくなってしまいます。

これは、私のミスです。すみません。それと、細かい点も見直してみました。また、ダブルクリックではなく、右クリックや、Alt + ↑に置き換えることも可能です。

以下のようにすれば、リストにないものでも加えられるようになります。入力規則のドロップダウンが邪魔になるときに、消すプログラムも付けておきます。シートをアクティブにすると消えます。

それと、今は、文字のリスト...続きを読む

Qエクセルでプルダウンメニューの作り方

  エクセルの画面で、よく三角形を逆さまにした形をクリックするといくつかメニューが出てき、どれかを選べるようになっていますが、その作り方を教えてください。
 会社で人事を担当していますが、三角形(プルダウンボタン)をクリックすると社員氏名一覧が表示され、そこから選択できるようにしたいのです。
 しばらく自力でいろいろやってみましたが、さっぱり見当がつかず、どうやればいいのか分かりませんでした。よろしくお願いします。

Aベストアンサー

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならないでしょうか?
Excel2007の場合は↓のURLが参考になるかもしれません。

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-ny_kis2.html

尚、同一Sheetに「名簿表」を作成する場合は名前定義する必要はなくて
「元の値」の右側の四角をクリックし、リスト表示したいセルをそのまま範囲指定すればOKです。

以上、お役に立てば良いのですが・・・m(_ _)m

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならない...続きを読む

Q[Excel2000]セルの入力規則→リストのセルから出るドロップダウンリストが小さ過ぎなのは?

エクセル2000での質問です。
[ツールバー]→[データ]→[入力規則]→[リスト]のセルから出るドロップダウンリストが
小さ過ぎるのはなぜでしょう?

入力規則を設定したセルも、設定時の元の値のセルでも書式を変更してみたのですが、
ドロップダウンリストは大変小さく変更されません。

ドロップダウンリストの書式(フォントサイズ)を変更する方法をご存知の方が
おられましたらどうぞご教授ください。
お願いいたします。

Aベストアンサー

> ドロップダウンリストの書式(フォントサイズ)を変更する方法をご存知の方が
> おられましたらどうぞご教授ください。

入力規則のリストに表示されるフォントサイズ変更するには、レジストリーを
操作する必要があります。
ただし、入力規則だけでなくExcelの各ダイアログの大きさも変わります。

それで良かったら、次の手順で操作してみてください。
操作は慎重に!! あくまでも自己責任で・・・

[スタート]-->[ファイル名を指定して実行]で「名前」欄に regedit と
入力して[OK]します。

次のキーを開きます。

(Excel2000)
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Options
(Excel2002は 10.0、 2003は 11.0)

メニューから[編集]-->[新規]-->[文字列値]を指定すると「名前」欄に「新しい値 #1」が
追加になり、反転していますので、その名前を「DlgFont」という文字列に修正します。

その名前をWクリックして表示されたダイアログの「値のデータ」に以下に示す
ようにフォント種とサイズをカンマで区切った文字列を入力し、[OK]します。
(全角/半角やスペースに注意。 できれば最初は、これをコピペしてください。)
(サイズ13の数字がフォントサイズです。かなり大きいです。11~13でテストしてみて
適当な値を決めてください。値を変更した時は、Excelを再起動して確認します。
また、regeditを再起動した場合は、追加した「DlgFont」の位置は、変って
いますので、探してWクリックすると値を変更することが出来ます。)

MS Pゴシック,13

Excelの各ダイアログにも影響が出ていますので、
例えば、メニューから[ファイル]-->[開く]のダイアログで確認してみてください。
サイズを15にするとダイアログが画面からはみ出しています。

> ドロップダウンリストの書式(フォントサイズ)を変更する方法をご存知の方が
> おられましたらどうぞご教授ください。

入力規則のリストに表示されるフォントサイズ変更するには、レジストリーを
操作する必要があります。
ただし、入力規則だけでなくExcelの各ダイアログの大きさも変わります。

それで良かったら、次の手順で操作してみてください。
操作は慎重に!! あくまでも自己責任で・・・

[スタート]-->[ファイル名を指定して実行]で「名前」欄に regedit と
入力して[OK]します。

次...続きを読む

Qエクセル(Excel) 納品書の作り方【画像修正版

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が見にくかったのでシート<CENTER></CENTER>だけにしました。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルでコピー!
そのまま最後の24行目までコピーしておきます。

F4セルには
=IF(COUNTBLANK(B4:E4),"",D4*E4)
という数式を入れ、F24までオートフィルでコピー!

これでB列に商品番号を入力すればSheet2のデータが反映され、
E列に数量を入力でF列に金額が表示されると思います。

最後に合計金額のF26セルは
=IF(COUNT(F4:F24),SUM(F4:F24),"")
手数料のF27セルは
=IF(F26="","",F26*0.2)

これで何とか形にならないでしょうか?

※ 振込金額の欄は不明ですので手を付けていません。

参考になりますかね?m(_ _)m

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルで...続きを読む

Qエクセル、入力規則のドロップダウンリストの表示文字サイズを変更するには?

 エクセルシートにて、セルに入力規則を設けて誤入力がないようにしているのですが、表示されるドロップダウンリストの表示文字サイズが小さくて、見にくいのです。
 先ほどから、ヘルプを見て設定を変更しようしていますが、上手く行きません。

 ヘルプの解説文はいつも抽象的で分かりにくく、エクセル2003になって少しはマシになりましたが、2000では初級者には非常に分かりにくいです。
 どなたか、教えていただけませんか?

Aベストアンサー

こんばんは。

ここの話ですよね。
http://support.microsoft.com/default.aspx?scid=kb;ja;JP405456
[XL95]ダイアログ ボックス内のフォントを変更する方法

結構、Excelのベテランさんは、そこで、フォントの大きさを換えているようなのですが。要するに、DlgFont という項目を作ってあげて、そこに書き込むだけです。ただし、他の部分も変わります。

Qエクセル(Excel) 納品書の作り方【改めて】

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が貼り付けてあります。商品名は1番以外伏せさせていただいています。
くっつけてありますが、左側がシート1・右側がシート2です。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

画像がいまいちよく見えないのですが、納品書の項目は左から、No、商品番号、商品名、単価、数量、金額でいいのでしょうか(名前は多少違っていても意味があっていればもんだいないです)

でしたら、
C1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,2,FALSE))
D1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,3,FALSE))
E1セルは空白で
F1セルに=IF(D2="","",D2*E2)
といれて、C1からF1までをコピーしてその下の行にタテに貼り付ければ出来ますよ。
おそらくエラーが出たのは、コピーしたときにVLOOKUP関数の最初のセルの指定がずれてしまっているのでは無いかと思いますよ。     

Q【エクセル】ドロップダウンリスト(入力規則)の参照元を別シートに作るには?

ドロップダウンリスト(入力規則)にて、参照元のデータを別シートに作るにはどうすればよいでしょうか?

ご存知の方、いらっしゃいましたら、ご教授願います。

Aベストアンサー

入力規則のリストで参照元になるデータが別のシートになる場合、例えばシート2のA1セルからA10セルにあるデータを使用するとして、回答1さんのようにA1からA10を選択してエクセル2002などの場合には「挿入」メニューから「名前」の「定義」で「リスト1」のように定義し、入力規則の元の値では=リスト1と入力すればよいでしょう。

名前の定義を使わない方法としては元の値に=INDIRECT("Sheet2!A1:A10")のように入力すればよいでしょう。

Qエクセル2007でプルダウンで選んだものに反応

Excel2007でプルダウンで選んだものに反応して隣のセルが自動入力される方法(エクセル2007)
A1をプルダウンで「猫」「犬」から選べるようにし、「猫」を選んだ場合B1に自動に「111」が、「犬」を選んだ場合B1に自動に「222」と入力されるようにしたいです。
ご教授の程、宜しくお願いします。

Aベストアンサー

VLOOKUP関数での方法です。
(1)別シートに入力文字列と対応コード表を作成。(仮にSheet2のA:B列範囲で順不同)
(2)B1に=IF(COUNTIF(Sheet2!A:A,A1),VLOOKUP(A1,Sheet2!A:B,2FALSE),"")を設定
   入力文字列が存在しない場合は空白としています。

Qエクセル ドロップダウンリスト 項目作成

【やりたい事】エクセルで、『ある列の項目(下記例:A列)』から
『条件が一致した(下記例:C列で"肉食")』項目だけドロップダウンリスト『ライオン、トラ、ヒョウ(下記例:A列の名前)』を作成したい。
ドロップダウンリストは、同じsheetの別の列(全て)に表示させてい。
※A列は、任意に入力します。
※B列は、意味ここでは意味ない列になります。
※C列は、別のシートでプルダウンリスト"肉食"、"草食"を選択しています。
※D列は、現在途中の条件出しを行っていますが、うまくいっていません。
※Z列に「プルダウンリスト(肉食動物名一覧)」を表示させたい。

●プルダウンリスト条件
 Z列:"肉食"の時、A列の名前だけを表示(※空白は、削除したい)

【エクセル例】
-------------------------------
  A列    B列    C列   D列  ...  Z列
1 動物名  地域区別  肉食か?       肉食動物名
2 ライオン アフリカ  肉食   ライオン  [プルダウンリスト]
3 カバ    アフリカ  草食         [プルダウンリスト]
4 シマウマ アフリカ  草食         [プルダウンリスト]
5 トラ    アジア   肉食    トラ   [プルダウンリスト]
6 ヒョウ   アフリカ  肉食    ヒョウ  [プルダウンリスト]
7 うさぎ   いろいろ  草食         [プルダウンリスト]
8 パンダ   中国    草食         [プルダウンリスト]
-------------------------------
※D列は、現在行ったやり方です。
しかし、空白欄(D3,D4,D7,D8)がドロップダウンリストに表示されてしまう。
D列の各行で条件を出しをしている。
現在、[D2]:=IF((C2="肉食"),A2)
[D3]:=IF((C3="肉食"),A3)
名前付け:D2:D8を「肉食動物」として、
「データツール」>「データの入力規則」で、
「入力値の種類:リスト」の「空白を無視する」のオフにして、
「元の値」=肉食動物(D2:D8)としていますが、プルダウンリストに「空白」も表示されており、選択しづらいです。
プルダウンリスト(例)では
---
ライオン
(空白)
(空白)
トラ
<<以下省略>>
---
と、空白がでています。

やり方、設定方法を間違っているかもしれません。
何方か、お教えください。

【やりたい事】エクセルで、『ある列の項目(下記例:A列)』から
『条件が一致した(下記例:C列で"肉食")』項目だけドロップダウンリスト『ライオン、トラ、ヒョウ(下記例:A列の名前)』を作成したい。
ドロップダウンリストは、同じsheetの別の列(全て)に表示させてい。
※A列は、任意に入力します。
※B列は、意味ここでは意味ない列になります。
※C列は、別のシートでプルダウンリスト"肉食"、"草食"を選択しています。
※D列は、現在途中の条件出しを行っていますが、うまくいっていません。
※Z列に「...続きを読む

Aベストアンサー

D列(作業列とするのでD列にはこだわらなくていいですが)
=IF((C2="肉食"),ROW(),"")
Z列
=IF(COUNT(D:D)>ROW()-2,INDEX(A:A,SMALL(D:D,ROW()-1)),"")

と入力して下方向にフィルすると、目的の一覧が作成されます。


人気Q&Aランキング

おすすめ情報