Y\u00f6ntem 1: Bir ko\u015fula g\u00f6re ko\u015fullu bi\u00e7imlendirme uygulama<\/strong><\/span><\/p>\n Y\u00f6ntem 2: Birden \u00e7ok ko\u015fula dayal\u0131 olarak ko\u015fullu bi\u00e7imlendirme uygulama<\/strong><\/span><\/p>\n Y\u00f6ntem 3: T\u00fcm ko\u015fullu bi\u00e7imlendirme kurallar\u0131n\u0131 h\u00fccrelerden kald\u0131r\u0131n<\/strong><\/span><\/p>\n A\u015fa\u011f\u0131daki \u00f6rnekler, Excel’deki a\u015fa\u011f\u0131daki veri k\u00fcmesiyle her y\u00f6ntemin pratikte nas\u0131l kullan\u0131laca\u011f\u0131n\u0131 g\u00f6sterir:<\/span> <\/p>\n B2:B11<\/strong> aral\u0131\u011f\u0131nda de\u011feri 30’dan b\u00fcy\u00fck olan h\u00fccreleri ye\u015fil arka plan, siyah yaz\u0131 tipi ve kal\u0131n yaz\u0131 stiliyle doldurmak i\u00e7in a\u015fa\u011f\u0131daki makroyu kullanabiliriz:<\/span><\/p>\n Bu makroyu \u00e7al\u0131\u015ft\u0131rd\u0131\u011f\u0131m\u0131zda a\u015fa\u011f\u0131daki \u00e7\u0131kt\u0131y\u0131 al\u0131yoruz:<\/span> <\/p>\n B2:B11<\/strong> aral\u0131\u011f\u0131ndaki 30’dan b\u00fcy\u00fck bir de\u011fere sahip her h\u00fccrenin ko\u015fullu bi\u00e7imlendirmeye tabi oldu\u011funu unutmay\u0131n.<\/span><\/p>\n De\u011feri 30’a e\u015fit veya daha k\u00fc\u00e7\u00fck olan herhangi bir h\u00fccre basit\u00e7e b\u0131rak\u0131l\u0131r.<\/span><\/p>\n A2:A11<\/strong> aral\u0131\u011f\u0131ndaki h\u00fccrelere tak\u0131m ad\u0131na g\u00f6re ko\u015fullu bi\u00e7imlendirme uygulamak i\u00e7in a\u015fa\u011f\u0131daki makroyu kullanabiliriz:<\/span><\/p>\n Bu makroyu \u00e7al\u0131\u015ft\u0131rd\u0131\u011f\u0131m\u0131zda a\u015fa\u011f\u0131daki \u00e7\u0131kt\u0131y\u0131 al\u0131yoruz:<\/span> <\/p>\n “Mavericks”, “Blazers” ve “Celtics” tak\u0131m adlar\u0131n\u0131 ta\u015f\u0131yan h\u00fccrelerin tamam\u0131n\u0131n belirli ko\u015fullu bi\u00e7imlendirmeye tabi oldu\u011funu unutmay\u0131n.<\/span><\/p>\n “Lakers” isimli tek tak\u0131m, bu tak\u0131m ad\u0131na sahip h\u00fccreler i\u00e7in herhangi bir ko\u015fullu bi\u00e7imlendirme kural\u0131 belirlemedi\u011fimiz i\u00e7in yaln\u0131z b\u0131rak\u0131ld\u0131.<\/span><\/p>\n Son olarak, t\u00fcm ko\u015fullu bi\u00e7imlendirme kurallar\u0131n\u0131 ge\u00e7erli sayfadaki h\u00fccrelerden kald\u0131rmak i\u00e7in a\u015fa\u011f\u0131daki makroyu kullanabiliriz:<\/span><\/span><\/p>\n Bu makroyu \u00e7al\u0131\u015ft\u0131rd\u0131\u011f\u0131m\u0131zda a\u015fa\u011f\u0131daki \u00e7\u0131kt\u0131y\u0131 al\u0131yoruz:<\/span> <\/p>\n H\u00fccrelerin her birinden t\u00fcm ko\u015fullu bi\u00e7imlendirmenin kald\u0131r\u0131ld\u0131\u011f\u0131n\u0131 unutmay\u0131n.<\/span><\/p>\n A\u015fa\u011f\u0131daki e\u011fitimlerde VBA’da di\u011fer ortak g\u00f6revlerin nas\u0131l ger\u00e7ekle\u015ftirilece\u011fi a\u00e7\u0131klanmaktad\u0131r:<\/span><\/p>\n VBA: Bir dizedeki karakterlerin olu\u015fumlar\u0131 nas\u0131l say\u0131l\u0131r?<\/a> H\u00fccrelere ko\u015fullu bi\u00e7imlendirme uygulamak i\u00e7in VBA’da a\u015fa\u011f\u0131daki y\u00f6ntemleri kullanabilirsiniz: Y\u00f6ntem 1: Bir ko\u015fula g\u00f6re ko\u015fullu bi\u00e7imlendirme uygulama Sub ConditionalFormatOne() Dim rg As Range Dim cond As FormatCondition ‘specify range to apply conditional formatting Set rg = Range(” B2:B11 “) ‘clear any existing conditional formatting rg.FormatConditions.Delete ‘apply conditional formatting to any cell in range B2:B11 with […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-4369","post","type-post","status-publish","format-standard","hentry","category-rehber"],"yoast_head":"\n Sub<\/span> ConditionalFormatOne()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set<\/span> rg = Range(\" B2:B11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'apply conditional formatting to any cell in range B2:B11 with value greater than 30\n<\/span>Set<\/span> cond = rg.FormatConditions.Add(xlCellValue, xlGreater, \" =30<\/span> \")\n\n'define conditional formatting to use\n<\/span>With<\/span> cond\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\n.Font.Bold = True<\/span>\nEnd With\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Sub<\/span> ConditionalFormatMultiple()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond1 As<\/span> FormatCondition, cond2 As<\/span> FormatCondition, cond3 As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set rg = Range(\" A2:A11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'specify rules for conditional formatting\n<\/span>Set<\/span> cond1 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Mavericks<\/span> \u201d)\nSet<\/span> cond2 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Blazers<\/span> \u201d)\nSet<\/span> cond3 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Celtics<\/span> \u201d)\n\n'define conditional formatting to use\n<\/span>With<\/span> cond1\n.Interior.Color = vbBlue\n.Font.Color = vbWhite\n.Font.Italic = True\nEnd With<\/span>\n\nWith<\/span> cond2\n.Interior.Color = vbRed\n.Font.Color = vbWhite\n.Font.Bold = True\nEnd With<\/span>\n\nWith<\/span> cond3\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\nEnd With<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Sub<\/span> RemoveConditionalFormatting()\nActiveSheet.Cells.FormatConditions.Delete\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv11.jpg\")
<\/p>\n \u00d6rnek 1: Bir ko\u015fulu temel alarak ko\u015fullu bi\u00e7imlendirmeyi uygulama<\/strong><\/span><\/h2>\n
Sub<\/span> ConditionalFormatOne()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set<\/span> rg = Range(\" B2:B11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'apply conditional formatting to any cell in range B2:B11 with value greater than 30\n<\/span>Set<\/span> cond = rg.FormatConditions.Add(xlCellValue, xlGreater, \" =30<\/span> \")\n\n'define conditional formatting to use\n<\/span>With<\/span> cond\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\n.Font.Bold = True\nEnd With<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv12.jpg\")
<\/p>\n \u00d6rnek 2: Birden \u00e7ok ko\u015fulu temel alan ko\u015fullu bi\u00e7imlendirmeyi uygulama<\/strong><\/span><\/h2>\n
Sub<\/span> ConditionalFormatMultiple()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond1 As<\/span> FormatCondition, cond2 As<\/span> FormatCondition, cond3 As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set rg = Range(\" A2:A11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'specify rules for conditional formatting\n<\/span>Set<\/span> cond1 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Mavericks<\/span> \u201d)\nSet<\/span> cond2 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Blazers<\/span> \u201d)\nSet<\/span> cond3 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Celtics<\/span> \u201d)\n\n'define conditional formatting to use\n<\/span>With<\/span> cond1\n.Interior.Color = vbBlue\n.Font.Color = vbWhite\n.Font.Italic = True\nEnd With<\/span>\n\nWith<\/span> cond2\n.Interior.Color = vbRed\n.Font.Color = vbWhite\n.Font.Bold = True\nEnd With<\/span>\n\nWith<\/span> cond3\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\nEnd With<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv13.jpg\")
<\/p>\n \u00d6rnek 3: T\u00fcm ko\u015fullu bi\u00e7imlendirme kurallar\u0131n\u0131 h\u00fccrelerden kald\u0131rma<\/strong><\/span><\/h2>\n
Sub<\/span> RemoveConditionalFormatting()\nActiveSheet.Cells.FormatConditions.Delete\nEnd Sub<\/span><\/strong><\/span><\/pre>\n<\/p>\n Ek kaynaklar<\/strong><\/span><\/h2>\n
VBA: bir dizenin ba\u015fka bir dize i\u00e7erip i\u00e7ermedi\u011fi nas\u0131l kontrol edilir<\/a>
VBA: h\u00fccrenin “E\u011fer” i\u00e7ermesi durumunda” form\u00fcl\u00fc<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"