Excel Forum

Private Sub CommandButton1_Click()

On Error Resume Next
With Sheets("á¡»ÃÐàÀ·")
.Range("a:d").Clear
.Range("l1:l4").SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
Sheets("ʵçÍ¡ÇÑÊ´Ø").Range("mystore").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1").CurrentRegion ...

ได้แล้วครับ ขอบคุณครับ

ลองไปหาเองมา

แล้วถ้าผมต้องการให้เมื่อกด Print แล้วมันจะไป Preview ตาม Combobox ที่เราเลือกได้ยังไงครับ

ขอบคุณครับ

ผมต้องการให้ใน Combobox1 ใน Userform6 มีรายการที่เป็นชื่อ ชีท ทั้งหมด

เพื่อที่จะได้สั่งปริ้นตามที่ได้เลือกไว้ครับ

ขอบคุณมากครับ

:D สำหรับ VBA แล้ว คือการเขียนโปรแกรม ย่อมมีความสามารถในขอบเขตที่กว้างขวางแทบจะไร้ขีดจำกัด

ที่ถามมานั้นเป็นเรื่องปกติที่จะทำได้ด้วย VBA ครับ

สมมุติว่า ผมต้องการให้ Combobox3 ใน Userform4 ดึงข้อมูลจากชีท สต็อกวัสดุ โดยผมใช้ name manager ที่ชื่อว่า list2 เป็นตัวขยาย select

ผมต้องการให้เวลาเราอย ...

ขออีกหน่อยนะครับ

คือว่า ผมอยากให้ข้อมูลใน Combobox ดึกมาจาก sheet อื่นได้ไหมครับ คือเราไม่ต้องไป sheet นั้นได้ไหมครับ

snasui wrote: ต้องเขียน Code มาเองครับ ติดตรงไหนแล้วค่อยถามกันครับ

ลองศึกษาตัวอย่างจากที่นี่ประกอบครับ WorksheetFunction

พอเข้าใจแล้วครับ

สมมุติ ว่า ผมเลือกหัวข้อ aaa ใน userform1 จาก Combobox แล้วข้อมูลจำนวน,ประเภท ที่เหลือจะโชว์ใน textbox หรือ combobox อื่นขึ้นมาอัตโนมัติ

ขอความกรุณาด้วยนะครับ

snasui wrote: ก็ต้องตรวจสอบครับว่าค่าที่เราค้นหาคืออะไร และมีค่านั้นหรือไม่ ตัวแปร c คือค่าที่เราค้นหา

Statement ElseIf Not c Is Nothing Then หมายถึงหากได้มีการกำหนดค่าให้กับตัวแปร c และ cเป็น Range ใด ๆ แล้ว

ขอบคุณครับ

Private Sub CommandButton1_Click()

With Worksheets("ʵçÍ¡ÇÑÊ´Ø")
lastrow = .Cells(Rows.Count, 3).End(xlUp).Row
With .Range("b1:b" & lastrow)
Set c = .Find(TextBox1.Text, LookIn:=xlValues)
If TextBox2.Text = "" Then

MsgBox "¡ÃسÒãÊè¨Ó¹Ç¹¤èÐ"

ElseIf Not c Is Nothing Then
c.Offset(0, 2 ...

Private Sub CommandButton1_Click()
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
With Worksheets("ʵçÍ¡ÇÑÊ´Ø")
With Range("c1:c" & lastrow)
Set c = .Find(TextBox1.Text, LookIn:=xlValues)
If TextBox2.Text = "" Then

MsgBox "¡ÃسÒãÊè¨Ó¹Ç¹¤èÐ"

ElseIf Not c Is Nothing Then
With Worksheets("ʵçÍ ...

ได้แล้วครับ ขอบคุณครับ

Private Sub CommandButton1_Click()
With Worksheets("สต็อกวัสดุ").Range("A1:C10")
Do
r = r + 1
Loop Until Cells(r, 1) = ""
Cells(r, 1) = r - 1
Cells(r, 2) = TextBox5.Value
Cells(r, 3) = TextBox1.Text
Cells(r, 4) = ComboBox1.Text
Cells(r, 5) = TextBox2.Value
Cells(r, 6) = ComboBox2.Text ...

Private Sub CommandButton1_Click()
With Worksheets("สต็อกวัสดุ").Range("A1:C10")
Do
r = r + 1
Loop Until Cells(r, 1) = ""
Cells(r, 1) = r - 1
Cells(r, 2) = TextBox5.Value
Cells(r, 3) = TextBox1.Text
Cells(r, 4) = ComboBox1.Text
Cells(r, 5) = TextBox2.Value
Cells(r, 6) = ComboBox2.Text ...

ผมไม่เคยใช้เลยครับ

ลองศึกษาแล้วงง

รู้แค่ว่ามันทำให้โค๊ดสั้นลง

ผมไม่เข้าใจ โค๊ดเลยครับ

Private Sub CommandButton1_Click()
'Sheet7.Activate
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
With Range("c1:c" & lastrow)
Set c = .Find(TextBox1.Text, LookIn:=xlValues)

If TextBox1.Text = "" Then

MsgBox "¡ÃسҡÃÍ¡¢éÍÁÙÅ", 0, "¡ÃسҡÃÍ¡¢éÍÁÙÅ"

ElseIf Not c Is Nothing Then
'Sheet7 ...

ขอบคุณครับ