よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

■13469 / 1階層)  色付きセルで
□投稿者/ よねさん -(2020/09/09(Wed) 14:03:03)
    ↓のページで作成しているユーザー定義関数ですね。
    色付きのセルを数える/合計する:Excel VBA入門
    http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_color.html
    
    > 「色付きのセルの最大値・最小値」を求める定義関数はありますでしょうか?
    ユーザー定義関数はあらかじめ準備されているものではなく、ユーザーが作成する関数です。
    よって、最大値や最小値を求めるコードを作成します。
    エラー処理など細かなところは無視していますが、下記のような計算でいかがでしょうか?
    最大値はColorMax、最小値はColorMinとしています。
    
    Function ColorMax(R1 As Range, C As Range)
        Dim r As Range
    
        Application.Volatile
        ColorMax = 0
        For Each r In R1
            If r.Interior.Color = C.Interior.Color Then
                If ColorMax < r.Value Then ColorMax = r.Value
          
            End If
        Next r
    
    End Function
    
    Function ColorMin(R1 As Range, C As Range)
        Dim r As Range
    
        Application.Volatile
        ColorMin = 10 ^ 9
        For Each r In R1
            If r.Interior.Color = C.Interior.Color Then
                If ColorMin > r.Value Then ColorMin = r.Value
          
            End If
        Next r
    
    End Function
    
    
    

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←色付きセルで /aki →Re[2]: 色付きセルで /aki
 
上記関連ツリー

Nomal 色付きセルで / aki (20/09/09(Wed) 11:35) #13468
Nomal 色付きセルで / よねさん (20/09/09(Wed) 14:03) #13469 ←Now
  └Nomal Re[2]: 色付きセルで / aki (20/09/10(Thu) 15:54) #13470

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -