Snasui Excel Forum

ขอบคุณครับ
run อย่างไวเลยครับ
ของผมใช้แบบ ตัวกรอง copy ไป copy มา มันช้าไปหน่อย
ได้code นี้มาดูเป็นธรรมชาติครับ

Dim rsAll As Range, rs As Range, rt As Range
With Sheets("information")
    Set rsAll = .Range("a6", .Range("a" & .Rows.Count).End(xlUp))
    For Each rs In rsAll
        If rs.Value = CInt(Me.ComboBox10.Value) Then
            With .Parent.Worksheets("cal")
                Set rt = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
                rt.Resize(1, 24).Value = rs.Resize(1, 24).Value
            End With
        End If
    Next rs
End With

[quote=yodpao.b post_id=87999 time=1542268542 user_id=1581]
ยังไม่มีใครช่วยแก้ไขเลยครับ
[/quote]

:D สมาชิกหลายท่านไม่ถนัด VBA อาจจะต้องรอสักหน่อย ฟอรัมนี้ไม่มีกระทูใดที่จบแบบไม่มีคำตอบ มีวิธีหรือไม่อย่างไร อย่างน้อยจะมีผมเข้ามาแจ้งครับ

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

[code]Dim rsAll As Range, rs As Range, rt As Range
With Sheets("information")
Set rsAll = .Range("a6", .Range("a" & .Rows.Count).End(xlUp))
For Each rs In rsAll
If rs.Value = CInt(Me.ComboBox10.Value) Then
With .Parent.Worksheets("cal")
Set rt = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
rt.Resize(1, 24).Value = rs.Resize(1, 24).Value
End With
End If
Next rs
End With[/code]

ยังไม่มีใครช่วยแก้ไขเลยครับ

ไฟล์ต้องแยกส่งครับ ส่งพร้อมกันไม่ได้

Private Sub ComboBox10_Change()

Dim R, xCell, ws
Sheets("information").Range("A3").Value = ComboBox10.Value

R = 1
For ws = 2 To ThisWorkbook.Sheets.Count
    For Each xCell In Worksheets(ws).UsedRange
        If xCell = ThisWorkbook.Sheets(3).Cells(1, 3).Value Then
        R = R + 1
        
        Worksheets(3).Cells(R + 2, 1).Value = xCell.Offset(0, 0).Value
        Worksheets(3).Cells(R + 2, 1).Value = xCell.Offset(0, 1).Value
        Worksheets(3).Cells(R + 2, 1).Value = xCell.Offset(0, 2).Value
        End If
    Next xCell
    Next ws

End Sub

ผมเจอ code นี้ น่าจะใช้กันได้ครับ
แต่ code นี้ ผมเข้าใจว่าค้นหาจากทุกหน้า แล้วนำค่าที่ค้นหาได้มารวมไว้หน้าเดียว
[code]Private Sub ComboBox10_Change()

Dim R, xCell, ws
Sheets("information").Range("A3").Value = ComboBox10.Value

R = 1
For ws = 2 To ThisWorkbook.Sheets.Count
For Each xCell In Worksheets(ws).UsedRange
If xCell = ThisWorkbook.Sheets(3).Cells(1, 3).Value Then
R = R + 1

Worksheets(3).Cells(R + 2, 1).Value = xCell.Offset(0, 0).Value
Worksheets(3).Cells(R + 2, 1).Value = xCell.Offset(0, 1).Value
Worksheets(3).Cells(R + 2, 1).Value = xCell.Offset(0, 2).Value
End If
Next xCell
Next ws

End Sub
[/code]

ที่มาของ code https://www.youtube.com/watch?v=-NrTbOaEKG8&t=794s
ลองนำมาปรับใช้ แล้ว งงครับ ไม่รู้ว่าตัวไหนเป็นข้อแม้

ความต้องการ
ค้นหาค่าที่ต้องการ แล้วนำมาแสดงในหน้า "cal"

[attachment=2]pic 1.JPG[/attachment]
จากรูป เลือก เลข 2


[attachment=1]pic 2.JPG[/attachment]
จากรูป ทำการค้นหาโดยใช้ VBA
ข้อแม้ในการค้นหาคือ 2
ถ้าเจอเลข 2 อยู่ในแถวใด ให้นำแถวนั้นมาไว้
ในหน้า cal

[attachment=0]pic 3.JPG[/attachment]
จากรูปผลที่ต้องการ

ผมยังไม่ได้เขียน Code ครับ ไม่รู้จะเขียนยังไง
เคยแต่เรียกค่าในฟอร์มมาที่ Excel
ไม่เคยค้นหาทำจาก Excel ไป Excel
ช่วยหาตัวอย่างได้ไหมครับ

:D เขียนคำสั่งนั้นไว้แล้วที่ Procedure ใด เขียนไว้อย่างไร ติดขัดบรรทัดไหน กรุณาแจ้งมาด้วยครับ

ไฟล์นี้ครับ เรียก from 4

เขียน VBA
คำถาม เมื่อค้นหาค่าใน ComboBox ให้นำมาโชว์ใน excel
[attachment=2]finePic1.JPG[/attachment]
จากรูป 1.คลิกเลือก เลข3

[attachment=1]finePic2.JPG[/attachment]
จากรูป 2.ให้ข้อมูลที่อยู่ในหน้า information ในแถว A ที่มีค่า 3 มาโชว์ ในหน้า cal ในเซล A3

[attachment=0]finePic3.JPG[/attachment]
3.ผลลัพท์ที่ได้