Comments on: Beginning VBA: Your First Function

By: Doug Jenkins

Doug Jenkins — Fri, 12 Oct 2007 01:07:00 +0000

"Jeffrey: Since x is already a range, you'd use

ReadCell = x.Value"

Or just declare it as a double (or whatever it is) rather than a range:

If x is a single cell:

ReadCell(x As Double)
ReadCell = x
End Function

Or if x is a multicell range, declare it as a Variant:

ReadCell(x As Variant)
' This line converts x from a range object into an array, it speeds things up hugely!
x = x.value
' Then read whichever value you want from the array
ReadCell = x(1,1)
End Function

"As far as I know, I've never written a function that I've used in a cell AND called from a Sub procedure. It's usually one or the other."

I do that all the time. Like this:

Function RtoP(Coords As Variant, Optional Origin As Variant, Optional Result As Long) As Variant
Dim ...

If TypeName(Coords) = "Range" Then
Coords = Coords.Value
End If
....

So if the function is called from a worksheet, and Coords is a range, it gets converted into an array. If it is called from a sub it will usually be an array already, but if it isn't it gets converted.

By: Dick Kusleika

Dick Kusleika — Thu, 11 Oct 2007 20:15:00 +0000

Jeffrey: Since x is already a range, you'd use

ReadCell = x.Value

By: Jeffrey pattavina

Jeffrey pattavina — Thu, 11 Oct 2007 17:56:00 +0000

I am having trouble entering a range arguement for my functions.

The following Function should read the cell designated by the range x hwever it does not work. Any thoughts?

ReadCell(x As Range)
ReadCell = Cells(x).Value
End Function

By: ahn

ahn — Thu, 04 Oct 2007 01:01:00 +0000

thank

By: Matt Vidas

Matt Vidas — Mon, 09 Jul 2007 19:08:00 +0000

Harold,

A range object has a Calculate method, so you should be able to just do something like:

Sub HaroldCalculateSelectedCells()
If TypeName(Selection) = "Range" Then Selection.Calculate
End Sub

Matt

By: Harold Odom

Harold Odom — Mon, 09 Jul 2007 15:53:00 +0000

I created the following Macro that causes the selected and some cases the whole sheet to recalculate upon pressing Ctrl+Shift+C

There must be a control in Excel to accomplish the same.

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 7/9/2007 by B2HPOHLO
'
' Keyboard Shortcut: Ctrl+Shift+C
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1
End Sub

By: Jane

Jane — Mon, 20 Sep 2004 19:52:00 +0000

thank you, but what if i want Excel to look at the contents of one cell, and use another cell’s value to calculate. That is, total values based on their definition?

By: Errol Francis

Errol Francis — Tue, 25 May 2004 13:05:00 +0000

Excellent site!

By: Dick

Dick — Fri, 23 Apr 2004 20:45:00 +0000

Russ: That function doesn't use any files, so I doubt that it's the culprit. Did you make any other changes? Generally, for startup errors I do the following:

1. Run the Workbook_Open of Personal.xls and any other workbooks that open automatically. Do this with the workbooks already open and see which one gives you an error, if any.

2. Write down all the add-ins that are installed. Uncheck them one-by-one and restart excel until you don't get an error. The last one you unchecked has the error.

3. Reregister excel by going to Start Run and typing "excel.exe /regserver" (no qutoes)

By: Juan Pablo

Juan Pablo — Fri, 23 Apr 2004 19:42:00 +0000

Raph,

No, that's the way Excel is designed. Changing the format of a cell doesn't trigger a recalculation, which seems logical. So you have to either put

Application.Volatile True

at the top of the function and it will recalculate itself each time any cell changes, or force a recalculation using

Control Shift F9