ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#1
Post
by jullathep Sat Feb 03, 2018 9:47 am
ผมเขียนที่ปุ่ม Comand ต้องการให้ textbox รับค่า A-D แล้วให้แสดงที่ Label 3 ช่อง เป็นค่าที่ตั้งไว้ แต่มันไม่ออกครับ รบกวนท่านอาจารย์หรือพี่ๆช่วยดูหน่อยครับ พอดี มือใหม่หัดทำครับ มีไฟล์แนบครับ
Code: Select all
Private Sub Command1_Click()
If TextBox1.Text = "A" Then
Label1.Caption = 10 & "-" & 20
Label2.Caption = 10 & "-" & 20
Label3.Caption = 10 & "-" & 20
ElseIf TextBox1.Text = " B " Then
Label1.Caption = 20 & "-" & 30
Label2.Caption = 20 & "-" & 30
Label3.Caption = 20 & "-" & 30
ElseIf TextBox1.Text = " C " Then
Label1.Caption = 30 & "-" & 40
Label2.Caption = 30 & "-" & 40
Label3.Caption = 30 & "-" & 40
ElseIf TextBox1.Text = " D " Then
Label1.Caption = 40 & "-" & 50
Label2.Caption = 40 & "-" & 50
Label3.Caption = 40 & "-" & 50
End If
End Sub
Attachments
เวิร์กบุ๊ก4.xlsm (26.25 KiB) Downloaded 10 times
Last edited by
jullathep on Sat Feb 03, 2018 10:38 am, edited 2 times in total.
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#2
Post
by snasui Sat Feb 03, 2018 9:50 am
ไฟล์ที่จะมี Code ได้ต้องเป็น .xlsm หรือ .xlsb เช่นนี้เป็นต้น ไม่เช่นนั้นจะแนบ Code ไปกับไฟล์ไม่ได้ ลองแนบไฟล์มาใหม่เพื่อน ๆ จะได้ช่วยตอบต่อไปจากนั้นครับ
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#3
Post
by jullathep Sat Feb 03, 2018 9:56 am
snasui wrote: Sat Feb 03, 2018 9:50 am ไฟล์ที่จะมี Code ได้ต้องเป็น .xlsm หรือ .xlsb เช่นนี้เป็นต้น ไม่เช่นนั้นจะแนบ Code ไปกับไฟล์ไม่ได้ ลองแนบไฟล์มาใหม่เพื่อน ๆ จะได้ช่วยตอบต่อไปจากนั้นครับ
.xlsm นี่เป็นมาโครใช่ไหมครับอาจารย์
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#4
Post
by jullathep Sat Feb 03, 2018 10:01 am
jullathep wrote: Sat Feb 03, 2018 9:56 am snasui wrote: Sat Feb 03, 2018 9:50 am ไฟล์ที่จะมี Code ได้ต้องเป็น .xlsm หรือ .xlsb เช่นนี้เป็นต้น ไม่เช่นนั้นจะแนบ Code ไปกับไฟล์ไม่ได้ ลองแนบไฟล์มาใหม่เพื่อน ๆ จะได้ช่วยตอบต่อไปจากนั้นครับ
.xlsm นี่เป็นมาโครใช่ไหมครับอาจารย์
ผมแนบไฟล์ใหม่แล้วครับ อาจารย์
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#5
Post
by snasui Sat Feb 03, 2018 10:15 am
ไม่พบ Code ในไฟล์ ลองพยายามอีกครั้งครับ
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#6
Post
by jullathep Sat Feb 03, 2018 10:17 am
snasui wrote: Sat Feb 03, 2018 10:15 am ไม่พบ Code ในไฟล์ ลองพยายามอีกครั้งครับ
อาจารย์ครับ Code มันอยู่ในปุ่มตกลงอะครับ ผมต้องทำยังไงเอ่ย
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#7
Post
by snasui Sat Feb 03, 2018 10:26 am
กรุณาดาวน์โหลดไฟล์ที่แนบมาแล้วทดสอบว่ามี Code ที่กล่าวถึงหรือไม่ จะได้ทราบประเด็นที่ผมแจ้งไปครับ
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#8
Post
by jullathep Sat Feb 03, 2018 10:46 am
snasui wrote: Sat Feb 03, 2018 10:26 am กรุณาดาวน์โหลดไฟล์ที่แนบมาแล้วทดสอบว่ามี Code ที่กล่าวถึงหรือไม่ จะได้ทราบประเด็นที่ผมแจ้งไปครับ
แก้แล้วครับอาจารย์ คราวนี้น่าจะมีครับ ผมลองโหลดมีคลิกดูเจอ code แล้วครับ
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#9
Post
by snasui Sat Feb 03, 2018 11:04 am
Code ทำงานได้ปกติเพียงแต่ใน Code เขียนให้มีค่าวรรคติดไปด้วย หากคีย์ใน TextBox ไม่มีค่าวรรคก็จะไม่ได้คำตอบครับ
ในภาพด้านล่างผมระบายสีไว้ให้แล้วว่าตรงไหนมีค่าวรรคให้ปรับแก้ตรงนั้นได้เลยครับ
การ Debug Code ให้คลิกลงไปใน Code แล้วกดแป้น F8 ซ้ำ ๆ เพื่อ Run ทีละ Step จะได้ตรวจสอบได้เบื้องต้นว่า Code ทำงานติดขัดบรรทัดใด หรือไม่ อย่างไร ครับ
Attachments
Space Space.png (19.76 KiB) Viewed 112 times
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#10
Post
by jullathep Sat Feb 03, 2018 11:09 am
snasui wrote: Sat Feb 03, 2018 11:04 am Code ทำงานได้ปกติเพียงแต่ใน Code เขียนให้มีค่าวรรคติดไปด้วย หากคีย์ใน TextBox ไม่มีค่าวรรคก็จะไม่ได้คำตอบครับ
ในภาพด้านล่างผมระบายสีไว้ให้แล้วว่าตรงไหนมีค่าวรรคให้ปรับแก้ตรงนั้นได้เลยครับ
การ Debug Code ให้คลิกลงไปใน Code แล้วกดแป้น F8 ซ้ำ ๆ เพื่อ Run ทีละ Step จะได้ตรวจสอบได้เบื้องต้นว่า Code ทำงานติดขัดบรรทัดใด หรือไม่ อย่างไร ครับ
ขอบคุณครับอาจารย์
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
โปรดทราบ 
