弥生販売で作成した見積レポートの整理

完全に自分のためのメモです。

会社で見積書を「弥生販売」を利用して作成しているのですが、
そのレポートを担当営業さんに毎週提出しています。

Excelデータにエクスポート出来るようになってるんです。

それがとても見づらい。

それは困るので、必要のない情報は削除したり、パッと見たときに見やすいように編集するマクロを書きました。

最初の「必要のない列を削除する」ところ、
もうちょっとかっこいい書き方がないかなぁと思うんだけど。。

Option Explicit

'見積レポートを整理する
'---必要のない列を削除
'---消費税の行を削除
'---数量、単価、金額の欄が「0」だったら文字色を白にする



Sub 見積控え整理()
    '---画面が動かないよう固定
    Application.ScreenUpdating = False
    
    '---必要のない列を削除する
    '---うしろの列から削除しないと、削除中にずれる
    Range("AA1, Y1, W1, U1, T1, S1, Q1, P1, N1, M1, J1, H1, G1, F1, E1, D1").EntireColumn.Delete
   
    '---数量、単価、金額の欄が「0」だったら文字色を白にする
    With Columns("I:K").FormatConditions
        .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0"
        .Item(1).Font.ColorIndex = 2
    End With
        
    '---6行目からデータの最終行までループする
    Dim i As Long
    For i = 6 To Range("C65536").End(xlUp).Row
    
    '---消費税の行を削除
    If Cells(i, 8) = "《消費税》" Then
        Rows(i).Delete
    End If
    
    '---見積日から担当者名までを選択
    With Range(Cells(i + 1, 2), Cells(i + 1, 7))
    
        '---見積番号が前の行と同一なら文字色を白に、異なるなら文字色を黒に変更
        If Cells(i, 3) = Cells(i + 1, 3) Then
            .Font.ColorIndex = 2
        Else
            .Font.ColorIndex = 1
        End If
        
    End With
    Next
        
    '---画面固定を解除
    Application.ScreenUpdating = True
End Sub

使用前（雰囲気）

使用後（雰囲気）