|
WEEKDAY関数で質問があるので教えて下さい。
EXCELのシートにSHEET名シートで1から31の日別の
枠を作成して準備しています。
また、画面から月条件を取得しています。
以下の方法で、月+日から曜日を取得したいのですが
うまく表示されません。
表示する曜日は、(月)とかにて取得したい
どなたかアドバイスお願いします。
Dim q As Long
Dim r As Long
Dim s As Long
Dim wkq As Date
Dim wkqq As String
Dim wkq1 As String
Dim wkq2 As String
Dim wkq3 As String
'●曜日表示処理
s = 1 '日の変数用
r = 4 '表示する場所用
wkq1 = wk2 '月を取得
Sheets("シート").Select
Range("a2").Select
Do Until s >= 32
wkq2 = s
wkq3 = "日"
wkq = wkq1 + wkq2 + wkq3 '月日を取得
Sheets("シート").Select
Cells(2, r).Select
ActiveCell.FormulaR1C1 = _
"=text(weekday(wkq),""(aaa)"") " '式
Sheets("シート").Select
Cells(2, r).Select
ActiveCell.FormulaR1C1 = wkqq
r = r + 1
s = s + 1
Loop
|
|