1

こんばんは。

以外検索での回答がクローズされていたのでコラムとして書きました。

今回は、winactorメインなので最小限のコードで。

winactor  → マクロ起動 → winactor 引き渡し

VBAにコピペで起動すると思います。

J6からJ1549が0のみ(空白も0扱い)か0以外が含まれるか。

--------------------------------------------------
Option Explicit

Sub 判定()

    Dim i

       For i = 6 To 1549

            If Cells(i, 10) = 0 Then
     

            Else
                Range("J1") = "0以外あり"

            End If

     Next i

End Sub

---------------------------------------------------

変数をiにします。
iのカウンターを6から1549にします。

もし、Cells(6,10) = 0 ならば、
      ↑
      行,列

then のあとに処理事項ですが、空白とし何もしない。

0じゃなかったら(else)セル番地J1に文字列”0以外あり”を設定する。

もしも判定おしまい。
次のi=7に進む。1549までループ。
処理は一瞬です。

---------------------------------------------------

変化に強いコード(最終行判定)ですともっとコードが必要ですが、
最小限にこんな感じで。

J1セルに0以外ありが表示されない、されている
でwinacorに分岐で処理を引き渡せばいいのかと思います。

マクロ版ですが、ご参考までに。

回答した質問
申し訳ありません。回答とコメントを閲覧するにはログインが必要です。会員登録はこちらからアクセスしてください。