: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

สอบถามปัญหาการใช้ CheckBox

ฟอรัมถาม-ตอบเกี่ยวกับ Visual Basic
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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
nutpopo
Member
Member
Posts: 46
Joined: Fri Dec 08, 2017 4:12 pm

สอบถามปัญหาการใช้ CheckBox

#1

Post by nutpopo »

สบถามการเพิ่มข้อมความลงใน DataGridView ครับ
เมื่อ ติก CheckBox แล้วให้ทำการเปลี่ยนแปลง DataGridView คอลัมล์ ที่ 5 แต่เมือ ติก CheckBox1 ครั้งแรกปกติครับ พอเปลี่ยนไปติก
CheckBox2 ข้อมูลด้านบนที่เปลี่ยจาก ZINC เป็น ZINCAPI กลับเปลียนไปเป็น ZINCRRR หมดเลยครับ

Code: Select all

 For f As Integer = 0 To BARCODEDataGridView1.Rows.Count - 1
            If Convert.ToString(BARCODEDataGridView1(5, f).Value) = "ZINC" And CheckBox1.Checked = True Then 'And RadioButton1.Checked = True Then 'And CheckBox1.Checked = True Then
                BARCODEDataGridView1(5, f).Value = "ZINCAPI"

            ElseIf Convert.ToString(BARCODEDataGridView1(5, f).Value) = "ZINC" And CheckBox2.Checked = True Then
                BARCODEDataGridView1(5, f).Value = "ZINCRRR"

            End If
        Next
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: สอบถามปัญหาการใช้ CheckBox

#2

Post by snasui »

:D เป็นเช่นนั้นก็ถูกต้องตามที่เขียน Code ไว้แล้วครับ ไม่ทราบว่าต้องการให้แสดงผลเป็นเช่นไรครับ :?:
nutpopo
Member
Member
Posts: 46
Joined: Fri Dec 08, 2017 4:12 pm

Re: สอบถามปัญหาการใช้ CheckBox

#3

Post by nutpopo »

2 ตารางแรก ต้องเป็น ZINCAPI ครับไม่ใช่ ZINCRRR เพราะตอนแรกผม ติก CheckBox1
พอบันทัดที่ 3 ผมติก CheckBox2 แต่ 2 แถวบนกลับเปลียนจาก ZINCAPI เป็น ZINCRRR หมดเลยครับ
ปัญกาคือผมไม่ต้องการให้เปลียนครับ

พอมีแนวทางหรืองช่องทางอื่นมัยครับ ขอบคุณครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: สอบถามปัญหาการใช้ CheckBox

#4

Post by snasui »

:D ตามที่อธิบายมาก็ไม่ต้องใช้ Statement นี้ครับ

Code: Select all

ElseIf Convert.ToString(BARCODEDataGridView1(5, f).Value) = "ZINC" And CheckBox2.Checked = True Then
   BARCODEDataGridView1(5, f).Value = "ZINCRRR"
ถ้ายังใช้อยู่ก็จะเป็นเหมือนเดิมเพราะไปสั่งให้มีค่าเป็นเป็น "ZINCRRR" เมื่อ Check ที่ CheckBox2 ครับ

หรือไม่ก็ต้องทบทวน Statement นั้นว่าที่จริงแล้วต้องการจะให้เป็น "ZINCRRR" ในกรณีใด เพียงแต่ Check ที่ CheckBox2 หรือว่ามีเงื่อนไขอื่นใดประกอบอีกหรือไม่ อย่างไร ฯลฯ
nutpopo
Member
Member
Posts: 46
Joined: Fri Dec 08, 2017 4:12 pm

Re: สอบถามปัญหาการใช้ CheckBox

#5

Post by nutpopo »

ถ้าผมต้องการให้ BARCODEDataGridView1(5, f).Value ขึน คำที่ต้องการ หากติก CheckBox1 = API และ CheckBox2 = RRR พอจะมีแนวทางอื่นมัยครับ เพราะการใช้ Convert.ToString กับ For เหมือนมันจะเปลียนทั้ง DataGridView ผมต้องการให้เปลียนแค่บันทัดล่าสุดไปเลือยๆ ครับ

แต่ถ้าไม่ใช้

Code: Select all

ElseIf Convert.ToString(BARCODEDataGridView1(5, f).Value) = "ZINC" And CheckBox2.Checked = True Then
   BARCODEDataGridView1(5, f).Value = "ZINCRRR"

ยอดรวมใน

Code: Select all

 For k As Integer = 0 To BARCODEDataGridView1.Rows.Count - 1
            For j = 0 To ALL_BALANCEDataGridView.Rows.Count - 1
                If Convert.ToString(BARCODEDataGridView1(2, k).Value) = ALL_BALANCEDataGridView(1, j).Value And (BARCODEDataGridView1(5, k).Value) = "ZINCRRR" And (BARCODEDataGridView1(4, k).Value) = ALL_BALANCEDataGridView(3, j).Value Then
                    Dim a As Integer
                    a = BARCODEDataGridView1(6, k).Value
                    ALL_BALANCEDataGridView.Rows(j).Cells(5).Value = a + ALL_BALANCEDataGridView.Rows(j).Cells(5).Value
                    ALL_BALANCEDataGridView.Rows(j).Cells(11).Value = "T"

                End If
            Next
        Nex
ก็จะไม่ตรงครับ
และตรงยอดรวม วงกลบสีน้ำเงินจะขึ้นมาด้วย อันที่จริงต้องไม่มีครับ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: สอบถามปัญหาการใช้ CheckBox

#6

Post by snasui »

:D เท่าที่ดูความตั้งใจน่าจะเป็นเรื่องของเงื่อนไขที่ระบุไม่ถูกต้อง

ซึ่งจะต้องเขียนเงื่อนไขมาให้ชัดครับ เช่น
  • Check แค่ CheckBox1 ต้องการให้แสดงผลลัพธ์แบบใด
  • Check แค่ CheckBox2 ต้องการให้แสดงผลลัพธ์แบบใด
  • Check ทั้งสอง CheckBox แสดงผลลัพธ์แบบใด
ยกตัวอย่าง Code ด้านล่าง Check ที่ CheckBox1 และไม่ Check ที่ CheckBox2 กับอีกกรณีคือ Check ทั้ง 2 อันครับ

Code: Select all

If Convert.ToString(BARCODEDataGridView1(5, f).Value) = "ZINC" And CheckBox1.Checked = True and CheckBox2.Checked = False Then
	BARCODEDataGridView1(5, f).Value = "ZINCAPI"
ElseIf Convert.ToString(BARCODEDataGridView1(5, f).Value) = "ZINC" And CheckBox1.Checked = True And CheckBox2.Checked = True Then
   BARCODEDataGridView1(5, f).Value = "ZINCRRR"
End If
nutpopo
Member
Member
Posts: 46
Joined: Fri Dec 08, 2017 4:12 pm

Re: สอบถามปัญหาการใช้ CheckBox

#7

Post by nutpopo »

ขอบคุณครับ
Post Reply