seçili alanları durum çuğunda anlık toplar Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Option Explicit
Public bColored As Integer

Sub ColoredToBW()
    Dim cht As Chart
    Dim chtSC As SeriesCollection
    Dim x As Integer
    Dim iSeriesCount As Integer
    Dim iColors(1 To 5, 0 To 1) As Integer
    Dim iColor As Integer

'Set colors for BW series
    iColors(1, 0) = 1 'Black
    iColors(2, 0) = 56 'Gray-80%
    iColors(3, 0) = 16 'Gray-50%
    iColors(4, 0) = 48 'Gray-40%
    iColors(5, 0) = 15 'Gray-25%

'Set colors for Color series
    iColors(1, 1) = 55 'Indigo
    iColors(2, 1) = 7 'pink
    iColors(3, 1) = 6 'yellow
    iColors(4, 1) = 8 'Turquoise
    iColors(5, 1) = 13 'Violet

'Toggle Color/BW change 0 to 1 or 1 to 0
    bColored = 1 - bColored

Set cht = ActiveChart

'check that a chart is selected
    If cht Is Nothing Then
        MsgBox ("Select a chart")
        Exit Sub
    End If

Set chtSC = cht.SeriesCollection

'Check for MIN of number of series or
    'colors and only do the minimum
    iSeriesCount = Application.WorksheetFunction.Min _
      (UBound(iColors), chtSC.Count)

For x = 1 To iSeriesCount
        'Define the color
        iColor = iColors(x, bColored)

'Set the LINE color
        chtSC(x).Border.ColorIndex = iColor

'Marker color
        With chtSC(x)
            .MarkerBackgroundColorIndex = xlNone
            .MarkerForegroundColorIndex = iColor
        End With
    Next x
End Sub

Benzer Sonuçlar
No	Makro Adı
1	seçili alanları durum çuğunda anlık toplar
2	durum çubuğunda toplam alma (fare ile seçileni toplar)
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	seçilen alanlari bir kağitda yazdırır eder
5	seçilen alanları bir kağıtta yazdırır eder
6	verinin bittiği ilk boş satıra yapıştırmak
7	a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın
8	comboboxta bir değerin hazır seçili olarak gelmesi
9	forma otomatik resim getirme
10	makrolar kutusu ve makrolar görünsün
11	c sütununda aralıklı olanları toplar
12	Seçili alanda kaç tane formül olduğunu bul ve formül içeren tüm hücreleri seç
13	listbox1de değişken
14	Durum Çubuğunda İlerlemeyi Göster: Bu makroyu kullanarak, durum çubuğunda bir makro kodunun ilerleme durumunu gösterebilirsiniz. Bu kod, sayfanıza 5000e kadar seri numaralar ekleyecek ve birlikte durum çubuğunda ilerleme gösterecektir.
15	Seçilen hücreleri text dosyasına aktarma
16	Seçili hücreler içerisindeki yeni satırları (ALT + ENTER ile oluşturulan) yok etmek, kaldırmak
17	gizli sayfada makro çalışır mı
18	statusbar da (durum çubuğunda) kayan yazı
19	Seçili hücrenin solunda veriler varsa onları seçer. İlk boş hücreden sonra ilk değer olan hücreyi seçer.
20	kaç satır seçili olduğunu bulur

Benzer Sonuçlar

Makro Adı

seçili alanları durum çuğunda anlık toplar

durum çubuğunda toplam alma (fare ile seçileni toplar)

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

seçilen alanlari bir kağitda yazdırır eder

seçilen alanları bir kağıtta yazdırır eder

verinin bittiği ilk boş satıra yapıştırmak

a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın

comboboxta bir değerin hazır seçili olarak gelmesi

forma otomatik resim getirme

makrolar kutusu ve makrolar görünsün