Page 1 of 1

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

Posted: Fri Oct 18, 2019 3:41 pm
by wisitsakbenz
รบกวนอาจารย์ครับ อยากให้มี * นำหน้าแต่ละหัวข้อครับ

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

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

Posted: Fri Oct 18, 2019 9:53 pm
by snasui
:D ตัวอย่าง Code ครับ

Code: Select all

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

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

Posted: Mon Oct 21, 2019 8:45 am
by wisitsakbenz
ขอโทษที่ตอบช้านะครับ

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

ขอบคุณครับ

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

Posted: Mon Oct 21, 2019 7:34 pm
by snasui
:D ตัวอย่าง 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

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

Posted: Tue Oct 22, 2019 8:25 am
by wisitsakbenz
ได้แล้วครับ ขอบคุณครับอาจารย์ snasui