bxdxmx3

きじれてじろあ　なきがせすで　あぷせとねでぶ

2020-07-18から1日間の記事一覧

EXCEL:シート移動マクロ

Sub 一番左のシート() ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets(1).SelectEnd Sub Sub 一番右のシート() ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Sheets.Count).SelectEnd Sub

EXCEL:テーブル整形マクロ

Sub テーブルデータの整形() 'テーブルデータを張り付けた後に実行 '前提：セルのフォーマットが文字列 '格子 With Selection .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineSty…