ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
- กรุณาอ่าน กฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
- การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
- สมัครสมาชิกดูขั้นตอนได้ที่ สมัครสมาชิก
- Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้
- การ Login ผ่าน Facebook ดูวิธีที่ Login ผ่าน Facebook
- ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ Reset รหัสผ่าน
- มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ ติดต่อผู้ดูแลระบบ
- กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ ตั้งค่าส่วนตัว
- การตั้งและตอบกระทู้ดูได้ที่ วิธีการตั้งและตอบกระทู้
- การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ จัดรูปแบบตัวอักษร
- กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ กำหนดขนาดตัวอักษรใน Browser
แสดงเลขคู่เลขคี่
- ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
- ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
- กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
- กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
- กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย
[code]
และปิดด้วย[/code]
ตัวอย่างเช่น[code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่างเพิ่มเติม) - กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
-
- Member
- Posts: 3
- Joined: Tue Aug 21, 2018 10:19 am
แสดงเลขคู่เลขคี่
ตัวอย่างเช่น ใส่ตัวเลข 10 ไปใน textbox1 และ ใส่ตัวเลข 20 ไปใน textbox2 กดปุ่มตกลง ให้แสดงผลลัพธ์ เป็นเลขคู่ คือ 10 12 14 16 18 20 และเลขคี่ คือ 11 13 15 17 19 ค่ะ
หน้าจอโปรแกรมตามแบบที่แนบมาเลยค่ะ
-
- Site Admin
- Posts: 30761
- Joined: Sun Jan 24, 2010 5:33 am
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
Re: แสดงเลขคู่เลขคี่
MBA in Accounting
MVP-Excel (2010-2020)
MOS
-
- Member
- Posts: 3
- Joined: Tue Aug 21, 2018 10:19 am
Re: แสดงเลขคู่เลขคี่
-
- Site Admin
- Posts: 30761
- Joined: Sun Jan 24, 2010 5:33 am
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
Re: แสดงเลขคู่เลขคี่
Code: Select all
Dim b, num1, num2 As Byte
Dim s1, s2 As String
num1 = Val(TextBox1.Text)
num2 = Val(TextBox2.Text)
s1 = ""
s2 = ""
For b = num1 To num2 Step 2
s1 = s1 & " " & b
If b < num2 Then
s2 = s2 & " " & b + 1
End If
Next b
TextBox3.Text = s1
TextBox4.Text = s2
MBA in Accounting
MVP-Excel (2010-2020)
MOS
-
- Member
- Posts: 3
- Joined: Tue Aug 21, 2018 10:19 am
Re: แสดงเลขคู่เลขคี่
-
- Member
- Posts: 21
- Joined: Wed Jul 06, 2016 7:12 am
- Excel Ver: 365
Re: แสดงเลขคู่เลขคี่
snasui wrote: ↑Tue Aug 21, 2018 1:53 pm ตัวอย่าง Code ครับ
Code: Select all
Dim b, num1, num2 As Byte Dim s1, s2 As String num1 = Val(TextBox1.Text) num2 = Val(TextBox2.Text) s1 = "" s2 = "" For b = num1 To num2 Step 2 s1 = s1 & " " & b If b < num2 Then s2 = s2 & " " & b + 1 End If Next b TextBox3.Text = s1 TextBox4.Text = s2
แบบนี้ถ้า user ใส่ 21-30 ละครับ
-
- Site Admin
- Posts: 30761
- Joined: Sun Jan 24, 2010 5:33 am
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
Re: แสดงเลขคู่เลขคี่
MBA in Accounting
MVP-Excel (2010-2020)
MOS
-
- Member
- Posts: 21
- Joined: Wed Jul 06, 2016 7:12 am
- Excel Ver: 365
Re: แสดงเลขคู่เลขคี่
หรือผมถามผิดอะไรตรงไหนครับ
-
- Site Admin
- Posts: 30761
- Joined: Sun Jan 24, 2010 5:33 am
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
Re: แสดงเลขคู่เลขคี่
จะให้แสดงคำตอบเป็นอย่างไร ช่วยแจกแจงคำตอบมาเป็นตัวอย่างด้วยครับprofess79 wrote: ↑Wed Aug 17, 2022 2:27 am แบบนี้ถ้า user ใส่ 21-30 ละครับ
MBA in Accounting
MVP-Excel (2010-2020)
MOS
-
- Member
- Posts: 21
- Joined: Wed Jul 06, 2016 7:12 am
- Excel Ver: 365
Re: แสดงเลขคู่เลขคี่
มันเลยออกมาแบบนี้
ที่ถูกต้องมีการหาร 2 เอาเศษ 0 ประมาณนี้ครับ
อันนี้เขียนจาก VB6 นะครับ แต่ VB.Net ก็คล้ายๆ กันครับ
-
- Site Admin
- Posts: 30761
- Joined: Sun Jan 24, 2010 5:33 am
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
Re: แสดงเลขคู่เลขคี่
Code: Select all
'Other code
Next b
If num1 Mod 2 = 0 Then
TextBox3.Text = s1
TextBox4.Text = s2
Else
TextBox3.Text = s2
TextBox4.Text = s1
End If
End Sub
MBA in Accounting
MVP-Excel (2010-2020)
MOS