excel2003条件でポイントを変更

質問

教えてください。
ある条件で、ポイントを変更したいのですが、
条件付書式では出来ませんでした。
VBAでないとダメでしょうか？
（例）
A1に"誕生日"と入っています。文字数が3文字なので、10ポイントにする。
A2に"好きなもの"と入っています。文字数が5文字なので、8ポイントにする。
といった条件で変更したいのですが、良い方法がありましたら
教えてください。

回答No.4

maron--5

◆直接の回答にはなっていませんが、こんな方法はいかがでしょうか？
★ツールバーの書式－セル－配置の「文字の制御」の「縮小して全体を表示する」にします

回答No.3

noname#140971

A______________B
誕生日_______10
好きなもの __8

エクセルでこのように表示してみました。
同時にA1、A2の文字サイズも変更しています。

B1=macro1(A1)

Function Macro1(ByVal T As Range) As Integer
　　Dim FS As Integer

　　Select Case Len(T)
　　　　Case 1
　　　　　　FS = 12
　　　　Case 2
　　　　　　FS = 11
　　　　Case 3
　　　　　　FS = 10
　　　　Case 4
　　　　　　FS = 9
　　　　Case 5
　　　　　　FS = 8
　　　　Case Else
　　　　　　FS = 8
　　End Select
　　T.Font.Size = FS
　　Macro1 = FS
End Function

作成したマクロはこのようです。

回答No.2

Nayuta_X

追加です。
例:

セル　A1に　誕生日　を入れた場合　
セル　B1に　=len(A1) とすると　3　が　B1に表示されます。
そして、 C1に　　=IF(B1=3,"10ポイント",(IF(B1=5,"8ポイント","ポイントは、ありません")))
とすると
この場合は、10ポイントと表示されます。

解説:=IF(条件,条件が成立したら,条件が成立しなければ)
となります。

参考URL: http://asugi23.web.infoseek.co.jp/excel/soft33.htm

補足

すみません。
私の書き方がおかしかったです。
3の条件の時にフォントを変更したりポイント数を変更したい
という意味でした。
申し訳ございません。

回答No.1

Nayuta_X

len関数を使用します。

例:

セル　A1に　誕生日　を入れた場合　
セル　B1に　=len(A1) とすると　3　が　B1に表示されます。

参考までに、下記URL を見てください。

http://ginyusijin.hmc6.net/page020.html

補足

ありがとうございます。
例だとB1に3が入っているので、B1の3を条件にC1に誕生日を10ポイントで表示することが出来るでしょうか？