: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

ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#1

Post by March201711 »

สอบถามค่ะ ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT ให้คะ

Code: Select all

Sub OpenBrowseBOT()
    Dim ie As Object
    Set ie = CreateObject("Internetexplorer.Application")
    ie.Visible = True

    MsgBox " finished "
End Sub
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#2

Post by March201711 »

เอกสารแนบค่ะ
Click ปุ่มแล้ว ไม่โชว์หน้า web Exchange BOT ค่ะ เป็นรูปว่างเปล่า

ยังไงรบกวนช่วย โหลด file : Test1.xlsx แล้ว save as เป็น Test1.xlsm ด้วยนะคะ ขอบคุณค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#3

Post by snasui »

:D ไฟล์ที่แนบมาไม่มี Macro ครับ

ไฟล์ที่จะมี Macro ได้จะต้องมีนามสกุลเป็น .xlsm เป็นอย่างน้อย หากเปลี่ยนนามสกุลเป็น .xlsx แล้ว Macro จะถูกลบทิ้ง หากจะให้มี Macro จะต้องเขียนหรือ Import เข้าไปใหม่ ไม่ใช่แค่การ Save As เป็น .xlsm ครับ
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#4

Post by March201711 »

ทำใหม่แล้วค่ะ ตามที่แนบไปค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#5

Post by snasui »

:D ตัวอย่าง Code ครับ

Code: Select all

Sub OpenBrowseBOT()
    Dim ie As Object
    Set ie = CreateObject("Internetexplorer.Application")
    ie.Visible = True
    ie.navigate "https://www.google.com"
    MsgBox " finished "
End Sub
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#6

Post by March201711 »

ไว้จะลองทำดูนะคะ ขอบคุณค่ะ
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#7

Post by March201711 »

Code: Select all

Sub OpenBrowseBOT()
    Dim ie As Object
    Set ie = CreateObject("Internetexplorer.Application")
    ie.Visible = True
    ie.navigate "https://www.bot.or.th/Thai/Statistics/FinancialMarkets/ExchangeRate/ExchangeRate_EN_PDF/ER_PDF_20042018.PDF"

    MsgBox " finished "
End Sub
ตัวที่เป็นอักษรสีแดง " ER_PDF_20042018.PDF" ถ้าจะให้มัน run ตามวันที่ปัจจุบัน - 1 แล้วติดวันหยุดอีก 2 วัน เป็น -2 ต้องปรับ code อย่างไรบ้างคะ
เช่น ถ้าพรุ่งนี้เป็นวันที่ 24 เราเรียกข้อมูลจาก exhange rate BOT จะขึ้นเป็นวันที่ 23 ต้องเป็น "ER_PD_23042018.PDF" ค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#8

Post by snasui »

:D หากถ้าปัจจุบันเป็นวันจันทร์, วันเสาร์ หรือ วันอาทิตย์ ต้องการให้ดึงข้อมูลวันไหนครับ :?:
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#9

Post by March201711 »

ให้ดึงข้อมูลวันศุกร์ค่ะ นับวันทำการในการทำงานค่ะ
เช่น พรุ่งนี้วันอังคารก็ให้ดึงข้อมูลวันจันทร์ ไปเรื่อยๆ พอถึงวันหยุดจะไม่นับค่ะ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#10

Post by snasui »

:D ตัวอย่าง Code ครับ

Code: Select all

Sub OpenBrowseBOT()
    Dim ie As Object, s As String, i 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), "ddmmyyyy")
    Set ie = CreateObject("Internetexplorer.Application")
    ie.Visible = True
    ie.navigate "https://www.bot.or.th/Thai/Statistics/FinancialMarkets/ExchangeRate/ExchangeRate_EN_PDF/ER_PDF_" & s & ".PDF"
    MsgBox " finished "
End Sub
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#11

Post by March201711 »

:D ได้แล้วค่ะ ขอบคุณอาจารย์มากค่ะ :D
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#12

Post by March201711 »

มีคำถามนิดนึงค่ะ Object String และInteger แตกต่างกันอย่างไรคะ ช่วยอธิบายเป็นความรู้ในการประยุกต์ใช้กับงานอื่นๆ หน่อยค่ะอาจารย์
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#13

Post by snasui »

