:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ช่วยปรับ codeให้ค้นหาคอลัมน์

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

ช่วยปรับ codeให้ค้นหาคอลัมน์

#1

Post by rich37 »

ช่วยปรับ codeให้ค้นหาคอลัมน์ B แทน คอลัมน์ A และให้ TextBox1 สามารถรับค่าเพื่อค้นหาและเพิ่มข้อมูลได้
ณ ตอนนี้หากกดค้นหาโดยใส่เป็นเลขลำดับจะเป็นการค้นหาแต่หากใส่หมายเลขคดีจะไม่มีการค้นหาใดๆเลย โดยคอลัมน์ A ซึ่งเป็นลำดับ ไม่ใช่หมายเลขคดีอย่างที่ต้องการ รบกวนด้วยครับ

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
Dim myRange As Range
    Set myRange = Worksheets("Database").Range("_Data")
On Error Resume Next
        TextBox2.Value = _
        Application.WorksheetFunction.VLookup(--(TextBox1.Value), myRange, 3, False)
        TextBox3.Value = _
        Application.WorksheetFunction.VLookup(--(TextBox1.Value), myRange, 4, False)
        TextBox4.Value = _
        Application.WorksheetFunction.VLookup(--(TextBox1.Value), myRange, 5, False)
        TextBox5.Value = _
        Application.WorksheetFunction.VLookup(--(TextBox1.Value), myRange, 6, False)
        TextBox6.Value = _
        Application.WorksheetFunction.VLookup(--(TextBox1.Value), myRange, 7, False)
        ComboBox1.Value = _
        Application.WorksheetFunction.VLookup(--(TextBox1.Value), myRange, 8, False)
        ComboBox2.Value = _
        Application.WorksheetFunction.VLookup(--(TextBox1.Value), myRange, 9, False)
End Sub
You do not have the required permissions to view the files attached to this post.
User avatar
DhitiBank
Gold
Gold
Posts: 1676
Joined: Mon Oct 15, 2012 12:07 am

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#2

Post by DhitiBank »

ลองแบบนี้ครับ

1. ปรับสูตร range name ชื่อ _Data เป็น
=OFFSET(Database!$A$1,1,1,COUNTA(Database!$A:$A)-1,COUNTA(Database!$1:$1)-1)

