VBA | Excel VBA Türkiye Eğitim Blogu

Excel ‘de kullanıcı kontrollerini gizleme

Posted on 2 Şubat 2016 by bekir

Bu yazıda excel’i excel olmaktan çıkaracağız. Excel in kullanıcının erişmesini istemeyebileceğiniz bazı bileşenlerini kapatacağız, bazı bileşenleri görünmez hale getireceğiz

İlk iş olarak aşağıdaki ekran görüntüsünde işaretli bileşenleri gizleyeceğiz. Bunların bir kısmını menü üzerinden gizleyebilirsiniz. Bazılarını ( kaydırma çubukları gibi) gizlemek için bir menü bulunmaz, bunlar için VBA zorunlu. VBA kullanmadan gizlenebileceklerin menüden nasıl gizleneceği gizlenecek

İlk olarak kaydırma çubuklarından (scroll bar) başlayalım . Dikey ve yatay kaydırma çubukları gereksizse gizleyebiliriz. Örnek olarak şu sayfaya bakalım

Continue reading “Excel ‘de kullanıcı kontrollerini gizleme” →

Sayfa açıldığında imlecin konumunu ve büyütme oranını sıfırlama

Posted on 31 Ocak 2016 by bekir

Her sayfa kullanıldığında fare imleci son bırakıldığı yerde kalır. Aynı şekilde büyütme oranı da son bırakıldığı haliyle kaydedilmiş olur

Sayfayı kullanan eğer fare imlecini en aşağılarda biryerde bırakmışsa veya sayfayı %500 büyütmüşse ve kaydetmişse bir seferki açtığında da ilk göreceği son görüntülediği sayfa kısmı olacaktır

Bu durum birçok durumda sorun olabilir. Özellikle de profesyonel bir rapor hazırlıyorsanız. Sayfa her açıldığında raporun bulunduğu alanın görüntülenmesi ve büyütme oranının sabit olması kullanım rahatlığı sağlayacaktır.

Sayfaları tasarlarken standart bir büyütme oranı belirleyip ( En iyisi %100) diğer boyutları buna göre tasarlamanız isabetli olacaktır

Mesela şu sayfayı ilk açtığımda aşağıdaki şekilde görüyorum

Continue reading “Sayfa açıldığında imlecin konumunu ve büyütme oranını sıfırlama” →

Birleşik range’den dizi veya matris oluşturma

Posted on 26 Şubat 2011 by bekir

Merhaba,
Şöyle bir durum düşünün; Elinizde range türünden bir değişken var.Farzedelim kullanıcının fare imleci ile seçtiği birkaç sütunun birleşimi bir alan olsun.
Doğal olarak tek parçadan oluşmak zorunda değil. Böyle bir durumda VBA içerisinde bu alan içerisindeki değerleri ağız tadı ile kullanmak zor.
Çünkü hiç bir elemana indis kullanarak ulaşamayacaksınız. Ayrıca sonradan boyutu belirlenmiş bir değişken olan alanımızın içerisinde dolaşabilmek için önce kaç parçadan oluştuğunu sorgulamamız, sonra her alan içerisinde indis kullanmadan tüm hücreler üzerinde dolaşmak zorundasınız. 2. parçanın 3. elemanı diye bir ifade olamayacak. Parçaların satır sayılarının aynı olduğu bir durumda bir matris elde etmiş oluruz. Örneğimizde de öyle zaten

hiç bir yaratıcılık ve zeka pırıltısı içermese de çok işe yarayan fonksiyonumuz şöyle:

