[[20230319143730]]　『文字のフォントサイズを小さくしたい』（ひまわり）　ページの最後に飛ぶ

『文字のフォントサイズを小さくしたい』（ひまわり）

お世話になります

帳票に印刷する為文字数の大きい物を小さくしたいのですが
ご教示をお願い致します。

Sub test 0
Dim Sh1 As Worksheet
Dim myd3 As Range
Dim c3 As Range
Dim | As Integer
Dim fs As Range
Set Sh1 = Worksheets (' DDD*)
Set myd3 = Worksheets ('AAA*) . Range (Range (' F2*), Cells (Rows. Count, 6) . End (x|Up))
Sh1. Select Cells. ClearContents
| = 25
For Each c3 In myd3
Cells (I, 14). Value = c3. Value
Cells (l, 14). Font. Name =“MS” ゴシック
If Not IsEmpty (c3) Then
Select Case Len (c3. Value)
Case 11
fs = 10
Case 13
fs = 9
Case 14
fs = 8
Case 15
fs = 7.5
End Select
c3. Font. Size = fs
End If
Next
| = | + 26

End Sub

写真からテキストを起こしたので微妙に違う所があると思いますが
勘弁して頂きたく思います。

文字数が11の時はフォントサイズは10
文字数が13の時はフォントサイズは9
文字数が14の時はフォントサイズは8
文字数が15の時はフォントサイズは⒎5
にしたいのですが
fs＝の数字の所で黄色の矢印が出ます。
何が原因か分からないので教えて頂きたく思います。

＜使用 Excel：Microsoft365、使用 OS：Windows10 ＞

変数の型が「Range」になっているから。
（パンジー） 2023/03/19(日) 15:07:24

パンジーさん
返答ありがとうございます。

回りにVBAを知っている人が居ないので投稿させて頂きました。
今手元にPCが無いので確認は出来ないのですが
ご教示ありがとうございました。
（ひまわり） 2023/03/19(日) 16:33:50

コメント返信：

[ 一覧(最新更新順) ]

[[20230319143730]] 『文字のフォントサイズを小さくしたい』（ひまわり） ページの最後に飛ぶ

[[20230319143730]]　『文字のフォントサイズを小さくしたい』（ひまわり）　ページの最後に飛ぶ