7 つの異なるセル (曜日に対応) と揮発性の値 (現在の曜日) を使用して、適切なセルにテキスト値を入力します。
たとえば、曜日が 1 の場合、テキストはセル A1 に配置する必要があります。曜日が 2 の場合、テキストはセル A2 に配置する必要があります。
これどうやってするの?
7 つの異なるセル (曜日に対応) と揮発性の値 (現在の曜日) を使用して、適切なセルにテキスト値を入力します。
たとえば、曜日が 1 の場合、テキストはセル A1 に配置する必要があります。曜日が 2 の場合、テキストはセル A2 に配置する必要があります。
これどうやってするの?
ワークシート関数として、次を 7 つの隣接する列に配置できます。
=IF(WEEKDAY(NOW()) = COLUMN() - 0 ; "Text" ; "")
0 を最初の列 1 の番号に置き換えます (0 は列 A の正しい値です)。
VBA サブルーチンの行として:
[A1:G1].Cells(1, DatePart("w", Date)).Value = "Text"
範囲は角括弧で指定されます。
どちらの場合も、1 = 日曜日。別の開始日を使用するには、DatePart または Weekday のヘルプを参照してください。