Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double 'Update by Extendoffice Application.Volatile Dim rng As Range For Each rng In pRange1 If rng.Font.Color = pRange2.Font.Color Then CountColour = CountColour + 1 End If Next End Function
< Resime gitmek için tıklayın >
< Resime gitmek için tıklayın >
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
< Bu mesaj bu kişi tarafından değiştirildi Netsinerji -- 16 Şubat 2023; 16:28:31 >