March201711 wrote: Tue Apr 24, 2018 10:05 am มีคำถามนิดนึงค่ะ Object String และInteger แตกต่างกันอย่างไรคะ ช่วยอธิบายเป็นความรู้ในการประยุกต์ใช้กับงานอื่นๆ หน่อยค่ะอาจารย์
:D ทั้งหมดนั้นเป็น Data Type ศึกษาได้จาก Link นี้ครับ https://msdn.microsoft.com/en-us/vba/la ... pe-summary
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#14

Post by March201711 »

ขอบคุณค่ะอาจารย์ แต่ไม่เข้าใจตรงที่code นี้ค่ะ ความหมายคืออย่างไรค่ะ จะได้เอาไปประยุกต์ใช้กับ file อื่นค่ะ

Code: Select all

 Select Case Weekday(Date, vbMonday)
        Case 7
            i = -2
        Case 1
            i = -3
        Case Else
            i = -1 
End Select

แล้วถ้าติดวันหยุดพิเศษ อย่างวันสงกานต์ที่ตามมา ที่หยุดติดต่อกัน หยุดเพิ่มอีก 3 วัน ที่ผ่านมาหรือวันหยุดวันที่ 1 พค 61วันแรงงานที่จะถึงไม่กี่วัน ต้องปรับ code อย่างไรคะ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#15

Post by snasui »

:D Code นั้นเป็นการกำหนดตัวแปร i โดยตรวจสอบว่าวันที่ปัจจุบันเป็นวันใด

หากเป็นวันจันทร์ให้ตัวแปร i มีค่าเป็น -3
หากเป็นวันอาทิตย์ให้ตัวแปร i มีค่าเป็น -2
หากเป็นวันอื่น ๆ ให้ตัวแปร i มีค่าเป็น -1

เพื่อที่จะนำไปบวกกับวันที่ปัจจุบันให้กลายเป็นวันก่อนหน้าที่ต้องการ

กรณีมีวันหยุดอื่น ๆ จะต้องมีตารางวันหยุดเอาไว้ตรวจสอบแล้วค่อยเขียน Code เข้าไปตรวจสอบ การเขียน Code ต้องพยายามเขียนตามที่ตนต้องการมาเองก่อน ติดแล้วค่อยถามกันครับ
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#16

Post by March201711 »

ถ้าสร้าง file ใหม่เป็นวันหยุดตามแบงค์ชาติ สามารถทำได้ไหมคะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#17

Post by snasui »

:D สร้างไฟล์ใหม่แล้วก็ต้องเขียน Code ให้นำวันหยุดนั้นมาใช้ด้วย ติดตรงไหนนำมาถามกันต่อครับ
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#18

Post by March201711 »

ลองเขียนใหม่แต่ก็ยังติดอยู่นะค่ะ ต้องปรับสูตรอย่างไรบ้างคะ
You do not have the required permissions to view the files attached to this post.
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#19

Post by March201711 »

แนบไป2file แต่พอส่งกดโพสต์ไปแค่ file เดียว ขออนุญาติส่งเพิ่มอีก 1 file ค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ทำไม click code vba run แล้วไม่เปิดหน้า Browser BOT

#20

Post by snasui »

:D ไม่มี Code สำหรับการค้นหาวันที่เป็นแค่การเปลี่ยน Drive ไปยังตำแหน่งไฟล์ Holiday.xlsx เท่านั้น

สิ่งที่ต้องทำคือเปิดไฟล์ Holiday.xlsx แล้วนำวันที่ปัจจุบันไปตรวจสอบว่าตรงกับวันที่เท่าไร วันที่ก่อนหน้านั้นเป็นวันหยุดหรือไม่ หากเป็นวันหยุด วันที่ก่อนหน้านั้นเป็นวันหยุดหรือไม่ Loop ไปจนพบวันที่ที่ไม่ใช่วันหยุด นำวันที่นั้นมาใช้ต่อ เช่นนั้นเป็นต้น

หากยังเขียน Loop ไม่เป็นให้ศึกษามาจากแหล่งอื่นก่อนเช่น Youtube เป็นต้น ตัวอย่างการ Loop ในฟอรัมนี้ก็มีจำนวนมากครับ

ตัวอย่างการ Loop เบื้องต้นครับ

https://youtu.be/UvwxU8e0nkg
https://youtu.be/e7quHzzLO7g
https://youtu.be/JhR3KZ5IffA
Post Reply