Excel VBA質問箱 IV

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

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


15836 / 76733 ←次へ | 前へ→

【66371】Re:WEEKDAYの質問
回答  Hirofumi  - 10/8/28(土) 10:28 -

引用なし
パスワード
   こんなでは?

Option Explicit

Public Sub Test()
 
'  ●曜日表示処理
 
'  Dim q As Long
  Dim r As Long
'  Dim s As Long
  
'  Dim wkq As Date
  Dim wkq As Long
'  Dim wkqq As String
  
'  Dim wkq1 As String
'  Dim wkq2 As String
'  Dim wkq3 As String
  
  Dim wk2 As Variant
  Dim wksMark As Worksheet
  
  '月を年を入れて、"2010/8"の形で取得
  wk2 = Application.InputBox(Prompt:="月を年を入れて、2010/8の形で入力", Type:=2)
  If VarType(wk2) = vbBoolean Then
    MsgBox "マクロがキャンセルされました", vbInformation
    Exit Sub
  End If
  If Not IsDate(wk2) Then
    MsgBox "入力値が指定形式として認めれません", vbInformation
    Exit Sub
  End If
  '入力をシリアル値に変換
  wk2 = DateValue(wk2)
  '入力月の1日とする
  wk2 = DateSerial(Year(wk2), Month(wk2), 1)
  '入力月の前月末日を取得
  wkq = wk2 - 1
  
'  s = 1     '日の変数用
'  r = 4     '表示する場所用
'  wkq1 = wk2   '月を取得
  
'  Sheets("シート").Select
'  Range("a2").Select
  Set wksMark = Worksheets("シート")
  
'  Do Until s >= 32
'
'    wkq2 = s
'    wkq3 = "日"
'
'    wkq = wkq1 + wkq2 + wkq3   '月日を取得
'
'    Sheets("シート").Cells(2, r).FormulaR1C1 = "=text(weekday(wkq),""(aaa)"") "         '式
'
'    Sheets("シート").Cells(2, r).FormulaR1C1 = wkqq
'
'    r = r + 1
'    s = s + 1
'
'  Loop

  '入力月の1日から末日まで繰り返し
  For r = 1 To Day(DateSerial(Year(wk2), Month(wk2) + 1, 0))
    '曜日を代入
    wksMark.Cells(2, r).Value = Format(wkq + r, "(aaa)")
'    wksMark.Cells(3, r).Value = r '?????
  Next r
  
  Set wksMark = Nothing

End Sub

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 お礼

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