No.4
- 回答日時:
こんにちは!
VBAになりますが一例です。
Sub Sample1()
Dim j As Long, k As Long
Dim cnt As Long, myCnt As Long
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, j) = 1 Then
k = j
Do While Cells(1, k) = 1
cnt = cnt + 1
k = k + 1
Loop
Select Case cnt
Case Is >= 22
myCnt = myCnt + 5
Case Is >= 18
myCnt = myCnt + 4
Case Is >= 14
myCnt = myCnt + 3
Case Is >= 10
myCnt = myCnt + 2
Case Is >= 6
myCnt = myCnt + 1
End Select
cnt = 0
j = k
End If
Next j
MsgBox myCnt
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.3
- 回答日時:
No1です^^
このシートは1行目しか使いたくない?のであれば、
例えば2行目2行目の列を別シートにしても大丈夫だと思います。
他のシートがあるのもNGで、
完全に1行だけでやろうとするとマクロを使う必要があるかと思います。
No.2
- 回答日時:
No1さんと途中まで同じで、
A3=IF(B2=0,ROUNDDOWN((A2-2)/4,0),0)
とするのはどうでしょう?(同様にコピーしてください)
B2=0ということは、A1も0であるか、A1が1であれば、連続する最後の1である。ということなので、
A2の数字によって加える数字(6~9連続なら1…)を表示する。(A1が0なら0)
という式ですね。
ROUNDDOWN((A2-2)/4,0)というのは、(A2-2)/4の整数部分を計算する関数です。
A2には、その列まで何連続で1があるかを表示しているので、
6連続であれば-2で4となり、4で割ると1なので、整数部分は1となります。
0~5連続であれば(-)0.XXとなるので、整数部分は0です。
整数部分はINTを用いても計算できますが、マイナスの時の切捨て切り上げが逆になるので、ROUNDDOWNにしています。(INTだと-0.25は-1に、ROUNDDOWNだと-0.25は0に、なります)
10連続であれば-2で8となり、4で割って2、整数部分は2となります。
同様に連続が4増えれば表示が1増えるようになっています。
(カウントする数字が4刻みで増える為使えるので、途中で4刻みでなくなる場合は使えません)
この回答へのお礼
お礼日時:2017/04/20 14:58
ありがとうございます。
4づつ増えているの気づいていただきありがとうございます。
連続で4では無くなる可能性があるのでNo1さんのでやってみます。
本当にありがとうございました。
No.1ベストアンサー
- 回答日時:
他のセルを使ってもいいでしょうか?
値は0か1でしょうか?
その前提でw
A2=A1
B2=IF(B1=1,A2+B1,0)
※B2→C2~T2にコピー
A3=IF(B2=0,IF(A2<6,0,IF(A2<10,1,IF(A2<14,2,IF(A2<18,3,IF(A2<22,4,5))))),0)
※B3~T3にコピー
V1=SUM(A3:T3)
でいかがでしょうか?
ちなみにA1~T3がセル20個なので、
22連続以上を5 はありえない気がします。
この回答へのお礼
お礼日時:2017/04/20 12:49
ご回答ありがとうございます。
計算できました!
ちなみに3行使わずに1行に集約させることは難しいでしょうか?
贅沢言ってすみません
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) EXCELでリターンキーが押されたらそのセルに特定の文字を表示したいのですが。 2 2022/08/07 12:58
- Excel(エクセル) 直近から数えて、プラスとマイナスの数を判定する方法について 1 2022/03/27 23:21
- Visual Basic(VBA) 入力と同時に桁数を詰める 3 2022/09/11 20:23
- Excel(エクセル) Excelについて質問があります。 関数の数値入力についてなのですが、 b1にー c1に数値 がある 1 2023/05/28 12:13
- Excel(エクセル) 複数のセルでの文字判定について 5 2022/06/07 14:08
- Excel(エクセル) VBAにてエクセルをpdf化する方法 1 2023/03/10 16:20
- 統計学 「Newton」7月号特集記事 6 2022/06/07 21:27
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/02/10 17:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
外イキはなぜ1回しか出来ないの...
-
隔年と毎年の違いを教えてくだ...
-
単連結なn次元閉多様体の連続変...
-
「区分的に連続」と「区分的に...
-
エクセルで同じ文字が3連続して...
-
無理数は連続ですか?
-
ジャンケン連勝世界記録
-
連続する3つの整数の積が6の倍...
-
x^2sin(1/x) と 0(x=0) での連続性
-
1日あける 一日置き 違いは何で...
-
連続点灯時間とは
-
次の関数f(x)が連続になるよう...
-
連続する2整数が互いに素(最大...
-
平方の差(基本)
-
算数-整数の和
-
連続する番号を引く確率
-
単純支持梁と連続支持梁の違い
-
自動紙送り装置
-
数列の問題で 階段の登り方の漸...
-
同じものを含む順列
おすすめ情報