[[20110711170652]]　『ステータスバーにある合計値のコピー』（くろすけ）　ページの最後に飛ぶ

『ステータスバーにある合計値のコピー』（くろすけ）

 ＥＸＣＥＬ２００７でステータスバーに合計値や個数が表示されますが
 計算式を作らずにその合計値をコピーすることはできるでしょうか
 ＯＳはＷＩＮＤＯＷＳＸＰです

 適当なセルを選択した状態で下のコードを実行すれば選択範囲の合計値がコピーされますが、
 こういう事ですか？

 Sub sample()
   Dim a, i As Long
   For Each a In ActiveWindow.RangeSelection
       If IsNumeric(a) Then
          i = i + a.Value
       End If
   Next
   With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText i
        .putinclipboard
   End With
   MsgBox i & "をコピーしました。"
 End Sub

 (Jera)

ありがとうございました。うまくいきました。（くろすけ）

コメント返信：

[ 一覧(最新更新順) ]

[[20110711170652]] 『ステータスバーにある合計値のコピー』（くろすけ） ページの最後に飛ぶ

[[20110711170652]]　『ステータスバーにある合計値のコピー』（くろすけ）　ページの最後に飛ぶ