お世話になります。
一昨日からエクセルのVBAをやりはじめたのですが、
表題のエラーが回避できなくて困っております。
下記のコードの
Sub 繰越判定(cellno1 As Long, cellno2 As Long, cellno3 As Long, kamoku As String, bunrui As String, karikatakamoku As String, kasikatakamoku As String, tekiyou As String, kurikosi As Long)
の行が黄色になり、そこから17行下の
Call 当期(cellno1, cellno2, cellno3, kamoku, bunrui, karikatakamoku, kasikatakamoku, tekiyou, kurikosi)
のtekiyouの部分が青く変わります。
お分かりになる方がいらっしゃいましたら
お助けください。
以下コードです。
Sub 総勘定元帳() '開始行の設定
Dim cellno1 As Long '総勘定元帳の開始行
Dim cellno2 As Long 'マスタの検索行
Dim cellno3 As Long 'データの検索開始行
Dim kamoku As String 'マスタの科目
Dim bunrui As String 'マスタの(科目の)分類
Dim karikatakamoku As String
Dim kasikatakamoku As String
Dim tekiyou As String
Dim kurikosi As Long
cellno1 = 5
kurikosi = 0
kamoku = Sheets("マスタ").Range("B3")
bunrui = Sheets("マスタ").Range("C3")
Call 繰越判定(cellno1, cellno2, cellno3, kamoku, bunrui, karikatakamoku, kasikatakamoku, tekiyou, kurikosi)
End Sub
Sub 繰越判定(cellno1 As Long, cellno2 As Long, cellno3 As Long, kamoku As String, bunrui As String, karikatakamoku As String, kasikatakamoku As String, tekiyou As String, kurikosi As Long)
cellno2 = 3 'マスタの開始行数セット
cellno3 = 5 'データの開始行数セット
kamoku = Sheets("マスタ").Range("B" & cellno2)
karikatakamoku = Sheets("データ").Range("F" & cellno3)
tekiyou = Sheets("データ").Range("G" & cellno3)
kasikatakamoku = Sheets("データ").Range("H" & cellno3)
'MsgBox kamoku
'MsgBox karikatakamoku
'MsgBox tekiyou
'MsgBox kasikatakamoku
If kurikosi = 0 Then '前期繰越か当期かの判定
Call 繰越(cellno1, cellno2, cellno3, kamoku, bunrui, karikatakamoku, kasikatakamoku, tekiyou, kurikosi)
Else
Call 当期(cellno1, cellno2, cellno3, kamoku, bunrui, karikatakamoku, kasikatakamoku, tekiyou, kurikosi)
End If
End Sub
Sub 繰越(cellno1 As Long, cellno2 As Long, cellno3 As Long, kamoku As String, bunrui As String, karikatakamoku As String, kasikatakamoku As String, tekiyou As String, kurikosi As Long)
Range("a1") = kamoku '科目タイトル出力
Range("C" & cellno1) = "前期繰越"
If bunrui = "資産" Or bunrui = "資産2" Or bunrui = "収益" Then '科目分類の判定
Set マスタ = Sheets("決算")
Set 範囲 = マスタ.Range("A68:B90")
Range("D" & cellno1) = Application.WorksheetFunction.VLookup(bunrui, 範囲, 2)
End If
Call 当期(cellno1, cellno2, cellno3, kamoku, bunrui, karikatakamoku, kasikatakamoku, tekiyou, kurikosi)
End Sub
Sub 当期(cellno1 As Long, cellno2 As Long, cellno3 As Long, kamoku As String, karikatakamoku As String, kasikatakamoku As String, tekiyou As String, kurikosi As Long)
Do Until cellno3 = 30
If kurikosi = 0 Then
Select Case kamoku
Case karikatakamoku
MsgBox karikatakamoku
cellno3 = cellno3 + 1
karikatakamoku = Sheets("データ").Range("F" & cellno3)
karikatakamoku = Sheets("データ").Range("F" & cellno3)
Case kasikatakamoku
MsgBox kasikatakamoku
cellno3 = cellno3 + 1
kasikatakamoku = Sheets("データ").Range("H" & cellno3)
karikatakamoku = Sheets("データ").Range("F" & cellno3)
Case Else
cellno3 = cellno3 + 1
karikatakamoku = Sheets("データ").Range("F" & cellno3)
kasikatakamoku = Sheets("データ").Range("H" & cellno3)
MsgBox cellno3
End Select
Loop
End Sub
No.1ベストアンサー
- 回答日時:
Sub 当期(cellno1 As Long, cellno2 As Long, cellno3 As Long, kamoku As String, karikatakamoku As String, kasikatakamoku As String, tekiyou As String, kurikosi As Long)
の引数が、足りていません
後、このサブのend ifが一つ足りません。
素早いご回答有難う御座いました。
やっと先へ進めます^^
またend ifが抜けているとのご指摘、
重ねて有難う御座いました。
大変助かりました><;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS2000でデータ管理をしたい
-
JPドメイン以外でEUCを使用
-
PHP 更新順を作成日順に変更し...
-
初めてのACCESS…まず何をすべき?
-
Q&Aの掲示板を作成していてヤフ...
-
マスタデータの要件定義
-
formで送信したPOSTデータの削...
-
納品 vs ご納品 どちらが正し...
-
オーバレイ方式と仮想記憶シス...
-
「スポット受注」はどういう意...
-
VBからBeckyを使用したメール送...
-
Zと2とか紛らわしいのがあるか...
-
仕様書に書かれていないこと
-
スーパーなどで食品発注で売れ...
-
Visual Studioのプロジェクトの...
-
サブウェイ
-
三菱製PLC:ファイルレジスタ(...
-
開発後のテスト方法の勉強について
-
見積だけで契約成立?
-
中小企業に対しての分割検収
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
長さ0の文字列を格納できません...
-
formで送信したPOSTデータの削...
-
Access97データベースの最大登...
-
Q&Aの掲示板を作成していてヤフ...
-
レコードセット検索
-
住所から市町村JISコードを検出
-
Postgresの高速検索
-
データベースの検索機能つきのH...
-
株価予測システムを作成するた...
-
桁数の長くないユニークな値の取得
-
アクセスについて
-
プログラムを依頼したときの相...
-
マスタデータの要件定義
-
マスタメンテ系の仕事とは?
-
統計ソフトを作りたいです。
-
言葉の類似性を求めるアルゴリズム
-
データベースから円グラフや棒...
-
知識がなくても作成可能な「ソ...
-
JPドメイン以外でEUCを使用
-
「ByRef引数の型が一致しません...
おすすめ情報