Snasui Excel Forum

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

'Other code
Dim t As Variant
 
HeadingRow = WF.Range("FormsFirstLine").Row
CurrentRow = HeadingRow

For Each AmountCell In WI.Range("InputHospitalCharges").Cells
    If AmountCell <> "" And AmountCell <> "Include" And AmountCell <> "0" 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
            t = WF.Cells(CurrentRow, 1).Resize(1, 5)
            WF.Cells(CurrentRow, 1).Resize(1, 5).Value = _
                WF.Cells(HeadingRow + l, 1).Resize(1, 5).Value
            WF.Cells(HeadingRow + l, 1).Resize(1, 5).Value = t
        End If
    End If

Next
            
If HeadingRow <> CurrentRow Then HeadingRow = CurrentRow + 2
CurrentRow = HeadingRow

l = 0
'Other code

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

[code]
'Other code
Dim t As Variant

HeadingRow = WF.Range("FormsFirstLine").Row
CurrentRow = HeadingRow

For Each AmountCell In WI.Range("InputHospitalCharges").Cells
If AmountCell <> "" And AmountCell <> "Include" And AmountCell <> "0" 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
t = WF.Cells(CurrentRow, 1).Resize(1, 5)
WF.Cells(CurrentRow, 1).Resize(1, 5).Value = _
WF.Cells(HeadingRow + l, 1).Resize(1, 5).Value
WF.Cells(HeadingRow + l, 1).Resize(1, 5).Value = t
End If
End If

Next

If HeadingRow <> CurrentRow Then HeadingRow = CurrentRow + 2
CurrentRow = HeadingRow

l = 0
'Other code
[/code]

ขอโทษด้วยครับอาจารย์ ยังไม่ได้ครับ มองผิด

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

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

ตอนนี้ได้แล้วนะครับอาจารย์ แต่อยากให้มีช่องว่างก่อนจะขึ้นหัวข้อใหม่ ไม่ทราบว่าต้องแก้ Code ตรงไหนบ้างครับ

ขอโทษครับอาจารย์

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

:D กรณีเป็นคำถามที่ต่อเนื่องจากกระทู้เดิม ให้ถามในกระทู้นั้น ไม่ควรเปิดกระทู้ใหม่ จะได้สะดวกในการติดตามและสะดวกต่อการเรียนรู้ของเพื่อนสมาชิก

[color=#FF4000]กรุณาเขียน Code สำหรับสิ่งที่ถามมาเองก่อน[/color] ติดแล้วค่อยถามกันครับ

รบกวนอาจารย์ครับ ถ้าไม่ต้องการให้โชว์ค่าที่เป็น - และ include และเว้นบรรทัดในแต่ละหัวข้อด้วยครับ

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