Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18423 / 76738

←次へ　｜　前へ→


	【63757】Re:不連続の足算

シオ野郎 - 09/12/9(水) 17:10 -


	引用なし

	パスワード

▼SS さん：

お騒がせしました。
ありがとうございました。

のちの、私みたいな人のために・・・
やってることはSSさんと一緒です。
SSさんのコードの変形(？)型↓

Sub 穴あき足し算2()

Dim idx1 As Integer　　　　　　 '入ってる数値の個数
Dim idx2 As Integer　　　　　　 '数値が入ってる列変数
Dim con1 As Integer　　　　　　 '数値が入ってる列の最初の行変数
Dim con2 As Integer　　　　　　 '変動する数値が入ってる行変数
Dim s As Variant
　　With Worksheets("Sheet1")
　　
　　　　For idx2 = 1 To 39
　　　　　　If Application.Count(.Range(.Cells(1, idx2), .Cells(40, idx2))) = 0 Then
　　　　　　　　'何か処理がある場合
　　　　　　Else
　　　　　　　　If Not .Cells(1, idx2) = True Then
　　　　　　　　　　idx1 = 1
　　　　　　　　Else
　　　　　　　　　　idx1 = .Cells(1, idx2).End(xlDown).Row
　　　　　　　　End If
　　　　　　　　s = 0
　　　　　　　　For con1 = idx1 To .Cells(40, idx2).End(xlUp).Row
　　　　　　　　　　If Not .Cells(con1, idx2) = True Then
　　　　　　　　　　　　s = s + .Cells(con1, idx2)
　　　　　　　　　　End If
　　　　　　　　Next con1
　　　　　　　　.Cells(con1, idx2).Value = s
　　　　　　End If
　　　　　　　　'If Not s = 0 Then　　　　　　この３行を入れると
　　　　　　　　'　　Exit For　　　　　　　　　　　全列の計算ではなく
　　　　　　　　'End If　　　　　　　　　　　　　　　　最初に見つけた列だけ計算する。
　　　　Next idx2
　　End With
End Sub

0 hits

▼

【63745】不連続の足算 シオ野郎 09/12/8(火) 11:48