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 LCase(x(i, e)) Like LC...

แสดงการเลือก 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 ...

แต่หากจะให้แสดงเฉพาะค่าที่คล้ายกับค่าที่ต้องการค้นหา แนวทางนี้มาผิดทางครับ การทำเช่นนั้นควรจะ 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.ListIndex = i Exit...

ยกเลิกอันล่างครับ ใช้ตัวที่ผมให้ครับ ใช้ซ้อนกันไม่ได้ครับ จุดประสงค์จริงๆคืออยากได้ตามรูปด้านล่างนี้ครับ มีกี่รายการก็โชว์ขึ้นมา จากรูปในช่องค้นหา พิมพ์ 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 End Sub ไม่...

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...

: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) ) สามารถคลิกเลือกรายการจาก Listbox ได...

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....