キャンセルボタン

投稿者 : ちー     投稿日時 : 2024/07/30(Tue) 09:15:09     OS : 未指定     EXCEL : 未指定

---

以下の順で、キャンセルボタンをクリックした時の動作のコードが知りたいです。


1）キャンセルしてもいいかどうかの確認メッセージを出す → 2）メッセージへの応答が“いいえ”の場合は処理を止める→ 3）MS_口座フォームを閉じる → 4）編集用テーブルのレコードを削除する → 5）マスタテーブルのレコードを編集用テーブルに追加する → 6）MS_口座フォームを開く

投稿者 : 無茶ぶりすぎ     投稿日時 : 2024/07/30(Tue) 09:33:19

---

専門の業者にお金を払うことで全て解決します。

投稿者 : tek     投稿日時 : 2024/07/30(Tue) 15:01:31

---

一例です。

Private Sub キャンセルボタン_Click()
    Dim 編集用テーブル As ListObject
    Dim マスタテーブル As ListObject
    
    If MsgBox("キャンセルしてもいいかどうかの確認メッセージ", vbYesNo) = vbNo Then
        Unload MS_口座フォーム
        Set 編集用テーブル = ListObjects("編集用テーブル")
        Set マスタテーブル = ListObjects("マスタテーブル")
        On Error Resume Next
        編集用テーブル.DataBodyRange.Delete
        マスタテーブル.DataBodyRange.Copy 編集用テーブル.HeaderRowRange.Cells(1).Offset(1)
        MS_口座フォーム.Show
    Else
        '“いいえ”以外の処理
    End If
End Sub