ホーム>source

文字列として条件付き書式でセルの範囲を返そうとしています。次のコードを使用して、条件付き書式でセルのリストを作成できました。

<前>ウィズウィズ

私の状況では、条件付き書式で1つまたは複数の異なる範囲のデータが存在する可能性があり、それらの個々のセルをすべてそれらの範囲に減らしたいと思います。

どんな提案も歓迎します!

Set Data = ActiveSheet.UsedRange For Each Cell In Data If Cell.FormatConditions.Count > 0 Then If (Not ConditionallyFormattedCellsArray) = -1 Then: ReDim ConditionallyFormattedCellsArray(0) If (ConditionallyFormattedCellsArray(UBound(ConditionallyFormattedCellsArray)) <> "") Then: ReDim Preserve ConditionallyFormattedCellsArray(UBound(ConditionallyFormattedCellsArray) + 1) ConditionallyFormattedCellsArray(UBound(ConditionallyFormattedCellsArray)) = Cell.Address End If Next Cell
あなたの答え
  • 解決した方法 # 1

    Union を作成して結果を得る方法の簡単な例を次に示します  特定の範囲内で条件付き書式が設定されているすべてのセルの

    <前>ウィズウィズ Option Explicit Sub Example() Dim cfCells As Range Dim checkCell As Range For Each checkCell In Sheet1.UsedRange If checkCell.FormatConditions.Count > 0 Then Debug.Print checkCell.Address If cfCells Is Nothing Then Set cfCells = checkCell Else Set cfCells = Union(cfCells, checkCell) End If End If Next checkCell Dim allCFCells As String If cfCells Is Nothing Then Debug.Print "no conditionally formatted cells found in range " & Sheet1.UsedRange.Address Else allCFCells = cfCells.Address Debug.Print "conditionally formatted cells: " & allCFCells End If End Sub

関連記事

  • 前へ java - JPAクエリ:サブクエリをグループ化条件に結合する
  • 次へ r - リスト要素からリストを生成する