ExcelVBAで条件の追加
条件(0.5以下)に一致するセルの個数を数えます。
CH1 CH2 CH3 CH4
1 5 5 0.1 5
2 5 5 0.1 5
3 0.1 5 5 0.1
4 0.1 5 5 0.1
5 0.1 5 5 0.1
6 5 5 0.1 0.1
7 0.1 5 0.1 5
8 0.1 5 0.1 0.1
9 5 5 5 0.1
CH1の列の先頭行から数えていくと、0.5以下に一致するセルの個数はCH1では3個、2個となります。この3と2は足さずに別々に表示したいのです。
CH1が終わると、CH2→CH3→と繰り返します。
結果は以下のように列ごとに表にして示します。
CH1 CH2 CH3 CH4
3 2 4
2 3 2
今回は、以下の条件を追加したいのです。
「数えたセルの個数のうち、各列の先頭行や最終行を含むものは除く」
上の例でこの条件を追加しますと、CH3の2個、3個という結果のうち2個の方は先頭行を含んでいるので削除、CH4の結果のうち2個は最終行を含んでいるので削除、結果以下のようになります。
CH1 CH2 CH3 CH4
3 3 4
2
<コードの一部>
Dim 出力値 As Variant
Dim 出力先セル As Range
Dim Counter As Long 'カウンタ
Dim a As Long
For a = 1 To 5
Set 出力先セル = Cells(2, 7+a)
For Each 出力値 In Range(Cells(32, a),Cells(60000, a)).Value
If 出力値 <= 0.5 Then
Counter = Counter + 1
ElseIf Counter <> 0 Then
出力先セル.Value = Counter '出力
Set 出力先セル = 出力先セル.Offset(1)
Counter = 0 'リセット
End If
Next
If Counter <> 0 Then
出力先セル.Value = Counter '出力
End If
Next
このif文の所に上記条件を追加したいのです。※先頭行(32行)と最終行(60000行)は固定
補足
そうですね・・・やはりないんでしょうか? サーボは、諦めようかな・・・ ブラシモータ用ESCの、完全防水て、ないですか!?バッテリーは、NI-MHしか持ってないです。 コネクターは、 参考 http://kyoshoshop-online.com/kyosho/goods/index.html?ggcd=ORI10325&cid=orion_battery このバッテリーについている、コネクターです。(なお、持っているバッテリーは、 参考の、バッテリーとは、違います) よろしくお願いします。