: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

ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ 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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
kook001
Member
Member
Posts: 150
Joined: Mon Apr 22, 2013 9:26 pm
Excel Ver: 2021,google sheet

ขอสอบถาม code vba

#1

Post by kook001 »

รบกวนสอบถามความหมาย vba 2 ส่วนครับ
1. dpFrameset.getElementById("SalAmt").FireEvent ("onblur") ส่วนนี้ .FireEvent ("onblur") คืออะไรครับ

2. objCollection(90).Value = commanduse
objCollection(121).Value = commanduse
objCollection(121).FireEvent ("onchange") ส่วนนี้ objCollection(121) คืออะไรครับ

รบกวนทีครับ...ขอบคุณครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอสอบถาม code vba

#2

Post by snasui »

:D Code ที่ว่านี้ใช้ทำอะไรและเอามาจากไหน แนบไฟล์นั้นมาด้วยจะได้สะดวกในการตอบครับ
Top
kook001
Member
Member
Posts: 150
Joined: Mon Apr 22, 2013 9:26 pm
Excel Ver: 2021,google sheet

Re: ขอสอบถาม code vba

#3

Post by kook001 »

แนบไฟล์มาเเล้วครับ

เป็นตัว สั่งให้กรอกข้อมูล ลงฟอร์มในเวปครับ

รบกวนทีครับ มี 2 ส่วน ครับ ไม่เข้าใจครับ
ในข้อ 2 ที่ถามไป ครับ
dpFrameset.getElementById("WkPosIdSrh").Focus

Set objCollection = dpFrameset.getElementsByTagName("input")
objCollection(90).Value = commanduse

objCollection(121).Value = commanduse
objCollection(121).FireEvent ("onchange")
ส่วนเต็มๆ ครับ ไม่เข้าใจความหมายครับ

รบกวนทีครับ...ขอบคุณครับ
Attachments
1.rar
(212.3 KiB) Downloaded 20 times
Top
User avatar
bank9597
Guru
Guru
Posts: 3868
Joined: Wed Aug 17, 2011 11:49 am

Re: ขอสอบถาม code vba

#4

Post by bank9597 »

เป็นตัว สั่งให้กรอกข้อมูล ลงฟอร์มในเวปครับ
:D ผมลองทดสอบโคีดดูแล้ว เป็นการดึงเอา URL มาลงในชีทครับ ก็เลยงงเหมือนกัน
Forum Rules
  1. อย่าใช้ภาษาแชทในการตอบ-ถาม
  2. ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
  3. ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
  4. ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
  5. หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
  6. แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอสอบถาม code vba

#5

Post by snasui »

kook001 wrote:1. dpFrameset.getElementById("SalAmt").FireEvent ("onblur") ส่วนนี้ .FireEvent ("onblur") คืออะไรครับ
:D หมายถึงให้ Event ทำงานเหมือน Loss Focus หรือ Cursor ไปอยู่ในตำแหน่งอื่นหลังจาก Control ที่มี ID ว่า SalAmt ครับ
kook001 wrote:2. objCollection(90).Value = commanduse
objCollection(121).Value = commanduse
objCollection(121).FireEvent ("onchange") ส่วนนี้ objCollection(121) คืออะไรครับ
เป็นการกำหนดค่าให้กับสมาชิกของ Collection ในลำดับที่ 121 ครับ
Top
kook001
Member
Member
Posts: 150
Joined: Mon Apr 22, 2013 9:26 pm
Excel Ver: 2021,google sheet

Re: ขอสอบถาม code vba

#6

Post by kook001 »

ขอบคุณทุกท่านครับ...

รบกวนถามอีกเรื่องครับ...
Call timeDelay(100) คืออะไรครับ
เเละ Application.Wait Now + TimeValue("00:00:02") คืออะไรครับ

ต่างกันอย่างไรครับ
รบกวนทีครับ...ขอบคุณครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอสอบถาม code vba

#7

Post by snasui »

kook001 wrote:Call timeDelay(100) คืออะไรครับ
:D เป็นการเรียก Procedure ที่ชื่อ timeDelay โดยส่งค่าตัวแปรคือ 100 ไปให้ Procedure นำไปจัดการต่อ
kook001 wrote:Application.Wait Now + TimeValue("00:00:02")
เป็นการสั่งให้โปรแกรมรอ 2 วินาทีก่อนที่จะดำเนินการต่อครับ
Top
kook001
Member
Member
Posts: 150
Joined: Mon Apr 22, 2013 9:26 pm
Excel Ver: 2021,google sheet

