|
▼Kein さん:
>要するに、データの入力チェックをしたいのですね ?
>"一件も入力されていない" 場合なら、あなたのコードで良いわけですが、
>"一件でも入力漏れがあれば" という処理にするなら
>
>n = Application.WorksheetFunction.CountA(Range("C13:C27"))
>If n < 15 Then
> MsgBox "明細を入力していない個所があります", vbOKOnly, "注文書作成"
> Exit Sub
>End If
>
>とか
>
>n = Application.WorksheetFunction.CountBlank(Range("C13:C27"))
>If n > 0 Then
> MsgBox "明細を入力していない個所があります", vbOKOnly, "注文書作成"
> Exit Sub
>End If
>
>などとすれば良いでしょう。
早速の回答ありがとうございます。
早速ためしてみたのですが、毎回、15行ばかりになるわけではなく、
一行の時もあれば10行の時もあるので
上のプログラムだと15行全部に値がないと次にいかないかたちになってしまうのですが・・・・
|
|