Excel Forum

ขอบคุณ aroonpothong นะครับ
แต่ค่าที่ผมต้องการแค่ จำนวนปีนับแต่พ.ศ. โดยไม่ยึดกับจำนวนวันหรือเดือน เช่น วันนี้วันที่ 2 พ.ค. 2560 พนักงานเข้างาน 1 ม.ค. 2550 อายุงานเท่ากับ 30 ปี หรือพนักงานเข้างาน วันที่ 15 ธ.ค. 2550 อายุก็เท่ากับ 30 ปี เช่นกัน

ขอบคุณครับ
น่าจะเป็น 10 ปีหรือเปล่าครับ ไม่น่าจะใช่ 30 ...

เผื่อบางท่านจะเอาไปปรับใช้กับงานนะครับ
Option Explicit
Private Sub TextBox6_Change()
Dim x, i As Long, ii As Long, iii As Integer, e As Long
x = [_Data]
With ListBox1
If TextBox6.Value = vbNullString Then
.List = x
Else
e = IIf(OptionButton1, 1, 4)
For i = 1 To UBound(x, 1)
If ...

แสดงการเลือก Code

สอบถามการปรับCodeด้านล่าง โดยการเลือก Option Button หากเลือก Option Button1 ให้ลือก Codeนี้
Private Sub TextBox6_Change()
Dim x, i As Long, ii As Long, iii As Integer
x = [_Data]
With ListBox1
If TextBox6 = "" Then
.RowSource = "_Data"
Else
.RowSource = ""
For i = 1 To UBound(x, 1)
If ...

แต่หากจะให้แสดงเฉพาะค่าที่คล้ายกับค่าที่ต้องการค้นหา แนวทางนี้มาผิดทางครับ การทำเช่นนั้นควรจะ Loop จาก Database มาวางใน ListBox ไม่ใช่ให้เลือกรายการใน ListBox ที่ตรงกันกับค่าที่ต้องการค้นหาเช่น Code ด้านบน

การแสดงค่าใน ListBox ควรจะนำค่าจากต้นทางมาแสดง ไม่ใช่นำค่าใน ListBox เองมาแสดง เพราะหากทำเช ...

puriwutpokin wrote:ส่งไม่ผ่านครับ ใช้มือถือต่อเน็ตสัญญาณอ่อน ส่งผ่านแล้วครับดูที่กระทู้บนครับ

ขอบคุณครับ โหลดมาดูแล้วได้ผลแบบไหนจะแจ้งให้ทราบอีกครั้งหนึ่งครับ

puriwutpokin wrote:ผมลองทำแบบไฟล์เก่าของคุณ rich37 ได้ประมาณนี้ตามไฟล์แนบครับ ใช้แบบดั่งเดิม

รบกวนขอดูด้วยครับผม ขอบคุณครับ

ขอบคุณครับ

:D เรื่องเดียวกันไม่ควรตั้งกระทูใหม่ครับ

ตัวอย่าง Code การนำค่าตรงตัวมาแสดงตามด้านล่างครับ

Private Sub TextBox6_Change()
Dim i As Long
Dim n As Long
Dim Str As String
Str = Me.TextBox6.Text
n = Me.ListBox1.ListCount
For i = 0 To n - 1
If Me.ListBox1.List(i) = Str Then
Me.ListBox1 ...

ยกเลิกอันล่างครับ ใช้ตัวที่ผมให้ครับ ใช้ซ้อนกันไม่ได้ครับ
จุดประสงค์จริงๆคืออยากได้ตามรูปด้านล่างนี้ครับ มีกี่รายการก็โชว์ขึ้นมา จากรูปในช่องค้นหา พิมพ์ 12 ในListbox มี 2 รายการที่ มี 12 เพราะหมายเลขคดีแดงสามารถซ้ำกันได้ แต่ชื่อศาลจะไม่มีซ้ำกัน ครับ
อ้างอิงของเดิม
1.เวลาค้นหาข้อมูลหากไม่ตรงก็ไม่ต ...

ลองปรับเป็น Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
Dim n As Long
Dim Str As String
Str = Me.TextBox6.Text
n = Me.ListBox1.ListCount
For i = 0 To n - 1
If Left(Me.ListBox1.List(i), Len(Str)) > 1 Then
Me.ListBox1.ListIndex = i
Exit Sub
End If
Next i ...

puriwutpokin wrote:ปรับเป็น

Code: Select all

If Me.ListBox1.Selected(i) = True Or TextBox1.Text = "" Then

ปรับแล้วก็ยังเหมือนเดิมครับ

Private Sub TextBox6_Change()
Dim i As Long
Dim n As Long
Dim Str As String
Str = Me.TextBox6.Text
n = Me.ListBox1.ListCount
For i = 0 To n - 1
If Left(Me.ListBox1.List(i), Len(Str)) = Str Then
Me.ListBox1.ListIndex = i
Exit Sub
End If
Next i
End Sub

จากCodeด้านบนเวลากดค้นหา จะดึงเอาข ...

snasui wrote: ผมทดสอบไฟล์ที่แนบมาแล้ว ไม่เกิด Error ในบรรทัดที่จับภาพมาครับ

รบกวนอาจารย์อัพไฟล์ส่งให้ผมหน่อยครับ เพราะผมลองอีกกี่รอบมันก็เออเร่อครับ

snasui wrote: แนบไฟล์ที่ขึ้น Error กลับมาจะได้ช่วยดูให้ได้ครับ

:D ใช้ Code ที่ผมปรับไปให้กับไฟล์เดิมก่อนที่จะสร้าง TextBox เพิ่ม ไม่จำเป็นต้องเพิ่ม TextBox แต่อย่างใด

เนื่องจาก ListBox เป็นการใช้ RowSource ไม่ใช่ ListBox ที่เพิ่มค่าเข้าไปเองที่จะแก้แต่ละตำแหน่งได้อย่างอิสระ และ RowSource คือค่าในเซลล์ การจะแก้ ListBox ต้องแก้ที่เซลล์มันจะส่งผลมาที่ ListฺBox ...

snasui wrote: ช่วยอธิบายประกอบด้วยว่าใช้กับไฟล์ไหนอย่างไร ผมทดสอบแล้วไม่พบว่าติดปัญหาครับ

ไฟล์ที่ อัพใน #12 ครับ

:D ตัวอย่าง Code ครับ


Dim i As Integer
Dim j As Integer

Private Sub ListBox1_Click()
i = Me.ListBox1.ListIndex
j = Application.Match(Me.ListBox1.List(i, 0), Sheets("Database").Range("b:b"), 0)
If Me.ListBox1.Selected(i) = True Then
TextBox1.Text = Me.ListBox1.List(i, 0)
TextBox2.Text = Me ...

:D ตัวอย่าง Code ครับ


dim i as integer
i=me.listbox1.listindex
if me.listbox1.selected(i)=true then
textbox1.text=me.listbox1,list(i,0)
textbox2.text=me.listbox1,list(i,1)
'...
end if

หลังจากนำ Code มาปรับแก้ไขแล้ว ( me.listbox1,list(i,0) >me.listbox1.list(i,0) ) สามารถคลิกเลือกรายการจาก ...

Private Sub ListBox1_Click()
TextBox1.Value = ListBox1.Column(0, ListBox1.ListIndex)
TextBox2.Value = ListBox1.Column(1, ListBox1.ListIndex)
TextBox3.Value = ListBox1.Column(2, ListBox1.ListIndex)
TextBox4.Value = ListBox1.Column(3, ListBox1.ListIndex)
ComboBox3.Value = ListBox1.Column(4, ListBox1 ...