Re: ขอสอบถาม code vba

#8

Post by kook001 »

ขอบคุณครับ...

ที่ผมถาม ตัว Call timeDelay(100) นั้น

จะไปเรียกใช้ในส่วนนี้ใช้ไหมครับ
Sub timeDelay(nooftime)
For i = 0 To nooftime
DoEvents
Next i
End Sub

ในส่วนนี้ คืออะไรครับ

รบกวนทีครับ...ขอบคุณครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอสอบถาม code vba

#9

Post by snasui »

:D ส่วนนั้นเป็น Sub Procedure ที่ผมกล่าวถึงในคำตอบก่อน

ส่วน Code นั้นหมายถึงอะไร ควรจะศึกษาให้ทราบจากหนังสือหรือแหล่งอื่นมาก่อน คำถามตามกระทู้นี้เป็นหลักการเบื้องต้นของโปรแกรม ควรจะศึกษาจากตำรามาตามลำดับ ไม่เหมาะที่จะใช้ลักษณะการถามตอบไปเรือย ๆ เช่นนี้ครับ

เมื่อศึกษามาแล้ว ลองเขียนแล้ว ติดปัญหาจึงค่อยนำ Code นั้นมาถามกันครับ
Top
kook001
Member
Member
Posts: 150
Joined: Mon Apr 22, 2013 9:26 pm
Excel Ver: 2021,google sheet

Re: ขอสอบถาม code vba

#10

Post by kook001 »

ขอบคุณครับพี่ snasui มากครับ คือได้ vba มาครับรองมาปรับใช้กลับระะบบงาน ครับ ตอนนี้แก้ได้ 90 % เเล้วครับ

รบกวนถามอีกส่วนครับ ว่าจะรองแก้ดูครับ คือ
ตามที่เคยเรียนถาม
Set objCollection = dpFrameset.getElementsByTagName("input")
objCollection(90).Value = commanduse
ตามที่ ได้คำตอบ จากพี่ snasui มาครับ เเละไปศึกษาต่อ คือเป็นการนำค่า commanduse ไปใส่ในช่อง input ที่ 90

ถ้าผมเเก้ เป็น dpFrameset.getElementById("EffDate").Value = commanduse คือนำค่า commanduse มาใส่ที่ช่อง input
ตรงๆ จะได้ไหมครับ หรือ แบบไหนดีกว่ากันครับ

รบกวนทีครับ...ขอบคุณครับผม
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอสอบถาม code vba

#11

Post by snasui »

:D ลองทำได้เลย ติดแล้วค่อยถาม ผมเน้นแก้ที่เป็นปัญหา เมื่อติดปัญหาค่อยยก Code นั้นมาถามกันครับ

อีกประการ เมื่อตั้งกระทู้ถามแล้ว ควรมารายงานผลตามกฎข้อ 6 ด้านบนเสมอ ผมพบว่ามีหลายกระทู้ที่คุณ kook001 ไม่ได้กลับไปรายงานผลครับ
Top
kook001
Member
Member
Posts: 150
Joined: Mon Apr 22, 2013 9:26 pm
Excel Ver: 2021,google sheet

Re: ขอสอบถาม code vba

#12

Post by kook001 »

สวัสดีครับ...
เเละขอโทษครับที่ไม่ได้ตอบผลครับ พี่ snasui
กระทู้เก่าที่ผมสอบถาม ได้หมดครับ ตรงกับความต้องการครับ ขอบคุณพี่ snasui เเละพี่ๆ ทุกท่านมากครับ

ส่วน vba นี้ จะรองทำดูครับ ขอมารายงานผลวัน จันทร์ นะครับ....
*** คราวต่อไปจะรายงานผมทุกครั้งครับ...ขอโทษอีกรอบครับ
Top
kook001
Member
Member
Posts: 150
Joined: Mon Apr 22, 2013 9:26 pm
Excel Ver: 2021,google sheet

Re: ขอสอบถาม code vba

#13

Post by kook001 »

ขอบคุณ พี่ๆๆ ทุกท่าน
ได้เเล้วครับ...

เเละ
Set objCollection = dpFrameset.getElementsByTagName("input")
objCollection(90).Value = commanduse

ใช้ เป็น dpFrameset.getElementById("EffDate").Value = commanduse แทนได้ครับ

ขอบพระคุณครับ
Top
Post Reply

Return to “Excel Macro & VBA”