エクセルVBAの参照問題

Question

私はVBAで別のサブに一つのサブから値を渡すが、エラーを取得しようとイムれるオンラインいくつかの例を以下ました：

コンパイルエラー： プロシージャの宣言は、の説明と一致しません。同じ名前のイベントまたはプロシージャです。

Sub next_sat_click() 

Dim iweekday As Integer 
Dim nextsat As String 
Dim index As Integer 
Dim str_game_date As String 

iweekday = weekday(Now(), vbSunday) 

nextsat = Format((Now + 7 - iweekday), "mm-dd-yy") 

Call set_button_Click(nextsat) 

End Sub 

Sub set_button_Click(ByRef nextsat As String) 
...... 
End Sub 

Answer 1

変更SetButtonOnClickのような何か他のもので、サブ名。

同じ名前でボタンが呼び出されている場合、_ClickキーワードはボタンのClickイベントのためにExcelによって予約されています。

Answer 2

イベントハンドラのパラメータは変更できません（パラメータ名を除く）。つまり、を追加できない場合は、のパラメータを追加できません。もはやOptional ByRef nextsat As Stringは機能しません。ユーザーフォームでのイベントハンドラの間で値を渡すには、3つの方法があります

：（推奨しません、これまで）

1. グローバル変数を使用するには、
2. プロパティ（文字列などの単純な値の場合は、UserForm.tagプロパティを推奨）。既に永続的に使用されている場合、明らかに使用することはできません。
3. hiddenコントロール（複数の値または複雑な値および単純な値の場合に推奨）を介して。あなたのケースでは、より良い解決策は、そう、ユーザーがnext_satをクリックしたときに、あなたが計算された日付を保存する見えるテキストボックスを持っているかもしれません

   Sub next_sat_click() 
   
   Dim iweekday As Integer 
   Dim nextsat As String 
   Dim index As Integer 
   Dim str_game_date As String 
   
   iweekday = Weekday(Now(), vbSunday) 
   
   nextsat = Format((Now + 7 - iweekday), "mm-dd-yy") 
   
   Me.Tag = nextsat 
   
   End Sub 
   
   Sub set_button_Click() 
   Dim nextsat As String 
   nextsat = Me.Tag 
   ...... 
   End Sub 
   

   ：私は2番目の方法を使用しました

ユーザーはそれを見ることができる。次に、set_buttonハンドラで、TextBox.Textから取得します。