: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 หน่อยนะค้ะ

#25

by snasui » Thu Jan 08, 2015 10:39 pm

:D ลองค้นหาในเว็บนี้หรือในที่อื่น ๆ และเขียนมาเอง ติดตรงไหนค่อยถามกันต่อครับ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#24

by nichakant » Thu Jan 08, 2015 10:29 pm

รันได้แล้วค่ะอาจารย์
อาจารย์ค่ะช่วยแนะนะโค้ดให้หมายเลขรันต่อจากของเดิมอัตโนมัติ(ในหน้าชีท) เมื่อกดเพิ่มข้อมูลเองโดยอัตโนมัติหน่อยค่ะ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#23

by nichakant » Wed Jan 07, 2015 10:53 pm

ขอบคุณน้ะค่ะอาจารย์ :)

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#22

by snasui » Wed Jan 07, 2015 6:00 am

:thup: หากค้นหาได้ถูกต้องก็สามารถใช้ได้ครับ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#21

by nichakant » Tue Jan 06, 2015 9:54 pm

ใช้โค้ดเดิม แต่เปลี่ยนจาก cells.value = input1.value เป็น cells.value like "*" & input1.Value & "*"

ใช้แบบนี้รึป่าวค้ะ (แต่เวลากดค้นหา มันก็สามารถหาได้)

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#20

by snasui » Tue Jan 06, 2015 8:54 pm

:D Code ที่แนบมาไม่พบว่าได้ปรับมาเองแล้วยังเป็น Code ที่ผมเขียนให้ตามโพสต์ด้านบน

ให้ลองปรับมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#19

by nichakant » Mon Jan 05, 2015 8:18 pm

อาจารย์ค้ะ ต้องการให้ค้นหาคีย์หลักได้ เช่น ในฐานข้อมูลมีชื่อหนังสือว่า ระบบปฏิบัติการ
> ในช่อง B1 กรอกค้นหา เราสามารถกรอกคีย์เวิร์ดได้ กรณีที่จำชื่อหนังสือไม่ได้ผู้ใช้อาจจะกรอกว่า ระบบ
> เมื่อกดค้นหา โค้ดก็จะทำการตรวจสอบข้อมูลหรือรายละเอียดที่มีคำว่า ระบบ หรือคำใกล้เคียง นำมาโชว์

โค้ดอยู่ใน worksheet finddata ในปุ่ม ค้นหาค้ะ
Attachments
Bookstore.xlsm
(56.55 KiB) Downloaded 50 times

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#18

by snasui » Sun Jan 04, 2015 4:26 pm

:D วิธีการค้นดูจาก Link นี้ครับ viewtopic.php?f=2&t=232

สำหรับการค้นหาแบบ Advanced ของ Forum นี้สามารถค้นได้จากหน้านี้ครับ
search.php

ส่วนของปฎิทินใน Excel 2010 ขึ้นมา ถูกถอดออกไปแล้ว ที่เคยถามตอบกันไปส่วนใหญ่จะใช้กับ Excel 2003 ครับ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#17

by nichakant » Sun Jan 04, 2015 3:53 pm

เรื่อง Combobox ตอนนี้ได้แล้วค่ะอาจารย์
อาจารย์ช่วยแนะนำ code(ในฟอร์ม) เรียกปฏิทินขึ้นมา แล้วเมื่อกดเลือกวันที่ตามที่ต้องการ ค่าจะมาแสดงใน textbox สำหรับโชว์วันที่ ค้ะ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#16

by snasui » Sun Jan 04, 2015 3:28 pm

:D คำว่า "ชีส" ที่ถูกต้อง "ชีต" หรือ "ชีท"

สำหรับการเพิ่มรายการใน Combobox ลองศึกษาดูจาก Link นี้ครับ ComboBox with AddItem

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#15

by nichakant » Sun Jan 04, 2015 3:07 pm

รบกวนอาจารย์ช่วยแนะนำเรื่องการใช้ Combobox โดยการดึงหัวเรื่อง(ข้อมูล)จากในชีสที่ได้กรอกเข้าไป นำมาไว้ใน Combobox หน่อยค่ะ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#14

by nichakant » Sat Jan 03, 2015 3:37 pm

ทำการรันได้แล้วค่ะ ขอบคุณน้ะค่ะ :)

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#13

by snasui » Sat Jan 03, 2015 3:16 pm

