| |
▼たま さん：
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と認識する
>とゆうイメージでいいんですか？？
例えば、手動操作で
セルＢ２に「=a2」と指定するとA2の内容が表示されますよね？
このセルＢ２を選択し、「右クリック」---「コピー」を行い、
続けてセルＢ３を選択し、「右クリック」---「貼り付け」を行えば
セルＢ３には、「=a3」に相当するデータが表示されますよね。
この性質をコード内で利用しています。
これは、いろんな事象で使えると思いますよ！！
後は、こういう方法で数式を利用する場合は、Ａ１形式の参照方法だけでなく、
Ｒ１Ｃ１形式のセル参照もよく理解しておいて下さい。
（Ｒ１Ｃ１形式でないと、面倒な場合もありますから）
以上です。
|
|
ichinose
- 05/6/14(火) 22:54 -
