Excel VBA質問箱 IV

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

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


18429 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   はじめまして。
今、『idx2列のcon1行目から始まる、不連続の数値の合計』のマクロをしています。

例)
  A B C D E F G H
1     
2     1
3     3
4     4
5     
6     8
7     9
8
9     4
10
このような感じで所々空白になっています。
この場合は10行目に答えを表示させたいんですが・・・。

しかし、どうしても「不連続(空白セル)」の部分で計算がおかしくなり、
変なところに合計を表示させて困っています。(答えは最後に入力されたセルの下に表示させたい)

ちなみに、これがその私のプログラムです↓

Sub 穴あき足し算()

Dim idx1 As Integer       '入ってる数値の個数
Dim idx2 As Integer       '数値が入ってる列変数
Dim con1 As Integer       '数値が入ってる列の最初の行変数
Dim con2 As Integer       '変動する数値が入ってる行変数

  For idx2 = 1 To 49
    For con1 = 1 To 49
      If WorksheetFunction.IsNumber(Sheets("sheet1").Cells(con1, idx2)) = True Then
        Exit For
      End If
    Next con1

    If Not con1 = 50 Then
      Exit For
    End If
  Next idx2

  idx1 = WorksheetFunction.Count(Sheets("sheet1").Columns(idx2))

  For con2 = con1 To con1 + idx1
    If WorksheetFunction.IsNumber(Sheets("sheet1").Cells(con2, idx2)) = True Then
      s = s + Cells(con2, idx2)
        Else
      con2 = con2 + 1
      s = s + Cells(con2, idx2)
    End If
  Next con2
  Cells(con2 - 1, idx2) = s
End Sub


下から8行目ぐらいまでのプログラムをどうにかしたらいいってのは、なんとなくわかるんですが・・・。(特に下から6行目が変)
ちなみに、「空白セルも関係なしに全部足してしまう」といったのではありません。


こういう場合はどのようにしたらうまく動作してくれるのでしょうか?
教えてください、お願いします。
0 hits

【63745】不連続の足算 シオ野郎 09/12/8(火) 11:48 質問
【63746】Re:不連続の足算 seg 09/12/8(火) 13:24 発言
【63748】Re:不連続の足算 シオ野郎 09/12/8(火) 15:01 お礼
【63751】Re:不連続の足算 seg 09/12/8(火) 16:03 発言
【63753】Re:不連続の足算 シオ野郎 09/12/8(火) 16:44 お礼
【63754】Re:不連続の足算 seg 09/12/8(火) 17:30 発言
【63756】Re:不連続の足算 シオ野郎 09/12/9(水) 9:00 お礼
【63747】Re:不連続の足算 超初心者 09/12/8(火) 13:39 発言
【63749】Re:不連続の足算 シオ野郎 09/12/8(火) 15:10 お礼
【63750】Re:不連続の足算 SS 09/12/8(火) 15:44 発言
【63752】Re:不連続の足算 シオ野郎 09/12/8(火) 16:18 お礼
【63757】Re:不連続の足算 シオ野郎 09/12/9(水) 17:10 お礼

18429 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free