0

誰でもこのコード ブロックの問題を確認できますか? 2010 年には問題はありませんでしたが、2013 年に VBA を実行すると問題が発生するようです。

いくつかのオプションがあるExcelシートからアクティブ化されるコントロールフォームがあり、このフォームが開かれます(これらのオプションから)。フォームが開きますが、この最初のコンボボックスの選択がアクティブになると、フォームが閉じて本質的にクラッシュします。

Public Sub cmbSelectAccount_DropButtonClick()
  Application.ScreenUpdating = False

  Workbooks.Open Filename:="C:\Users\xxxxxx\Desktop\New folder\accounts.xlsx"

  Sheets("Accounts").Activate
  ActiveSheet.Range("a2:a199").Select

  Me.cmbSelectAccount.List = Worksheets("Accounts").Range("a2:a199").Value
  myAccount = Me.cmbSelectAccount.Value

  Workbooks("Accounts").Close
End Sub

コードをステップ実行すると、問題なく動作します。どんな助けでも大歓迎です。

4

2 に答える 2

0

Excel の Sheets と Worksheets にはいくつかの癖があり、おそらく 2013 年にそれらを修正しようとしました。シートとワークシートへの2つの参照を、最初にシート、シート、次にワークシートワークシート、次にワークシートシートのすべての可能な組み合わせに変更してみます

于 2013-10-28T16:58:26.973 に答える