Excel VBA質問箱 IV

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

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


45577 / 76732 ←次へ | 前へ→

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

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

これで如何かな?
データは2行目からで良いですか?

Sub Test()
Dim Ma As Variant, Da As Variant
Dim Co(1) As Long, i As Long, Ad As String
i = 0
With ActiveSheet
   For Each Da In Array("1月", "合計")
     Ma = Application.Match(Da, .Rows(1), 0)
     If IsError(Ma) Then
      MsgBox "データなし", vbCritical
      Exit Sub
     End If
     Co(i) = Val(Ma)
     i = i + 1
   Next Da
  Ad = .Range(.Cells(2, Co(0)), .Cells(2, Co(1) - 1)).Address(0, 0)
  With .Range(.Cells(2, Co(0)), .Cells(65536, Co(0)).End(xlUp)).Offset(, Co(1) - Co(0))
     .Formula = "=SUM(" & Ad & ")"
     .Value = .Value
  End With
End With
End Sub

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

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