Snasui Excel Forum

Leng wrote: Wed Dec 19, 2018 9:17 am สวัสดีครับผมอยากสอบถามเรื่องโค๊ดหน่อยครับ
คือผมต้องการพิมพ์ข้อมูลในTextbox 1 ใน sheet 1 ครับ เพื่อค้นหาว่าข้อมูล ใน Textbox 1 อยู่ใน Cell ไหนของ sheet 1 และให้ทำสีไว้ในช่องนั้น
เช่น
ถ้าผมพิมพ์คำว่า A ในTextbox1 ก็ให้ค้นหาว่า sheet 1 คำว่า A อยู่ตรงในใน Sheet 1 บ้างครับ และทำสีไว้

Code: Select all

Private Sub TextBox1_Change()
    Dim i As Integer
    Dim sel As Range
    Set sel = [a1:ak500]
    sel.Interior.ColorIndex = 0
    For i = 1 To sel.Rows.Count
        If sel.Rows(i).Cells(i).Value = [TextBox1].Value Then
            sel.Rows(i).Interior.ColorIndex = 40
        End If
    Next i
End Sub

Private Sub TextBox1_Change()
    Dim rng As Range, cell As Range
    Set rng = [a1:ak500]
    rng.Interior.ColorIndex = 0
For Each cell In rng
If cell.Value = [TextBox1].Value Then
cell.Interior.ColorIndex = 40
 End If
Next cell
End Sub

Leng wrote: Wed Dec 19, 2018 1:05 pm ได้แล้วครับแต่พอผมเพิ่ม ปุ่ม CommandButton1 เพื่อให้เป็นปุ่มคลิ๊กเพื่อค้นหาดันไม่ขึ้นครับต้องแกยังไงหรอครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim rng As Range, cell As Range
    Set rng = [a1:ak500]
    rng.Interior.ColorIndex = 0
For Each cell In rng
If cell.Value = TextBox1.Value Then
cell.Interior.ColorIndex = 40
 End If
Next cell
End Sub

Leng wrote: Wed Dec 19, 2018 5:22 pm ทำไมพอใช้เป็นตัวเลขถึงไม่ขึ้นหรอครับ

Private Sub CommandButton1_Click()
    Dim rng As Range, cell As Range
    Set rng = [a1:ak500]
    rng.Interior.ColorIndex = 0
For Each cell In rng
If cell.Value = TextBox1.Text Then
cell.Interior.ColorIndex = 40
 End If
Next cell
End Sub