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

'●行設定
Rows("6:9").Select
'行のサイズ
Selection.RowHeight = 20
'行の表示
Selection.EntireRow.Hidden = True
'行の非表示
Selection.EntireRow.Hidden = False
'●列設定
Columns("A:C").Select
'列サイズ
Selection.ColumnWidth = 10
'列の表示
Selection.EntireColumn.Hidden = True
'列の非表示
Selection.EntireColumn.Hidden = False

'●シートの名前
Sheets("Sheet1").Name = "tst"
'シートを増やす
Sheets.Add
'シートの非表示
ActiveWindow.SelectedSheets.Visible = False
'選択シートの表示
Sheets("Sheet2").Visible = True
'シートの背景の設定
ActiveSheet.SetBackgroundPicture Filename:= _
"C:\tst\tst\tst\tst.jpg"
'シートの背景の削除
ActiveSheet.SetBackgroundPicture Filename:=""

'オートフォーマット
Selection.AutoFormat Format:=xlRangeAutoFormatLocalFormat1, Number:=True, _
Font:=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
'条件付書式の削除
Selection.FormatConditions.Delete
'条件付書式1(2より大きい数値)=フォントを赤で表示
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="2"
Selection.FormatConditions(1).Font.ColorIndex = 3
'スタイル
Selection.Style = "Comma"
Selection.Style = "Normal"
'ふりがなの設定
ActiveCell.Characters(1, 2).PhoneticCharacters = "シケン"
'ふりがなの設定(ミツド)
ActiveCell.Characters(1, 2).PhoneticCharacters = "ミツド"
'ふりがなをカタカナに設定
Selection.Phonetics.CharacterType = xlKatakana
'ふりがなを左詰めにて設定
Selection.Phonetics.Alignment = xlPhoneticAlignLeft
'ふりがなの非表示
Selection.Phonetics.Visible = False
'ふりがなの表示
Selection.Phonetics.Visible = True






Production Japan Import Application. Since 1998