test BB Code

**DocAElstein** · 05-29-2016, 08:31 PM

. Hi.
Here are Some notes on an Add-In which allows you to paste a screenshot of a Spreadsheet range, in a form that we can copy to a Spreadsheet.
Here is the current Add-In from Rory Archibald, which he maintains and updates regularly
https://www.dropbox.com/s/31r9s6t9j6...ools.xlam?dl=0

Here are some Add-In versions of mine with minor modifications to the original above
https://app.box.com/s/oa1zouz1ksm68yevndee6yi1v1o0qmmm
https://app.box.com/s/7v5no8t18qqzjwyfqtv1xo5elsyba3o6
https://app.box.com/s/boxjrj2wmlren3tgqqnamzxknnpwyaut

…. I wrote some „Beginners type" Notes on how to get these Add-Ins working, referenced in my signature, again here the link:
https://app.box.com/s/gjpa8mk8ko4vkwcke3ig2w8z2wkfvrtv
. I am sure many Regulars do not need those notes, but possibly beginners like me wishing to use the Add-In may find them useful. Here they are given again below - Appologies that the images are in German. Hopefully the Pictures are still helpful in confirming the steps

A simple Code alternative from Pike is given here:
http://www.excelfox.com/forum/showth...=9805#post9805
Alan

P.s. For all codes, what you do is basically is
Highlight the range you wish to copy.
Copy it to the Clipboard ( Ctrl + C )
Paste in a Forum Post Editor.
It should then look like a lot of BB Code, but when posted it should come out as a Table.
Test here:
http://www.excelfox.com/forum/forumd...p/17-Test-Area

.................................................. ...................

[CENTER][U][B] Notes on Typical Download procedure for Forum Tool "Add

**DocAElstein** · 02-01-2017, 03:16 PM

I often hit the post size character limit.
So every bit of saving of character usage is helpful to me
I often use Rory's Screenshot Tool.
I noticed it had a bit that for every row defined the background colour as white.
I took it out and it seems to have no effect on final output.
So that little change saves a bit of character space for me.
So:-
Taking out the “white background color”.
This is the default background row color, I think. It seems to come out at white anyway, so I took out the explicit “making it white bit”. In long deep tables that will save quite a few characters in the BB Code.
I did this, ‘cos I could

So I did this simple Mod in the Private Function RngToBBC in the mBBCode Normal Code Module, (Basically I just edited out the bit in shown in red)

Code:

            'sOut = sOut & vbNewLine & "[tr=bgcolor:" & csROW_BACK & "]"
            sOut = sOut & vbNewLine & "[tr]" 'Remove white background for entire row
            If bHdr Then sOut = sOut & "[td=bgcolor:" & csHEADER_BACK & "][COLOR=" & csHEADER_COLOR & "]" & rRow.Row & "[/COLOR]
[/td]"

So it used to produce this:
[color=lightgrey]Using Excel 2007 32 bit[/color]
[size=0][Table="width:, class:head"][tr=bgcolor:skyblue][th][COLOR=black][sub]Row[/sub]\[sup]Col[/sup][/COLOR][/th][th][CENTER][COLOR=black]J[/COLOR][/CENTER][/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:skyblue][CENTER][COLOR=black][b]35[/b][/COLOR][/CENTER][/td][td][/td][/tr]
[/table][/size][size=0][color=lightgrey]Worksheet: [/color][b][color=darkblue]Intercepts[/b][/color][/size]
Using Excel 2007 32 bit

_Row\^Col	J
35

Worksheet: Intercepts

After the small code mod I get this:
[color=lightgrey]Using Excel 2007 32 bit[/color]
[size=0][Table="width:, class:head"][tr=bgcolor:skyblue][th][COLOR=black][sub]Row[/sub]\[sup]Col[/sup][/COLOR][/th][th][CENTER][COLOR=black]F[/COLOR][/CENTER][/th][/tr]
[tr][td=bgcolor:skyblue][CENTER][COLOR=black][b]32[/b][/COLOR][/CENTER][/td][td][/td][/tr]
[/table][/size][size=0][color=lightgrey]Worksheet: [/color][b][color=darkblue]Intercepts[/b][/color][/size]
Using Excel 2007 32 bit

_Row\^Col	F
32

Worksheet: Intercepts

This remains a jolly spiffing super Tool in my opinion. I have erected it in more places and more times than I care to remember. It really is the Doggies best

