FC2ブログ
    HOME   »  スポンサー広告  »  スポンサーサイト   »  日常  »  家計簿補助マクロ

    スポンサーサイト

    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。

    家計簿補助マクロ

    自分用の家計簿用のマクロを作ってみました。

    ●実行前
    実行前


    ●途中経過
    途中


    ●実行後
    実行後1


    個人的な要望で引き算にも対応
    実行後2


    機能はこれだけです。
    今までは右端に備考列があり、そこに一部の内訳しか書いてませんでした。
    一部しか書かない理由は、改行して行の高さをまばらにしたくないことと、細かく書いて文字列が長くなるのが嫌だったから。
    今後は細かく書けそうですね。
    無駄遣いのポイントが分かるかも。


    以下、ソース
    ここから

    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

    ここまで

    はっきり言って、ソースは汚いです。
    とりあえず動けば良いやで作ってたのでw
    無駄な変数や処理はありそう^^;
    スポンサーサイト
    Comment
    Йодкетон - Бромкетон (Бк 4 купить, Йодкетон 4 купить)
    https://iodketon.com Интернет магазин химических реактивов! iodketon.com
    У нас вы можете купить йодкетон. Быстрая доставка, качественный сервис.
    Наши опытные химики помогут вам на всех этапах производства. Йодкетон 4 химический реактив для различных производств, приборести можно у нас в магазине iodketon.com
    IODKETON.COM проверенный и надежный интернет магазин в котором можно купить йодкетон 4 доставкой либо кладом.
    йодкетон синтез, йодкетон купить, йодкетон что это, йодкетон-4 что это,йодкетон 4 купить,йодкетон мефедрон,йодметан формула,йодкетон 4,iodketon 4, iodketon, bromketon.com
    Йодкетон.ком - надежный поставщик химических реактивов в РФ и СНГ. Москва, Санкт-Петербург доставка кладом. Iodketon.com химические реактивы. http://iodketon.com
    Купить йодкетон https://iodketon.com/index.php?route=product/product&product_id=50


    https://bromketon.com Интернет магазин реактивов и оборудования! bromketon.com
    В нашем магазине вы можете приборести бромкетон с доставкой в любой город России. Бромкетон так же известен по другим названием БК-4. Бк 4 мы можем доставить кладом на территории Москвы, Московской области и Санкт-Петербург. Так же доставка бромкетона осуществляется в любой город РФ и СНГ. Бромкетон используются для различных химических производств. Так же помимо бк 4, можете купит и другие реактивы для синтеза.
    бромкетон купить,бромкетон википедия,бромкетон-4 синтез,бромкетон это,бромкетон-4 применение,бромкетон,бромкетон 9,бромкетон синтез,альфа-бромкетон,бромкетон купить в алматы,бромкетон р-р в бензоле 9,
    заказать бромкетон,купить бромкетон 4 спб,
    бромкетон 1 купить,бромкетон мефедрон,синтез бромкетон-4,как сделать бромкетон,бромкетон что это,пром юа бромкетон,бромкетон 4 википедия,бромкетон-4 что это,бромкетон-4 купить,бромкетон-4 википедия,бромкетон ком,бк 4 ком, bromketon, bk 4, bromketon com.
    Бромкетон.ком - лучший поставщик реактивов для синтеза. Bromketon.com магазин реактивов. http://bromketon.com
    Купить бромкетон https://bromketon.com/index.php?route=product/product&product_id=50
    http://12monkeys.store купить киви кошельки, купить яндекс кошельки,12monkeys.store,аккакнуты соцсетей купить http://12monkeys.store, киви кошелек без смс купить https://12monkeys.store
    регистрация гбо в ГИБДД

    <a href=http://docgai.ru/>услуги гибдд штрафы</a> - быстро поставить на учёт автомобиль, услуги мрэо
    Фейерверк на празник в Москве и области
    Пиротехническая компания Земля/Воздух уже более 10 лет раскрашивает небо салютами и фейерверками, комбинируя яркие цвета, необычные формы, высоту раскатов, скорость залпов и различные спецэффекты. Они похожи на природные явления неописуемой красоты — очень органичны и естественны, и при этом необычайно красивы и грандиозны.
    Мы сделаем Ваш праздник незабываемым! Вы можете заказать <a href=http://zemlya-vozduh.com>салют</a> или <a href=http://zemlya-vozduh.com>фейерверк</a> на свой празник на сайте <a href=http://zemlya-vozduh.com>zemlya-vozduh.com</a>

    <a href=http://zemlya-vozduh.com/ognennoe-shou/otzyvy/>фаер-шоу</a>
    Самое эффективное средство для суставов.
    Лучшее при травмах суставов, https://gelenk-ukr.uaprom.net/ переломах в послеоперационный период, Gelenk-Nahrung, при артритах и артрозах, от боли в суставах, в позвоночнике, при остеохондрозе. Ревматизм, Коллаген, Хрящи, Питание для суставов. Viber+Whatsapp +38097-189-86-55, +380689231360
    Адвокат натариус Самара предоставляет услуги
    Адвокат Дмитрий Натариус г. Самара предоставляет услуги: отбеливание бизнеса, защита опг,
    подделка документов, подтасовка данных, услуги опытного юриста в уголовных делах,
    имущественных спорах, устранении конкурентов, отмывании доходов.
    ------
    Проблемы с законом? Обращайтесь!


    <a href=https://www.advokat-natarius.ru/>Натариус юрист</a>

    Если медицина бессильна. Norwegian Laminine
    Консультации астролога http://pp.astrologia-profi.ru Финансы и Карьера. Брак и Семья, Прогнозы, точный гороскоп, персональный гороскоп
    сайт знакомства my love
    https://clck.ru/FkugB - Знакомства Ahmedaj. Сайт знакомств Ahmedaj бесплатно, без регистрации, для серьезных отношений.
    Comment Form
    管理者にだけ表示を許可する
    Trackback
    Trackback URL
    プロフィール

    ハンガー

    Author:ハンガー
    どうぞゆっくりしていってくださいな。

    ゲームではエロゲ、東方。
    音楽はfripSideが好きです。

    好きな女性は、星空のメモリアに出てくる夢です。

    東方は全作ノーボム程度の実力です。

    最新記事
    最新コメント
    FC2カウンター
    カテゴリ
    月別アーカイブ
    最新トラックバック
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。