Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


55703 / 76732 ←次へ | 前へ→

【25796】Re:繰り返し
発言  ichinose  - 05/6/14(火) 22:54 -

引用なし
パスワード
   ▼たま さん:


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形式でないと、面倒な場合もありますから)

以上です。
1 hits

【25789】繰り返し たま 05/6/14(火) 21:24 質問
【25790】Re:繰り返し かみちゃん 05/6/14(火) 21:36 回答
【25792】Re:繰り返し ichinose 05/6/14(火) 21:43 発言
【25794】Re:繰り返し たま 05/6/14(火) 22:18 質問
【25795】Re:繰り返し かみちゃん 05/6/14(火) 22:44 回答
【25796】Re:繰り返し ichinose 05/6/14(火) 22:54 発言
【25798】Re:繰り返し たま 05/6/14(火) 23:12 お礼
【25799】Re:繰り返し ichinose 05/6/14(火) 23:38 発言
【25801】Re:繰り返し 追伸 ichinose 05/6/15(水) 0:03 発言
【25827】Re:繰り返し 追伸 たま 05/6/15(水) 20:39 お礼
【25791】Re:繰り返し だるま 05/6/14(火) 21:40 回答

55703 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free