Snasui Excel Forum

อาจารย์ครับ ลองได้แค่นี้ ComboBox3 ค่าแสดง ได้ปกติ ComboBox1 ไม่ขึ้น

Private Sub ComboBox3_DropButtonClick()
Application.EnableEvents = False
With ComboBox3
.Clear
.AddItem "HP"
.AddItem " Intel "
.AddItem "AMD"
.AddItem "ASUS"
End With
Application.EnableEvents = True
End Sub

Private Sub ...

:D VBA เป็นการเขียน Program ในทางเทคนิคแล้วย่อมทำได้ทุกอย่าง ขึ้นอยู่กับความสามารถของผู้ใช้ ส่วนจะเขียนอย่างไรผมไม่สามารถเขียนให้ก่อนได้ ทุกอย่างต้องเป็นไปตามกฎครับ
ไปไม่ถูกจริงๆครับ ชี้แนะให้ สักหน่อย นะครับ ผมพึ่งเขียนเป็นครั้งแรก เลยไม่รู้ ว่าจะไปยังไงเลยครับ
แก้ผิดแก้ถูก เข้าไปดู ไปศึกษา โพสต ...

snasui wrote: แนบไฟล์ Excel มาด้วย พร้อมอธิบายว่า Code ที่เขียนมาแล้วนั้นชื่อว่าอะไร ติดขัดที่บรรทัดใดครับ

ผมยังไม่ได้เขียน Code เลยครับ ถามให้แน่ใจก่อนว่า สามารถทำอย่างที่ โพสต์ ได้เปล่า
เพราะผมหา วิธี ตามหนังสือ ตามเว็บ ต่างๆ ก็ไม่มี ถ้าทำได้ แล้วจะเริ่ม ยังไง ครับ

:D กระทู้นี้ได้คำตอบแล้วยังครับ http://snasui.com/viewtopic.php?f=3&t=5844

ได้คำตอบหรือไม่อย่างไร ช่วยแจ้งผลตามกฎการใช้บอร์ดข้อ 6 ด้านบนด้วยครับ :roll:

คำว่า ป่าว คือ ควรเขียนเป็น เปล่า
คำว่า คับ เป็นภาษาแชท ไม่อนุญาตให้ใช้ในบอร์ดถามตอบครับ

พยายามอย่าเขียนผิดบ่อยครับ


ขอโทษครับ นั่งทำกระท ...

ok เลยครับ ตรงตามที่ต้องการ

ขอบคุณครับ

ผมต้องการ แยกยี่ห้อ แยกรุ่น
เช่น ผมกำหนด แบบฟอร์ม มา 1 ฟอร์ม มีคอนโทรล OptionButton มี6ตัว, ComboBox มี2ตัว

พอเราคลิกเลือก OptionButton คอนโทรลComboBox1 จะเปลี่ยนข้อมูลชุดใหม่
พอเราคลิกเลือก ข้อมูลใน คอนโทรลComboBox2 จะเปลี่ยนข้อมูลชุดใหม่ อีกที

ComboBox1 = ยี่ห้อ
ComboBox2 = รุ่น

ผมแนบไฟล ...

ผมดึงข้อมูลมาจากชีท 1 มาไว้ในชีท 2
พอกรอก ข้อมูลลงในเซล A1
โดยเซล B2 จะดึงข้อมูลจากชีท 1 มาทันที
โดยใช้ ฟังก์ชั่น =INDEX(สินค้า!$B$2:$B$87,MATCH(A7,สินค้า!$A$2:$A$87,0))
แต่พอ A1 ไม่มีข้มมูล กับขึ้น #N/A
ไม่ต้องการให้มันแสดง #N/A ให้เห็นต้องทำยังไงครับ

แล้ว บางที พอเรามีข้อมูล เยอะๆ
พอกรอกข้อม ...

ผมต้องการ ให้ข้อมูลที่เรากรอก ในฟอร์ม มาแสดง ใน
ชีท "หน้าแรก" ในชีทหน้าแรกนี้ผมสร้าง ListBox1 ไว้ด้วย เพื่อแสดงข้อมูลที่เรากรอกในวันนั้นนั้น
พอบันทึกหรือปิดไป ข้อมูลใน ListBox1 จะหายไป
และผมต้องการให้แสดงข้อมูลที่ ผมกรอกในฟอร์ม เข้าไปใน
ชีท "รายการสินค้า" นี้ด้วย

ผมใส่ข้อมูลลงให้ ชีท "รายการส ...

ขอโทษจริงๆครับอาจารย์ แก้ไม่ได้แล้วครับ ผมต้องตั้ง กระทู้ใหม่ หรือเปล่าครับ

ลืมแนบไฟล์คับ

อาจารย์คับ ผมต้องการ ให้มันแสดง ใน
ชีท "หน้าแรก" ใน ListBox1 ด้วย และใน
ชีท "รายการสินค้า" ด้วย

Private Sub CommandButton1_Click()
Row = 1
Do
Row = Row + 1
Loop Until Worksheets("รายการสินค้า").Cells(Row, 1) = ""
Worksheets("รายการสินค้า").Cells(Row, 1) = TextBox1
TextBox1 = ""
If ...

นั้นอาจารย์ สอน Code กดปุ่มในฟอร์ม แล้วลบข้อมูลออก เป็นแถวในชีท ให้ผมน่อยได้ไหมคับ
เดียว ผมรองทำดู ถ้าไม่ได้ยังไง จะให้อาจารย์ ช่วยสอนอีกที

Private Sub CommandButton4_Click()
On Error Resume Next
If TextBox1.Text = True Then
Sheets("ÃÒ¡ÒÃÊÔ¹¤éÒ").Select
Range("A1").Select
Do While True
If ActiveCell.Value = TextBox1.Text Then
TextBox4.Text = ActiveCell.Offset(0, 2).Value
TextBox5.Text = ActiveCell.Offset(0, 3).Value
TextBox3.Text ...

UserForm3 ใน ปุ่ม ขาย แต่ผม ไม่ได้ พิมพ์ย้ายไว้คับ

ผมติด ตรง กดค้นหาได้ แต่ ต้องการย้ายและลบออกจาก ชีท"รายการสินค้า" ที่เราค้นหา ไปอยู่ชีท"ขายออกแล้ว" นะครับ ทั้งแถวนะครับ
พิมพ์โค้ดไม่ถูกแล้วครับ ไม่รู้จะใส่โค้ดอะไรลงไปให้ย้ายและลบ

ผมต้องการพิมพ์ข้อมูลใส่ฟอร์ม "ขายสินค้า" แล้วค้นหาข้อมูลที่อยู่เช่น รหัสสินค้า ใน ชีท"รายการสินค้า" แล้วกด ตกลง
ให้ลบหรือย้ายข้อมูลที่อยู่ใน ชีท "รายการสินค้า" ทั้ง แถว ไป ชีท "ขายออกแล้ว"
และให้แสดง รายการนั้นทั้ง แถว ใน ชีท "หน้าแรก" ใน ListBox1
ผมนั่งคิดมาอาทิตย์กว่าแล้วครับ ไม่รู้จะเขียนโค้ดย ...