Excel VBA質問箱 IV

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

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


51981 / 76732 ←次へ | 前へ→

【29600】Re:最終行での集計について
回答  かみちゃん E-MAIL  - 05/10/9(日) 8:23 -

引用なし
パスワード
   こんにちは。かみちゃん です。

お返事遅くなりました。

>1、セル色の設定は条件付書式になます。
> しかし時々セルの書式設定で変更します。
>条件付書式は
>   If Cells(i, 4).Value > Cells(1, 4).Value And _
>    Cells(i, 4).Value <= Cells(1, 6).Value Then
>    Cells(i, K).Interior.ColorIndex = 3

このコードだと、「条件付き書式」ではなく「セルの書式設定」による書式が設定されていると思います。
以下、条件分岐による「セルの書式設定」がされているという前提で書きます。


>4、>>80  合計出勤者 60名  65名   55名    
>  >合計出勤者の数え方が不明です。
>
>  D列以降にはその日の勤務した時間(8であれば8時間勤務)が記載されます。
>  記載があれば出勤したということになり、空白であれば休暇になります。
>  そこから、毎日の合計出勤者の数を出します。

たとえば、0と記載されていれば、どうしますか?
そういうことも考慮すると、一般関数のCOUNTIF関数でできると思います。

以上を踏まえて、処理するならば、以下のようなコードでできると思います。

Sub Macro1()
 Dim LastRow As Long, RowNo As Long
 Dim LastColumn As Integer, ColumnNo As Integer
 Dim lngSum03 As Long, lngSum06 As Long
 Dim c As Range
 
 LastRow = Range("A65536").End(xlUp).Row
 LastColumn = Range("IV2").End(xlToLeft).Column
 Range(Cells(LastRow + 1, 4), Cells(LastRow + 1, LastColumn)).Formula _
  = "=COUNTIF(D3:D" & LastRow & ","">0"")"
 For ColumnNo = 4 To LastColumn
  lngSum03 = 0
  lngSum06 = 0
  For RowNo = 3 To LastRow
   With Cells(RowNo, ColumnNo)
    Select Case .Interior.ColorIndex
     Case 3 '赤
      lngSum03 = lngSum03 + .Value
     Case 6 '黄
      lngSum06 = lngSum06 + .Value
    End Select
   End With
  Next
  Cells(LastRow + 2, ColumnNo).Value = lngSum03
  Cells(LastRow + 3, ColumnNo).Value = lngSum06
 Next
End Sub
0 hits

【29514】最終行での集計について SS 05/10/6(木) 20:17 質問
【29516】Re:最終行での集計について かみちゃん 05/10/6(木) 20:29 発言
【29537】Re:最終行での集計について SS 05/10/7(金) 9:49 質問
【29597】Re:最終行での集計について SS 05/10/9(日) 1:12 質問
【29599】Re:最終行での集計について とまと 05/10/9(日) 8:22 回答
【29600】Re:最終行での集計について かみちゃん 05/10/9(日) 8:23 回答
【29630】Re:最終行での集計について SS 05/10/9(日) 21:33 お礼
【29631】Re:最終行での集計について SS 05/10/9(日) 21:50 質問
【29632】Re:最終行での集計について かみちゃん 05/10/9(日) 22:13 発言
【29634】Re:最終行での集計について SS 05/10/10(月) 0:01 質問
【29640】Re:最終行での集計について とまと 05/10/10(月) 3:42 回答
【29641】Re:最終行での集計について かみちゃん 05/10/10(月) 7:12 回答

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