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

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

ツリー一括表示

Nomal NO TITLE /野田 Mail (16/12/28(Wed) 19:57) #13124
Nomal Re[1]: NO TITLE /よねさん (16/12/29(Thu) 07:23) #13125
Nomal Re[1]: NO TITLE /野田 Mail (16/12/31(Sat) 15:56) #13127


親記事 / ▼[ 13125 ] ▼[ 13127 ]
■13124 / 親階層)  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 
    のコードをどのように変更したらよいのでしょうか?
    よろしくお願いいたします。
    

[ □ Tree ] 返信/引用返信 削除キー/

▲[ 13124 ] / 返信無し
■13125 / 1階層)  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
    

[ 親 13124 / □ Tree ] 返信/引用返信 削除キー/

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


[ 親 13124 / □ Tree ] 返信/引用返信 削除キー/


Pass/

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

- Child Tree -