[[20090206154234]]　『UFClrSumccx関数を利用して』（はじめて）　ページの最後に飛ぶ

『UFClrSumccx関数を利用して』（はじめて）
UFClrSumccxの関数を利用させていただきました。
色のついたセル（3色使用）のみの合計を出したいのですが、選択範囲に、色つきセルに文字列が入ったものも入ってしまいます。
[,]で文字列が入ったセルを選択しないように範囲を指定してもエラーになってしまいます。
対策を教えてください。宜しくお願い致します。

 そのコードを見てみん事にはわかりまへんのんですけど、
 if isnumeric(○○) then
       足し算
 end if
 　　みたいに付け加えてみたらどないでっか？
   　　　　　　（弥太郎）

弥太郎様
コメントありがとうございます。
うまくいきませんでした。。。更に模索してみます！！

 弥太郎さんが
 >そのコードを見てみん事にはわかりまへんのんですけど
 とおっしゃっているのでコードを載せてみてはいかがですか？

 実際使われているものをお見せしたほうがアドバイスや問題点も見つけやすいかと思いますよ。
 (見せたくないデータが載っている場合はダミーに書き換えたりして)

 (dona)

 コードは↓の様に変更すれば良いと思いますが
Public Function UFClrSumccx(adrs)
' 色のついたセルの合計
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
    For Each ad In adrs
        fci = ad.Interior.ColorIndex
        cv = ad.Value
        If fci <> -4142 Then
            If IsNumeric(cv) Then
                sm = sm + cv
            End If
        End If
    Next
UFClrSumccx = sm
End Function

 問題は、どこに有るか・・・ですかね。

 アドインで追加していますかね。
 １．Alt + F11 で　VBE を立ち上げる
 ２．左側の「プロジェクト- VBAProject」で
 　　田 VBAProject(UFClr0322.sla)
     ↑ここを開く
 ３．標準モジュールの中に Module1が有りますが
 　　それが、右側の広い部分に表示されると思います。
 　　　　Option Explicit
 　　　　Sub Auto_Open()
 　　　　' 2004/03/22 sm,cv のInteger 型を Variant 型に変更
 　　とかって書いてあったら開いています。
 ４．その中から、
 　　　　Public Function UFClrSumccx(adrs)
 　　　　' 色のついたセルの合計
 　　で始まる所を探して線と線の間のコードを上記と差し替え。
 ５．上書き保存。

 で上手く行きますかね。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20090206154234]] 『UFClrSumccx関数を利用して』（はじめて） ページの最後に飛ぶ

[[20090206154234]]　『UFClrSumccx関数を利用して』（はじめて）　ページの最後に飛ぶ