Macro : อยากให้มี * นำหน้าแต่ละหัวข้อครับ

[wisitsakbenz]

รบกวนอาจารย์ครับ อยากให้มี * นำหน้าแต่ละหัวข้อครับ

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

[snasui]

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

Code: Select all

For Each AmountCell In WI.Range("Exclusions1234").Cells
    If AmountCell.Value <> "" Then
            AmountCell.Value = "*" & AmountCell.Value
    End If
Next

[wisitsakbenz]

ขอโทษที่ตอบช้านะครับ

สิ่งที่อยากได้คือ ต้องการให้กรอกข้อมูลใน Sheet "Input" แล้วคลิกปุ่ม "Getdata" ข้อมูลแสดงผลใน Sheet "Forms"
โดยจะมีเครื่องหมาย * นำหน้าแต่ละหัวข้อย่อยครับ

ขอบคุณครับ

[snasui]

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

Code: Select all

Dim i As Integer
i = 2
For Each amountcell In WI.Range("Exclusions1234").Cells
    If amountcell <> "" Then
        WF.Range("a" & i).Value = "*" & amountcell.Value
        i = i + 1
    End If
Next

[wisitsakbenz]

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