単純な現金出納帳を作っていますが、「変数を使った「差引残高」欄」の計算式が書けません。様々な方法をやってみましたが、だめでした。
もっとも、71歳でVBAの勉強を始めて一月もたちません。分厚い書籍を二冊購入したのですが、なんともなりませんでした。
以下の通りに作りましたが、「差引残高欄の計算」の計算式がなんともなりません。
要するに、変数を使った計算式がわかりません。単純なのでしょうが・・・。
よろしくご教示ください。
Private Sub btnOk_Click()
Dim i As Long
With Sheets("30年度出納帳")
'変数に入力するセルの行数を入れる i = .Cells(.Rows.Count, 6).End(xlUp).Row + 1 '各項目の入力をシートに転記 .Cells(i, 2) = Me.txt月.Text .Cells(i, 3) = Me.txt日.Text .Cells(i, 4) = Me.txt適用.Text '支出区分による収入欄、支出欄への振り分け If Me.cmb収支区分.Value = "収入" Then .Cells(i, 5) = Me.txt金額.Text .Cells(i, 6) = " " Else .Cells(i, 5) = " " End If '収入額欄及び支出額欄の空白の区分 If Me.cmb収支区分.Value = "支出" Then .Cells(i, 6) = Me.txt金額.Text .Cells(i, 5) = " " Else .Cells(i, 6) = " " End If '差引残高欄の計算 ActiveCell.FormulaR1C1 = "=+SUM(R[-1]C[-2]:RC[-2])- SUM(R[-1]C[-1]:RC[-1])" Range("G6").Select '収支勘定の選択によるアルファベット区分の選択 .Cells(i, 8) = Me.lst収支勘定.List(Me.lst収支勘定.ListIndex, 1) '入力フォームのラベルのフォントの詳細 Me.txt月.Text = "" Me.txt日.Text = "" Me.txt適用.Text = "" Me.txt金額.Text = "" End With
End Sub
回答5件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/12/11 13:13
2018/12/12 02:31 編集
2018/12/12 08:28
2018/12/12 09:42
2018/12/13 00:27
2018/12/14 07:47
2018/12/14 08:34
2018/12/28 10:13