http://www.excelforum.com/showthread...=3#post4573121
http://www.excelfox.com/forum/showth...0055#post10055
http://excelmatters.com/excel-forums/#comment-199330

**DocAElstein** · 03-16-2018, 03:08 PM

Get the Color shade you want to come out in Final Post

I expect there is a better way to do this, but I just hit on a way that works quite well, so I will document and share that now , and edit and update later if I come up with a more scientific and/ or automated way.

As an example , say I have seen this: _ shade _ somewhere, as you see it here, ( there ) . Lets assume I want to post that word in a Forum editor which accepts BB Code tags, ( BB Code tags: http://www.excelfox.com/forum/misc.php?do=bbcode ) such that I get that _ shade _ in the final post just as you see it here ( there )

Here is a way to do it:
_1 ) Use Word to get the shade of shade that you want,
__________________________________

:for example,
_ 1A) highlight any text and experiment with its color:
Word Text Color 0.JPG : https://imgur.com/xpCoo8B
Word Text Color 1 2.JPG : https://imgur.com/agdUo2f
Word Text Color 3.JPG : https://imgur.com/H5czlGV
Word Text Color 4.JPG : https://imgur.com/2ff71Xq
( Hit OK when finished to change selection color)
Word Text Color 0.JPG Word Text Color 1 2.JPG Word Text Color 3.JPG Word Text Color 4.JPG

_ 1B) As an alternative start point, you can find any text color anywhere, for example in the internet, paste into Word and adjust it in Word as per _ 1A)

_2 ) Copy the final Text to the clipboard.
Search the internet for any Word to HTML converter, there are many free ones available. Typically you can paste anything into a Visual Editor and then choose to obtain the HTML code
WordVisualToHTML.JPG : https://imgur.com/T19SMxG
WordVisualToHTML.JPG

_3 ) In the given HTML code will typically be some part referring to the text shade,_..

HTML Code:

 <p><span style="font-size: 11pt; line-height: 115%; font-family: Verdana, sans-serif; color: #417394;">shade</span></p>

_.. here for example, the number of interest is _ color: #417394

