エクセル関数について（フォントサイズ変更）

フォントサイズを１０に設定していたとします。
セルに「ああ」文字を２文字入力した場合、フォントサイズは設定のままで、「あああ」と３文字入力した場合、フォントサイズを８にしたい時は、どのようにすればいいのでしょうか。

よろしくお願いします。

No.1 ベストアンサー 回答者： A88No8 回答日時： 2009/04/20 16:20

こんにちは

御質問を言い換えると「セル幅は変えないでフォントサイズをセルにはいるようにしたい」ということですか？
もうしそうなら、設定したいセルを選んでメニュー「書式」－「セル」を選び、タブ「配置」の「文字の制御」の選択肢を「縮小して全体を表示する」にチェックすると文字が増えたとき、フォントの大きさがセル幅に合うようなサイズに変わっていきます。
外していたらごめんなさい。

この回答へのお礼

ありがとうございます。
書式が決まっているため、セルの幅は変更できません。
特定の文字でも無理でしょうか。

お礼日時：2009/04/20 16:34

No.5 回答者： imogasi 回答日時： 2009/04/20 16:56

＞エクセル関数について

エクセルの関数の基本に対する無知を暴露してますよ。関数はセルの値を決めるもので、書式（フォント・サイズなど）は左右できませんよ。
ーー
VBAでやる（それも２文字の場合ｘ、３文字の場合はｙ、４文字の場合はｚ・・といったテーブル（参照表）を持ってそれででもフォントサイズを決めないと
ダメでしょう。
ーー
書式ー配置に有る、縮小して全体を表示する.ShrinkToFit = True
などを使うぐらいだと思う。
（オートフィットというのがあるそれは列幅を広げたりする。Worksheets("Sheet1").Columns("A").AutoFit）
この質問は余り勝手なニーズで合って、エクセルでは応え切れない。

No.4 回答者： yakitaraco 回答日時： 2009/04/20 16:52

セルの幅は変更されずに、その幅で表示できるようにフォントサイズが自動調整されますよ。

No.3 回答者： mu2011 回答日時： 2009/04/20 16:51

フォントサイズの自動変更はＶＢＡ（マクロ）しかありません。

一例です。
仮にA1:A5範囲で３文字以上入力されたらフォントサイズを変更します。
（１）対象シートタブを右クリック→コード表示→以下のコードを貼り付け→ＶＢＥ終了
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo error
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If Len(Target.Value) >= 3 Then Target.Font.Size = 8
error:
End Sub

No.2 回答者： pentium100 回答日時： 2009/04/20 16:27

そのような関数はございません。

#1さんのようにセル幅にあわせて自動調整させるか
文字数・ポイント数指定ならマクロを組むしかないでしょう。

にしても
4文字以上の時は何ポイントにしたいとか詳しい仕様が分かりませんので。

この回答へのお礼

ありがとうございます。
書式が決まっているため、セルの幅は変更できません。
特定の文字でも無理でしょうか。

お礼日時：2009/04/20 16:35