By MrRemodel την Πέμπτη 05 Ιανουαρίου 2023
Καταχωρήθηκε στο Excel
Απαντήσεις 1
συμπαθεί 0
Προβολές 3.7K
Ψηφοφορίες 0
Ευχαριστώ εκ των προτέρων για οποιαδήποτε βοήθεια σχετικά με αυτό μπορείτε να προσφέρετε.

Με τη βοήθεια αυτού του ιστότοπου έχω δημιουργήσει την παρακάτω λειτουργία.

Συνάρτηση ColorFunction (rColor ως εύρος, rRange ως εύρος, προαιρετικό SUM ως Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
Αν SUM = True Τότε
Για κάθε rCell In rRange
Αν rCell.Interior.ColorIndex = lCol Τότε
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Επόμενο rCell
Αλλού
Για κάθε rCell In rRange
Αν rCell.Interior.ColorIndex = lCol Τότε
vResult = 1 + vResult
End If
Επόμενο rCell
End If
ColorFunction = vResult
Τέλος Λειτουργία


Σε κάθε κελί-στόχο που θέλω ένα άθροισμα όλων των κελιών αυτής της σειράς που περιέχουν το χρώμα του καθορισμένου κελιού.
=colorfunction(AR4,H5:AP5,TRUE)

Πώς μπορώ να ενημερώσω τη στοχευόμενη πώληση όταν οποιοδήποτε άλλο κελί στη σειρά (H5:AP5) αλλάζει χρώμα;
Γεια σου,

Μπορείτε να προσθέσετε τον κωδικό: Εφαρμογή.Υπολογισμός = xlΑυτόματη στη λειτουργία σας:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
Application.Calculation = xlAutomatic
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function


Δοκιμάστε το.

Amanda
·
πριν 1 χρόνο
·
0 αρέσει
·
0 ψήφοι
·
0 Σχόλια
·
Προβολή πλήρους ανάρτησης