_4 ) I assume the number used in the square bracket [ BB Code Color Tags ] pair is the same as in pointy bracket < HTML > code Tags color bit. It appears to be.
So for our example shade you would use this in a forum post_..
____ [color=#417394] shade [/color]
_.. which would come out like this:
__Scrol Tumy_____ shade

( If you want to keep the indent, as I did here (there), and avoid the forum editor “eating” spaces of more than one, ( as most forum editors do this ) ) , then use the white character trick: Post something like this:
[color=white]_ Any_White_Profanity Text [/color] [color=#417394] shade [/color]

Alan

DocAElstein
[color=#417394]
[B][u]DocAElstein[/u][/B][/color]
https://imgur.com/MKMjW0b

Ref
http://www.excelfox.com/forum/showth...plete-Document
https://imgur.com/MKMjW0b
http://www.excelfox.com/forum/misc.php?do=bbcode
https://wordtohtml.net/
http://services.runescape.com/m=foru...9,877,64690220
http://www.excelfox.com/forum/showth...age2#post10131

_.________________________________________________ _
Miscillanus Testies
Using Excel 2007 32 bit

_Row\^Col	A
1	S No

Worksheet: Sheet1
[color=lightgrey]Using Excel 2007 32 bit[/color]
[size=0][Table="width:, class:head"][tr=bgcolor:#417394][th][COLOR=black][sub]Row[/sub]\[sup]Col[/sup][/COLOR][/th][th][CENTER][COLOR=black]A[/COLOR][/CENTER][/th][/tr]
[tr][td=bgcolor:#417394][CENTER][COLOR=black][b]1[/b][/COLOR][/CENTER][/td][td][CENTER][B]S No[/B][/CENTER][/td][/tr]
[/table][/size][size=0][color=lightgrey]Worksheet: [/color][b][color=darkblue]Sheet1[/b][/color][/size]
[s][/s]

== NO PARSE ==

[b]Unparsed[/b] [u]text[/u]

Snow

**DocAElstein** · 03-20-2018, 08:55 PM

To Here: https://excelfox.com/forum/showthrea...ll=1#post10545

Error and Error Handling VBA Summary

Error Handling Code line ORNeRe_GoRoT_N0Nula_1_____	Notes
On Error Resume Next	Makes code always carry on after error line. Clears the exception – So it works time and time again, But retains infomation of last error in Err object The further runing of code is normal code running as that running previous to the error, with the error handling enabled but not active. ( Effectively the error handler is only very briefely active at the error occurance time)
On Error GoTo Label/Line	Does not clear the exception. Just goes to the indicated Label or Line Number (Typically at that label or line number would be code lines for an error handling routine ) It is Prevented by default ( due to it not clearing the exception ) from working more than once The futher running code is effectively part of the Exception running software. The error handler is therefore active continuously aftert the error occurance. Note this does the disable and Clear in either the normal or exception state
On Error GoTo 0	Does not clear the exception !! Disables any enabled error handler This Clears the Err object
On Error GoTo -1	Clears the exception , (* in other words, Deactivates any enabled error handler) Does not disable any enabled error handler This Clears the Err object
Resume	Clears the exception, (in othert words * Deactivates any enabled error handler) Does not disable any enabled error handler. Makes code try again at error line. ( Be careful as can lead to an infinite loop of retrying!) Does not retain infomation of last error: Clears Err object Typical usage would be as the last code line in an error handling code section sent to with On Error GoTo Label/Line
Resume Next	As Resume , but resumes after line which errored
Resume Label/Line Number	As Resume , but resumes at Label/Line number

* Deactivated means: "The trap is reset: but not currently working - It is "primed" ". It is enabled, but not activated. !! Disabled means its "no longer there", so you are back to default VBA error handler

Err : An object. (Possibly a not too well thought out VBA type pseudo object, being strangely read or write). 6 Properties containing strings of information about last error & 2 Methods, .Raise and .Clear .Clear simply empties the string infomation Properties of Err

Erl : A Function or Method effectively returning line number of last error or 0 if no line number is present at erroring code line. It is possible this is just an old thing only working in the exception state to give the last excecuted line in the normal state.

vbObjectError : Probably broken or no one remembers what it does - A plie of wank - forget about it!

**DocAElstein** · 05-23-2018, 01:16 PM

For sandy....

where I can change color of the headers font in Forum Tool add-in?

I don't have the current newest version, but I think my old version is similar.....

Current: ( This is my version which I have already modified many times )

Using Excel 2007 32 bit

_Row\^Col	A	B	C
1	Date	Name	Laps
2	05. Apr	Dan	23

Worksheet: Tabelle1

__ Alt+F11 (VB Editor Window)
__ 1 Forum Tools --- 2 Module --- 3 mBBCode
1 Forum Tools --- 2 Module --- 3 mBBCode.JPG : https://imgur.com/Rl95Bol
1 Forum Tools --- 2 Module --- 3 mBBCode.jpg

Code:

Private Function RngToBBC(rInp As Range, _
                          iSize As Long, _
                          Optional bHdr As Boolean = True, _
                          Optional bFrm As Boolean = False, _
                          Optional bA1 As Boolean = False, _
                          Optional bColour As Boolean = False) As String
                          
    'Const csHEADER_COLOR As String = """#FFFFFF"""
    Const csHEADER_COLOR As String = "black"
    'Const csHEADER_BACK As String = "#888888"
    Const csHEADER_BACK As String = "#417394"
    'Const csHEADER_BACK As String = "skyblue"
    Const csROW_BACK As String = "#FFFFFF"
    Dim sOut                  As String
    Dim rRow                  As Range
    Dim Cell                  As Range

_.________________-

Now Change to red for sandy...
Using Excel 2007 32 bit

_Row\^Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1

Code:

Private Function RngToBBC(rInp As Range, _
                          iSize As Long, _
                          Optional bHdr As Boolean = True, _
                          Optional bFrm As Boolean = False, _
                          Optional bA1 As Boolean = False, _
                          Optional bColour As Boolean = False) As String
                          
    'Const csHEADER_COLOR As String = """#FFFFFF"""
    Const csHEADER_COLOR As String = "black"
    'Const csHEADER_BACK As String = "#888888"
    'Const csHEADER_BACK As String = "#417394"
    Const csHEADER_BACK As String = "red"
    'Const csHEADER_BACK As String = "skyblue"
    Const csROW_BACK As String = "#FFFFFF"
    Dim sOut                  As String
    Dim rRow                  As Range
    Dim Cell                  As Range

_.______________________________________
Some test of mSettings code module
Using Excel 2007 32 bit

_Row\^Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1
Using Excel 2007 32 bit

_Row\^Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1
Using Excel 2007 32 bit

_Row\^Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1
Using Excel 2007 32 bit

_Row\^Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1
No changes in my old version

still no changes with this:

Code:

#If VBA7 Then
    Public Const TB_BORDER_COLOR As String = "#BBB"
    'Public Const COLHDR_BCKGRND_COLOR As String = "#DAE7F5"
    Public Const COLHDR_BCKGRND_COLOR As String = "red"
    Public Const ROWHDR_BCKGRND_COLOR As String = "#DAE7F5"
    Public Const ROWHDR_BORDER_COLOR As String = "#BBB"
    Public Const ROWHDR_FONT_COLOR As String = "#161120"
#Else
    Public Const TB_BORDER_COLOR As String = "#A6AAB6"
    'Public Const COLHDR_BCKGRND_COLOR As String = "#E0E0F0"
    Public Const COLHDR_BCKGRND_COLOR As String = "red"
    Public Const ROWHDR_BCKGRND_COLOR As String = "#E0E0F0"
    Public Const ROWHDR_BORDER_COLOR As String = "#A6AAB6"
    Public Const ROWHDR_FONT_COLOR As String = "#161120"
#End If

Using Excel 2007 32 bit

_Row\^Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1

**sandy666** · 05-23-2018, 01:52 PM

new FT is a different but I found it here and it works

Code:

#If VBA7 Then
    #If USE_RGB Then
        Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
        Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
        Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
        Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
        Public Const csROW_BACK As String = "rgb(255, 255, 255)"
    #Else
        Public Const TB_BORDER_COLOR As String = "#B6AAA6"
        Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
        Public Const ROWHDR_FONT_COLOR As String = "#201116"
        Public Const csHEADER_COLOR As String = "#FFFFFF"
        Public Const csROW_BACK As String = "#FFFFFF"
    #End If
    Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
    Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
#Else
    #If USE_RGB Then
        Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
        Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
        Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
        Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
        Public Const csROW_BACK As String = "rgb(255, 255, 255)"
    #Else
        Public Const TB_BORDER_COLOR As String = "#B6AAA6"
        Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
        Public Const ROWHDR_FONT_COLOR As String = "#201116"
        Public Const csHEADER_COLOR As String = "#FFFFFF"
        Public Const csROW_BACK As String = "#FFFFFF"
    #End If
    Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
    Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
#End If


#If USE_RGB Then
    Public Const TB_BCKGRND_COLOR As String = "rgb(255, 255, 255)"
    Public Const TB_FONT_COLOR    As String = "rgb(48, 34, 38)"
#Else
    Public Const TB_BCKGRND_COLOR As String = "#FFFFFF"
    Public Const TB_FONT_COLOR    As String = "#302226"
#End If
Public Const TB_FONT_SIZE     As String = "11pt"
Public Const TB_PADDING       As String = "0.3em"
Public Const MAX_BRACKETS     As Long = 100
Public Const MAX_ROWS         As Long = 100
Public Const MAX_COL          As Long = 100

Enum FormulaSettings
    NotSet = -1
    AllFormulas = 0
    FirstCell = 1
    FirstCellInColumn = 2
    NoFormulas = 3
    UserDefined = 4
End Enum

idiotic! code tags doesn't keep format

after edit

hm, now it works, weird

**DocAElstein** · 05-23-2018, 02:34 PM

sandy mSettings:

Code:

Option Explicit

#If VBA7 Then
    #If USE_RGB Then
        Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
        Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
        Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
        Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
        Public Const csROW_BACK As String = "rgb(255, 255, 255)"
    #Else
        Public Const TB_BORDER_COLOR As String = "#B6AAA6"
        Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
        Public Const ROWHDR_FONT_COLOR As String = "#201116"
        Public Const csHEADER_COLOR As String = "#FFFFFF"
        Public Const csROW_BACK As String = "#FFFFFF"
    #End If
    Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
    Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
#Else
    #If USE_RGB Then
        Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
        Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
        Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
        Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
        Public Const csROW_BACK As String = "rgb(255, 255, 255)"
    #Else
        Public Const TB_BORDER_COLOR As String = "#B6AAA6"
        Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
        Public Const ROWHDR_FONT_COLOR As String = "#201116"
        Public Const csHEADER_COLOR As String = "#FFFFFF"
        Public Const csROW_BACK As String = "#FFFFFF"
    #End If
    Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
    Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
#End If


#If USE_RGB Then
    Public Const TB_BCKGRND_COLOR As String = "rgb(255, 255, 255)"
    Public Const TB_FONT_COLOR    As String = "rgb(48, 34, 38)"
#Else
    Public Const TB_BCKGRND_COLOR As String = "#FFFFFF"
    Public Const TB_FONT_COLOR    As String = "#302226"
#End If
Public Const TB_FONT_SIZE     As String = "11pt"
Public Const TB_PADDING       As String = "0.3em"
Public Const MAX_BRACKETS     As Long = 100
Public Const MAX_ROWS         As Long = 100
Public Const MAX_COL          As Long = 100

Enum FormulaSettings
    NotSet = -1
    AllFormulas = 0
    FirstCell = 1
    FirstCellInColumn = 2
    NoFormulas = 3
    UserDefined = 4
End Enum

my old version mSettings:

Code:

Option Explicit



#If VBA7 Then
    Public Const TB_BORDER_COLOR As String = "#BBB"
    Public Const COLHDR_BCKGRND_COLOR As String = "#DAE7F5"
    Public Const ROWHDR_BCKGRND_COLOR As String = "#DAE7F5"
    Public Const ROWHDR_BORDER_COLOR As String = "#BBB"
    Public Const ROWHDR_FONT_COLOR As String = "#161120"
#Else
    Public Const TB_BORDER_COLOR As String = "#A6AAB6"
    Public Const COLHDR_BCKGRND_COLOR As String = "#E0E0F0"
    Public Const ROWHDR_BCKGRND_COLOR As String = "#E0E0F0"
    Public Const ROWHDR_BORDER_COLOR As String = "#A6AAB6"
    Public Const ROWHDR_FONT_COLOR As String = "#161120"
#End If


Public Const TB_BCKGRND_COLOR As String = "#FFFFFF"
Public Const TB_FONT_SIZE     As String = "11pt"
Public Const TB_PADDING       As String = "0.3em"
Public Const TB_FONT_COLOR    As String = "#262230"
Public Const MAX_BRACKETS     As Long = 100
Public Const MAX_ROWS         As Long = 100
Public Const MAX_COL          As Long = 100

Enum FormulaSettings
    NotSet = -1
    AllFormulas = 0
    FirstCell = 1
    FirstCellInColumn = 2
    NoFormulas = 3
    UserDefined = 4
End Enum

Conclusions..
it seems that the
csHEADER
is now in mSettings.

Good to know

**sandy666** · 05-23-2018, 02:37 PM

but this is mSettings not mBBcode

	A	B	C	D	E
1	Date	ID	Name	Company	Country
2	21/03/2018	16850307-6211	Felix Weiss	Sem LLP	Sierra Leone
3	18/04/2018	16300905-7245	Maggy Z. Cruz	Malesuada Augue Corp.	Tonga
4	02/08/2017	16910128-2987	Melyssa Hale	Mi Corporation	Liechtenstein
5	19/01/2018	16340924-6224	Beau E. Colon	Ultrices Iaculis Odio Corporation	Kazakhstan
6	01/06/2018	16490821-7609	Brenden Roach	Nulla Aliquet PC	Botswana
7	23/04/2017	16590903-0263	Ahmed U. Joyner	Nec Cursus LLP	Fiji
8	06/04/2019	16760811-7656	Signe Reilly	Suspendisse Ac Metus Limited	Uruguay
9	21/05/2017	16161112-9816	Candice G. Soto	Enim Limited	Cape Verde
10	06/08/2018	16301111-8365	Casey N. Rivas	Amet Limited	Nicaragua
11	29/11/2018	16600616-1431	Bevis Whitney	Pharetra Nibh Aliquam LLP	Ukraine
12	12/01/2019	16960108-3315	Ralph D. Andrews	Ultricies Ligula Corp.	Angola

doesn't matter ... It works !!!

**DocAElstein** · 05-23-2018, 02:42 PM

Thanks for info...

and Welcome to Excel Fox !!!!

Originally Posted by sandy666

... idiotic! code tags doesn't keep format

after edit
hm, now it works, weird

( There are a few problems occaisionally when a carriage return does not work and the code comes out as a long single line.
http://www.excelfox.com/forum/showth...=code#post9639
. I am not quite sure why that is.
But generally there are very few forum software problems here at Excel Fox

)