受講生さん:

まずは動けばOKですよ。

インデントには気をつけましょう。
以下参照ください。

If shFm.Range("G" & lnFm).Value > 0 Then
    shTo.Range("I" & lnTo).Value = shFm.Range("G" & lnFm).Value
    	'↓インデント多すぎです。
        If lnTo = 16 Then
            shTo.Range("K" & lnTo).Value = shTo.Range("I" & lnTo).Value
        Else
            shTo.Range("K" & lnTo).Value = shTo.Range("K" & lnTo - 1).Value + _
                                                                shTo.Range("I" & lnTo).Value
        End If
Else
    shTo.Range("J" & lnTo).Value = shFm.Range("G" & lnFm).Value
    	'↓インデント多すぎです。
        If lnTo = 16 Then
            shTo.Range("K" & lnTo).Value = shTo.Range("J" & lnTo).Value
        Else
            shTo.Range("K" & lnTo).Value = shTo.Range("K" & lnTo - 1).Value + _
                                                                shTo.Range("J" & lnTo).Value
        End If
End If

> 簿記の発想で行ってしまうので、どうしても頭が固くなっています。
> 私が書いた残高計算方法では、
> ¥FollowMailSeminor_07.txt（添付ファイル）
> のように、残高＝前残高＋借方ー貸方　という発想になってしまいます。
> 　小川先生のように、より自由な発想法が出来れば良いのですが、
> 中々うまくいきません。
>
>

2018/06/19 22:37