Menuへ
Excel2007で顧客管理ソフトを作ってみよう

Step 14　「前へ」へレコード移動ボタンの処理

下記の順の動作になります。
（１）現在の顧客No.より次に小さいNo.を探す
　　　見つからなければ最終レコードへ移動します。
（２）入力変更があれば「変更があります。・・・」のメッセージを表示
（３）一覧から入力部へデータをコピー
　　　コピー部分は「次へ」ボタンで使用したプロシージャを使います。
以上でレコード移動ボタンの処理は完了しました。
シートコード
下記のコードを追加してください。

'前へボタン
Private Sub CommandButton2_Click()
    Dim sr As String
    
    If Range("E3") = "" Then
        CommandButton4_Click
    Else
        If IsNumeric(Sheets("一覧").Range("CT6")) Then
            If ExDataChangeMsg = False Then
                Exit Sub
            End If
            
            ExCopyToSheetCheck Sheets("一覧").Range("CT6"), sr
            ExDataDisp sr
        Else
            Beep
        End If
    End If

End Sub


シート画面
「前へ」ボタンをクリックすると、現在の顧客No.より次に小さいNo.を探し表示します。
後方へレコード移動


Topへ
■このサイトの内容を利用して発生した、いかなる問題にも一切の責任は負いませんのでご了承下さい。■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します。

Copyright (c) 2006 Excel-Excel ! All rights reserved.