This bolg was down for a few days last week. I have no idea why, I dont think it was because of hits! I basically I think it was a hosting issue – I’m waiting to hear back from my hosts. I hope this does not become a regular event. Sorry to anyone who tried to get to the site when it was down.
February 2006
Get back to school!
The ones I have watched have been good, it’s a nice way to learn/recap on some intresting subjects. Be sure to check out the following:
http://webcast.berkeley.edu/courses/archive.php?seriesid=1906978270
http://webcast.berkeley.edu/courses/archive.php?seriesid=1906978271
http://webcast.berkeley.edu/courses/archive.php?seriesid=1906978272
via MarkWielgus.com
Combine Formulas into one cell
Here is some simple code to combine a selction of formulas into one cell. I have not tested it very much so it's not guaranteed. It will also add a few extra (), than might be needed.
VBA:
-
Sub CombineFormulas()
-
Dim objCell As Object
-
Dim sTemp As String
-
Dim sOperator As String
-
Dim rOutPut As range
-
-
On Error GoTo errorhandel
-
-
sOperator = InputBox("Operator to use?", "CombineFormulas")
-
-
For Each cell In Selection
-
If Len(cell.Cells.Formula)> 1 Then
-
''get the formula, adds a "(" , remove the "=", add the closing ")", and puts a "+" on the end
-
sTemp = sTemp & "(" & Right(cell.Cells.Formula, (Len(cell.Cells.Formula) - 1)) & ")" & sOperator
-
Else
-
End If
-
Next
-
-
''Puts an "=" at the start, then gets rid of the last "+",
-
sTemp = "=" & Left(sTemp, Len(sTemp) - 1)
-
-
Set rOutPut = Application.InputBox("Put In Cell", Type:=8)
-
-
ActiveSheet.range(rOutPut.Address).Formula = sTemp
-
-
Exit Sub
-
-
errorhandel:
-
MsgBox "Error: " & vbNewLine _
-
& Err.Description & vbNewLine _
-
& Err.Number, _
-
vbOKOnly, "CombineFormulas"
-
End Sub
VBA for iG_Syntax_Hiliter
I produced a .php file for VBA. I got most of the "Keywords" from ostrosoft.com, and added a few myself. I also changed the colour system. The VBA file has abou 160 "keywords" vs about 300 for the VB one. This is beacuse the "keywords" are infact "Bluewords", that is to say the code produced by my VBA .php file should be the same as if it where in then VBA IDE (theres green, blue and black and that's it).
VB timer as Double
Ok so this is a lazy post, but has anyone used the timer with double type?
Try it, I'm looking into this and hope to get a better understanding of the whole thing, but it seems to use 3 decimal places when loading the time, and more when subtacting (more sdp than singles). In documention it says Timer returns a single. Thus i would have thought (FLW!) that if the result was getting put in a double it would return the same result, and maybe add some zeros. But if that's the limit of the timer then the other numbers shouldn't be there - right?
VBA:
-
Sub TimerTest()
-
-
Dim LongTimer As Long
-
Dim VariantTimer As Variant
-
Dim DoubleTimer As Double
-
Dim IntegerTimer As Integer
-
Dim SingleTimer As Single
-
Dim x As Long
-
-
LongTimer = Timer
-
VariantTimer = Timer
-
SingleTimer = Timer
-
DoubleTimer = Timer
-
-
MsgBox "Long " & LongTimer & vbNewLine _
-
& "Sng " & SingleTimer & "
-
& "Var " & VariantTimer & "
-
& "Doub " & DoubleTimer & "
-
Title:=" Timer Things "
-
Do Until x = 100
-
'waste some time
-
x = x + 1
-
Loop
-
LongTimer = Timer - LongTimer
-
SingleTimer = Timer - SingleTimer
-
VariantTimer = Timer - VariantTimer
-
DoubleTimer = CDbl(Timer) - DoubleTimer
-
MsgBox "Long " & LongTimer & vbNewLine _
-
& "Sng " & SingleTimer & vbNewLine _
-
& "Var " & VariantTimer & vbNewLine _
-
& "Doub " & DoubleTimer & vbNewLine, _
-
Title:=" Timer Things"
-
End Sub
Run this a few times - some times the reults are "perfect" subtractions". I dont really understand what's going on here, i dont think the double stores at a higher "resolution". Also the cdbl(timer) is a bit unfair....
Any ideas/thoughts