Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55715 / 76737

←次へ　｜　前へ→


	【25789】繰り返し

たま - 05/6/14(火) 21:24 -


	引用なし

	パスワード

マクロを初めて作ってみました。（といっても自動作成ですが・・）
内容は日付のデータの入ったセルがＡ列にずら～っとあります。
これを、Ｇ、Ｈ、Ｉのセルに年、月、日と分けます。
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

≪