Excelブックに操作SheetとデータベースSheetを作り、操作Sheetの操作でデータベースSheetへの入力作業(検索・更新・新規登録・削除)ができるマクロを作成したのですが、

画像
補足

済みませんコードが文字数制限で書けない為ご質問の後に残りを載せます。 Sub 新規登録() Dim no As Long Dim newNo As Long Dim tmp As String no = Worksheets("増設").Cells(Rows.Count, 1).End(xlUp) With Worksheets("検索・更新・追加・削除") If .Range("C6").Value = "" Or _ .Range("C7").Value = "" Or _ .Range("C8").Value = "" Then MsgBox ("空欄があります") Exit Sub End If tmp = Worksheets("増設").Cells(no, "A").Value tmp = Mid(tmp, 3, Len(tmp) - 4)

Excel | Visual Basic71閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

が再度に渡ってのご教示ありがとうございます。仰せの通りにしたのですが、イミディエイトウィンドウには何も表示されません。追記コードを実装してマクロ実行しましたが、また「プロシージャの呼び出し、または引数が不正です」エラーがでてしまいます。 なぜでしょうか?

画像

ThanksImg質問者からのお礼コメント

再三に渡る当方の質問にも真摯にご対応くださり心から感謝します。 本当にありがとうございました。

お礼日時:2021/11/27 23:54