Excel VBA質問箱 IV

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

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


55710 / 76732 ←次へ | 前へ→

【25789】繰り返し
質問  たま  - 05/6/14(火) 21:24 -

引用なし
パスワード
   マクロを初めて作ってみました。(といっても自動作成ですが・・)
内容は日付のデータの入ったセルがA列にずら〜っとあります。
これを、G、H、Iのセルに年、月、日と分けます。
20050614→05|06|14
となるわけなのですが・・・

Sub 桁分ける()
'
  Range("G2").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-6],3,2)"
  Range("H2").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-7],5,2)"
  Range("I2").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-8],7,2)"
  Range("G3").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-6],3,2)"
  Range("H3").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-7],5,2)"
  Range("I3").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-8],7,2)"
  Range("G4").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-6],3,2)"
  Range("H4").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-7],5,2)"
  Range("I4").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-8],7,2)"
  Range("G5").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-6],3,2)"
  Range("H5").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-7],5,2)"
  Range("I5").Select
  ActiveCell.FormulaR1C1 = "=MIDB(RC[-8],7,2)"
  
  End Sub

何回もやってるうちに鬱になってきました・・・
簡単に作る方法ってどうするんですか?
以前の投稿を参考にしようと思っても内容が??です。
0 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 回答

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