mac版 VBA Function でセルの色を変更をしたい。

Question

mac版 VBA Function でセルの変更をしたい。

Macro1 として、Aの内容で、A1(1,1) のセルが”赤”に変更されました。
Function でも同様の動きをしたく、下記Bのように記述しました。
文字のフォントは、赤に変わったのですが、背景色が変わりませんでした。
また、セルには #VALUE!と表示されてしまいました。
Cells(1, 1).Interior.Colorの行をコメントアウトすると、０が表示されました。
セルの色を変更する方法をご存知な方、ご教授の方よろしくお願いします。

A
Sub Macro1()

' A1 に赤くする
Range("A1").Select
Cells(1, 1).Interior.Color = RGB(255, 0, 0)
Range("A1").Select
End Sub

B のFuncTest0()は以下のように記述しました。
Public Function FuncTest0() As Long

' A1 に赤くする
Sheets("sheet1").Select
Range("A1").Select
Cells(1, 1).Font.Color = RGB(255, 0, 0)
Cells(1, 1).Interior.Color = RGB(255, 0, 0)
Range("A1").Select
FuncTest0 = 0
'
End Function

Answer 1

#VALUE!と表示されるということは、セルの数式に=FuncTest0()と入力して実行しようとしているのでしょうか。
セルの数式から呼び出す関数は、あくまでも値を返却する処理に限定されるようです。
なのでFuncTest0 = 0の行のみ残して他をコメントアウトすると、セルには0が表示されます。
マクロでセルの色を変えたい場合は、FuncTest0を呼び出すきっかけを数式からではなく他のマクロやボタンなどの部品から、もしくはショートカットキーを割り当てたりなどにすることで実行できるようになると思います。

Comments

[qmomo]

ご回答ありがとうございました。
Macro1 の中で、Call FuncTest0　をおこなったところ、
セルの色が変わりました。
”セルの数式から呼び出す関数は、あくまでも値を返却する処理”を肝に命じておきます。
ありがとうございました。