家計簿補助マクロ

ここから

Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+p
'
    Dim moji As String
    Dim uchiwake As String
    Dim suuchi As Double
    Dim minusFlag As Boolean
    Dim suuchi2 As Double
    Dim nedan As Double
    
    suuchi = 0
    suuchi2 = 0
    minusFlag = False
    ActiveCell.ClearComments
    ActiveCell.AddComment
    ActiveCell.Comment.Visible = False
    ActiveCell.Comment.Text Text:=""
    
    For Count = 1 To Len(ActiveCell.Formula)
        moji = Mid(ActiveCell.Formula, Count, 1)
        If moji <> "=" Then
            
            If moji = "+" Then
                If minusFlag = True Then
                    nedan = (suuchi2 - suuchi)
                    minusFlag = False
                Else
                    nedan = suuchi
                End If
                
                uchiwake = InputBox(nedan & "円の用途は何ですか？", "内訳確認", "")
                ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & uchiwake & "：" & nedan
                
                suuchi2 = 0
                suuchi = 0
                nedan = 0
                ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & vbCrLf
            ElseIf moji = "-" Then
                minusFlag = True
                suuchi2 = suuchi - suuchi2
                suuchi = 0
            Else
                suuchi = suuchi * 10 + Val(moji)
                'ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & moji
            End If
        End If
    Next
    
    If minusFlag = True Then
        nedan = (suuchi2 - suuchi)
        minusFlag = False
    Else
        nedan = suuchi
    End If
    
    uchiwake = InputBox(nedan & "の用途は何ですか？", "内訳確認", "")
    ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & uchiwake & "：" & nedan
    
    ' コメントを表示(常時表示)
    ActiveCell.Comment.Visible = True
    ' セルを選択した上でコメントを選択
    ActiveCell.Select
    ' コメントの書式セット
    Selection.Comment.Shape.Select True
    Selection.AutoSize = True               ' AutoSize
    Selection.Font.Bold = True
    ' コメントを非表示する(ポイント持のみ表示)
    ActiveCell.Comment.Visible = False

  End Sub

ここまで

はっきり言って、ソースは汚いです。
とりあえず動けば良いやで作ってたのでｗ
無駄な変数や処理はありそう＾＾；