0以外検索 マクロ版
こんばんは。
以外検索での回答がクローズされていたのでコラムとして書きました。
今回は、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に分岐で処理を引き渡せばいいのかと思います。
マクロ版ですが、ご参考までに。