-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sorgu için arama sonuçları: Displayformat
-
Çözüldü Koşullu biçimlendirilmiş veriyi kaydetmek
Merhaba, Aşağıdaki kodu dener misiniz. Const MyFile = "C:\TestFolder\Deneme.txt" Sub ddd() For Each deg In Range("b2:b1000") If deg.DisplayFormat.Interior.ColorIndex = 3 Then tutar = tutar + CLng(deg) * 4 Next deg Open MyFile For Output As #1 Print #1, Trim(tutar) Close #1...- Erdem Akdemir
- Posta #2
- Forum: Makro-VBA Soruları
-
Ç
bulunduğum satırı renkli göstersin
...yapılmış çalışma buldum. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Dim aaa As DisplayFormat Set aaa = Range("XFD1048576").DisplayFormat Range("A1:XFD500").Borders.Color = aaa.Borders.Color...- çıtır
- Posta #10
- Forum: Fonksiyon Soruları
-
F
makroyu eklentiye çevirme
...As Long Dim indCurCell As Long cntRes = 0 sumRes = 0 cntCells = Selection.CountLarge indRefColor = ActiveCell.DisplayFormat.Interior.Color For indCurCell = 1 To (cntCells - 1) If indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color Then...- fatma_07
- Konu
- Cevaplar: 8
- Forum: Makro-VBA Soruları
-
-
Ç
Font.Bold Hatası
Kodu If celss(i, 2).Font.Bold = True Then aşağıdaki şekilde yazarak deneyiniz. If celss(i, 2).DisplayFormat.Font.Bold = True Then- çıtır
- Posta #4
- Forum: Makro-VBA Soruları
-
I
alt zemin olmayan koşullu biçimlendirilmiş rengi sayma
...sumRes Dim cntCells As Long Dim indCurCell As Long cntRes = 0 sumRes = 0 cntCells = Selection.CountLarge indRefColor = ActiveCell.DisplayFormat.Interior.Color For indCurCell = 1 To (cntCells - 1) If indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color Then cntRes = cntRes + 1...- imparator26
- Konu
- Cevaplar: 3
- Forum: Excel'e Yeni Başlayanlar