: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

[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: [VBA] สอบถามเกี่ยวกับการสร้างโค้ดเพิ่มเติมครับ

Re: [VBA] สอบถามเกี่ยวกับการสร้างโค้ดเพิ่มเติมครับ

#2

by snasui » Tue Aug 01, 2017 7:18 pm

:D ได้ลองเปลี่ยนจาก Event Update เป็น Event Change แล้วยังและได้ผลเป็นเช่นไรครับ

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

[VBA] สอบถามเกี่ยวกับการสร้างโค้ดเพิ่มเติมครับ

#1

by ExvbDG » Tue Aug 01, 2017 3:06 am

1. ต้องการให้เมื่อ กรอกข้อมูลใน combobox3 แล้ว กด Enter หรือเลือกในลิสแล้ว
ทำการดึงข้อมูลมาเลยต้องทำอย่างไรครับ ตอนนี้ต้องไปเลือกกดที่ช่องอื่นถึงจะการดึงข้อมูลมาให้

2. ต้องการสร้าง CommandButton4 Save เพื่อ บันทึกข้อมูลที่แก้ไขเพิ่มเติมลงไปพร้อมกัน ต้องทำอย่างไรครับ
เนื่องจาก TextBox มีจำนวนมากยังไม่เข้าใจโครงสร้างครับ

3. หากต้องการสร้าง CommandButton export ข้อมูลที่บันทึกไว้ออกไป ไฟล์ Word ที่เตรียมช่อง Textbox ไว้
จะต้องเขียนประมาณไหนครับ รบกวนขอตัวอย่างได้ไหมครับ
แล้ว TextBox ที่ว่านี่ ถ้าหาก ข้อความมันหลายบรรทัด(จากการรวมหลาย Cell ที่มีข้อความยาว) เกินกว่าที่คลุมไว้ มันจะเลื่อนบรรทัดลงให้ไหมครับ หรือข้อความมันจะแหว่งๆไปครับ

ขอบคุณล่วงหน้าครับ

Code: Select all

Private Sub ComboBox3_AfterUpdate() '***
On Error Resume Next
Dim idall As Range
Dim lMatch As Long
Dim lMatch1 As Long
Dim lMatch2 As Long
Dim lCountif As Long
With Sheets("A")
Set idall = .Range("D:D")
idall.NumberFormat = "@"
lCountif = Application.CountIf(idall, ComboBox3.Text)
If ComboBox3.Text = "" Then
End If
If lCountif > 0 Then
lMatch1 = Application.Match(ComboBox3.Text, idall, 0)
lMatch2 = Application.Match(CDbl(ComboBox3.Text), idall, 0)
lMatch = lMatch1 + lMatch2
TextBox20.Text = .Range("D" & lMatch).Offset(0, -2)
TextBox21.Text = .Range("B" & lMatch).Offset(0, 6)
TextBox22.Text = .Range("D" & lMatch).Offset(0, 6)
TextBox23.Text = .Range("D" & lMatch).Offset(0, 7)
TextBox24.Text = .Range("D" & lMatch).Offset(0, 8)
TextBox26.Text = .Range("D" & lMatch).Offset(0, 13)
TextBox27.Text = .Range("D" & lMatch).Offset(0, 14)
TextBox28.Text = .Range("D" & lMatch).Offset(0, 15)
'TextBox29.Text = .Range("D" & lMatch).Offset(0, 8) 'Hide
TextBox25.Text = .Range("D" & lMatch).Offset(0, 16)
TextBox30.Text = .Range("D" & lMatch).Offset(0, 17)
ComboBox2.Text = .Range("D" & lMatch).Offset(0, 18)
ComboBox1.Text = .Range("D" & lMatch).Offset(0, 10)
TextBox1.Text = Sheets("B").Range("B" & lMatch).Offset(0, 2).Value
TextBox2.Text = Sheets("B").Range("B" & lMatch).Offset(0, 3).Value
TextBox3.Text = Sheets("B").Range("B" & lMatch).Offset(0, 4).Value
TextBox5.Text = Sheets("B").Range("B" & lMatch).Offset(0, 5).Value
TextBox4.Text = Sheets("B").Range("B" & lMatch).Offset(0, 6).Value
TextBox6.Text = Sheets("B").Range("B" & lMatch).Offset(0, 7).Value
TextBox7.Text = Sheets("B").Range("B" & lMatch).Offset(0, 8).Value
TextBox8.Text = Sheets("B").Range("B" & lMatch).Offset(0, 9).Value
TextBox9.Text = Sheets("B").Range("B" & lMatch).Offset(0, 10).Value
TextBox10.Text = Sheets("B").Range("B" & lMatch).Offset(0, 11).Value
TextBox11.Text = Sheets("B").Range("B" & lMatch).Offset(0, 12).Value
TextBox14.Text = Sheets("C").Range("B" & lMatch).Offset(0, 2).Value
TextBox13.Text = Sheets("C").Range("B" & lMatch).Offset(0, 3).Value
TextBox12.Text = Sheets("C").Range("B" & lMatch).Offset(0, 4).Value
TextBox17.Text = Sheets("C").Range("B" & lMatch).Offset(0, 5).Value
TextBox16.Text = Sheets("C").Range("B" & lMatch).Offset(0, 6).Value
TextBox15.Text = Sheets("C").Range("B" & lMatch).Offset(0, 7).Value

ComboBox3.SetFocus
'CommandButton4.TakeFocusOnClick 'error

End If
End With
End Sub

Top