Forums and stuff

Sun, 14 Dec 2008 23:26:14 +0000

Hi All, I’m sorry but I disagree with all this splitting up into small groups for this and that, we have a forum and a good web site thanks to those that have provided it. What are we trying to prove here, that by making ourselves spread over a wider area we can bitch about this and that? Sorry I do not get the point, we are a small community as it is, I’m all in favour of promoting our sport, but having multiple points of contact/discussion is just going to drive people into clicky groups…count me out.

Regards Will Greenwood.

phase one lock down

Fri, 04 Jan 2008 17:43:16 +0000

I have locked the site down a bit to stop anon edits and entries.
Later i will be locking it down even more to members only editing, but first i would like to see a few more names in the members list

Converting Excell files to wikidot

Fri, 04 Jan 2008 02:24:09 +0000

And untill "the gods" come up with something better, then we have to make do with what we have.

The easiest way i have come across to date is by using a converter.

So here is an idiots guide. Written by an idiot.

1 Generate your excell file

eg:-

Get the excell converter loaded.

to do this, whilst on your excell sheet hit ALT and F8
you will get a pop up like this.

stick something in the macroname box (anything will do)
Create should now highlight. hit it

the box will expand.
remove the:

 Sub e() End Sub

Next, copy and paste from the code in the box below, when you hit "show me the code"

Code

+ show me the code

- hide the code

 Option Explicit Public Sub ExcelToWikidot() ' 'ExcelToWikidot 'Version 2.1.007 du 04/11/2007 'Author gerdami 'Credits: ' McGimpsey and Associates, for the idea: http://www.mcgimpsey.com/excel/udfs/multicat.html ' David McRitchie, for the colors: http://www.mvps.org/dmcritchie/excel/colors.htm#hexconv ' John Walkenbach, for the split function: http://j-walk.com/ss/excel/tips/tip93.htm ' Chip Pearson, for the Conditional Formatting Colors: http://www.cpearson.com/excel/CFColors.htm Dim aRange, rCell As Range Dim nRows, nCols, i, j, x As Long Dim sAlign, sBackgroundColor, sCell, sWdLf, xColor As String Dim xString As Variant sWdLf = " _" 'sWdLf = " _" & vbLf Set aRange = Selection.CurrentRegion nRows = aRange.Rows.Count nCols = aRange.Columns.Count 'Sheets.Add.Name = "Wikidot" ... test whether Wikidot sheet exists and delete TODO ! Sheets.Add ActiveCell.Value = "[[table style=""width: 100%; border-collapse: collapse; border:2px solid""]]" 'ActiveCell.Value = "[[table]]" ActiveCell.Offset(1, 0).Activate For i = 1 To nRows ActiveCell.Value = "[[row]]" ActiveCell.Offset(1, 0).Activate For j = 1 To nCols Set rCell = aRange.Cells(i, j) sCell = Trim(aRange.Cells(i, j).Text) 'remove spaces before and after text sCell = Application.WorksheetFunction.Substitute(sCell, vbLf, sWdLf) 'replace char(010) by " _" 'ActiveCell.Value = ActiveCell.Value & "[[cell]]" '[[cell style is build piece by piece ActiveCell.Value = ActiveCell.Value & "[[cell style=""border:1px solid silver; " Select Case rCell.HorizontalAlignment Case Is = xlGeneral sAlign = "" Case Is = xlCenter sAlign = "text-align: center; " Case Is = xlLeft sAlign = "text-align: left; " Case Is = xlRight sAlign = "text-align: right; " End Select ActiveCell.Value = ActiveCell.Value & sAlign ' background-color ' xColor = Right("000000" & Hex(rCell.Interior.Color), 6) 'David Mc ' xColor = Right("000000" & Hex(ColorOfCF(rCell, 0)), 6) 'Chip Pearson xColor = Right("000000" & Hex(ConditionalColor(rCell, "interior")), 6) ' xColor = "#" & Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2) If xColor <> "#FFFFFF" Then sBackgroundColor = " background-color: " & xColor & ";" Else sBackgroundColor = "" End If ActiveCell.Value = ActiveCell.Value & sBackgroundColor ActiveCell.Value = ActiveCell.Value & """]]" If Len(sCell) > 0 Then 'Wikidot does not like empty cells: v2.1.007 'cell emphasis is applied piece by piece If rCell.Font.Bold = True Then sCell = "**" & sCell & "**" If rCell.Font.Italic = True Then sCell = "//" & sCell & "//" If rCell.Font.Strikethrough = True Then sCell = "--" & sCell & "--" If rCell.Font.Superscript = True Then sCell = "^^" & sCell & "^^" If rCell.Font.Subscript = True Then sCell = ",," & sCell & ",," If rCell.Font.Underline = xlUnderlineStyleNone Then Else sCell = "__" & sCell & "__" ' font colors ' http://www.mvps.org/dmcritchie/excel/colors.htm#hexconv ' xColor = Right("000000" & Hex(rCell.Font.Color), 6) ' http://www.cpearson.com/excel/CFColors.htm ' xColor = Right("000000" & Hex(ColorOfCF(rCell, 1)), 6) xColor = Right("000000" & Hex(ConditionalColor(rCell, "font")), 6) xColor = "#" & Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2) If xColor <> "#000000" Then sCell = "#" & xColor & "|" & sCell & "##" ActiveCell.Value = ActiveCell.Value & sCell Else ' Len(sCell) = zero then nothing End If ActiveCell.Value = ActiveCell.Value & "[[/cell]]" ' With the above I have all cells in one row, with the split function, ' I will split the cells containing the Wikidot linefeed " _" ' http://j-walk.com/ss/excel/tips/tip93.htm xString = Split(ActiveCell.Text, sWdLf) For x = 0 To UBound(xString) ActiveCell.Value = xString(x) If x <> UBound(xString) Then ActiveCell.Value = ActiveCell.Value & sWdLf ActiveCell.Offset(1, 0).Activate ' I have currently a side effect: one cell per line ' but I will keep it for readibility Next x Next j 'ActiveCell.Offset(1, 0).Activate ActiveCell.Value = "[[/row]]" ActiveCell.Offset(1, 0).Activate Next i ActiveCell.Value = "[[/table]]" Selection.CurrentRegion.Select End Sub ''''''''''''''''''''''''''''''''' Function ConditionalColor(rg As Range, FormatType As String) As Long 'http://www.vbaexpress.com/kb/getarticle.php?kb_id=190 'Returns the color (either font or interior) of the first cell in range rg. If no _ conditional format conditions apply, then returns the regular color of the cell. _ FormatType is either "Font" or "Interior" Dim cel As Range Dim tmp As Variant Dim boo As Boolean Dim frmla As String, frmlaR1C1 As String, frmlaA1 As String Dim i As Long ' Application.Volatile 'This statement required if Conditional Formatting for rg is determined by the _ value of other cells Set cel = rg.Cells(1, 1) Select Case Left(LCase(FormatType), 1) Case "f" 'Font color ConditionalColor = cel.Font.Color Case Else 'Interior or highlight color ConditionalColor = cel.Interior.Color End Select If cel.FormatConditions.Count > 0 Then 'On Error Resume Next With cel.FormatConditions For i = 1 To .Count 'Loop through the three possible format conditions for each cell frmla = .Item(i).Formula1 If Left(frmla, 1) = "=" Then 'If "Formula Is", then evaluate if it is True 'Conditional Formatting is interpreted relative to the active cell. _ This cause the wrong results if the formula isn't restated relative to the cell containing the _ Conditional Formatting--hence the workaround using ConvertFormula twice in a row. _ If the function were not called using a worksheet formula, you could just activate the cell instead. frmlaR1C1 = Application.ConvertFormula(frmla, xlA1, xlR1C1, , ActiveCell) frmlaA1 = Application.ConvertFormula(frmlaR1C1, xlR1C1, xlA1, xlAbsolute, cel) boo = Application.Evaluate(frmlaA1) Else 'If "Value Is", then identify the type of comparison operator and build comparison formula Select Case .Item(i).Operator Case xlEqual ' = x frmla = cel & "=" & .Item(i).Formula1 Case xlNotEqual ' <> x frmla = cel & "<>" & .Item(i).Formula1 Case xlBetween 'x <= cel <= y frmla = "AND(" & .Item(i).Formula1 & "<=" & cel & "," & cel & "<=" & .Item(i).Formula2 & ")" Case xlNotBetween 'x > cel or cel > y frmla = "OR(" & .Item(i).Formula1 & ">" & cel & "," & cel & ">" & .Item(i).Formula2 & ")" Case xlLess ' < x frmla = cel & "<" & .Item(i).Formula1 Case xlLessEqual ' <= x frmla = cel & "<=" & .Item(i).Formula1 Case xlGreater ' > x frmla = cel & ">" & .Item(i).Formula1 Case xlGreaterEqual ' >= x frmla = cel & ">=" & .Item(i).Formula1 End Select boo = Application.Evaluate(frmla) 'Evaluate the "Value Is" comparison formula End If If boo Then 'If this Format Condition is satisfied On Error Resume Next Select Case Left(LCase(FormatType), 1) Case "f" 'Font color tmp = .Item(i).Font.Color Case Else 'Interior or highlight color tmp = .Item(i).Interior.Color End Select If Err = 0 Then ConditionalColor = tmp Err.Clear On Error GoTo 0 Exit For 'Since Format Condition is satisfied, exit the inner loop End If Next i End With End If End Function

