|
▼たま さん:
Sub test()
With Range("a2", Range("a65536").End(xlUp)).Offset(0, 6).Resize(, 3)
' これは、かみちゃんさんのコードが簡単でよいですね
.Formula = Array("=mid(a2,3,2)", "=mid(a2,5,2)", "=mid(a2,7,2)")
End With
End Sub
として下さい。
with 以下がどうしてこうなるのか はひとつひとつのプロパティを調べてみて下さい。
>あと、=mid(a2,3,2)・・・とありますが
>このa2とゆうのは、次の行になると勝手にa3と認識する
>とゆうイメージでいいんですか??
例えば、手動操作で
セルB2に「=a2」と指定するとA2の内容が表示されますよね?
このセルB2を選択し、「右クリック」---「コピー」を行い、
続けてセルB3を選択し、「右クリック」---「貼り付け」を行えば
セルB3には、「=a3」に相当するデータが表示されますよね。
この性質をコード内で利用しています。
これは、いろんな事象で使えると思いますよ!!
後は、こういう方法で数式を利用する場合は、A1形式の参照方法だけでなく、
R1C1形式のセル参照もよく理解しておいて下さい。
(R1C1形式でないと、面倒な場合もありますから)
以上です。
|
|