Bu dosya, seçili hücre aralığındaki sayısal değerlerin tamamını tek işlemle belirlenen bir sayı kadar artıran makro destekli bir Excel çalışmasıdır. Fiyat, miktar ya da puan gibi sütunlardaki değerleri tek tek düzeltmek yerine alan seçilir, makro çalıştırılır ve eklenecek sayı girilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Fonksiyon, VBA tarafında ThisWorkbook.Name değerini döndürür; sonuç olarak çalışma kitabının adı uzantısıyla birlikte görüntülenir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sheet1: F2 hücresinde "Resme Tıklat" yazısı bulunur; makronun çalıştırılacağı alan burasıdır. F10 hücresinde dosyanın adını gösteren formül yer alır.
- Module1: addNumber ve FileName adlı iki prosedür içerir.
Kullanılan formüller
F10 hücresinde dosya adını getirmek için kullanıcı tanımlı FileName fonksiyonu çağrılır:=FileName()
Makrolar
- addNumber: Çalışınca bir giriş kutusu açar ve eklenecek sayıyı sorar. Ardından seçili alandaki her hücreyi tek tek kontrol eder. Hücre sayısal ise değerine girilen sayıyı ekler; metin ya da boş hücrelere dokunmaz. Giriş kutusundaki ifade "Enter number to multiple" olarak İngilizce yazılmıştır, ancak işlem çarpma değil toplamadır. Negatif sayı girilirse değerler azaltılır.
- FileName: Çalışma kitabının dosya adını döndüren fonksiyondur ve F10 hücresinde kullanılır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Değerlerini artırmak istediğiniz hücre aralığını seçin.
- Alt+F8 tuşlarıyla makro listesini açın ve addNumber makrosunu çalıştırın.
- Açılan kutuya eklenecek sayıyı yazıp onaylayın.
- Seçili alandaki tüm sayısal hücreler girilen değer kadar artar.