hapihapi life

【離婚・低収入シングルマザー・難病指定の病気発覚】でも幸せ♪

ExcelマクロVBA 抽出転記後フォントやフォントサイズを変更

お題「わたしの仕事場」

 

Sub 抽出転記()

  Worksheets("データ").Range("A:C").AutoFilter 1, "<>解約"
  MsgBox "オートフィルターを設定し解約以外を抽出。"
  
  Worksheets("データ").Range("A1").CurrentRegion.Copy Worksheets("抽出").Range("A1")
  MsgBox "転記終了。"
------------------------------------------------------------------------
👆ここまで処理が終わってから・・・  

Worksheets("抽出").Cells.Select

     With Selection.Font
    .Name = "UD デジタル 教科書体 N-B"
    .Size = 10
  End With

👆抽出という名のシートのセルを選ぶ

   With~ End With で

 フォントの

 名前は "UD デジタル 教科書体 N-B"にする

 サイズは 10にする

 With~ End Withを使うことで

 フォントの様々な設定を変更できる

End Sub

 

※fontstyle=フォントのスタイル

※underline=下線の種類

※color=フォントの色

※font.Superscript=上付き

 

など個別の設定ができます

 

にほんブログ村 その他日記ブログ シングルマザー日記へ
にほんブログ村

 

 

❤️楽天 my room❤️