Bu yazımızda makro kaydetmeyi ve ardından nasıl değiştirileceğini ve öğrenmeyi kolaylaştırmayı öğreneceğiz.
VBE'de Sum formülü için makro nasıl yazılır
A1:C14 aralığında bir Excel verimiz var, burada A sütununda isimler var, Sütun B'de konu 1'in işaretleri ve C sütununda konu 2'nin işaretleri var. D sütununda, toplam puanları döndürmek istiyorum.
Microsoft Excel'de VBA kullanarak toplam formülü eklemek için aşağıda belirtilen adımları izleyin: -
- Excel verilerini açın.
- İlk önce toplam işaretleri döndürmek için makroyu D2 hücresine kaydedersiniz.
- “Geliştirici” sekmesinde, “Kod” grubundan “Makro Kaydet”i seçin.
- “Makro Kaydet” iletişim kutusu görünecektir.
- “Makro Adı” kutusuna makronun adını boşluk ve özel karakter kullanmadan yazınız.
- İstediğiniz kısayol tuşunu yazın.
- Ve açıklama kutusuna makro ile ilgili açıklamayı yazın.
- Kayıt şimdi başlayacak.
- Toplam formülü D2 hücresine yazın.
- Formülü D3:D14 aralığına yapıştırın.
- “Kaydı Durdur”a tıklayın
- Kaydedilen makroları görmek için “ALT+F11” tuşlarına basın.
- Kaydedilen kod şöyle olurdu: -
Sub SUM() ' 'SUM Makrosu 'Toplam puan elde edilir' ' Klavye Kısayolu: Ctrl+Shift+S ' Range("D2").ActiveCell'i seçin.FormulaR1C1 = "=SUM(RC[-2]:RC[-1] )" Selection.Copy Range("C2").Selection.End(xlDown).Select Range("D14").Select Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste Range("D2" ). End Sub'ı seçin
Gördüğünüz gibi, yukarıda bahsedilen VBA kodu toplam puan döndürmek için çok uzun ve anlaşılması da kolay değil. Böylece kodlamayı değiştiriyoruz.
Sub SUM() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("D2:D" & X).Value = "=Sum(B2:C2)" End Sub
VBE'de Ortalama formül için makro nasıl yazılır
A1:C14 aralığında bir Excel verimiz var, burada A sütununda isimler var, Sütun B'de konu 1'in işaretleri ve C sütununda konu 2'nin işaretleri var. D sütununda, ortalama işaretleri döndürmek istiyorum.
Microsoft Excel 2010 ve 2013'te VBA kullanarak ortalama formül eklemek için aşağıda belirtilen adımları izleyin: -
- Excel verilerini açın.
- İlk önce, D2 hücresine ortalama işaretleri döndürmek için makroyu kaydedersiniz.
- “Geliştirici” sekmesinde, “Kod” grubundan “Makro Kaydet”i seçin.
- “Makro Kaydet” iletişim kutusu görünecektir.
- “Makro Adı” kutusuna makronun adını boşluk ve özel karakter kullanmadan yazınız.
- Kısayol tuşunu yazın -hangisini isterseniz.
- Ve açıklama kutusuna makro ile ilgili açıklamayı yazın.
- Kayıt şimdi başlayacak.
- D2 hücresine “ORTALAMA” formülünü yazın.
- Formülü D3:D14 aralığına yapıştırın.
- “Kaydı Durdur”a tıklayın.
- Kaydedilen makroları görmek için “ALT+F11” tuşlarına basın.
- Kaydedilen kod şöyle olurdu: -
Sub AVERAGE() ' 'AVERAGE Macro 'Toplam işaretler elde edilir ' ' Klavye Kısayolu: Ctrl+Shift+A 'ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-2])" Selection.Copy Range(" E2").Seçimi Seçin.Aralığı Kopyala("D2").Seçimi Seç.Bitiş(xlAşağı).Aralık Seç("E14").Aralık Seç(Seçim, Seçim.Bitiş(xlUp)). ActiveSheet'i Seç. Aralığı Yapıştır( "E13"). Selection.End(xlUp).Select End Sub.Select End Sub
Gördüğünüz gibi yukarıda bahsedilen VBA kodu toplam puanları döndürmek için çok uzun ve anlaşılması da kolay değil; böylece kodu değiştiriyoruz.
Alt Ortalama() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("E2:E" & X).Value = "=Average(B2:C2)" End Sub
Bu sayede makro kaydetmeyi ve daha sonra nasıl değiştirileceğini öğrenebiliriz.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın