Excel Sayfalarına vb kodu yazmak okumak

zafertan

Microsoft Excel Sayfalarına
Visual Basic ile
Yazı Yazmak ve Okumak

Microsoft Excel sayfalarına Visual Basic ile yazı yazmak ve okumak için Görünüm menüsünden Araç Çubukları buradan da Visual Basic’i tıklatın, Visual Basic menüsünde Visual Basic Düzenleyicisi Butonuna basalım. Gelen pencerede Insert menüsünden Module seçeneğini işaretlediğimizde karşımıza Visual Basic kodlarını yazmak için sayfa gelmektedir. Bu sayfaya aşağıdaki kodları yazalım.

Sub YAZMAK()
Worksheets("Sayfa1").Select
Worksheets("Sayfa1").Cells(1, 1) = "A"
Worksheets("Sayfa1").Cells(1, 2) = "B"
Worksheets("Sayfa1").Cells(1, 3) = "C"
Worksheets("Sayfa1").Cells(2, 1) = 1
Worksheets("Sayfa1").Cells(2, 2) = 2
Worksheets("Sayfa1").Cells(2, 3) = 3
Range("A5").Select
End Sub

Run menüsünden Run Sub butonuna basıldığında program çalışır ve Sayfa1’e bakıldığında aşağıdaki yazılar görülmektedir.

Şek.1

Yukardaki programı kısaca açıklayalım.
1. satırda Sub ( Visual Basic de program Sub deyimi ile başlar ve End sub deyimi ile biter. )ve sonra program adı “YAZMAK “ gelmektedir.
2. satırda 1.sayfayı( Worksheets("Sayfa1") kelimesi, çalışma sayfalarından Sayfa1 anlamına geliyor) seçtiğimizi anltıyor.
3.satır 1.sayfada 1.satır, 1.sütuna A harfini yazdırıyor.
4.satır 1.sayfada 1.satır, 2.sütuna B harfini yazdırıyor.
5.satır 1.sayfada 1.satır, 3.sütuna C harfini yazdırıyor.
6.satır 1.sayfada 2.satır, 1.sütuna 1 rakamını yazdırıyor.
7.satır 1.sayfada 2.satır, 2.sütuna 2 rakamını yazdırıyor.
8.satır 1.sayfada 2.satır, 3.sütuna 3 rakamını yazdırıyor.
8.satırda A5 bölgesini seçtiğimizi anlatıyor.
9.satır programın bittiğini gösteriyor.

Bundan sonra Sayfa1’e yazılanları okuyup Sayfa2’ye yazan programı kodlayalım.
Sub OKUYAZ()
Dim HX1 As String, HX2 As String, HX3 As String
Dim NX1 As Integer, NX2 As Integer, NX3 As Integer
Worksheets("Sayfa1").Select
HX1 = Worksheets("Sayfa1").Cells(1, 1)
HX2 = Worksheets("Sayfa1").Cells(1, 2)
HX3 = Worksheets("Sayfa1").Cells(1, 3)
NX1 = Worksheets("Sayfa1").Cells(2, 1)
NX2 = Worksheets("Sayfa1").Cells(2, 2)
NX3 = Worksheets("Sayfa1").Cells(2, 3)
Worksheets("Sayfa2").Select
Worksheets("Sayfa2").Cells(3, 6) = HX1
Worksheets("Sayfa2").Cells(3, 7) = HX1
Worksheets("Sayfa2").Cells(3, 8) = HX1
Worksheets("Sayfa2").Cells(7, 3) = NX1
Worksheets("Sayfa2").Cells(7, 4) = NX1
Worksheets("Sayfa2").Cells(7, 5) = NX1
Range("A8").Select
End Sub
Run menüsünden Run Sub butonuna basıldığında program çalışır ve Sayfa2’ye