ทดสอบ BBCode

[snasui]

ทดสอบการใช้งาน Custom BBcode

!	หมายเหตุ: ทำตามข้อ 2 ทำตามข้อ 3 ทำตามข้อ 1

[bank9597]

bbcode สวยน่ะครับ แต่ผมใช้ไม่เป็น

[snasui]

ตอน Post Reply คลิกปุ่ม warning ครับ

[bank9597]

:mrgreen: ตอน Post Reply คลิกปุ่ม warning ครับ

[snasui]

ทดสอบ Code

Code: Select all

SubSub test0()
    Dim r As Range
    Dim i As Integer
    i = 3
    For Each r In Selection
        If r.HasArray Then
            Range("af" & i).Value = r.Address(0, 0) & _
                " คีย์สูตร " & "[font=consolas]" & r.Formula & "[/font] Ctrl+Shift+Enter"
        Else
            Range("af" & i).Value = r.Address(0, 0) & _
                " คีย์สูตร " & "[font=consolas]" & r.Formula & "[/font] Enter"
        End If
        i = i + 1
    Next r
End Sub