| |
ゴメンやり方だけで、内容まで見て居ませんでした
>実行時エラー '13':
>型が一致しません｡
>
>のエラーが出てしまいました｡
>
>'----- 入力データのチェック -----
> '入力された明細データの件数を代入する
> myMeiCnt = Range("L36").Value ←そして、ここが黄色く選択されます
此れは、
Dim myMeiCnt As Integer '「受注伝票」シートの明細データの件数
と成っていて、myMeiCnt整数型変数に
myMeiCnt = Range("L36").Value
で、文字列等数値以外を代入しようとしている為だと思います
Dim myMeiCnt As Variant '「受注伝票」シートの明細データの件数
セルからの代入なので、Variant型の変数で受けて確認する様にすべきです
また、元のコードを良く見て行くととちゅうで「If」が無く、「Else」から書かれているので
「If」が無いとのエラーが出て居ます
尚、このコードは、入力の整合確認だと思いますが？
もしそうなら、全てを「ElseIf」で繋が無くても善いのでは？
と言う事が言いたいのですが？
なぜなら、上から条件が合わなければ、
最初のコードは条件不一致のPromptを持って不一致の処理に飛ばすと言うコードです
次のコードは、条件確認のコード部分をFanctionにして、条件が合わなければ戻り値として
条件不一致の場合、条件不一致のPromptを全て一致の場合""を呼び出し元に返します
この場合、条件不一致成らば、戻り値にそのコメントをセットしてFunctionを抜ければ善いので
「ElseIf」で繋ぐ必要はありません、因って「If」に対する、「ElseIf」、「Else」、「End If」の
関係を気にする必要が無いという事です
|
|
Hirofumi
- 10/1/27(水) 12:16 -
