Sub □を作る() Shapeを作る (msoShapeRectangle)End Sub Sub DBを作る() Shapeを作る (msoShapeCan)End Sub Sub 帳票を作る() Shapeを作る (msoShapeFlowchartDocument)End Sub Private Sub Shapeを作る(shapeKind As Long) Dim activeCellText As String ac…

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

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