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

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

■13125 / 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

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←NO TITLE /野田 Mail 返信無し
　
上記関連ツリー

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

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
　
上記の記事へ返信
Pass/

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

- Child Tree -