0

7 つの異なるセル (曜日に対応) と揮発性の値 (現在の曜日) を使用して、適切なセルにテキスト値を入力します。

たとえば、曜日が 1 の場合、テキストはセル A1 に配置する必要があります。曜日が 2 の場合、テキストはセル A2 に配置する必要があります。

これどうやってするの?

4

1 に答える 1

1

ワークシート関数として、次を 7 つの隣接する列に配置できます。

=IF(WEEKDAY(NOW()) = COLUMN() - 0 ; "Text" ; "")

0 を最初の列 1 の番号に置き換えます (0 は列 A の正しい値です)。

VBA サブルーチンの行として:

[A1:G1].Cells(1, DatePart("w", Date)).Value = "Text"

範囲は角括弧で指定されます。

どちらの場合も、1 = 日曜日。別の開始日を使用するには、DatePart または Weekday のヘルプを参照してください。

于 2013-03-09T16:42:15.797 に答える