Excel VBA質問箱 IV

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

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


15068 / 76738 ←次へ | 前へ→

【67155】Re:ブランクセル群のすぐ左隣にあるセル群の数値を合計した値が欲しい。
発言  ichinose  - 10/11/11(木) 7:16 -

引用なし
パスワード
   リス さん
おはようございます。


データを

  |A| |B |
1  項目1 項目2  
2  | 2||15 |
3  | 5||10 |
4  | 3||20 |
5  | 1||" "| →ブランク
6  | 2||" "| →ブランク
7  | 4||10 |
8  | 6||25 |

というように1行目は、見出しにしておいた方が良いと思います。
上記のようなデータだとして・・・、

Sub test1()
  Dim ans As Double
  Dim rng As Range
  Dim crng As Range
  Dim target As Range
  On Error Resume Next
  ans = 0
  Set rng = Range("a1", Cells(Rows.Count, "a").End(xlUp)).Offset(0, 1).SpecialCells(xlCellTypeBlanks)
  If Err.Number = 0 Then
    Set target = Nothing
    For Each crng In rng.Areas
     If target Is Nothing Then
       Set target = crng.Offset(-1, -1).Resize(crng.Count + 1, 1)
     Else
       Set target = Union(target, crng.Offset(-1, -1).Resize(crng.Count + 1, 1))
     End If
    Next
    ans = Application.Sum(target)
  End If
  MsgBox ans
  Set rng = Nothing
  Set crng = Nothing
  Set target = Nothing
  On Error GoTo 0
End Sub


尚、2行目がもし

  |A| |B |
1  項目1 項目2  
2  | 2||"" | ←ブランクの場合は

すぐ左隣のセル 2だけが計算対象でよいですね?

0 hits

【67151】ブランクセル群のすぐ左隣にあるセル群の数値を合計した値が欲しい。 リス 10/11/10(水) 19:26 質問
【67152】Re:ブランクセル群のすぐ左隣にあるセル群... Hirofumi 10/11/10(水) 19:50 発言
【67153】Re:ブランクセル群のすぐ左隣にあるセル群... リス 10/11/10(水) 20:43 発言
【67154】Re:ブランクセル群のすぐ左隣にあるセル群... Hirofumi 10/11/10(水) 22:32 発言
【67156】お礼 リス 10/11/11(木) 19:05 お礼
【67155】Re:ブランクセル群のすぐ左隣にあるセル群... ichinose 10/11/11(木) 7:16 発言
【67157】お礼 リス 10/11/11(木) 19:07 お礼

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