:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

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

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

#13

by March201711 » Thu Apr 26, 2018 9:37 pm

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

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

#12

by snasui » Thu Apr 26, 2018 9:30 pm

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

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

#11

by March201711 » Thu Apr 26, 2018 9:18 pm

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

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

#10

by snasui » Thu Apr 26, 2018 9:03 pm

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

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

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

#9

by March201711 » Thu Apr 26, 2018 8:56 pm

ตามนี้ได้ไหมคะ
Attachments
sheet1_1.xlsm
(21.15 KiB) Downloaded 4 times

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

#8

by snasui » Thu Apr 26, 2018 8:40 pm

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

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

#7

by March201711 » Thu Apr 26, 2018 8:23 pm

ใช้ file นี้หาวันที่ก่อนวันปัจจุบัน -1 ได้ไหมคะ เพราะทุกวันนี้ต้องทำงาน วันปัจจุบัน-1 จึงต้องมานั่งปรับมือแก้ทุกวันค่ะอาจารย์
Attachments
Base_WD.xlsx
(24.06 KiB) Downloaded 5 times

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

#6

by snasui » Thu Apr 26, 2018 8:19 pm

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

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

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

#5

by March201711 » Thu Apr 26, 2018 8:08 pm

แก้ไขให้ใหม่แล้วค่ะ
Attachments
sheet1.xlsm
(65.15 KiB) Downloaded 6 times

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

#4

by snasui » Thu Apr 26, 2018 7:23 pm

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

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

#3

by March201711 » Thu Apr 26, 2018 9:06 am

ตามเอดสารที่แนบค่ะ
Attachments
sheet1.xlsm
(59.3 KiB) Downloaded 8 times

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

#2

by snasui » Wed Apr 25, 2018 7:44 pm

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

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

#1

by March201711 » Wed Apr 25, 2018 12:22 pm

ต้องการเปลี่ยน 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

Top