Function RangeToArray(rgInput As Range, Optional booTekBoyutIseArray As Boolean = False)

	' Programcı: Ebubekir Çelik .
	' http://exceltr.wordpress.com

	Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer

	Dim booTekBoyut As Boolean
	Dim iColCnt As Integer, iRowCnt As Integer, iAreasCnt As Integer
	Dim GArray, cl As Object

	iColCnt = rgInput.Columns.Count
	iAreasCnt = rgInput.Areas.Count

	iRowCnt = 0
	For i = 1 To iAreasCnt
		iRowCnt = iRowCnt + rgInput.Areas(i).Rows.Count
	Next

	If iColCnt = 1 Or iRowCnt = 1 Then
		booTekBoyut = True
	Else
		booTekBoyut = False
	End If

	If booTekBoyutIseArray = False Or booTekBoyut = False Then
		ReDim GArray(1 To iRowCnt + 1, 1 To iColCnt)
		m = 2
		For k = 1 To iColCnt
			GArray(1, k) = ""
		Next
		For i = 1 To iAreasCnt
			For j = 1 To rgInput.Areas(i).Rows.Count
				n = 1
				For k = 1 To iColCnt
					GArray(m, n) = rgInput.Areas(i).Cells(j, k)
					n = n + 1

				Next
				m = m + 1
			Next

		Next
	Else
		ReDim GArray(1 To rgInput.Cells.Count)
		i = 1
		For Each cl In rgInput.Cells
			GArray(i) = cl.Value
			i = i + 1
		Next
	End If

	RangeToArray = GArray

End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

Function RangeToArray(rgInput As Range, Optional booTekBoyutIseArray As Boolean = False)

' Programcı: Ebubekir Çelik .

' http://exceltr.wordpress.com

Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer

Dim booTekBoyut As Boolean

Dim iColCnt As Integer, iRowCnt As Integer, iAreasCnt As Integer

Dim GArray, cl As Object

iColCnt = rgInput.Columns.Count

iAreasCnt = rgInput.Areas.Count

iRowCnt = 0

For i = 1 To iAreasCnt

iRowCnt = iRowCnt + rgInput.Areas(i).Rows.Count

booTekBoyut = True

Else

booTekBoyut = False

End If

If booTekBoyutIseArray = False Or booTekBoyut = False Then

ReDim GArray(1 To iRowCnt + 1, 1 To iColCnt)

m = 2

For k = 1 To iColCnt

GArray(1, k) = ""

For j = 1 To rgInput.Areas(i).Rows.Count

n = 1

For k = 1 To iColCnt

GArray(m, n) = rgInput.Areas(i).Cells(j, k)

n = n + 1

Else

ReDim GArray(1 To rgInput.Cells.Count)

i = 1

For Each cl In rgInput.Cells

GArray(i) = cl.Value

i = i + 1

RangeToArray = GArray

End Function

TC Kimlik numarası sınama

Posted on 26 Şubat 2011 by bekir

Merhaba,

Bu yazıda size TC Kimlik numarası için bir iki basit kontrol yöntemi göstereceğim.
Sınamadan kastım resmi makamlarla bağlantı kurarak sınamak değil tabii ki. Her TC Kimlik numarasının sağladığı basit birkaç matematiksel şart var.
Bu şartlara bakarak bir sayının TC Kimlik numarası olup olamayacağını görebilirsiniz. Fakat tabii ki ilgili şartları sağlayan her sayı, bir şahsa verilmiş TC Kimlik no değildir. Biz algoritmaya uymayanları eliyoruz.
Continue reading “TC Kimlik numarası sınama” →

Son satırı bulma yöntemleri ve farkları

Posted on 23 Şubat 2011 by bekir

Bana sorulan bir soru üzerine Excel’de son satırı bulmak için kullanılan yöntemleri açıklamak ishtiyacı hissettim.

Son satırdan kasıt ne olabilir?

worksheet’in son kullanılan hücresininin bulunduğu satır.

belirli bir sütun için kullanılan son satırdan kastediliyor olabilir

bu iki seçenek için de kullanılan son hücreden kasıt çoğu durumda veri içeren son hücredir.

Öncelikle vba kullanmadan bir sayfada son hücreye gitmenin iki basit yolu var

1- CTRL+END tuş kombinasyonu

2- F5 e basıldığında açılan menüden Özel butonuna basılarak ulaşılan menüden Son hücreyi işaretleyim tamam a tıklamak. Aşağıdaki ekran görüntülerine bakın

Continue reading “Son satırı bulma yöntemleri ve farkları” →

Excel VBA Türkiye Eğitim Blogu

Microsoft Office Excel Formüller Makrolar Eğitimler Hakkında

Kategori: VBA