[[20091220175821]]　『VBAでセルに関数を入力したい』（もんた）　ページの最後に飛ぶ

『VBAでセルに関数を入力したい』（もんた）

このような関数を　="*"&B5&"*"　セルに記述するため
下記のよう記述して実行すると「型が一致しません。」とエラーが表示されます。

Range("c3").Formula = "="*"&B5&"*""

＝から右の記述をどのように記述したらいいか教えてください。

 C3セルを選択しその式を入れる作業をマクロの記録に取ると

 Sub Macro1()
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=""*""&R[2]C[-1]&""*"""
    Range("C4").Select
 End Sub

 と言ったコードが得られますので
 "=""*""&R[2]C[-1]&""*"""
 ココをB5~~~~~~~~~に変更して
    Range("C3").Formula = "=""*""&B5&""*"""
 で良いんじゃないでしょうか？

 基本的には「""」のなかの「"」は二つで一つに成るので

 １．="*"&B5&"*"　の「"」を「""」に変更
 　　=""*""&B5&""*""

 ２．数式をさらに「""」で囲う
 　　"=""*""&B5&""*"""

 と、同じ結論にたどり着きます。

 (HANA)

コメント返信：