フォームコントロールボタン名の文字数制限

Question

現在、プロジェクトトラッキング用の一連のマクロを作成しています。これらのマクロの1つは、追跡する新しい項目ごとにフォームコントロールボタンをプログラムによって生成します。生成されたボタンが適切なデータを持つフォームを起動できるように、適切なデータにアクセスするために必要な最小限のデータで名前を付けるようにボタンを設計しました。

私が遭遇した問題は、名前に渡されるデータが長すぎると、コードエラーが：the specified value is out of rangeとなっていることです。私はボタンに渡す代わりの識別子を考え出す必要があると思っていますが、フォームコントロールの名前には特定の文字制限があり、この制限を上げるか変更する方法は？そうでない場合は、文字数制限は特にありますか？

私は、ボタンを押したときにApplication.Callerを使用してアクセスするデータを知るために、後でプログラムが必要なので、識別データを格納するためにボタンの名前を使用します。ボタンが特定のデータセットを指すようにする代替手段はありますか？

Answer 1

あなたはボタンで約混乱ができた、といくつかのプロパティを使用するので、clsCustomButton

Public WithEvents btnCustomButton As MSForms.CommandButton 

Private strDataDetail1 As String 
Private strDataDetail2 As String 
Private strDataDetail3 As String 

Public Property Let DATA_DETAIL1(value As String) 
    strDataDetail1 = value 
End Property 
Public Property Let DATA_DETAIL2(value As String) 
    strDataDetail2 = value 
End Property 
Public Property Let DATA_DETAIL3(value As String) 
    strDataDetail3 = value 
End Property 

Public Function INITIALISE(btn As MSForms.CommandButton) 
    Set btnCustomButton = btn 
End Function 

Private Sub btnCustomButton_Click() 
    Module1.DATA = strDataDetail1 & "_" & strDataDetail2 & "_" & strDataDetail3 
End Sub