シートの表示


ビューの移動
ActiveWindow.ScrollRow = Lw - 20
Range("A" & Lw).Select
表示を拡大
Dim window1 As Window
     
Windows("VBAsample.xls").Activate
Set window1 = ActiveWindow
ActiveWindow.Zoom = 200
MsgBox "200%に設定しました"
表示を標準に戻す
Dim window1 As Window
     
Windows("VBAsample.xls").Activate
Set window1 = ActiveWindow
Range("B2:E6").Select
ActiveWindow.Zoom = True
MsgBox "選択範囲を基準に拡大表示しました"
フォントのサイズ変更
Range("A1").Font.Size = 14
セルの枠線非表示
ActiveWindow.DisplayGridlines = False
改ページ挿入
Range("A" & PageStartRow).PageBreak = xlManual
ウインドウ位置を指定する
With ActiveWindow
　　.WindowState = xlNormal
　　.Top = 10
　　.Left = 20
End With
 
WindowStateプロパティにxlNormalを指定して最大化または最小化の状態を解除しています。
ウインドウサイズを指定する
With ActiveWindow
　　.WindowState = xlNormal
　　.Height = 150
　　.Width = 300
End With
 
WindowStateプロパティにxlNormalを指定して最大化または最小化の状態を解除しています。
ウインドウを最小化、最大化する
WindowStateプロパティにxlMaximizedまたはxlMinimizedを指定します。
ウインドウサイズを取得する
Windows("Book1.xlsm").Activate
With ActiveWindow
　　.WindowState = xlNormal
　　.Top = 0
　　.Left = 0
　　.Height = Application.UsableHeight / 2
　　.Width = Application.UsableWidth
End With
ウインドウサイズを固定する
With ActiveWindow
　　.WindowState = xlNormal
　　.EnableResize = False
End With
Excelのウインドウサイズを設定する。
Application.Height = 400
Application.Width = 500
Application.Top = 10
Application.Left = 10
Excelのウインドウサイズを設定可能にする。
Application.WindowState = xlNormal
カーソル位置の検出
Dim RowCnt, ColCnt, StartRow, StartColumn As Integer
Dim Max_Row, Max_Column As Integer
Dim LoopArea As Range
Dim SelectArea As String
    
SelectArea = Selection.Address
RowCnt = Selection.Row
ColCnt = Selection.Column
Set LoopArea = Selection
     
StartRow = LoopArea.Cells(1).Row
StartColumn = LoopArea.Cells(1).Column
Max_Row = LoopArea.Cells(LoopArea.Count).Row
Max_Column = LoopArea.Cells(LoopArea.Count).Column

罫線表示

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Range(LT, RB).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
8 9 10

このサイトは個人生活を健やかに、愉しく、 企業活動を闊達にして、 持続可能な社会作りを目指します
Copyright © しなやか暮し研究所 2012 All Rights Reserved.