サンプル。指定シートの更新を行ってから待つクラス CQtEvents Option Explicit Private WithEvents mQryTble As QueryTable Private mRefreshed As Boolean Private mCallback As String Public Property Set QryTble(ByVal QryTable As QueryTable): Set m…