Excel VBA質問箱 IV

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

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


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

46037 / 76732

←次へ　｜　前へ→


	【35675】Re:任意の位置にある任意の行数のセル数値の合計

ponpon - 06/3/9(木) 22:23 -


	引用なし

	パスワード

こんばんは。
時間ができたので、一応作ってみました。

データを3行空白をあけて、すべてコピペした後、実行してみてください。
うまくいくといいのですが・・・

Sub test()
　　Dim i As Integer
　　Dim myCnt As Integer
　　Dim r As Range
　　Dim myR As Range
　　Dim myVal As Long
　　　
　　　On Error Resume Next
　　　myCnt = Columns("M:M").SpecialCells(xlCellTypeConstants, xlNumbers).Areas.Count
　　　If Err.Number <> 0 Then Exit Sub
　　　　For i = 1 To myCnt
　　　　　 Set myR = Columns("M:M").SpecialCells(xlCellTypeConstants, xlNumbers).Areas(i)
　　　　　 For Each r In myR
　　　　　　　 myVal = myVal + Val(r.Value)
　　　　　 Next
　　　　　 With myR.Resize(1).Offset(myR.Rows.Count)
　　　　　　 .Value = myVal
　　　　　　 .Interior.ColorIndex = 6
　　　　　　 .Offset(, -1).Value = "合計"
　　　　　 End With
　　　　　 myVal = 0
　　　　Next
　　End Sub

9 hits

▼

【35654】任意の位置にある任意の行数のセル数値の合計 pochiman 06/3/9(木) 10:41