Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15848 / 76738 ←次へ | 前へ→

【66364】WEEKDAYの質問
質問  初心者Q  - 10/8/27(金) 17:24 -

引用なし
パスワード
   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

0 hits

【66364】WEEKDAYの質問 初心者Q 10/8/27(金) 17:24 質問
【66370】Re:WEEKDAYの質問 UO3 10/8/28(土) 10:05 発言
【66376】Re:WEEKDAYの質問 初心者Q 10/8/30(月) 9:21 質問
【66371】Re:WEEKDAYの質問 Hirofumi 10/8/28(土) 10:28 回答
【66377】Re:WEEKDAYの質問 初心者Q 10/8/30(月) 9:22 お礼

15848 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free