Excel VBA質問箱 IV

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

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


15065 / 76734 ←次へ | 前へ→

【67154】Re:ブランクセル群のすぐ左隣にあるセル群の数値を合計した値が欲しい。
発言  Hirofumi  - 10/11/10(水) 22:32 -

引用なし
パスワード
   Option Explicit

Public Sub Sample()

  Dim i As Long
  Dim lngStart As Long
  Dim lngRowEnd As Long
  Dim vntResult As Variant
  
  '先頭行位置
  lngStart = 1
  '最終行取得
  lngRowEnd = Cells(Rows.Count, "A").End(xlUp).Row
  
  For i = lngStart + 1 To lngRowEnd
    If IsEmpty(Cells(i, "B").Value) Then
      'ブランクセル先頭なら
      If IsEmpty(vntResult) Then
        vntResult = Cells(i - 1, "B").Value
      End If
      vntResult = vntResult + Cells(i, "B").Value
    Else
      'ブランクセル最終の下なら
      If Not IsEmpty(vntResult) Then
        MsgBox "B列と比較する値は" & vntResult
        vntResult = Empty
      End If
    End If
  Next i
  
  'Loop最終行がブランクだった場合
  If Not IsEmpty(vntResult) Then
    MsgBox "B列と比較する値は" & vntResult
  End If
  
End Sub

3 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 お礼

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