อยากให้ Detail แต่ละหัวข้อเรียงต่อกัน โดยมีคำว่า Package ขึ้นก่อนครับ

[wisitsakbenz]

อยากให้ Detail แต่ละหัวข้อเรียงต่อกัน โดยมีคำว่า Package ขึ้นก่อนครับ (หัวข้อใช้ตัวหน้า ขีดเส้นใต้ แล้วตามด้วย Detail)

รบกวนอาจารย์ช่วยดู Code VB ให้หน่อยครับ ขอบคุณครับ

[snasui]

กรุณาแนบไฟล์ที่มี Code มาเรียบร้อยแล้วจะได้สะดวกในการตอบของเพื่อนสมาชิกครับ

[wisitsakbenz]

มีตัวอย่าง Code ในไฟล์แล้วนะครับ อาจารย์ snasui »

[snasui]

Code จะต้องอยู่ใน Module ไม่ใช่อยู่ใน Worksheet ครับ

[wisitsakbenz]

ขนาดไฟล์ 4M กว่าครับ ไม่สามารถแนบได้ครับ อาจารย์

มีวิธีแนบหรือไม่ครับ

[snasui]

กรุณาสร้างไฟล์ใหม่ให้เป็นแค่ตัวอย่างที่เป็นตัวแทนข้อมูลจริง ไม่ควรนำไฟล์จริงมาถาม ตัดมาถามเฉพาะที่ติดปัญหาจะได้ไฟล์ที่มีขนาดเล็กครับ

[wisitsakbenz]

ลดได้เหลือ 2M ครับอาจารย์ รบกวนด้วยครับ

[wisitsakbenz]

แนบไฟล์แล้วครับอาจารย์

รบกวนอาจารย์ด้วยครับ ขอบคุณครับ

[snasui]

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

Code: Select all

Sub test0()
    Dim a(999, 2) As Variant
    Dim i As Integer, strHd As String
    Dim rngAll As Range, rng As Range
    With Worksheets("Input")
        Set rngAll = .Range("b16:b59")
        For Each rng In rngAll
            If rng.Offset(0, -1).Font.Bold Then
                strHd = rng.Offset(0, -1).Value
                i = i + 1
            End If
            If rng.Value <> "" Then
                a(i - 1, 0) = strHd
                a(i, 0) = rng.Offset(0, -1).Value
                a(i, 1) = rng.Value
                a(i, 2) = rng.Offset(0, 1).Value
                i = i + 1
            End If
        Next rng
        .Range("f15").Resize(i, 3) = a
    End With
End Sub

[wisitsakbenz]

อาจารย์ครับ อยากให้แสดงผลดังไฟล์แนบครับ โดยมีหัวข้อ แสดงเป็นตัวหนา ขีดเส้นใต้

-Hospital Charges
-Additional Charges For This Specific Procedure
-Doctor's Fees

รบกวนอาจารย์ด้วยครับ ขอบคุณอาจารย์ครับ

[snasui]

กรุณานำ Code ที่ผมเขียนให้ไปปรับปรุงมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[wisitsakbenz]

อาจารย์ครับ อยากให้แต่ละหัวข้อเรียงต่อกัน โดยมีคำว่า Package ขึ้นก่อนครับ ดังไฟล์แนบ ต่้องปรับ Code ตรงไหนครับ

ขอบคุณครับ

[logic]

ผมเปิดไฟล์แล้วไม่พบโค้ดแบบโพสต์ #9 ในไฟล์ และไม่ใช่แค่มีเฉย ๆ คุณ wisitsakbenz ควรปรับมาก่อนตามโพสต์ #11 อีกด้วยอาจารย์จึงจะอนุญาตให้ตอบ

ที่ผมสงสัยคือ...เอาเกณฑ์ไหนมาเรียงแบบนั้นครับ ถ้าไม่มีหลักเกณฑ์ก็เรียงไม่ได้ครับ

[wisitsakbenz]

ขอโทษครับ ลืมอธิบาย

กรอกรายละเอียด Sheet "Input" หลังจากนั้นคลิกปุ่ม "Button4" ข้อมูลจะถูกแสดงใน sheet "Forms" ครับ

หมายเหตุ : โค้ดแบบโพสต์ #9 จะแสดงใน sheet เดียวกันครับ อยากให้อยู่คนละ Sheet ทางผมเลยแก้ไข Code ใหม่ครับ อาจารย์

Q: ที่ผมสงสัยคือ...เอาเกณฑ์ไหนมาเรียงแบบนั้นครับ ถ้าไม่มีหลักเกณฑ์ก็เรียงไม่ได้ครับ
A: หลักเกณฑ์ คือ ถ้ามี (Package) ให้แสดงก่อนครับ ในแต่ละหัวข้อครับ

ไม่ทราบว่าทำได้หรือไม่ครับ ขอบคุณครับ

[snasui]

หมายเหตุ : โค้ดแบบโพสต์ #9 จะแสดงใน sheet เดียวกันครับ อยากให้อยู่คนละ Sheet ทางผมเลยแก้ไข Code ใหม่ครับ อาจารย์

อันนั้นไม่ใช่ประเด็น จะนำไปวางในชีตใด ไฟล์ใด เครื่องใด สามารถกำหนดได้ทั้งหมดครับ

ตัวอย่างการปรับ Code ตามไฟล์ที่แนบมาครับ

Code: Select all

Dim l As Integer
'Other code
l = 0
For Each AmountCell In WI.Range("InputHospitalCharges").Cells
    If AmountCell <> "" Then
        WF.Cells(HeadingRow, 1) = "Hospital Charges"
        WF.Cells(HeadingRow, 1).Font.Bold = True
        WF.Cells(HeadingRow, 1).Font.Underline = True
        WF.Cells(HeadingRow, 5) = ""
        CurrentRow = CurrentRow + 1
        WF.Cells(CurrentRow, 1) = AmountCell.Offset(0, -2)
        WF.Cells(CurrentRow, 1).Font.Underline = False
        WF.Cells(CurrentRow, 5) = AmountCell.Text
        If InStr(WF.Cells(CurrentRow, 1), "Package") Then
            l = l + 1
            WF.Cells(CurrentRow, 1).Resize(1, 5).Cut
            WF.Cells(HeadingRow + l, 1).Resize(1, 5).Insert
        End If
    End If
Next
'Other code

[wisitsakbenz]

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

[wisitsakbenz]

อาจารย์ครับ เอา Code ไปวางใน Sheet ที่ใช้งานจริง (ไฟล์ขนาดใหญ่ไม่สามารแนบได้ครับ) error ตามไฟล์แนบครับ

รบกวนอาจารย์อีกครั้งครับ ขอบคุณครับ

[snasui]

กรณีไม่มีไฟล์ตัวอย่างให้ทดสอบผมคงช่วยได้เท่านี้ครับ

[wisitsakbenz]

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