2. ปรับโค้ดในส่วนที่เป็น Vlookup นิดหน่อยครับ
จากเดิม
Application.WorksheetFunction.VLookup([color=#FF0000]--([/color]TextBox1.Value[color=#FF0000])[/color], myRange, 3, False)
เป็น
Application.WorksheetFunction.VLookup(TextBox1.Value, myRange, 3, False)
เอาออกให้หมด แล้วลองรันโค้ดดูใหม่ครับ
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#3

Post by puriwutpokin »

ตาม คุณDhitiBank ให้เปลี่ยนลำดับการค้นหาตามกันไปด้วย

Code: Select all

Application.WorksheetFunction.VLookup(TextBox1.Value, myRange,3, False)
เป็น

Code: Select all

Application.WorksheetFunction.VLookup(TextBox1.Value, myRange,2, False)
รันลดไปเรื่อยนะครับ 4 เป็น 3 และตัวต่อไปด้วยครับ
:shock: :roll: :D
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#4

Post by rich37 »

DhitiBank wrote:ลองแบบนี้ครับ

1. ปรับสูตร range name ชื่อ _Data เป็น
=OFFSET(Database!$A$1,1,1,COUNTA(Database!$A:$A)-1,COUNTA(Database!$1:$1)-1)

2. ปรับโค้ดในส่วนที่เป็น Vlookup นิดหน่อยครับ
จากเดิม
Application.WorksheetFunction.VLookup([color=#FF0000]--([/color]TextBox1.Value[color=#FF0000])[/color], myRange, 3, False)
เป็น
Application.WorksheetFunction.VLookup(TextBox1.Value, myRange, 3, False)
เอาออกให้หมด แล้วลองรันโค้ดดูใหม่ครับ
ขอบคุณครับ ลองปรับแล้วใช้งานได้ครับ ในส่วนหากต้องการเพิ่มข้อมูลหรือแก้ไขข้อมูลจกาที่ค้นหาหรือเพิ่มใหม่ควรปรับแก้อย่างไรครับ
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#5

Post by rich37 »

puriwutpokin wrote:ตาม คุณDhitiBank ให้เปลี่ยนลำดับการค้นหาตามกันไปด้วย

Code: Select all

Application.WorksheetFunction.VLookup(TextBox1.Value, myRange,3, False)
เป็น

Code: Select all

Application.WorksheetFunction.VLookup(TextBox1.Value, myRange,2, False)
รันลดไปเรื่อยนะครับ 4 เป็น 3 และตัวต่อไปด้วยครับ
ปรับแล้วใช้ได้ครับ ขอบคุณครับ แต่ติดปัญหาใหม่ครับว่าจะกดเพิ่มข็อมูลหรือกดเพื่อแก้ไขบางรายการที่ค้นหามาแล้วให้กลับไปไว้ที่จุดที่ค้นหาออกมาครับ
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#6

Post by puriwutpokin »

ลองดูตามไฟล์แนบครับติดตรงไหนค่อยมาดูกันอีกทีครับ
You do not have the required permissions to view the files attached to this post.
:shock: :roll: :D
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#7

Post by rich37 »

puriwutpokin wrote:ลองดูตามไฟล์แนบครับติดตรงไหนค่อยมาดูกันอีกทีครับ
ขอบคุณมากๆครับ ขอทดสอบดูก่อนนะครับ
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#8

Post by puriwutpokin »

หรือทำเป็นปุ๋มเดียวก็ปรับตามโค้ดนี้ครับใช้ฟอร์มเดิมครับ

Code: Select all

Private Sub CommandButton2_Click()
Dim icolumn  As Long
Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Database")
    'find first empty row in database
    icolumn = ws.Cells(Rows.Count, 2) _
        .End(xlUp).Offset(1, 0).Row
    'Check for Id
    If Trim(Me.TextBox1.Value) = "" Then
        Me.TextBox1.SetFocus
        MsgBox "คุณยังไม่ได้ใส่ข้อมูล"
        Exit Sub
        Else
          If Application.CountIf(ws.Range("B2:B10000"), Trim(Me.TextBox1.Value)) = 0 Then
    'copy the data to the database
    ws.Cells(icolumn, 2).Value = Me.TextBox1.Value
    ws.Cells(icolumn, 3).Value = Me.TextBox2.Value
    ws.Cells(icolumn, 4).Value = Me.TextBox3.Value
    ws.Cells(icolumn, 5).Value = Me.TextBox4.Value
    ws.Cells(icolumn, 6).Value = Me.TextBox5.Value
    ws.Cells(icolumn, 7).Value = Me.TextBox6.Value
    ws.Cells(icolumn, 8).Value = Me.ComboBox1.Value
    ws.Cells(icolumn, 9).Value = Me.ComboBox2.Value
    'Clear the data
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
    Me.TextBox4.Value = ""
    Me.TextBox5.Value = ""
    Me.TextBox6.Value = ""
    Me.ComboBox1.Value = ""
    Me.ComboBox2.Value = ""
    Me.TextBox1.SetFocus
    MsgBox "เพิ่มข้อมูลเรียบร้อย"
    Else
        If Trim(Me.TextBox1.Value) = "" Then
        MsgBox "คุณยังไม่ได้ใส่ข้อมูล"
        Exit Sub
Else
        iRow = _
        Application.WorksheetFunction.Match(TextBox1.Value, ws.Range("B2:B10000"), 0) + 1
    ws.Cells(iRow, 2).Value = Me.TextBox1.Value
    ws.Cells(iRow, 3).Value = Me.TextBox2.Value
    ws.Cells(iRow, 4).Value = Me.TextBox3.Value
    ws.Cells(iRow, 5).Value = Me.TextBox4.Value
    ws.Cells(iRow, 6).Value = Me.TextBox5.Value
    ws.Cells(iRow, 7).Value = Me.TextBox6.Value
    ws.Cells(iRow, 8).Value = Me.ComboBox1.Value
    ws.Cells(iRow, 9).Value = Me.ComboBox2.Value
    'Clear the data
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
    Me.TextBox4.Value = ""
    Me.TextBox5.Value = ""
    Me.TextBox6.Value = ""
    Me.ComboBox1.Value = ""
    Me.ComboBox2.Value = ""
    Me.TextBox1.SetFocus
    MsgBox "แก้ไขข้อมูลเรียบร้อย"
     End If
       End If
         End If
  End Sub
:shock: :roll: :D
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#9

Post by rich37 »

puriwutpokin wrote:หรือทำเป็นปุ๋มเดียวก็ปรับตามโค้ดนี้ครับใช้ฟอร์มเดิมครับ

Code: Select all

Private Sub CommandButton2_Click()
Dim icolumn  As Long
Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Database")
    'find first empty row in database
    icolumn = ws.Cells(Rows.Count, 2) _
        .End(xlUp).Offset(1, 0).Row
    'Check for Id
    If Trim(Me.TextBox1.Value) = "" Then
        Me.TextBox1.SetFocus
        MsgBox "คุณยังไม่ได้ใส่ข้อมูล"
        Exit Sub
        Else
          If Application.CountIf(ws.Range("B2:B10000"), Trim(Me.TextBox1.Value)) = 0 Then
    'copy the data to the database
    ws.Cells(icolumn, 2).Value = Me.TextBox1.Value
    ws.Cells(icolumn, 3).Value = Me.TextBox2.Value
    ws.Cells(icolumn, 4).Value = Me.TextBox3.Value
    ws.Cells(icolumn, 5).Value = Me.TextBox4.Value
    ws.Cells(icolumn, 6).Value = Me.TextBox5.Value
    ws.Cells(icolumn, 7).Value = Me.TextBox6.Value
    ws.Cells(icolumn, 8).Value = Me.ComboBox1.Value
    ws.Cells(icolumn, 9).Value = Me.ComboBox2.Value
    'Clear the data
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
    Me.TextBox4.Value = ""
    Me.TextBox5.Value = ""
    Me.TextBox6.Value = ""
    Me.ComboBox1.Value = ""
    Me.ComboBox2.Value = ""
    Me.TextBox1.SetFocus
    MsgBox "เพิ่มข้อมูลเรียบร้อย"
    Else
        If Trim(Me.TextBox1.Value) = "" Then
        MsgBox "คุณยังไม่ได้ใส่ข้อมูล"
        Exit Sub
Else
        iRow = _
        Application.WorksheetFunction.Match(TextBox1.Value, ws.Range("B2:B10000"), 0) + 1
    ws.Cells(iRow, 2).Value = Me.TextBox1.Value
    ws.Cells(iRow, 3).Value = Me.TextBox2.Value
    ws.Cells(iRow, 4).Value = Me.TextBox3.Value
    ws.Cells(iRow, 5).Value = Me.TextBox4.Value
    ws.Cells(iRow, 6).Value = Me.TextBox5.Value
    ws.Cells(iRow, 7).Value = Me.TextBox6.Value
    ws.Cells(iRow, 8).Value = Me.ComboBox1.Value
    ws.Cells(iRow, 9).Value = Me.ComboBox2.Value
    'Clear the data
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
    Me.TextBox4.Value = ""
    Me.TextBox5.Value = ""
    Me.TextBox6.Value = ""
    Me.ComboBox1.Value = ""
    Me.ComboBox2.Value = ""
    Me.TextBox1.SetFocus
    MsgBox "แก้ไขข้อมูลเรียบร้อย"
     End If
       End If
         End If
  End Sub
ถ้าเราจะเพิ่มกล่องรับวันที่ ที่เราจัดเก็บข้อมูลเข้าไปสามารถเพิ่มได้ไหมครับ
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#10

Post by puriwutpokin »

ก็ทำได้เมื่อ TextBox อื่นๆครับ ลองเขียนมาดูก่อนครับ ติดขัดแล้วค่อยมาถามกันใหม่ครับ
:shock: :roll: :D
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#11

Post by rich37 »

puriwutpokin wrote:ก็ทำได้เมื่อ TextBox อื่นๆครับ ลองเขียนมาดูก่อนครับ ติดขัดแล้วค่อยมาถามกันใหม่ครับ
ขอบคุณครับลองปรับใส่วันที่แล้ว ได้ผลตามต้องการครับ แต่ติดปัญหาตรงที่ใน Textbox7 จะโชว์วันที่ในรูปแบบที่เป็นตัวเลข แบบนี้ครับ 241136 ซึ่งค่าในชีต Database คือ 15 มีนาคม 2560 ( พิมพ์ 15/3/2017) แก้แบบไหนดีครับ

Code: Select all

Private Sub UserForm_Initialize()
TextBox7.Value = Format(Date, "dd mmmm yyyy")
A = "Person!_Type"
ComboBox1.RowSource = A
B = "Person!_Person"
ComboBox2.RowSource = B
End Sub
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#12

Post by rich37 »

หากต้องการเปลี่ยนการค้นหาให้สามารถค้นหาได้ทั้งหมด ใน Worksheets("Database")ควรจะแก้ไขอย่างไรดีครับ

Code: Select all

Private Sub CommandButton2_Click()
Dim icolumn  As Long
Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Database")
    'find first empty row in database
    icolumn = ws.Cells(Rows.Count, 2) _
        .End(xlUp).Offset(1, 0).Row
    'Check for Id
    If Trim(Me.TextBox1.Value) = "" Then
        Me.TextBox1.SetFocus
        MsgBox "คุณยังไม่ได้ใส่ข้อมูล"
        Exit Sub
        Else
          If Application.CountIf(ws.Range("B2:B10000"), Trim(Me.TextBox1.Value)) = 0 Then
    'copy the data to the database
    ws.Cells(icolumn, 2).Value = Me.TextBox1.Value
    ws.Cells(icolumn, 3).Value = Me.TextBox2.Value
    ws.Cells(icolumn, 4).Value = Me.TextBox3.Value
    ws.Cells(icolumn, 5).Value = Me.TextBox4.Value
    ws.Cells(icolumn, 6).Value = Me.TextBox5.Value
    ws.Cells(icolumn, 7).Value = Me.TextBox6.Value
    ws.Cells(icolumn, 8).Value = Me.ComboBox1.Value
    ws.Cells(icolumn, 9).Value = Me.ComboBox2.Value
    'Clear the data
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
    Me.TextBox4.Value = ""
    Me.TextBox5.Value = ""
    Me.TextBox6.Value = ""
    Me.ComboBox1.Value = ""
    Me.ComboBox2.Value = ""
    Me.TextBox1.SetFocus
    MsgBox "เพิ่มข้อมูลเรียบร้อย"
    Else
        If Trim(Me.TextBox1.Value) = "" Then
        MsgBox "คุณยังไม่ได้ใส่ข้อมูล"
        Exit Sub
Else
        iRow = _
        Application.WorksheetFunction.Match(TextBox1.Value, ws.Range("B2:B10000"), 0) + 1
    ws.Cells(iRow, 2).Value = Me.TextBox1.Value
    ws.Cells(iRow, 3).Value = Me.TextBox2.Value
    ws.Cells(iRow, 4).Value = Me.TextBox3.Value
    ws.Cells(iRow, 5).Value = Me.TextBox4.Value
    ws.Cells(iRow, 6).Value = Me.TextBox5.Value
    ws.Cells(iRow, 7).Value = Me.TextBox6.Value
    ws.Cells(iRow, 8).Value = Me.ComboBox1.Value
    ws.Cells(iRow, 9).Value = Me.ComboBox2.Value
    'Clear the data
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
    Me.TextBox4.Value = ""
    Me.TextBox5.Value = ""
    Me.TextBox6.Value = ""
    Me.ComboBox1.Value = ""
    Me.ComboBox2.Value = ""
    Me.TextBox1.SetFocus
    MsgBox "แก้ไขข้อมูลเรียบร้อย"
     End If
       End If
         End If
  End Sub
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#13

Post by puriwutpokin »

แนบไฟล์ล่าสุดมาดู ครับจะได้เข้าใจตรงกันครับ
:shock: :roll: :D
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#14

Post by rich37 »

puriwutpokin wrote:แนบไฟล์ล่าสุดมาดู ครับจะได้เข้าใจตรงกันครับ
ได้แนบไฟล์มาแล้วครับ และหากต้องการให้กดค้นหาแล้วไม่พบข้อมูลให้ MsgBox ขึ้นว่าไม่พบข้อมูลด้วยผมลองแล้วไม่สามารถทำได้ครับ
You do not have the required permissions to view the files attached to this post.
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#15

Post by puriwutpokin »

Code: Select all

...Other code
    If Trim(Me.TextBox1.Value) = "" Then
        Me.TextBox1.SetFocus
        ...Other code
:shock: :roll: :D
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#16

Post by rich37 »

puriwutpokin wrote:

Code: Select all

...Other code
    If Trim(Me.TextBox1.Value) = "" Then
        Me.TextBox1.SetFocus
        ...Other code
ค่าใน Textbox1 ไม่ว่างนี่สิครับเพราะเราใส่คำเข้าไปให้ค้นหา
You do not have the required permissions to view the files attached to this post.
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#17

Post by puriwutpokin »

Code: Select all

...Other code
If Trim(Me.TextBox1.Value) = "" Or Application.CountIf(ws.Range("B2:B10000"), Trim(Me.TextBox1.Value)) = 0 Then
...Other code
:shock: :roll: :D
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#18

Post by rich37 »

puriwutpokin wrote:

Code: Select all

...Other code
If Trim(Me.TextBox1.Value) = "" Or Application.CountIf(ws.Range("B2:B10000"), Trim(Me.TextBox1.Value)) = 0 Then
...Other code
ผลออกมาว่า การค้นหา ไม่พบทั้งหมดเลย ทั้งๆที่ข้อมูลมีครับ
ตามไฟล์รูปแนบครับ
You do not have the required permissions to view the files attached to this post.
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#19

Post by puriwutpokin »

แก้ไขโค้ดครับ

Code: Select all

...other code On Error Resume Next
    Dim ws As Worksheet
    Set ws = Worksheets("Database")
Dim myRange As Range
    Set myRange = Worksheets("Database").Range("_Data")
    If Application.CountIf(ws.Range("B2:B10000"), Trim(Me.TextBox1.Value)) = 0 Then
        Me.TextBox1.SetFocus
        MsgBox "ไม่พบข้อมูล", vbInformation, "ระบบค้นหาสำนวน"
        Exit Sub...other code
:shock: :roll: :D
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: ช่วยปรับ codeให้ค้นหาคอลัมน์

#20

Post by rich37 »

puriwutpokin wrote:แก้ไขโค้ดครับ

Code: Select all

...other code On Error Resume Next
    Dim ws As Worksheet
    Set ws = Worksheets("Database")
Dim myRange As Range
    Set myRange = Worksheets("Database").Range("_Data")
    If Application.CountIf(ws.Range("B2:B10000"), Trim(Me.TextBox1.Value)) = 0 Then
        Me.TextBox1.SetFocus
        MsgBox "ไม่พบข้อมูล", vbInformation, "ระบบค้นหาสำนวน"
        Exit Sub...other code
ใช้ได้แล้วครับขึ้นโชว์ข้อความตามที่ต้องการ ขอบคุณครับ
และหากต้องการเปลี่ยนการค้นหาให้สามารถค้นหาได้ทั้งหมด ใน Worksheets("Database") โดยการที่จะให้พิมพ์ค่าไหนก็ได้ลงใน Textbox1โดยไม่จำกัดเฉพาะว่าเป็นหมายเลขคดีแดง สามารถทำได้ไหมครับ ช่วยแนะนำด้วยครับ
Post Reply