「Excelのカーソル位置や表示倍率を調整するアドインを作ってみました No2」
に続き、ExcelAdjuster更新しました。
Vectorに置いてます。
更新内容と学んだことをメモ。
◆更新内容１
全シートのカーソル位置を"A1"にする際、隠しシートがあるとエラーが発生するバグを修正。
⇒ 隠しシートかを確認するため、SheetのVisibleプロパティをチェックしないといけないんですね。
Excelアドインでシート一覧をチェックする方法
For i = ActiveWorkbook.Sheets.Count
To 1 Step -
1 If ActiveWorkbook.Sheets.Item(i).Visible =
True Then End If Next
◆更新内容２
処理実行時のExcelの描画を停止
⇒ 全シートを操作すると、目まぐるしくアクティブなシートが変更されます。
それが気持ち悪かったので、描画を停止しました。
Excelアドインで描画を停止する方法
Application.ScreenUpdating =
False For i = ActiveWorkbook.Sheets.Count
To 1 Step -
1 Next Application.ScreenUpdating =
True
◆更新内容３
「有効なアドイン」ウィンドウに表示される内容を変更
⇒ ファイルのプロパティを変更すればできました^_^;