マクロ初心者です、office2000パーソナルでWindows Xpです。
エクセルでカレンダーを作ったのですが、1日の前に前月の日付を入れてフォントサイズを36にしたいのですが日曜日の28しかなりません。
RangeとCellsの使い方がまだよく理解できていません、もっと良い方法などアドバイスよろしくお願いします。
Sheets("1月").Select
Range("A3").Select
RE = 5 '一日の曜日位置(質問用)
NIT = 1 '列セット
NIS = RE - 1 '前月の記入日数
GYO = 3 '行セット
RET = RE - 1 'FOR用
HI = (31 - RE) + 2 '前月スタート日
For I = 1 To RET
Cells(GYO, NIT).Value = HI
Selection.Font.Size = 36
NIT = NIT + 1
HI = HI + 1
Next I
No.1ベストアンサー
- 回答日時:
> Sheets("1月").Select
> Range("A3").Select
> RE = 5 '一日の曜日位置(質問用)
> NIT = 1 '列セット
> NIS = RE - 1 '前月の記入日数
> GYO = 3 '行セット
> RET = RE - 1 'FOR用
> HI = (31 - RE) + 2 '前月スタート日
> For I = 1 To RET
> Cells(GYO, NIT).Value = HI
> Selection.Font.Size = 36
> NIT = NIT + 1
> HI = HI + 1
> Next I
Range("A3").Selectのままになっています。
Cells(GYO, NIT).Value = HI
Selection.Font.Size = 36
を
Cells(GYO, NIT).Value = HI
Cells(GYO, NIT).Font.Size = 36
とすれば希望が叶います。
更に、Withステートメントで
With Cells(GYO, NIT)
.Value = HI
.Font.Size = 36
End With
とスッキリ纏める事ができます。
Range("A3").Select
の行は不要です。削除しても大丈夫です。
変数NITは、iで代用できます。
For i = 1 To ret
With Cells(GYO, i)
.Value = HI
.Font.Size = 36
End With
HI = HI + 1
Next i
素早い回答ありがとうございます。うまくいきました。
それと今年の日付は各セルに書式設定で48としていたのですが、この方法で指定する事にします。本当に助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 正規表現を用いての並び替え 7 2022/04/04 09:27
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について(日付で...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
【Excel-マクロ】グループとア...
-
Excelのマクロで不規則に連番を...
-
エクセルで行挿入した際、自動...
-
エクセル マクロ 行や列を削除...
-
シート保護の状態で行の追加を...
-
エクセル マクロ 貼り付け先が...
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
エクセルで空白以外のセルの値...
-
エクセルで反転コピー
-
エクセルVBA 複数列をコピーす...
-
令和三年六月二七日
-
日報に自動で矢印線をひきたい
-
Excelの非表示列も含めてコピー
-
エクセル VBA 指定の範囲内をコ...
-
マクロ 計算式
-
【Excelマクロ】フォルダ名の一...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
【マクロ】セルに関数を入れる...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルの関数について(日付で...
-
エクセルで表示された値だけ行...
-
エクセルで空白以外のセルの値...
-
エクセルで行挿入した際、自動...
-
エクセル VBA 指定の範囲内をコ...
-
エクセル マクロ 貼り付け先が...
-
特定の桁数を抽出
-
Excel VBAで日にちを入力して線...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
最終行から上10行をコピーする...
-
エクセルで反転コピー
-
エクセルのマクロ、AVERAGEIFを...
-
【マクロ】IF複数条件の上限に...
-
同一列内の複数条件 カウント
おすすめ情報