Excel VBA質問箱 IV

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

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


45571 / 76732 ←次へ | 前へ→

【36154】Re:合計の式を入力したいが、範囲を検索...
回答  Statis  - 06/3/22(水) 20:36 -

引用なし
パスワード
   こんにちは

最終データ行を取得するのは「年月日」の列で良いですか?

このデータには「年月日」「1月」「合計」が無ければ処理しません。
上記項目は同じ行にあること。

ではお試しを。

Sub Test_1()
Dim Fi As Range, Ma As Variant
Dim Ro As Long, Ad As String

With ActiveSheet
   Set Fi = .Cells.Find("年月日", , xlValues, xlWhole)
   If Fi Is Nothing Then
    MsgBox "年月日がありません。", vbCritical
    Exit Sub
   End If
   Ro = .Cells(65536, Fi.Column).End(xlUp).Row
   Set Fi = Nothing
   Set Fi = .Cells.Find("1月", , xlValues, xlWhole)
   If Fi Is Nothing Then
    MsgBox "1月がありません。", vbCritical
    Exit Sub
   End If
   Ma = Application.Match("合計", .Rows(Fi.Row), 0)
   If IsError(Ma) Then
    MsgBox "合計がありません。", vbCritical
    Exit Sub
   End If
   Ad = .Range(.Cells(Fi.Row + 1, Fi.Column), .Cells(Fi.Row + 1, Ma - 1)).Address(0, 0)
   With .Range(.Cells(Fi.Row + 1, Fi.Column), .Cells(Ro, Fi.Column)).Offset(, Ma - Fi.Column)
     .Formula = "=SUM(" & Ad & ")"
     .Value = .Value
   End With
End With

End Sub

7 hits

【36137】合計の式を入力したいが、範囲を検索したい時は? もりもり 06/3/22(水) 10:39 質問
【36140】Re:合計の式を入力したいが、範囲を検索し... Statis 06/3/22(水) 13:18 発言
【36146】Re:合計の式を入力したいが、範囲を検索... もりもり 06/3/22(水) 16:56 質問
【36147】Re:合計の式を入力したいが、範囲を検索... Statis 06/3/22(水) 17:05 回答
【36153】Re:合計の式を入力したいが、範囲を検索... もりもり 06/3/22(水) 20:04 お礼
【36154】Re:合計の式を入力したいが、範囲を検索... Statis 06/3/22(水) 20:36 回答
【36156】Re:合計の式を入力したいが、範囲を検索... もりもり 06/3/22(水) 21:32 お礼
【36168】Re:合計の式を入力したいが、範囲を検索... Statis 06/3/23(木) 13:47 回答
【36171】Re:合計の式を入力したいが、範囲を検索... もりもり 06/3/23(木) 16:50 お礼

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