PDA

View Full Version : Delete me , Or edit and use me



sandy666
05-23-2018, 01:52 PM
Hi there,

Delete this Thread, or edit it and use it as you choose

KJAGDJadkjaHGDakjhdKHGDWUDZUD

akjdKJADAKJHDKJDH





























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


#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 :confused:

sandy666
05-23-2018, 02:37 PM
Hi there!











but this is mSettings not mBBcode :)



A
B
C
D
E

1DateIDNameCompanyCountry


221/03/201816850307-6211Felix WeissSem LLPSierra Leone


318/04/201816300905-7245Maggy Z. CruzMalesuada Augue Corp.Tonga


402/08/201716910128-2987Melyssa HaleMi CorporationLiechtenstein


519/01/201816340924-6224Beau E. ColonUltrices Iaculis Odio CorporationKazakhstan


601/06/201816490821-7609Brenden RoachNulla Aliquet PCBotswana


723/04/201716590903-0263Ahmed U. JoynerNec Cursus LLPFiji


806/04/201916760811-7656Signe ReillySuspendisse Ac Metus LimitedUruguay


921/05/201716161112-9816Candice G. SotoEnim LimitedCape Verde


1006/08/201816301111-8365Casey N. RivasAmet LimitedNicaragua


1129/11/201816600616-1431Bevis WhitneyPharetra Nibh Aliquam LLPUkraine


1212/01/201916960108-3315Ralph D. AndrewsUltricies Ligula Corp.Angola


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