Rounding a lrage range & a missing Font

[Jay]

Hi,

After recently installing Virtual PC on my iBook, primarily for Access (for
work). I was struck by how much clearer the default font is in files
exported from Access to Excel:mac. The iBook screen leaves a lot to be
desired and MS Sans Serif is so much clearer than Verdana or Arial.


....But..it's not in my font list. Anyone any ideas on how I can get it. If
an imported file uses it can't I make it available to new workbooks?

Also, anyone know a quick way of applying a rounding (to nearest 25) to a
large range? For a column or two I'd just use MROUND(range,25) in the
adjacent column, but I have 20 columns & 300 rows. Anyone any ideas.

Many TIA,

-Jay-

 

[JE McGimpsey]

Also, anyone know a quick way of applying a rounding (to nearest 25) to a
large range? For a column or two I'd just use MROUND(range,25) in the
adjacent column, but I have 20 columns & 300 rows. Anyone any ideas.

One way:

Public Sub RoundToX()
Dim vRoundTo As Variant
Dim dRoundTo As Double
Dim rCell As Range
Dim rConstants As Range
Do
vRoundTo = Application.InputBox( _
Prompt:="Round to nearest: ", _
Title:="Round Selected Cells", _
Default:=25, _
Type:=2)
If vRoundTo = False Then Exit Sub
Loop Until IsNumeric(vRoundTo)
dRoundTo = CDbl(vRoundTo)
On Error Resume Next 'in case no numbers
Set rConstants = Selection.SpecialCells( _
xlCellTypeConstants, xlNumbers)
On Error GoTo 0
If Not rConstants Is Nothing Then
For Each rCell In rConstants
With rCell
.Value = Application.Round( _
.Value / dRoundTo, 0) * dRoundTo
End With
Next rCell
End If
End Sub

 

[JE McGimpsey]

...But..it's not in my font list. Anyone any ideas on how I can get it. If
an imported file uses it can't I make it available to new workbooks?

If it's not in your font list, it's not being displayed on your Mac -
instead a substitution is being made.

However, technically at least, you can copy the font (Microsoft
Reference Sans Serif) from your VPC Windows\Fonts directory to your Mac
~:Library:Fonts folder and it will work fine on your existing and new
workbooks.

I'm not sure about whether this violates your VPC/Windows license,
though.

 

[Jay]

If it's not in your font list, it's not being displayed on your Mac -
instead a substitution is being made.

However, technically at least, you can copy the font (Microsoft
Reference Sans Serif) from your VPC Windows\Fonts directory to your Mac
~:Library:Fonts folder and it will work fine on your existing and new
workbooks.

I'm not sure about whether this violates your VPC/Windows license,
though.

Cheers JE,

I posted to the non-mac group in error, as you saw (both appear the same in
the limited view afforded by the Entourage sidebar)

If it's not in your font list, it's not being displayed on your Mac -
instead a substitution is being made.

Well that's what I wondered, it was showing in the font name field in the
formatting toolbar, but not in the font list. So, if a substitution was
made I need to find out what it was using - guess trial & error'll do it.

And thanks for the rounding code...not tried it yet, but have no doubt it
will work a treat.

Many thanks for your continuing help,

Jay
__

 

[Jay]

Cheers JE,

I posted to the non-mac group in error, as you saw (both appear the same in
the limited view afforded by the Entourage sidebar)


Well that's what I wondered, it was showing in the font name field in the
formatting toolbar, but not in the font list. So, if a substitution was
made I need to find out what it was using - guess trial & error'll do it.

And thanks for the rounding code...not tried it yet, but have no doubt it
will work a treat.

Many thanks for your continuing help,

Jay
__

Well, MS Sans Serif doesn't look anywhere near as clear as the font Excel
substituted it with - Geneva CE.

So, any iBook excels users out there - trust me, Geneva CE 12pt makes an
excellent default font to use on the iBook's lacking display.

Jay
___