カテゴリ:マクロ( 42 )

ユーザー定義関数(色合計)

セルの塗りつぶしの色ごとに計算(足し算)出来たらいいなぁとは思っていました。
これで合ってるのか解らないが、やってみました。

Function CSUM(範囲 As Range, 色見本 As Range) As Double
Dim kazu As Double
Dim myran As Range
Dim iro As Integer
 iro = 色見本.Interior.ColorIndex
 kazu = 0
 For Each myran In 範囲
   If myran.Interior.ColorIndex = iro Then
     kazu = kazu + myran.Value
  End If
 Next
CSUM = kazu
End Function
e0080122_9451772.gif

関数の名前はDSUMをまねて『CSUM』とした。
[PR]
by slayer0210 | 2005-10-18 09:46 | マクロ

アクティブなシート名で保存

1つのBookに数十枚もシートがあり、これをシートごとにBookで保存したい時がある。

Dim mysn As String
mysn = ActiveSheet.Name
Sheets(mysn).Copy
ActiveWorkbook.SaveAs Filename:="G:\" & mysn & ".xls"
ActiveWorkbook.Close

とても簡単だが、非常に便利だった。
今回はG直下に保存したが、場合に応じて、G:\フォルダ名\・・・と続けてもいいと思う。
[PR]
by slayer0210 | 2005-10-04 09:37 | マクロ