No.2ベストアンサー
- 回答日時:
#1 さんと同じような考え方ですが、もう少し厳密に。
。。1)A5 に「=A1」と入力します。
2)B5 に
=IF(COLUMN(A5)<$B1-$A1+1,A5+1,"")
と入力します。
3)B5 を C5:IV5 に コピー します。
4)5:5 を選択し、[セルの書式設定] - [分類(C)] - [ユーザー定義] で、[種類(T):] を「d」にします。
以上で、5列目 に、「27、28、29、30、31、1、2、3」と表示されます。
5)A4 に「=A5」と入力します。
6)B4 に
=IF(B5<>"",IF(MONTH(A5)<>MONTH(B5),B5,""),"")
と入力します。
7)B4 を C4:IV4 に コピー します。
8)4:4 を選択し、[セルの書式設定] - [分類(C)] - [ユーザー定義] で、[種類(T):] を「m"月"」にします。
以上で、4列目に、「5月、、、、、6月」と表示されます。
これを マクロ でするとなると
>A1 2009/5/27 (開始)
>B1 2009/6/3 (終了)
の間の日数を
i = Range("B1").Value - Range("A1").Value + 1
などとして、変数 i にでも格納し、
For j = 1 To i
Cells(5, j).Value = Format(Range("A1").Value + j - 1, "d")
If j = 1 Or Cells(5, j).Value = 1 Then
Cells(4, j).Value = Format(Range("A1").Value + j - 1, "m月")
End If
Next j
などとするとできますでしょうか。。。
この回答への補足
>i = Range("B1").Value - Range("A1").Value + 1
>
>などとして、変数 i にでも格納し、
>
>For j = 1 To i
> Cells(5, j).Value = Format(Range("A1").Value + j - 1, "d")
> If j = 1 Or Cells(5, j).Value = 1 Then
> Cells(4, j).Value = Format(Range("A1").Value + j - 1, "m月")
> End If
>Next j
回答ありがとうございます。
これだと無限ループしてしまいます。
どうしてでしょう?
No.1
- 回答日時:
とりあえず考え方だけ
まず
日付を必要な分埋めちゃいます。
A4に 2009/5/27 を入力
B4=A4+1 を入力 コピーして、4の行にコピー
そうすると
A4~Z4 とかに日付がひとつづつ増えた状態になります。
この状態で今度は
A5=A4 を入力コピーして、5の行にコピー
これで
A5~Z5 とかに上と同じ表示になります。
行4の表示フォーマットを
ユーザー定義にして、 m"月"
行5の表示フォーマットを
ユーザー定義にして d
とします。
これをマクロにするだけです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて質問があります。 sheet1に数字を入力してsheet2を印刷したいのです 2 2023/06/07 14:49
- Excel(エクセル) Excel ある日の45日後の計算 及び 3か月後の計算 6 2022/04/05 13:44
- Excel(エクセル) エクセルで月末、月初の判定をしたい。 4 2022/05/18 23:22
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Visual Basic(VBA) 別シートに順番で貼り付け 2 2023/04/13 19:53
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Excel(エクセル) ExcelにてA1セルに1、B1セルに月と入力した際に、A列に日付、B列に曜日が入力される様になる為 1 2023/03/02 06:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのセル内に全角数字を...
-
Excelで全角の数字が半角になっ...
-
エクセルのセルや文字を点滅表...
-
エクセルで文字入力してEnterキ...
-
エクセルで文字列としての指数...
-
エクセルの「○分○秒」の表示形...
-
入力規則でスペース入力を禁止...
-
Excelで時間順で並べ替えしたい
-
エクセルで自動的にイコール(...
-
EXCELで勝手に予測入力される
-
WORD2010 差し込み印刷の時間...
-
EXCELで特定の文字列を入力→エ...
-
エクセルで【0.5日と1日】を表...
-
コクヨのリーフ仕入帳等にパソ...
-
エクセルで月日だけ入力すると...
-
エクセルの入力規則で半角英数...
-
エクセルで分や秒の合計や平均...
-
エクセルで時間入力10:30の:...
-
平方センチメートルの入力の仕方
-
Accessのフォーム上のテキスト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのセル内に全角数字を...
-
Excelで全角の数字が半角になっ...
-
エクセルで文字入力してEnterキ...
-
Excelで時間順で並べ替えしたい
-
エクセルのセルや文字を点滅表...
-
EXCELで勝手に予測入力される
-
WORD2010 差し込み印刷の時間...
-
コクヨのリーフ仕入帳等にパソ...
-
エクセルの「○分○秒」の表示形...
-
EXCELで特定の文字列を入力→エ...
-
エクセルで文字列としての指数...
-
エクセルで自動的にイコール(...
-
エクセルで時間入力10:30の:...
-
セルに数字を入れると×1000にな...
-
Excelで【1-1】【1-2】【1-3】...
-
関数CONCATENATEの表示で
-
エクセルで分や秒の合計や平均...
-
平方センチメートルの入力の仕方
-
エクセル関数で在庫数の増減を...
-
入力規則でスペース入力を禁止...
おすすめ情報