Excel VBA質問箱 IV

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

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


50689 / 76733 ←次へ | 前へ→

【30929】Re:計算式のセット
回答  Kein  - 05/11/7(月) 12:47 -

引用なし
パスワード
   >計算式を設定
というのは、B列の小計を入れるという意味でしょーか ? それならこんな感じで。

Sub MyFilter()
  Dim MyR As Range, SmR As Range
  Dim i As Long

  Application.ScreenUpdating = False
  If Range("A1").CurrentRegion.ListHeaderRows = 0 Then
   Rows(1).Insert xlShiftDown
   Range("A1:B1").Value = Array("Data1", "Data2")
  End If
  Set MyR = Range("A2", Range("A65536").End(xlUp)).Offset(, 1)
  Range("A:A").AutoFilter 1, "<>9901"
  Set SmR = MyR.SpecialCells(12)
  Range("A:A").AutoFilter 1, "9901"
  On Error GoTo ELine
  Set MyR = MyR.SpecialCells(12)
  On Error GoTo 0
  For i = 1 To MyR.Areas.Count
   MyR.Areas(i).Formula = "=SUM(" & SmR.Areas(i).Address & ")"
  Next i
ELine:
  ActiveSheet.AutoFilterMode = False
  If Range("A1").Value = "Data1" Then Rows(1).Delete xlShiftUp
  Application.ScreenUpdating = True
  Set MyR = Nothing: Set SmR = Nothing
End Sub

3 hits

【30920】計算式のセット VBA素人 05/11/7(月) 11:27 質問
【30922】Re:計算式のセット Statis 05/11/7(月) 11:37 発言
【30923】Re:計算式のセット Statis 05/11/7(月) 11:40 回答
【30931】Re:計算式のセット VBA素人 05/11/7(月) 13:21 質問
【30929】Re:計算式のセット Kein 05/11/7(月) 12:47 回答

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