EXCEL VBA 書式

エクセル
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[エクセル][EXCEL VBA 書式]


セル設定
'書式
'H00.00.00形式日付型フォーマット
Selection.NumberFormatLocal = "ge.m.d"
'パーセントフォーマット
Selection.NumberFormatLocal = "0.0%"
'文字列
Selection.NumberFormatLocal = "@"
'円をつける
Selection.NumberFormatLocal = "0""円"""
With Selection
'右詰にする
.HorizontalAlignment = xlRight
'上詰に設定
.VerticalAlignment = xlTop
'折り返して全体を表示する
.WrapText = True
'角度4に設定
.Orientation = 4
'前後にスペース挿入
.AddIndent = True
'イデントを7に設定する
.IndentLevel = 7
'縮小して全体を表示する
.ShrinkToFit = True
'セルを結合する
.MergeCells = True
End With
'フォント
With Selection.Font
'種類
.Name = "MS Pゴシック"
'スタイル
.FontStyle = "標準"
'サイズ
.Size = 11
'取り消し線
.Strikethrough = False
'上付
.Superscript = False
'下付
.Subscript = False
'アウトライン
.OutlineFont = False
'影付
.Shadow = False
'下線
.Underline = xlUnderlineStyleSingle
'色
.ColorIndex = 3
End With
'ライン
'斜線
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'左
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'上
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'下
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'右
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'ライン無し
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
'ライン内訳
With Selection.Borders(xlEdgeLeft)
'スタイル
.LineStyle = xlContinuous
'太さ
.Weight = xlHairline
'色
.ColorIndex = xlAutomatic
End With
'セルのパターン
With Selection.Interior
'色
.ColorIndex = 0
'パターン
.Pattern = xlGray50
'パターン色
.PatternColorIndex = 50
End With
'ロック
Selection.Locked = False
'数式の表示
Selection.FormulaHidden = False





Production Japan Import Application. Since 1998