エクセルでフォントサイズを自動で変更する方法

質問

• エクセルでインデックスラベルを作成する際、文字数によってフォントサイズを自動で変更したいです。
• 現在は手動でサイズ変更をしているため、時間がかかっています。
• もし不可能な場合は、ショートカットキーを使ってサイズ変更する方法を教えてください。

回答No.2

ham_kamo

「2シート目に参照して」という部分の意味がちょっとよくわかりませんが、２シート目を参照して、ということでしょうか。
２シート目にデータを入力すると、１シート目のセルに反映されて、そのラベルの文字の大きさを自動的に調整したい、ということだと解釈して、マクロを書いてみました。

２シート目のシートタブを右クリックして「コードの表示」を選択すると、VBAの画面が開くので、右の白い画面に以下のマクロをコピーして貼り付けてください。その際、このマクロでは「２シート目のB2に文字を入力すると、１シート目のA1の文字の大きさを変更する」という仕様にしているので、マクロの中の"B2"と"A1"というセル番地を実際のシート構成にあわせて変更してください。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim T As Range
Set T = Target.Cells(1, 1)
If T.Address(False, False) <> "B2" Then Exit Sub
With Worksheets("Sheet1").Range("A1").Font
　Select Case Len(T.Value)
　Case Is <= 3
　　.Size = 11
　Case 4
　　.Size = 10
　Case 5
　　.Size = 9
　Case Else
　　.Size = 8
　End Select
End With
End Sub

貼り付けたらVBAの画面は閉じてかまいません。２シート目の指定したセルに入力すると、そのセルを参照している１シート目のセルのフォントサイズが文字数に応じて変わります。

補足

ご回答ありがとうございます。説明不足ですいません。
ラベル自体に枠があるので、それをイメージして入力できるように
罫線等で実際のラベルのように１シート目につくっていて、１シート目に入力をします。
ラベルには枠があり印刷する時は文字のみ印刷されればいいので、
２シート目にはその入力した文字のみが表示されて印刷するようになっています。
ですので、ＶＢＡのシートの１と２を逆にすればいいのだと思うのですが、うまくできません。
セルの番地もシート１のＢ２がシート２のＢ２になります。
セルの番地を実際のシート構成にあわせるということですが、Ａ１のところをＢ２にすれば他のセルも対応するんでしょうか？
初歩的なことですいません。ＶＢＡが全くわからないので。