: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

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

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

#13

by kook001 » Mon Dec 28, 2015 1:11 pm

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

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

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

ขอบพระคุณครับ

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

#12

by kook001 » Sat Dec 26, 2015 8:25 am

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

ส่วน vba นี้ จะรองทำดูครับ ขอมารายงานผลวัน จันทร์ นะครับ....
*** คราวต่อไปจะรายงานผมทุกครั้งครับ...ขอโทษอีกรอบครับ

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

#11

by snasui » Fri Dec 25, 2015 11:24 pm

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

อีกประการ เมื่อตั้งกระทู้ถามแล้ว ควรมารายงานผลตามกฎข้อ 6 ด้านบนเสมอ ผมพบว่ามีหลายกระทู้ที่คุณ kook001 ไม่ได้กลับไปรายงานผลครับ

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

#10

by kook001 » Fri Dec 25, 2015 11:21 pm

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

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

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

รบกวนทีครับ...ขอบคุณครับผม

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

#9

by snasui » Fri Dec 25, 2015 11:06 pm

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

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

เมื่อศึกษามาแล้ว ลองเขียนแล้ว ติดปัญหาจึงค่อยนำ Code นั้นมาถามกันครับ

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

#8

by kook001 » Fri Dec 25, 2015 10:53 pm

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

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

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

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

รบกวนทีครับ...ขอบคุณครับ

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

#7

by snasui » Fri Dec 25, 2015 10:42 pm

kook001 wrote:Call timeDelay(100) คืออะไรครับ
:D เป็นการเรียก Procedure ที่ชื่อ timeDelay โดยส่งค่าตัวแปรคือ 100 ไปให้ Procedure นำไปจัดการต่อ
kook001 wrote:Application.Wait Now + TimeValue("00:00:02")
เป็นการสั่งให้โปรแกรมรอ 2 วินาทีก่อนที่จะดำเนินการต่อครับ

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

#6

by kook001 » Fri Dec 25, 2015 10:21 pm

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

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

ต่างกันอย่างไรครับ
รบกวนทีครับ...ขอบคุณครับ

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

#5

by snasui » Fri Dec 25, 2015 6:19 pm

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 ครับ

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

#4

by bank9597 » Fri Dec 25, 2015 10:30 am

เป็นตัว สั่งให้กรอกข้อมูล ลงฟอร์มในเวปครับ
:D ผมลองทดสอบโคีดดูแล้ว เป็นการดึงเอา URL มาลงในชีทครับ ก็เลยงงเหมือนกัน

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

#3

by kook001 » Thu Dec 24, 2015 10:37 pm

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

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

รบกวนทีครับ มี 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

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

#2

by snasui » Thu Dec 24, 2015 10:20 pm

:D Code ที่ว่านี้ใช้ทำอะไรและเอามาจากไหน แนบไฟล์นั้นมาด้วยจะได้สะดวกในการตอบครับ

ขอสอบถาม code vba

#1

by kook001 » Thu Dec 24, 2015 10:11 pm

รบกวนสอบถามความหมาย 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