カウンタで先頭行チェック、空白で終わりの判断

メルマガ発行内容

＜カウンタで先頭行チェック、空白で終わりの判断＞
こんにちは、三流プログラマーＫｅｎ３です。

今回は、
前回作成した、シートとExcel Formのデータやり取りで、
ボタンを押しつづけるとエラーが発生してしまう、
そんなバグ（プログラムの欠陥、穴）を修正してみたいと思います。

気楽に読んでください。

/*
 * １．わかり易い欠陥、エラー出ないけど防ぎたい欠陥
*/
Excelで画像管理のサンプル、Formの作成を
In message "[VBAで楽しく No.042] - ExcelのForm シートと連動させる",
/vba/backno/vba042.html
でやりました。
http://www.ken3.org/vba/lzh/vba045.lzhで、関数をまとめました。

まぁ、問題ありのプログラムで、
In message "[VBAで楽しく No.042] - ExcelのForm シートと連動させる",
 >・前のボタンを押しつづけるとエラー（そんなの本文で一言も書いてないよ）
 >・次のボタンを最終データ以降も押せる（そんなの本文で一言もフレテナイよ）
本人も、そんなこと書きつつ、欠陥品をそのまま世に出しつづけてます。

もう、わかり易い欠陥で、
・前のボタンを押しつづけるとエラーは、
最悪のレベル、実行時エラーで止まるですね。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
エラー画面

発生場所


内容は、みてわかるように、前のボタンを押してカウンターが０になり、
０行目を参照にしようとムチャして、実行時エラーが発生。
まったく、テストやってんの？アンタ？的エラーですね。

・次のボタンを最終データ以降も押せる
は
まだ、かわいいほうで、実行時エラーは出ないんだけど、
空白行をドンドン進めて、
論理的におかしいと感じるエラーかなぁ。

Accessで作った画像管理のサンプルは、
( 詳細は/vba/backno/vba041.html参照)
In message "[VBAで楽しく No.041] - AccessのForm .Pictureプロパティで画像参照",
 >・Accessフォームをウィザードで作る
 >・.Pictureで画像の管理
---
Accessのテーブルを元にしたフォームで、
データ数分しか移動しないので、なんのチェックもいらなかったんですね。
＊勝手にＡｃｃｅｓｓ君がチェックしてるので。

今回は自分で（プログラムで）
Excelのシートとフォームを連動（データのセット／参照）させているので、
自分でチェックしないとね。
＊そう考えると、Ａｃｃｅｓｓってよく出来てるのかなぁ。
　Excelにもセル範囲との連動した自動フォーム作成あればいいのにね。

/*
 * ２．前ボタンの対策（チェック）
*/
さてと、問題の部分は、
Private Sub btnPREV_Click()

    '前の位置を計算
    yCNT = yCNT - 1   '行カウンタを減らす

    'セルの値をフォームのテキストボックスに代入する
    Call SheetToForm

    '画像ファイルを表示する
    Call PUTPicture

End Sub
かぁ、
yCNT = yCNT - 1
ダメだよね、無条件に計算してちゃね。

チェックを入れますか、えっと、見出しが１行目だから、
２行目からデータ、カウンタが２の時は減らさないようにしたいから、

If yCNT = 2 Then Exit Sub
のチェックを入れて、何もしなくていいや。

Private Sub btnPREV_Click()

    'カウンタをチェックして、先頭なら何もしない vba046で追加
    If yCNT = 2 Then Exit Sub

    '前の位置を計算
    yCNT = yCNT - 1   '行カウンタを減らす

    'セルの値をフォームのテキストボックスに代入する
    Call SheetToForm

    '画像ファイルを表示する
    Call PUTPicture

End Sub

なんだぁ、この１行でよかったの？
yCNT = 2 だったら、Exit Subで関数を終わらせてるだけですね。

Exit Subの解説は、
~~~~~~~~
[No.19 Exit Subで途中退場する]
/vba/backno/vba019.html
を見てください（みなくても処理の感覚はわかりましたよね）

/*
 * ３．次ボタン、最終データの判断
*/
お次は、空白行でも気にしないで進めてしまうってヤツですね。
エラー発生しないから、ほっといても良いんだけどね。

Private Sub btnNEXT_Click()
    
    '次の位置を計算
    yCNT = yCNT + 1   '行カウンタを増やす
    
    'セルの値をフォームのテキストボックスに代入する
    Call SheetToForm
    
    '画像ファイルを表示する
    Call PUTPicture

End Sub

ここも、ノーチェックだから、
今居る行のデータが無い時は、次に進まなくしたいので、チェックを入れます。

If Cells(yCNT, "A") = "" And Cells(yCNT, "B") = "" And Cells(yCNT, "C") = "" Then
    Exit Sub '全ての項目入っていなかったら、処理を抜ける
End If
と少しバカっぽいけど、こんな感じでチェックを入れてと、

Private Sub btnNEXT_Click()
    'データが入っているかチェックする
    If Cells(yCNT, "A") = "" And Cells(yCNT, "B") = "" And Cells(yCNT, "C") = "" Then
        Exit Sub '全ての項目入っていなかったら、処理を抜ける
    End If

    '次の位置を計算
    yCNT = yCNT + 1   '行カウンタを増やす
    
    'セルの値をフォームのテキストボックスに代入する
    Call SheetToForm
    
    '画像ファイルを表示する
    Call PUTPicture

End Sub

に修正したら、なんとか動いたかなぁ。
＊現在位置（行カウンタ）を表示してないので、わかりにくいけど、
　次を押し続けて、戻ったらテストはＯＫでした。

/*
 *　４.おわりの挨拶
*/

今回は、
・わかり易い欠陥、エラー出ないけど防ぎたい欠陥
・カウンタの値をチェック先頭なら処理しない
・データをチェックして、空白なら次に移動しない
でした。

修正した、Excelで画像管理サンプルを
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba046.lzh
にtest046-book.xlsが保存されています。

まっ、いろいろと不親切なフォームだけどね。（このへんは次回以降に）
あっ、グローバル変数の説明、まだしてないや。。。

何か素朴な疑問などあったら、メール、掲示板に気軽に書いてください。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

評価・感想

ページフッター(リンクや広告など)

情報を探す

Web www.ken3.org www.microsoft.com support.microsoft.com あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック