2017-07-11 34 views
1

非常に単純なクラス定義があります。次のように クラスSheetwriterが定義されています:VBAエラー:同じプロパティのプロパティプロシージャの定義が矛盾しているか、プロパティプロシージャにオプションのパラメータがあります

Option Explicit 

'Works off of the ActiveCell 
'Helps you write data into the cells 


Private pCornerCell As String 


Public Property Get CornerCell() 

    CornerCell = pCornerCell 

End Property 


Public Property Let CornerCell(Value As String) 

    pCornerCell = Value 

    Range(Value).Select 

End Property 

私は理解していないコンパイルエラーが発生します。 同じプロパティのプロパティプロシージャの定義が矛盾しているか、プロパティプロシージャにオプションのパラメータがあります。 私は何が間違っていますか?

答えて

1
Public Property Get CornerCell() 

戻り値の型が指定されていないため、暗黙的にVariantが返されます。コンパイラはProperty Letメンバーに見ているStringを返し、そしてあなたの問題を解決しています

Public Property Get CornerCell() As String 

FWIW、Range(Value).Select文が全くそこに属していない、とあなたはがアクティブセルをオフに動作し、どこでもSelectActivate文を振りかけるしないこと。

これを避けるためのヒントについては、How to avoid using Select in Excel VBA macrosを参照してください。

関連する問題