エクセル研究室−Excelの基本的な使い方、応用技を紹介

ウインドウ編-エクセルのVBA集


ウインドウ編

ズーム倍率を変更するには?

'ウインドウのズーム倍率を150%にします
Sub ズーム倍率()
ActiveWindow.Zoom = 150
End Sub



行列の見出しを非表示にするには?

'行列の見出しを非表示にする
Sub 行列の見出しを非表示()
ActiveWindow.DisplayHeadings = False
End Sub



タイトルバーに表示されている名前を変更するには?

'タイトルバーに表示されている名前を変更します。

'※ファイル名が変更されるわけではありません。
Sub タイトルの名前変更()
ActiveWindow.Caption = "タイトルバーの名前「NOMBO」"
End Sub



選択中のシート名を表示するには?

'選択中のシートをダイアログで表示します。
Sub 選択シートの名前()
Dim W As Worksheet
For Each W In ActiveWindow.SelectedSheets
   MsgBox W.Name
Next W
End Sub



図を選択した状態でセルのアドレスを取得するには?

'「例1」ではエラーになります。「例2」のようにすれば取得できます。
'例1
Sub 選択セルのアドレス1()
ActiveSheet.Shapes.AddLine(1, 1, 10, 10).Select

'★セルを選択していないとエラーになる
MsgBox Selection.Address
End Sub
'例2
Sub 選択セルのアドレス2()
ActiveSheet.Shapes.AddLine(1, 1, 10, 10).Select
MsgBox ActiveWindow.RangeSelection.Address
End Sub





ページトップ