エクセル 月刊管理

質問

会社でPCの管理が厳しくなってしまい、スケジュールフリーソフトが使えなくなってしまいました。
画像のような簡単なスケジュールを作りたいのですが打ち込むのが大変です。（ミスが怖いです)
例としてB2に入力したのを2マスおきに最終列（又は２０年分ほど繰り返し）までコピー＆ペースト（コメント表示も含む）するような事は出来ないでしょうか？
本当に簡単な月例管理が出来ればいいんですが、エクセルを殆ど使用した事が無かったので困っています。
馬鹿な質問とは思いますがご指導願います。

回答No.3

tom04

No.1です。
お礼欄の質問に関して・・・

＞カーソルでB2を選択マクロ名で（2ヵ月毎よう）を選択で2マスおきにコピペ
＞B３を選択マクロ名で（12ヵ月毎よう）を選択で12マスおきにコピペ
＞みたいな事は可能なのでしょうか？

とあるのですが、B列のセルをダブルクリックではどうでしょうか？

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてB列のセルをダブルクリックしてみてください。

※　1行目データ（日付？）は適当な列まで入っているとします。
※　インプットボックスに列数を入力するようにしていますが、
仮に、3か月ごとの場合は2列飛びになりますが、「3」と入力してください。

↓の「Private Sub・・・」の行から

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns(2)) Is Nothing Then Exit Sub
Dim i, j, k As Long
If Target <> "" Then
k = Application.InputBox("列数を入力してください。")
If k > 0 Then
i = Target.Row
For j = 2 + k To Cells(1, Columns.Count).End(xlToLeft).Column Step k
Target.Copy Destination:=Cells(i, j)
Next j
Cancel = True
Else
MsgBox "入力値が不正です。"
Cancel = True
Exit Sub
End If
Else
MsgBox "選択セルは空白です。"
Cancel = True
Exit Sub
End If
End Sub

↑の「End Sub」までをコピー＆ペーストです。

一旦マクロが走ると元に戻せませんので、別Sheetで試してみてください。

参考になりますかね？m(_ _)m

回答No.2

popuplt

B2とC2のセルを選択します。
C2のセルの右下に黒い点が出るので、それにカーソルをあわせて[Ctrl]を押しながら右へドラッグ。
これでご希望どおりになりませんか？

お礼

早急な回答有り難うございます。

私の質問のしかたが悪く、皆様の貴重な時間をとってしまった事、誠に申し訳なく思っています。

エクセル初心者なので、このやり方も知りませんでした。
使用出来る部分があったので、使用しています。有り難うございました。

回答No.1

tom04

こんばんは！
外していたらごめんなさい。
画像がはっきり確認できないのですが、1行目は日付が入っていて
1行目の最終列まで1列おきにB2セルをコピー＆ペーストすれば良いわけですかね？
そういうコトだとしての一例です。
VBAになってしまいます。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim j As Long
For j = 4 To Cells(1, Columns.Count).End(xlToLeft).Column Step 2
Range("B2").Copy Destination:=Cells(2, j)
Next j
End Sub 'この行まで

参考になりますかね？m（_ _）m

お礼

回答誠に有り難うございます。
出張に行っており返答遅れてすいません。
まさか、VBAまで組んでいただけるとは、思いませんでした。

私の説明不足と画像の悪さで意図を分かっていただけなく、貴重な時間を使用していただいた事、誠に申し訳なく思っています。
簡単に説明しますと、
B2のセルの入力値は、2マスおき（2ヵ月毎）にコピペ
B3のセルの入力値は、12マスおき（12ヵ月毎）にコピペ
B4のセルの入力値は、48マスおき（4年毎）にコピペしたかったのです。
車に例えると
オイル交換　　　　B2セルは3マスおき（3ヵ月に１回）コピペ
オイルフィルター　B3セルは6マスおき（6ヵ月に１回）コピペ
年次点検は　　　　B4セルは24マスおき（2年に１回） コピペ
オーバーホール　　B5セルは60マスおき（5年に１回） コピペ
とゆうぐあいにしたかったのです。
質問なのですが、選択したセルを今回組んでいただいたようなコピー＆ペーストを繰り替えすVBAを組む事は可能なのでしょうか？
例として、
カーソルでB2を選択マクロ名で（2ヵ月毎よう）を選択で2マスおきにコピペ
　　　　　B３を選択マクロ名で（12ヵ月毎よう）を選択で12マスおきにコピペ
みたいな事は可能なのでしょうか？
遅れながら、エクセルの勉強を始めましたが、仕事は待ってくれないので、現在は紙に印刷した物をめっくている状態です。量が多く見落としがかなりあり二度手間、三度手間となってしまっています。
周りもマクロを組める人はいなくどうしたものかと・・・

素人的な質問ですいません。