Snasui Excel Forum

ได้แล้วครับอาจารย์ snasui ขอบคุณมากครับ

:lol: มันจะแสดงอีกไม่ได้เพราะมีการ Clear ทิ้งไปแล้วที่บรรทัด [c]Range("A64:J90").ClearContents[/c] ของ Procedure [c]Private Sub InputNew_Click()[/c] ถ้าจะให้คงอยู่ก็ต้องไม่ Clear ทิ้งครับ

ใน sheet"Form" นะครับอาจารย์ snasui

[quote=wisitsakbenz post_id=98722 time=1579062258 user_id=31034]
ไปที่ Sheet "Menu" > คลิก Menu > เลือก Mode of Medevac เป็น Commercial Flight คลิกปุ่ม Preview
ไปที่ Sheet "Forms" ข้อมูลจะแสดงใน Line ที่ 64 ปกติ
[/quote]:D ค่อย ๆ ถามตอบไปครับ

ผมทดสอบแล้วไม่พบว่าข้อมูลแสดงใน Line 64 ตามที่แจ้งมาครับ

Sub GetData()

 Sheets("Forms").Range("A64:J90").ClearContents

            Dim rFind As Range, rDataAll As Range
            Dim r As Range, rTarget As Range
            Dim ws As Worksheet, i As Integer
                Set ws = Worksheets("Forms")
                Set rFind = Sheets("Forms").Range("D11")
                Application.EnableEvents = False
                ws.Range("A64:J90").ClearContents
                
                If Sheets("Forms").Range("D11") = "" Then Exit Sub
                
                With Sheets("List")
                    Set rDataAll = .Range("B38", .Range("B" & Rows.Count).End(xlUp))
                    If .Columns("B:B").Find(rFind, LookIn:=xlValues) Is Nothing Then
                        MsgBox ("ไม่มีรายการนี้")
                        Exit Sub
                    End If
                End With
                i = 64
                For Each r In rDataAll
                    If r = rFind Then
                            ws.Range("B" & i).Resize(1, 3).Value = _
                            r.Offset(0, 1).Resize(1, 3).Value
                        i = i + 1
                    End If
                Next r
                Application.EnableEvents = True
           ' MsgBox "Get data has finished."
            Set ws = Nothing
           Set rFind = Nothing
           Set rDataAll = Nothing
          
End Sub

[code]
Sub GetData()

Sheets("Forms").Range("A64:J90").ClearContents

Dim rFind As Range, rDataAll As Range
Dim r As Range, rTarget As Range
Dim ws As Worksheet, i As Integer
Set ws = Worksheets("Forms")
Set rFind = Sheets("Forms").Range("D11")
Application.EnableEvents = False
ws.Range("A64:J90").ClearContents

If Sheets("Forms").Range("D11") = "" Then Exit Sub

With Sheets("List")
Set rDataAll = .Range("B38", .Range("B" & Rows.Count).End(xlUp))
If .Columns("B:B").Find(rFind, LookIn:=xlValues) Is Nothing Then
MsgBox ("ไม่มีรายการนี้")
Exit Sub
End If
End With
i = 64
For Each r In rDataAll
If r = rFind Then
ws.Range("B" & i).Resize(1, 3).Value = _
r.Offset(0, 1).Resize(1, 3).Value
i = i + 1
End If
Next r
Application.EnableEvents = True
' MsgBox "Get data has finished."
Set ws = Nothing
Set rFind = Nothing
Set rDataAll = Nothing

End Sub
[/Code]

เรียนอาจารย์ครับ ผมลองเขียน Code ดู

ไปที่ Sheet "Menu" > คลิก Menu > เลือก Mode of Medevac เป็น Commercial Flight คลิกปุ่ม Preview
ไปที่ Sheet "Forms" ข้อมูลจะแสดงใน Line ที่ 64 ปกติ
คลิกปุ่ม "New" > Preview เพื่อ Get ค่าต่าง ๆ ใน Forms ให้เป็นค่าว่าง หลังจากนั้น
เลือก Mode of Medevac เป็น Air Ambulance > Previewข้อมูลจะไม่แสดงใน Line ที่ 64

ต้องปรับ Code อย่างไรบ้างครับ ขอบคุณครับ

แก้ไขไฟล์ให้แล้วครับอาจารย์ ขอบคุณครับ

:D ตอนนี้คลิกปุ่ม Preview แล้ว Error กรุณาแก้ไขแล้วแนบมาใหม่อีกรอบครับ

เรียน สอบถามอาจารย์ครับ

[b]วิธีการคือ[/b] ไปที่ Sheet "Menu" > คลิกปุ่ม "Menu" ใน UserForm1 : Combobox

ถ้าเลือก Mode of Medevac เป็น [b]Air Ambulance[/b] คลิกปุ่ม Preview ข้อมูลในส่วนของ TERM AND CONDITIONS (บรรทัดที่ 60) จะแสดงข้อมูลของ Air Ambulance และ Commercial Flight จะไม่นำมาแสดง
แต่ถ้าเลือก Mode of Medevac เป็น [b]Commercial Flight[/b] คลิกปุ่ม Preview ข้อมูลในส่วนของ TERM AND CONDITIONS (บรรทัดที่ 60) จะแสดงข้อมูลของ Commercial Flight และ Air Ambulance จะไม่นำมาแสดง

หมายเหตุ : Code จะอยู่ใน UserForm1 ครับ

ต้องปรับ Code อย่างไรบ้างครับ ขอบคุณครับ