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

質問

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

よろしくお願いします。

回答No.1

A88No8 · ベストアンサー

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

お礼

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

回答No.5

imogasi

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

回答No.4

yakitaraco

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

回答No.3

mu2011

フォントサイズの自動変更はＶＢＡ（マクロ）しかありません。
一例です。
仮に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

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

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

お礼

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