No.2ベストアンサー
- 回答日時:
こんばんは
関数を使った方法です。
データはA1から入っているとします。
B1に
=IF(A1>0,1,0)
B2に
=IF(A2>0,B1+1,0)
とし、以下B2をオーフィル
C1に
=MAX(B:B)
としますと、C1にご希望の結果が得られます。
VBAと関数、方法は違いますが、#1のmerlionXXさんの考え方とほぼ同じです。
できました!
なるほど、こういう方法があるんですね。
知っている関数でも発想が思いつきませんでした^^;
ありがとうございます。解決しました。
No.3
- 回答日時:
こんばんは!
かなり泥臭い方法になりますが・・・
↓の画像でB2セルに
=IF(OR(A2="",A2<0),0,1)
B3セルに
=IF(A3="","",IF(A3<0,0,B2+1))
という数式を入れ、B3セルをオートフィルでずぃ~~~!っと下へコピーしています。
そして、結果のD2セルは
=MAX(B:B)
という数式にしています。
以上、参考になれば良いのですが、
他に良い方法があれば読み流してくださいね。m(__)m
No.1
- 回答日時:
VBAでよければ以下の手順をおためしください。
データはA1から始まるとしてあります。
1.Altキー+F11キーで Visual Basic Editor画面を呼び出します。
2.画面上部のメニューバーから挿入、標準モジュールで出てきたコードウィンド(右側の白い広い部分)に以下のコードをコピペします。
'*****ここから下をコピペ*****
Sub test01()
Dim myC As Range, i As Long, myX As Long
Set myC = Range("A1")
Do While myC <> ""
If myC.Value > 0 Then
i = i + 1
Else
i = 0
End If
myX = Application.Max(myX, i)
Set myC = myC.Offset(1)
Loop
MsgBox myX
Set myC = Nothing
End Sub
'*****ここより上までをコピペ*****
3.Alt+F11キーでワークシートへもどります。
4. Alt+F8キーでマクロを呼び出し「test01」を実行します。
ありがとうございます。
マクロうまく動作しました。
スミマセン、こちらの質問内容に不足が有りました。教えて頂いて申し訳ないのですが、
MsgBoxに表示させるのではなく、最大個数を任意セルに常時表示させておきたいと思っております。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) 結合セルのソートについて 5 2022/04/22 11:57
- Excel(エクセル) 直近から数えて、プラスとマイナスの数を判定する方法について 1 2022/03/27 23:21
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- 統計学 「Newton」7月号特集記事 6 2022/06/07 21:27
- Excel(エクセル) Excelで連続するデータの個数をカウントする方法を教えてください 1 2023/02/13 09:15
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
- Excel(エクセル) Excelでの複数条件のカウントについて 1 2022/09/25 07:40
- 大雨・洪水 今年は、雷が異常に多い気がするのですが。 3 2022/08/18 10:13
- C言語・C++・C# c言語 プログラムのエラー 1 2023/02/11 20:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelで、スクロールをすると限...
-
複数のセルの入力内容を一度に...
-
EXCEL アルファベットと数字の...
-
エクセルの画面で十字マークが...
-
セルをクリックすると付箋のよ...
-
エクセルで連続データから、数...
-
エクセルでハイパーリンクのU...
-
Excelで表のデータを並び替えた...
-
エクセル 数値を全て「1」にす...
-
エクセル 画面上の行数を調節...
-
エクセルで任意のセルをクリッ...
-
エクセルで1つおきに列を削除...
-
エクセルの行数の制限
-
Excelの複数セル選択は、なぜ一...
-
エクセルで0を除いて昇順に並...
-
Excel選択を繰り返すとセルの色...
-
excelで1行ごとに一気に削除す...
-
エクセルVBAでセル範囲のデータ...
-
エクセルVBA 複数行にまたがっ...
-
エクセルVBAリストボックスに表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルで連続データから、数...
-
エクセルの画面で十字マークが...
-
EXCEL アルファベットと数字の...
-
セルをクリックすると付箋のよ...
-
複数のセルの入力内容を一度に...
-
excelで1行ごとに一気に削除す...
-
エクセルでハイパーリンクのU...
-
エクセル 数値を全て「1」にす...
-
Excel選択を繰り返すとセルの色...
-
エクセル 画面上の行数を調節...
-
Excelで表のデータを並び替えた...
-
Excel 小さくなったスクロール...
-
ピポットテーブルエラー解決方法
-
エクセルVBAでセル範囲のデータ...
-
エクセルで「1~15」の乱数...
-
Shift押しながら、矢印ボタンで...
-
エクセルで1つおきに列を削除...
-
エクセルで0を除いて昇順に並...
-
エクセルで任意のセルをクリッ...
おすすめ情報