πρόσβαση Visual Basic, κάνοντας κλικ στο κουμπί " Εργαλεία" στην κορυφή της οθόνης σας , την πλοήγηση σε " . Visual Basic Editor" το " Macro " και , στη συνέχεια, κάνοντας κλικ στο 2
Αντιγράψτε και επικολλήστε τον παρακάτω μονάδα Visual Basic προγραμματισμού σε Visual Basic, και στη συνέχεια να το αποθηκεύσετε :
ColorFunction λειτουργία ( rColor Όπως Range, rRange Όπως Range, Προαιρετική άθροισμα Όπως Boolean )
Dim rCell Όπως Σειρά
Dim lCol Όπως Long
Δημ. vResult
lCol = rColor.Interior.ColorIndex
Αν SUM = True τότε
For Each rCell Σε rRange
Εάν rCell.Interior.ColorIndex = lCol τότε
vResult = WorksheetFunction.SUM ( rCell , vResult )
End If
Επόμενο rCell
Else
For Each rCell Σε rRange
Αν rCell.Interior.ColorIndex = lCol τότε
vResult = 1 + vResult
End If
Επόμενο rCell
End If
ColorFunction = vResult
End Function
εικόνων 3
Χρησιμοποιήστε το χρήστη έχουν δημιουργηθεί ColorFunction να υπολογίσει τον αριθμό των έγχρωμων κυττάρων . Η σύνταξη αυτής της λειτουργίας είναι ως εξής :
ColorFunction ( $ A $ 1 , $ B $ 1: FALSE $ B $ 2 )
όπου $ A $ 1 αντιπροσωπεύει το κελί που θέλετε να συγκρίνετε με , $ B $ 1 και $ B $ 2 αντιπροσωπεύουν μια περιοχή κελιών κατά μήκος μιας μόνο στήλης και από TRUE λέει τη λειτουργία για να μετρήσει .
Δεδομένου ότι έχετε ένα μοβ κυττάρων , Β1 , και θέλετε να υπολογίσετε τον αριθμό των κυττάρων μωβ μεταξύ των σειρών C1 και C12 , θα πρέπει να χρησιμοποιήσετε τη λειτουργία ως εξής :
ColorFunction ( Β1 , C1 : C12 , FALSE )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα