Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10500 / 13646 ツリー ←次へ | 前へ→

【21416】入力規則のフォント変更について 宜しくお願い致します 05/1/20(木) 20:48 質問[未読]
【21437】Re:入力規則のフォント変更について りすりす 05/1/21(金) 0:40 発言[未読]
【21440】Re:入力規則のフォント変更について りすりす さんへ 05/1/21(金) 9:24 質問[未読]
【21445】Re:入力規則のフォント変更について G-Luck 05/1/21(金) 13:45 回答[未読]
【21446】Re:入力規則のフォント変更について G-Luck 05/1/21(金) 13:58 発言[未読]
【21482】Re:入力規則のフォント変更について G-Luck さんへ 05/1/21(金) 19:12 お礼[未読]
【21450】Re:入力規則のフォント変更について りすりす 05/1/21(金) 14:49 発言[未読]
【21483】Re:入力規則のフォント変更について りすりす さんへ 05/1/21(金) 19:14 お礼[未読]

【21416】入力規則のフォント変更について
質問  宜しくお願い致します  - 05/1/20(木) 20:48 -

引用なし
パスワード
   入力規則リストのフォントを大きくすることは可能でしょうか?
どなたかご存知の方いらっしゃいましたら、ご教授願います。
宜しくお願い致します。

【21437】Re:入力規則のフォント変更について
発言  りすりす  - 05/1/21(金) 0:40 -

引用なし
パスワード
   ▼宜しくお願い致します さん:
>入力規則リストのフォントを大きくすることは可能でしょうか?
>どなたかご存知の方いらっしゃいましたら、ご教授願います。
>宜しくお願い致します。

画面のプロパティで
・画面の解像度下げる
・フォント変える
したらいいんじゃないの?

【21440】Re:入力規則のフォント変更について
質問  りすりす さんへ  - 05/1/21(金) 9:24 -

引用なし
パスワード
   ▼りすりす さん:
>▼宜しくお願い致します さん:
>>入力規則リストのフォントを大きくすることは可能でしょうか?
>>どなたかご存知の方いらっしゃいましたら、ご教授願います。
>>宜しくお願い致します。
>
>画面のプロパティで
>・画面の解像度下げる
>・フォント変える
>したらいいんじゃないの?

ご教授有難うございます。
すみません、説明不足でした。
>・画面の解像度下げる
>・フォント変える
以外に、リストに表示されている文字の大きさのみ
変えることは可能でしょうか?

以上、宜しくお願い致します。

【21445】Re:入力規則のフォント変更について
回答  G-Luck  - 05/1/21(金) 13:45 -

引用なし
パスワード
   少々面倒ですが、

まず、textboxとcomboboxを作ります。
それぞれのプロパティで
BorderColor = アクティブタイトルバー
BorderStyle = 1
LinkCell = A1    入力セルがA1の場合
Font = 望みのサイズに

comboboxのプロパティで
ListFillRange = 入力規則のセル範囲

VBAで

Private Sub TextBox1_GotFocus()
  With ComboBox1
    .Visible = True
    .Activate
  End With
  TextBox1.Visible = False
End Sub

Private Sub ComboBox1_LostFocus()
  '独自の入力規則処理
 
  ComboBox1.Visible = False
  TextBox1.Visible = True
End Sub

二つともA1セルに重ねてください。

要するに、テキストボックスとコンボボックスを利用して、自ら入力規則を作ってしまうという事です。

【21446】Re:入力規則のフォント変更について
発言  G-Luck  - 05/1/21(金) 13:58 -

引用なし
パスワード
   ついでに、

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Font.Size = 30 - ComboBox1.Font.Size
End Sub

で、ドロップダウンリストを表示中だけ、フォントサイズを大きくすることができます。
30 = 大きいサイズ + 小さいサイズ

comboboxのFontのサイズは、小さいサイズを指定しておく

【21450】Re:入力規則のフォント変更について
発言  りすりす  - 05/1/21(金) 14:49 -

引用なし
パスワード
   ▼りすりす さんへ さん:
>▼りすりす さん:
>>▼宜しくお願い致します さん:
>>>入力規則リストのフォントを大きくすることは可能でしょうか?
>>>どなたかご存知の方いらっしゃいましたら、ご教授願います。
>>>宜しくお願い致します。
>>
>>画面のプロパティで
>>・画面の解像度下げる
>>・フォント変える
>>したらいいんじゃないの?
>
>ご教授有難うございます。
>すみません、説明不足でした。
>>・画面の解像度下げる
>>・フォント変える
>以外に、リストに表示されている文字の大きさのみ
>変えることは可能でしょうか?
>
>以上、宜しくお願い致します。


てっきりメニューの入力規則の設定Window内のリストの文字を大きくしたいのかと勘違いしていました(^o^)

セル内のリストの文字の大きさですね。

セルの文字サイズと無関係に
確かに リストだけ文字がちっちゃいですね。

こんなのもありました
[XL2000] 保護されたシートで入力規則のリストでセルの値の変更
http://support.microsoft.com/default.aspx?scid=kb;ja;436510

こんなのもありました
[XL2003] 幅の異なるセルに入力規則のリストを設定すると表示されるリストの幅が広くなる
http://support.microsoft.com/default.aspx?scid=kb;ja;871080

G-Luckさんの提案のようにカスタムでリスト出す方がMSのバグにつきあわされずに済みますよ

【21482】Re:入力規則のフォント変更について
お礼  G-Luck さんへ  - 05/1/21(金) 19:12 -

引用なし
パスワード
   ▼G-Luck さん:
>ついでに、
>
>Private Sub ComboBox1_DropButtonClick()
>  ComboBox1.Font.Size = 30 - ComboBox1.Font.Size
>End Sub
>
>で、ドロップダウンリストを表示中だけ、フォントサイズを大きくすることができます。
>30 = 大きいサイズ + 小さいサイズ
>
>comboboxのFontのサイズは、小さいサイズを指定しておく

ご教授有難うございました。
試してみます。

【21483】Re:入力規則のフォント変更について
お礼  りすりす さんへ  - 05/1/21(金) 19:14 -

引用なし
パスワード
   ▼りすりす さん:
>▼りすりす さんへ さん:
>>▼りすりす さん:
>>>▼宜しくお願い致します さん:
>>>>入力規則リストのフォントを大きくすることは可能でしょうか?
>>>>どなたかご存知の方いらっしゃいましたら、ご教授願います。
>>>>宜しくお願い致します。
>>>
>>>画面のプロパティで
>>>・画面の解像度下げる
>>>・フォント変える
>>>したらいいんじゃないの?
>>
>>ご教授有難うございます。
>>すみません、説明不足でした。
>>>・画面の解像度下げる
>>>・フォント変える
>>以外に、リストに表示されている文字の大きさのみ
>>変えることは可能でしょうか?
>>
>>以上、宜しくお願い致します。
>
>
>てっきりメニューの入力規則の設定Window内のリストの文字を大きくしたいのかと勘違いしていました(^o^)
>
>セル内のリストの文字の大きさですね。
>
>セルの文字サイズと無関係に
>確かに リストだけ文字がちっちゃいですね。
>
>こんなのもありました
>[XL2000] 保護されたシートで入力規則のリストでセルの値の変更
>http://support.microsoft.com/default.aspx?scid=kb;ja;436510
>
>こんなのもありました
>[XL2003] 幅の異なるセルに入力規則のリストを設定すると表示されるリストの幅が広くなる
>http://support.microsoft.com/default.aspx?scid=kb;ja;871080
>
>G-Luckさんの提案のようにカスタムでリスト出す方がMSのバグにつきあわされずに済みますよ

度々のご教授有難うございました。
試してみます。

10500 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free