Excel Forum

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

อยากทราบว่าเราจะเพิ่มข้อมูลที่ซ้ำกันไม่ได้ในColumnAได้ยังไงครับ ตัวอย่างเพิ่มเลข1เข้าไปในเเถวA1 เเล้วไม่สามารถที่จะเพิ่มเลข1 เข้าไปอีกในColumn A ได้ยังไงด้วยการใช้ VBA รบกวนด้วยนะครับขอบคุณมากครับ

Private Sub CommandButton_Click()
Dim wks As Worksheet
Dim AddNew As Range

Dim iExit As ...

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

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

ตอนเเรกผมพิมพ์ใส่textbox2ไปก็จะขึ้นโชว์ค่าที่พิมพ์ไป แต่เมื่อผมพิมพ์ใส่textbox3ก็จะขึ้นโชว์ค่าที่Textbox3โดยไม่ได้ผ่านการกรองของtextbox2มาครับ คล้ายๆกับการใช้ฟังก์ชันFilterครับที่ผมต้องการ

Book1.xlsm ตัวอย่างไฟล์เเละโค๊ดตามนี้ครับ

Private Sub CommandButton1_Click()
Dim addme As Range, cNum As Integer
Dim x As Integer, y As Integer, Ck As Integer
Set addme = Sheet2.Cells(Rows.Count, 4).End(x1up).Offset(1, 0)
cNum = 7
Ck = 0
For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1 ...

รบกวนพี่ๆหน่อยครับอยากทราบโค๊ดการเลือกข้อมูลในListbox เเล้วสามารถลงหน้าSheetที่ต้องการได้
ตัวอย่างไฟล์ครับ
Book1.xlsm
ตัวอย่างรูปครับ
tset.JPG
โค๊ดที่ผมลองเขียนเเต่ยังไม่สามารถใช้งานได้ครับ

Private Sub CommandButton1_Click()
Dim addme As Range, cNum As Integer
Dim x As Integer, y As Integer ...

ขอบคุณมากครับเเต่ผมอยากได้เเนวประมาณการกรองเเบบTextต่อTextเลยครับ

ขอบคุณครับ

ผมต้องการที่จะกรองข้อมูลจากTextbox หลายๆTextbox เเล้วเเสดงใน Listbox พอจะมีเเนวทางการเขียนโค๊ดไหมครับ
ตัวอย่างโค๊ดที่ผมเขียนสามารถกรองได้เเค่Textboxเดียวเท่านั้น

Private Sub TextBox1_Change()
Dim i As Long
ListBox1.Clear
Me.ListBox1.AddItem
For X = 1 To 7
Me.ListBox1.List(0, X - 1) = Sheet1 ...

การโหลดรูปภาพจากโฟลเดอร์ใส่ในหน้าUserform ด้วยนามสกุลใดได้บ้างครับ

snasui wrote: Fri Oct 11, 2019 8:38 pm คงต้องอาศัย Windows API ขออภัยที่ไม่มี Link ตัวอย่างให้ศึกษาแต่คิดว่าไม่ง่ายครับ

รับทราบครับ ถ้ามีเเนวทางให้ศึกษาก็ขอรบกวนด้วยนะครับ ขอบคุณครับ

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

EX2010 wrote: Tue Oct 01, 2019 1:54 pm ก็Cusโค๊ตส่วนนี้ไป ต่อ ส่วนที่ Listbox.Clear

Code: Select all

  Me.ListBox1.Clear
  Me.ListBox1.AddItem
   For x = 1 To 6
     Me.ListBox1.List(0, x - 1) = Sheet1.Cells(1, x)
   Next x
   Me.ListBox1.Selected(0) = True

ขอบคุณมากครับ จะพยายามเรียนรู้ให้มากขึ้นครับ

:D การให้โชว์หัวคอลัมน์ของ ListBox อยู่ตลอดเวลาให้สร้าง Label เอาไว้เองแล้วใช้การ Loop ค่าเข้าไปแทนการใช้ RowSource ครับ

แต่หากใช้ RowSource ในการ Clear ทิ้งลองกำหนดให้เหลือบรรทัดบนสุดไว้สักบรรทัดแทนการ Clear ทิ้งทั้งหมดดูครับ

ควรจะแจ้งมาด้วยเสมอว่าผู้ตอบจะต้องทดสอบไฟล์ที่แนบมาอย่างไรจึงจะเห ...

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
Me.ListBox1.AddItem
For x = 1 To 6
Me.ListBox1.List(0, x - 1) = Sheet1.Cells(1, x)
Next x
Me.ListBox1.Selected(0) = True
End Sub



ขอบคุณครับเเต่พอพิมพ์ในTextbox ColumnHeads ก็หายไปครับ

Private Sub TextBox1_Change()
Dim i As ...

:D แนบไฟล์ล่าสุดพร้อม Code ชี้ให้เห็นว่าได้ปรับที่ Form ไหน Procedure ไหน ลำดับวิธีการทดสอบ ไม่เช่นนั้นไม่สามารถช่วยดูให้ได้ครับ


Code ครับ


Private Sub TextBox1_Change()
Dim i As Long
Me.ListBox1.RowSource = ""
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
a = Len(Me ...

:D กรณีใช้ RowSource ผมได้อธิบายไปแล้วว่าต้องทำอย่างไร กรุณาพยายามทำมาตามนั้น ติดตรงไหนจึงค่อยแจ้ง Module, Procedure ที่ติดปัญหามาถามกันต่อ เพื่อที่จะได้เข้าถึงปัญหาโดยไว กรุณาอ่านกฎข้อ 5 ด้านบน :roll: ประกอบครับ


ผมลองใช้RowSourceโชว์หัวตารางในListboxตลอดเเล้วครับ เเต่พอพิมพ์ข้อความในTextBoxห ...

:D ตัวอย่างคำถามตอบเกี่ยวกับ ListBox ศึกษาได้จาก Link นี้ครับ https://www.snasui.com/search.php?keywords=listbox&terms=all&author=snasui&sc=1&sf=all&sr=topics&sk=t&sd=d&st=0&ch=300&t=0&submit=Search

ส่วนตัวอย่างเฉพาะการกำหนด RowSource ให้เหลือ 1 บรรทัดคิดว่าไม่จำเป็นต้องหาตัวอย่าง เดิมกำหนดอย ...

:D ตัวอย่างคำถามตอบเกี่ยวกับ ListBox ศึกษาได้จาก Link นี้ครับ https://www.snasui.com/search.php?keywords=listbox&terms=all&author=snasui&sc=1&sf=all&sr=topics&sk=t&sd=d&st=0&ch=300&t=0&submit=Search

ส่วนตัวอย่างเฉพาะการกำหนด RowSource ให้เหลือ 1 บรรทัดคิดว่าไม่จำเป็นต้องหาตัวอย่าง เดิมกำหนดอย ...