現在の日付から次の木曜日の日付を取得するPowerPointマクロ

Question

私は現在の日付から次の木曜日の日付を取得し、最初のスライドに書き込もうとしています。今のところ私は現在の日付を持っていますが、私は次の木曜日の日付を取得する方法を見つけませんでした。例えば、私は火曜日23.08.2016に私のプレゼンテーションを開き、私のマクロが実行されるとき、私は最初のスライドで25.08.2016（木曜日に対応する）を取得したいと思います。

これまでのところ私が持っている：

Set objPPTX = CreateObject("PowerPoint.Application") 
objPPTX.Visible = True 
'Adding Date on First Slide 
Set PPApp = GetObject(, "Powerpoint.Application") 
    Set PPPres = PPApp.ActivePresentation 
    PPApp.ActiveWindow.ViewType = ppViewSlide 
    PPApp.Visible = True 
    Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex) 

' Set PPshape = PPSlide.Shapes.AddShape(Type:=msoShapeRectangle, Left:=220, Top:=150, Width:=270, Height:=75) 
Set PPshape1 = PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=20, Top:=150, Width:=680, Height:=70) 
With PPshape1 
.TextFrame.TextRange.Text = "PT PM Weekly" 
.TextFrame.TextRange.Font.Name = "Verdana" 
.TextFrame.TextRange.Font.Color = vbBlack 
.TextFrame.TextRange.Font.Size = 48 
End With 

Set PPshape = PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=350, Top:=150, Width:=680, Height:=70) 
With PPshape 


Todate = DateValue(Now) 
oldWeekDay = Weekday(Now) 
Select Case Thursday 

Case oldWeekDay = 1 
.TextFrame.TextRange.Text = Format(Now + 4, " dd.mm.yyyy") 
Case oldWeekDay = 2 
.TextFrame.TextRange.Text = Format(Now + 3, " dd.mm.yyyy") 
Case oldWeekDay = 3 
.TextFrame.TextRange.Text = Format(Now + 2, " dd.mm.yyyy") 
Case oldWeekDay = 4 
.TextFrame.TextRange.Text = Format(Now + 1, " dd.mm.yyyy") 
Case oldWeekDay = 5 
.TextFrame.TextRange.Text = Format(Now, " dd.mm.yyyy") 
Case oldWeekDay = 6 
.TextFrame.TextRange.Text = Format(Now - 1, " dd.mm.yyyy") 
Case oldWeekDay = 7 
.TextFrame.TextRange.Text = Format(Now - 2, " dd.mm.yyyy") 

End Select 

.TextFrame.TextRange.Font.Name = "Verdana" 
.TextFrame.TextRange.Font.Color = vbBlack 
.TextFrame.TextRange.Font.Size = 48 
End With 

が、私は問題はケース構造になっていることだと思うので、最後に私は、現在の日付から4を取得します。このような

Answer 1

何かが、私はあなたがSelect Case文の構文を誤解していると思う平日のヘルプ

Function NEXT_THURSDAY(dtFrom As Date) As Date 

Dim intCurrentDay As Integer 

intCurrentDay = Weekday(dtFrom, vbThursday) 

NEXT_THURSDAY = DateAdd("d", 8 - intCurrentDay, dtFrom) 

End Function 

Answer 2

を読んで、役立ちます。

あなたは

Select Case Thursday 

で始まるが、VBAは、この新しい変数は0

あなたの最初のケースと同じであると仮定しますので、あなたは、Thursdayを定義していないが、その後

Case oldWeekDay = 1 

ですCaseの場合は、の値がでなければなりません。 VBAは、比較oldWeekDay = 1を評価しているし、それが偽の場合oldWeekDayは、私はあなたが書きたかったと思う何1.

に実際に等しい場合を除き、0の値にそれを変換するので、最初のケースは常に、実行されます

Select Case oldWeekDay 
    Case 1 
    .TextFrame.TextRange.Text = Format(Now + 4, " dd.mm.yyyy") 

など。

Option Explicitという文をVBAモジュールの先頭に追加した場合は、Select Case行にはVariable not definedというエラーが表示されます。このような理由で常にOption Explicitを使用することを強くお勧めします。