เลือกรายการจาก Dropdown List (G3) แล้วค่าเปลี่ยน

[wisitsakbenz]

เรียนสอบถามอาจารย์ครับ ถ้าเลือกรายการจาก Dropdown List (G3) แล้วค่า

C2 คือค่า G3

C4 คือค่าจาก Sheet "Data" ช่อง F ในแต่ละ Package ค่าจะต่างกัน
-Diagnostic Hysteroscopy = 32,300
-Hysteroscopic Polypectomy = 82,500
-Hysteroscopic Myomectomy =100,000

C5 คือค่าระยะเวลาในการผ่าตัดและพักฟื้นจาก Sheet "Data" ช่อง E ในแต่ละ Package ค่าจะต่างกัน
-Diagnostic Hysteroscopy = 0
-Hysteroscopic Polypectomy = 1
-Hysteroscopic Myomectomy = 1

C8 คือรายการจาก Sheet "Data" ช่อง G และ H ในแต่ละ Package ค่าจะต่างกัน
-Diagnostic Hysteroscopy
ค่าห้องผ่าตัด 1,000
ค่าบริการพยาบาลห้องผ่าตัด 1,000
ค่าพยาบาลช่วยผ่าตัด 500
ค่าเวชภัณฑ์ห้องผ่าตัด 14,300
ค่าเครื่องมือพิเศษห้องผ่าตัด 3,000
ค่ายา 1,500
ค่าทำศัลยกรรมและหัตถการ 11,000
-Hysteroscopic Polypectomy
ค่าห้องผู้ป่วยใน 2,000
ค่าบริการพยาบาล 1,000
ค่าบริการโรงพยาบาลผู้ป่วยใน 600
ค่าอาหารผู้ป่วยใน 900
ค่าห้องผ่าตัด 1,500
ค่าบริการพยาบาลห้องผ่าตัด 1,000
ค่าพยาบาลช่วยผ่าตัด 500
-Hysteroscopic Myomectomy
ค่าห้องผ่าตัด 1,500
ค่าบริการพยาบาลห้องผ่าตัด 1,000
ค่าพยาบาลช่วยผ่าตัด 500
ค่าเวชภัณฑ์ห้องผ่าตัด 20,619
ค่าเครื่องมือพิเศษห้องผ่าตัด 10,800
ค่าตรวจชิ้นเนื้อ 1,500
ค่าห้องพักฟื้น 700

ต้องปรับ Code ตรงไหนบ้างครับ ขอบคุณครับ

[snasui]

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

Code: Select all

'Other code
Dim ws As Worksheet, i As Integer
Set ws = Worksheets("Display")
Set rFind = Sheets("Display").Range("G3")
Application.EnableEvents = False
ws.Range("C8:D30").ClearContents

If Sheets("Display").Range("G3") = "" Then Exit Sub

With Sheets("Data")
    Set rDataAll = .Range("D2", .Range("D" & Rows.Count).End(xlUp))
    If .Columns("D:D").Find(rFind, LookIn:=xlValues) Is Nothing Then
        MsgBox ("äÁèÁÕ Package ¹Õé")
        Exit Sub
    End If
End With
i = 8
For Each r In rDataAll
    If r = rFind Then
        ws.Range("c" & i).Resize(1, 2).Value = _
            r.Offset(0, 3).Resize(1, 2).Value
        i = i + 1
    End If
Next r
Application.EnableEvents = True
'Other code

[wisitsakbenz]

เรียน อาจารย์ snasui ได้แล้วครับ

ในช่อง C3, C4 , C5 สามารถดึงโดยใช้ macro ช่วยหรือเขียนสูตร excel ได้หรือไม่ครับ

ขอบคุณครับ

[wisitsakbenz]

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

[wisitsakbenz]

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

ถ้าต้องการย้าย Dropdown List (G3) ไป (H3) และได้ทำการแก้ไข Code เป็น H3 แล้ว
ข้อมูลไม่โชว์ ไม่แน่ใจว่าต้องปรับ Code ตรงส่วนอื่นอีกหรือไม่ครับ

ขอบคุณครับ

[puriwutpokin]

แก้ตรงชีท Display

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

        If Not Intersect(Target, Range("H3")) Is Nothing Then
            Call GetData
        End If
End Sub

[wisitsakbenz]

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