よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■13124 / inTopicNo.1)  NO TITLE
  
□投稿者/ 野田 Mail -(2016/12/28(Wed) 19:57:06)
    2016/12/29(Thu) 07:07:42 編集(管理者)
    よねさん、こんばんは。
    現金出納帳を作るようになりまして、累計を出すマクロが
    できずに困っております。
    どうぞ教えてください。
      A   B    C  D      E   F
    1 日付 勘定科目 摘要 借方金額 貸方金額 残高
    2 12/1 前月残               10000
    3 12/2          1000       11000
    4 12/3               1000  10000
    5 
     Cells(i, 7).Value = Cells(i , 7).Value + Cells(i, 4).Value - Cells(i , 6).Value 
    のコードをどのように変更したらよいのでしょうか?
    よろしくお願いいたします。
    

引用返信/返信 削除キー/
■13125 / inTopicNo.2)  Re[1]: NO TITLE
□投稿者/ よねさん -(2016/12/29(Thu) 07:23:03)
    3行目以降の残高を計算するのですよね?
    こんな感じでいかがですか?
    
    Sub test()
     Dim i As Long
     Dim r As Long
      r = Cells(Rows.Count, 1).End(xlUp).Row
      For i = 3 To r
       Cells(i, 6).Value = Cells(i - 1, 6).Value + Cells(i, 4).Value - Cells(i, 5).Value
      Next i
    End Sub
    

引用返信/返信 削除キー/
■13127 / inTopicNo.3)  Re[1]: NO TITLE
□投稿者/ 野田 Mail -(2016/12/31(Sat) 15:56:32)
    よねさん、こんにちは。
    ありがとうございました。
    大変助かりました。
    出来ました。
    本当にいつもありがとうございます。
    今年もあとわずかですがどうぞ良いお年をお迎えくださいませ。


引用返信/返信 削除キー/



トピック内ページ移動 / << 0 >>

このトピックに書きこむ

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -