[PR]テレビ番組表
今夜の番組チェック

VBA閻魔帳 小技編 03

● セルに関数式を代入する&書式のかきかた

例 1
  With Worksheets(1)
    .Cells(i, 2).Formula = "=DATEDIF(" & "G" & i & ",$C$1,""y"")"
  End With

   例2
     MyNAME = Format(.Range("C1"), "ge""年""m""月""d""日")

例1では i は変数で行番号です。2列目の i 行に 式が代入されます
G行に日付の数値がが入力されていると仮定しています。絶対値C1のセルを参照に
してます。たとえばG行に生年月日が入力されていて、C1の日付と比較して2列目の
i行に年齢を計算する関数がはいります。
ここで注意することは 英字は必ず ”” でくくるということです "G" "Y"ですね
変数は & & の間にいれます ",$C$1,""y"")"  で "y" でくくると やたら""が増えて
なんだかややこしいですが、""で英字をくくらないとErrorになります

例2では "ge""年""m""月""d""日" 英字を""でくくるので こういう記述になります