NEW ARTICLE
Oracle Database ユーザーにロールを付与する
  1. HOME
  2. vba
  3. VBA 列の幅が標準であるかを判定する

VBA 列の幅が標準であるかを判定する

  • 作成日 2022.06.25
  • vba
VBA 列の幅が標準であるかを判定する

VBAで、列の幅が標準であるかを判定するコードを記述してます。

目次

環境

  • OS windows10 64bit

列の幅が標準であるかを判定

列の幅が標準であるかを判定するには、「UseStandardWidth」の戻り値が「真偽値」なのでこれを使用します。

適当なボタンを用意して、以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    ' 幅を20に設定
    Cells(1, 1).ColumnWidth = 20
    
    If Not Cells(1, 1).UseStandardWidth Then
    
        Cells(1, 1).Value = "標準の幅以外です"
    
    End If
    
    ' 標準の幅に設定
    Cells(1, 2).UseStandardWidth = True
    
    If Cells(1, 2).UseStandardWidth Then
    
        Cells(1, 2).Value = "標準の幅です"
    
    End If    
    
End Sub

実行してみます。

判定できていることが確認できます。