Excel range as BB code Table in the Immediate window for posting into forum
Code
Option Explicit
Sub test()
BB_Table Range("D1:F20"), True
End Sub
Sub BB_Table(BB_Range As Range, Optional BBHeader As Boolean = True)
Dim BB_Row As Range
Dim BB_Cells As Range
Debug.Print "[table=" & """" & "class: grid" & """" & "]"
If BBHeader Then
Debug.Print "[tr][td][/td]"
For Each BB_Cells In BB_Range.Rows(1).Cells
Debug.Print "[td]" & Chr$(BB_Cells.Column + 64) & "[/td]"
Next BB_Cells
Debug.Print "[/tr]"
End If
For Each BB_Row In BB_Range.Rows
Debug.Print "[tr]"
If BBHeader Then
Debug.Print "[td]" & BB_Row.Row & "[/td]"
End If
For Each BB_Cells In BB_Row.Cells
Debug.Print "[td]" & BB_Cells.Text & "[/td]"
Next BB_Cells
Debug.Print "[/tr]"
Next BB_Row
Debug.Print "[/table]"
End Sub
Display More
out put:
[table= & "" & width: 500, class: grid, align: center& "" & ]
[tr][td][/td]
[th]D[/th]
E
[/td][td]F
[/td][/tr][tr][td]1
[/td][td]order
[/td][td]product
[/td][td]qty
[/td][/tr][tr][td]2
[/td][td]1001
[/td][td]orange
[/td][td]3
[/td][/tr][tr][td]3
[/td][td]1002
[/td][td]berry red
[/td][td]1
[/td][/tr][tr][td]4
[/td][td]1002
[/td][td]berry red
[/td][td]1
[/td][/tr][tr][td]5
[/td][td]1002
[/td][td]berry purple
[/td][td]1
[/td][/tr][tr][td]6
[/td][td]1003
[/td][td]apple red
[/td][td]1
[/td][/tr][tr][td]7
[/td][td]1003
[/td][td]apple green
[/td][td]2
[/td][/tr][tr][td]8
[/td][td]1004
[/td][td]berry red
[/td][td]1
[/td][/tr][tr][td]9
[/td][td]1004
[/td][td]apple red
[/td][td]1
[/td][/tr][tr][td]10
[/td][td]1004
[/td][td]berry purple
[/td][td]1
[/td][/tr][tr][td]11
[/td][td]1005
[/td][td]orange
[/td][td]1
[/td][/tr][tr][td]12
[/td][td]1005
[/td][td]apple red
[/td][td]2
[/td][/tr][tr][td]13
[/td][td]1006
[/td][td]berry red
[/td][td]1
[/td][/tr][tr][td]14
[/td][td]1006
[/td][td]apple red
[/td][td]1
[/td][/tr][tr][td]15
[/td][td]1006
[/td][td]berry purple
[/td][td]1
[/td][/tr][tr][td]16
[/td][td]1007
[/td][td]apple green
[/td][td]2
[/td][/tr][tr][td]17
[/td][td]1007
[/td][td]apple red
[/td][td]1
[/td][/tr][tr][td]18
[/td][td]1008
[/td][td]berry red
[/td][td]1
[/td][/tr][tr][td]19
[/td][td]1008
[/td][td]blue berry
[/td][td]1
[/td][/tr][tr][td]20
[/td][td]1008
[/td][td]berry purple
[/td][td]1
[/td][/tr]
[/table]