ต้องการเปลี่ยนวันที่ โดยใช้ code vba แต่ run แล้ว ติด debug ปรับโค้ดอย่างไรคะ

[March201711]

ต้องการเปลี่ยน hyperlink file ที่เก็บไว้ โดยดึงข้อมูลจาก folder วันที่ 20180423 เป็นวันที่ 20180424

Sub ChgFile()
'
' ChgFile Macro
'

'
Dim s As String, i As Integer, t As Integer
Select Case Weekday(Date, vbMonday)
Case 7
i = -2
Case 1
i = -3
Case Else
i = -1
End Select
s = Format(DateAdd("d", i, Date), "yyyymmdd")
t = Format(DateAdd("d", i, Date - 2), "yyyymmdd")
Range("B7:B17").Select
' Selection.Replace What:="20180423", Replacement:="20180424", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Selection.Replace What:="" & t, Replacement:="" & s, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

ActiveWindow.SmallScroll Down:=-36
Range("A1").Select

MsgBox " finished "
End Sub

[snasui]

การโพสต์ Code ให้ดูวิธีจากกฎการใช้บอร์ดข้อ 5 ด้านบนจะได้สะดวกในการอ่าน นอกจากนี้ให้แนบไฟล์ที่เป็นปัญหามาด้วยจะได้สะดวกในการตอบครับ

[March201711]

ตามเอดสารที่แนบค่ะ

[snasui]

ในไฟล์ไม่มี Code ช่วยแนบไฟล์ที่มี Code มาด้วยพร้อมทั้่งอธิบายว่าต้องการทำอะไร คำตอบที่ถูกต้องเป็นอย่างไร จะได้เข้าใจตรงกันครับ

[March201711]

แก้ไขให้ใหม่แล้วค่ะ

[snasui]

ปัญหานี้น่าจะเกี่ยวเนื่องกับปัญหาเดิมเรื่องของวันที่ที่เป็นวันทำการก่อนวันที่ปัจจุบัน

ต้องหาวันทำการก่อนวันที่ปัจจุบันให้ได้ก่อนแล้วค่อยมาแก้โจทย์นี้ครับ

[March201711]

ใช้ file นี้หาวันที่ก่อนวันปัจจุบัน -1 ได้ไหมคะ เพราะทุกวันนี้ต้องทำงาน วันปัจจุบัน-1 จึงต้องมานั่งปรับมือแก้ทุกวันค่ะอาจารย์

[snasui]

ใช้ได้ครับ ลองเขียนมาดูก่อนจะด้วยการ Loop หรือด้วยฟังก์ชั่น Match ก็สามารถทำได้ครับ

[March201711]

ตามนี้ได้ไหมคะ

[snasui]

ทำอะไรมาแล้ว ทำอย่างไรครับ

หากทำแล้วควรถามที่เป็นปัญหาครับ แจ้งว่าปัญหาคืออะไรมาด้วยครับ

[March201711]

ปัญหาคือหาค่าก่อนวันปัจจุบัน 2 วันตาม file base_wd ค่ะ แต่ปรับ code ไม่เป็นค่ะ

[snasui]

ปัญหานี้ซ้ำกับกระทู้ viewtopic.php?f=3&t=13327 ให้ตอบไปทีละกระทู้ครับ

[March201711]

ค่ะจะลองประยุกต์ใช้ดูนะคะ แล้วจะแจ้งไปค่ะอาจารย์ ขอบคุณมากค่ะ