:D ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton2_Click() ' บันทึกข้อมูลหลังจากแก้ไข
    Dim recdRow As Long
    recdRow = Application.Match(TextBox1.Text, Sheets("Database").Range("a:a"), 0)
    With Sheets("database")
        .Cells(recdRow, 2).Value = TextBox2.Text
        'Other code
        .Cells(recdRow, 7).Value = TextBox10.Text
    End With
End Sub

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#12

by nichakant » Sat Jan 03, 2015 2:54 pm

โค้ด vba ในส่วนของการบันทึกข้อมูลอยู่ใน userform 1 ในปุ่มบันทึกข้อมูล

แต่รันไม่ได้ค้ะ ' ช่วยแนะนำเรื่องโค้ดปุ่มบันทึกข้อมูล
>เราได้เลือกรายละเอียดที่ต้องการแก้ไขโดยใส่รหัสหนังสือไปใน textbox1
> เมื่อเราทำการแก้ไขในส่วนที่ต้องการแล้ว เมื่อกดบันทึกข้อมูล ข้อมูล/รายละเอียดที่เราแก้ไขในส่วนหน้าของฐานข้อมูล (Database) ก็จะเปลี่ยนไปตามที่เราแก้ไข
Attachments
Bookstore.xlsm
(48.69 KiB) Downloaded 29 times

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#11

by snasui » Sat Jan 03, 2015 1:17 pm

nichakant wrote:แต่ในปุ่มบันทึกข้อมูลที่ให้มันทำการเปลี่ยนแปลงข้อมูลตามที่แก้ไข ใช้โค้ด vba อะไรหรอค่ะ
ต้องศึกษามาเอง เขียนมาก่อน ติดแล้วค่อยถามกันต่อ การถามตอบ VBA ต้องเป็นไปตามกฎการใช้บอร์ดข้อ 5 ด้านบน คือให้เขียนมาก่อนในทุกเรื่องที่ถามเมื่อติดปัญหาแล้วค่อยถามกัน เขียนได้เท่าไรก็เท่านั้น หากเขียนไม่ได้ให้ศึกษามาก่อนตามลำดับ

คำถามในความหมายว่า "เขียนอย่างไร" โดยที่ไม่ได้ลองเขียนมาเองก่อนนั้นจะไม่ได้รับคำตอบ เพราะผู้ที่ตอบให้โดยไม่คำนึงถึงกฎข้อ 5 ด้านบนจะโดนผมลงโทษได้ครับ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#10

by nichakant » Sat Jan 03, 2015 1:08 pm

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

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#9

by snasui » Sat Jan 03, 2015 12:59 pm

:D ตัวอย่าง Code สำหรับการแสดงข้อมูลใน TextBox ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click() ' ¤é¹ËҢͧ userform1
    On Error Resume Next
    Set myRange = Worksheets(2).Range("A:H")
    TextBox2.Value = Application.WorksheetFunction.VLookup(TextBox1.Text, myRange, 1, False)
    TextBox3.Value = Application.WorksheetFunction.VLookup(TextBox1.Text, myRange, 2, False)
    TextBox4.Value = Application.WorksheetFunction.VLookup(TextBox1.Text, myRange, 3, False)
    'Other code
End Sub
ส่วนการ Update ข้อมูลให้เขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#8

by nichakant » Sat Jan 03, 2015 12:48 pm

ในไฟล์ที่แนบไป โค้ดที่นำจากของคนอื่นมาแก้ไขแล้ว มันแก้ไขไม่ได้ โค้ดอาจจะผิดอยู่.
โค้ดจะอยู่ใน Userform1 ในปุ่มค้นหา

ที่ต้องการคือ เมื่อกรอกรหัสหนังสือใน textbox1 แล้วกดค้นหา
ข้อมูลรายละเอียดต่าง ๆ จะมาแสดงตาม textbox ด้านล่างเพื่อทำการแก้ไขข้อมูล
เมื่อกด บันทึกข้อมูล > ข้อมูลใน Database ก็จะเปลี่ยนไปตามที่แก้ไขค่ะ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#7

by snasui » Sat Jan 03, 2015 12:45 pm

:D Code สำหรับ Update ข้อมูลที่เขียนมาแล้วชื่อว่าอะไร ติดขัดบรรทัดใดช่วยแจ้งมาด้วยเสมอ ควรจะลำดับขั้นตอนการทดสอบมาให้ด้วยจะได้เข้าถึงปัญหาโดยไวครับ

Re: ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

#6

by nichakant » Sat Jan 03, 2015 12:39 pm

ไฟล์แนบค่ะ
Attachments
Bookstore.xlsm
(44.38 KiB) Downloaded 24 times

Top