Excel Soru-Cevap Vol4

Soru: Excel dosyalarının açılışında otomatik olarak yakınlaştır yüzdesinin kendi belirlediğim bir yüzde ile açılmasını nasıl yapabilirim. Mesela ben bütün Excel dosyalarının %85 oranında açılmasını istiyorum. Excel'in ayarlarında böyle bir seçeneğimiz var mı? Ya da makrolar ile mi yapmalıyım?
Cevap:
1. Aşağıdaki makroyu bir VBA modül'üne yazın.
Sub Auto_Open()
ActiveWindow.Zoom = 85
End Sub
2. Dosyayı kaydedin. Mesela Kucult.XLS ismini verin.
3. Sonra bu dosyayı C:\Windows\Application Data\Microsoft\Excel\Xlstart klasörüne kopyalayın.

Not: Yukarıdaki yolu sizin sisteminize göre değiştirin. Amaç dosyayı XLStart klasörüne yerleştirmektir.

Excel Soru-Cevap Vol3

Soru: Excel'de üst sınırını belirlediğim rakamlar arasında, yine belirlediğim miktarda rastgele sayı üretmek istiyorum.
Cevap: Aşağıdaki makroyu çalıştırmadan evvel D1 hücresine üretmek istediğiniz rakamların üst sınırını yazınız. D2 hücresine ise kaç adet sayı üreteceğinizi yazınız.

Sub rastgele()
Dim i As Integer
Dim bul As Range

Randomize
If Range("D1").Value < Range("D2") Then
MsgBox "D1 hücresinin değeri D2 hücresinden küçük olmamalı"
Exit Sub
ElseIf Range("D1").Value = "" Or Range("D2") = "" Then
MsgBox "Ama olmaz ki D1 ya da D2 Hücreleri boş olmaz"
Exit Sub
End If

Cells(1, 1).Value = Int((Range("D1") * Rnd) + 1)
For i = 2 To Range("D2")
Cells(i, 1).Value = Int((Range("D1") * Rnd) + 1)
For Each bul In Range("A1:A" & Cells(i - 1, 1).Row)
If Cells(i, 1).Value = bul.Value Then
Cells(i, 1).Value = Int((Range("D1") * Rnd) + 1)
End If
Next bul
Next i
End Sub

Excel Soru-Cevap Vol2

Soru: Örnek olarak DOĞA AKIN şeklinde tüm harfleri büyük olarak hücreye girilmiş bir ismi Doğa Akın şeklinde sadece ilk harfleri büyük olacak şekile nasıl çevirebileceğim... Yardımcı olursanız gerçekten çok sevineceğim.

Cevap: Bu ismi yazdığınız hücreyi A1 hücresi kabul edersek B1 hücresine =Yazım.Düzeni(A1) formülünü girmeniz yeterli olacaktır.

Eğer formülü kaldırmak isterseniz Formülü yazdığınız hücre ya da hücreleri seçin ve Kopyala komutunu verin. Seçimi değiştirmeden Bu defa Düzen menüsünden Özel Yapıştır komutunu tıklayın ve buradan da Değerleri seçeneğini seçerek Tamam düğmesine tıklayın.

Excel Soru-Cevap Vol1

Soru: Üzerinde çalıştığım çalışma sayfamda o an aktif olan hücrenin renklenmesini istiyorum. Ancak daha önce renki olan hücrelerde ise herhangi bir değişiklik olmasını istemiyorum. Bu mümkün mü?
Cevap: Aşağıdaki kodu Çalışma sayfanızın kod sayfasına yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set EskiHucre = Target
End Sub