Then Hit ALT and F4
which will return you to you sheet

Make the table pretty

eg:

select the whole table
then Hit Alt F8

which will give you

Hit RUN

A new sheet will appear with a load of horrid yukky code in column A.

Copy that code

And PASTE it into your wiki page.

And low and behold, you should get something like

	t1	t2	t3	t4
john	1	2	3	4
paul	5	6	7	8
ringo	9	a	b	c
george	d	e	f	g

Spanners in the workscan be caused by

Not selecting the whole table
Blank lines
trying to do two differnt "styles" of tables on the same sheet.
other things that i haven't fully determined…. yet.

Have fun

adding picture

Wed, 02 Jan 2008 19:33:16 +0000

ok I'm no oil painting but I would like to add a mugshot but can't see how. I've tried to use the image wizard, attached file but get this message… Sorry, no images attached to this page found. Any help much appreciated

Tony

Editing Sandbox ticklist

Mon, 31 Dec 2007 15:59:20 +0000

Tried editing the tick list and my first two attempts to save changes made in the HTML resulted in a hang with a perpetual "Saving page ….." pop-up.

Eventually got it to save by choosing "Save and Continue" rather than "Save" AND entering something in the "Short description of changes" box - not sure which made the difference.

(Editing the raw HTML is an enormous PITA).

Logging In takes ages

Sun, 30 Dec 2007 12:22:25 +0000

I have noticed this on occasions, admittedly more than i would like.
I have found that if it takes more than say 5 sec, refreshing the browser, will sort the problem.

Front page.

Mon, 01 Oct 2007 10:49:40 +0000

http://bhgc.wikidot.com/

http://bhgc.wikidot.com/start%20blog
(note: a bit more to do here, like adding the pics.. but it will give you an idea.

Or something completely different ?

Web site content (new threads)