Snasui Excel Forum

เรียน อาจารย์
ผมใช้ if ช่วยตามที่อาจารย์แนะนำ ได้ผลตามที่ต้องการแล้วครับ ขอบคุณมากครับ

ขอแสดงความนับถือ

เรียนอาจารย์ ครับ ผมลอง code พบว่า เมื่อ จำนวณ column 1,2 ไม่ทำกัน จะเกิดตัวเลขที่ 0 ที่ไม่ได้ต้องการขึ้นมาครับ พอจะมีวิธีแก้ไขไหมครับ
[img][/img]

ขอบคุณครับ

สอบถามเพิ่มเติมนะครับ คือผม เพิ่ม combo box ไปอีก 1 box เพื่อใช้งานเหมือนกับอันแรก แต่ไม่สามารถใช้ได้ครับ
[img] pic3.png [/img]

โดยเขียน code เพิ่มไปดังนี้ครับ
Private Sub UserForm_Initialize()
Dim a As Long
Dim b As String
If major_cbbox2 = "" Then
Do
a = a + 1
b = Cells(a, 2).Value
If b ...

ขอบคุณอาจารย์มากครับ ตอนนี้สามารถใช้ได้ตามต้องการแล้วครับ

ขอบคุณอาจารย์มากครับ สามารถใช้งานได้ตรงความต้องการ แต่ผมเจอปัญหาว่ามันจะขึ้นซ้ำเมื่อคลิกที่ combo block ในครั้งต่อมา พอจะมีวิธีแก้ไหมครับ ขอบคุณครับ

เรียนอาจารย์และผู้รู้ทุกท่าน
ผมต้องการเขียน code ให้ combo box รับข้อมูลจาก cell เพื่อเข้าเป็นตัวเลือกใน combo box ครับ โดยจำนวณข้อมูลสามารถเปลี่ยนแปลงได้เช่น A-C,A-G เป็นต้น
Code ที่ผมเขียนไว้ประมาณนี้ครับ ยังไม่สามารถ run ได้ครับ
Private Sub major_cbbox_DropButtonClick()
Dim m As Long
Dim x As ...