リストボックスに問題があります。ユーザーフォームの初期化イベントでは、次のコードを使用して入力しています。
RecordSelectionBox.List = WorkingCopy.Worksheets(1).Range("A2:P20").Value
これはうまくいきます。列幅の調整もあり、うまくいきます。ユーザーがレコードを選択したら、リスト ボックスから 1 行、一連のラベルのキャプションをリスト ボックスの列の値に設定します。ラベルのキャプション 1 から 15 までは問題なく入力できます。16 に達すると、「列プロパティを取得できませんでした。引数が無効です」「実行時エラー '-2147024809 (80070057)'」というエラーが表示されます。
コードは次のとおりです。
Explanation.Caption = RecordSelectionBox.Column(16)
RecordSelectionBox.ColumnCount の debug.print は、実際に 16 列あることを示しています。説明フィールドは、私が使用しているフィールドの中で最も長いものですが、それがどのように問題になるかはわかりません。誰かがアイデアを持っているなら、私はすべての耳です。