VBA Excel: örnek programlar. Excel'de Makrolar

y = x 1 + x 1 ^ 2 + 3 * x 1 ^ 3 - COS (x1)

Hücreler (i 1) .Value = x1 (x1 değeri koordinatları (i ile bellekte yazılmış, 1))

Hücreler (l, 2) .Value = y (y değeri koordinatları (hücreye yazılır i 2))

i = i 1 (geçerli sayısı) +;

X1 = X1 + (bağımsız değişken adım büyüklüğü ile değiştirilir) shag;

döngü

End Sub.

y - Bu çalışma makro sonucunda "Excel" iki x değerleri kaydedilir bunlardan birincisi sütun, ve ikinci alın.

Ardından "Excel" için, onlara standardını oluşturmak mümkün zamanlama.

Örnek 3

tasarım için kullanılan iken zaten azalmış Do birlikte VBA Excel 2010 döngüleri uygulamak, hem de diğer versiyonları için.

Bir sütunu oluşturan bir program düşünün. Her bir hücrede satır numarasını karşılık gelen kareler kaydedilecektir. Tasarımın kullanımı için bir sayaç kullanımı olmadan, çok kısaca kaydetmek için izin verecektir.

Öncelikle yukarıda açıklandığı gibi, bir makro oluşturmak için gereklidir. Daha sonra, kodun kendisini yazın. Biz 10 hücreleri için değerler ilgilenen inanıyoruz. şöyle koddur.

i 10 sonraki 1 =

komut olarak "insan" diline aktarılır "bir artışlarla 1 ile 10 arasında tekrarlayan".

Görev kareler ile sütun almak için ise, örneğin, 1 ile 11 arasında tüm tek tamsayılar şunu yazabiliriz:

i = 1-10 Adım 1 Sonraki için.

Burada, adım - adım. Bu durumda, iki eşittir. Varsayılan olarak, döngüde bu yokluk tek bir aşamada olduğu anlamına gelir.

Sonuçlar hücre sayısı (yani, 1) saklanabilir gerekir. i otomatik büyümek ve satır numarası olacak adım ait Sonra her zaman değer bir artış ile döngüyü başlatın. Böylece, kod optimizasyonu olacak.

Genel olarak, kod gibi görünecektir:

Alt program ()

i = 1 için 10 Aşama 1 (1 10 için = sadece i için yazılabilir)

Hücreler (i 1) .Value = ı ^ 2 (yani kare değeri hücreye yazılır (i, 1) i)

Sonraki (bir anlamda karşıt ve diğer bir döngü başlangıcında rol oynar)

End Sub.

kayıt ve çalışma makroları (. yukarıdaki talimatlara bakınız) dahil olmak üzere, doğru bir şekilde yapılırsa, o zaman, belli bir boyut (10 hücrelerinden oluşan bu durumda) sütun elde edilecek her olarak adlandırılır.

Örnek 4

Günlük yaşamda, çok sık bazı koşullara bağlı olarak şu ya da bu karar almak gereklidir. VBA Excel onlarsız yapamaz. algoritmanın başka ders yerine seçildiği programlara örnek SON olursa ... O zaman ... başlangıçta önceden belirlenmiş (zor durumlar için) Sonra If en yaygın kullanılan tasarım ... edin.

Özellikle durumunu düşünün. Eğer kaydedildi koordinatlarla hücre (1,1) için "Excel" için bir makro oluşturmak istediğinizi varsayalım:

1 bağımsız değişken pozitif ise;

0 argüman sıfır ise;

1 argüman negatifse, eğer.

"Excel" için böyle bir makro oluşturma "sıcak" tuşları Alt ve F11 kullanımı yoluyla, standart bir şekilde başlar. Ayrıca aşağıdaki kodu yazılı:

Alt program ()

X = Hücreler (1, 1) .Value (bu komut hücre içeriğinin X koordinatları değerini (1 atar, 1))

Daha sonra x> 0 Hücreler (1, 1) .Value = 1 ise

Daha sonra, x = 0 Hücreler (1, 1) .Value = 0 ise

Daha sonra, x <0 Hücreler (1, 1) .Value = -1 ise

End Sub.

Bu argüman için istenen değer bir makro çalıştırmak ve "Excel" almak için kalır.

VBA işlevleri

Fark edeceğiniz gibi, en ünlü programı, Microsoft tablo uygulamasında çok zor değildir. Özellikle eğer VBA fonksiyonlarını kullanmayı öğrenmek. Toplamda, bu programlama dili "Excel" ve Word, yaklaşık 160 fonksiyonları içinde uygulamaları yazmak için özel olarak oluşturulmuş. Bunlar birkaç büyük gruba ayrılabilir. Bunlar:

• Matematiksel fonksiyonlar. kosinüs değerinin değişken bunları uygulanması, doğal logaritma, ve böylece bütün bir parçası elde edilir.
• Finansal fonksiyonlar. Nedeniyle Excel'de bulunabilirliği ve kullanımı programlamaya, sen muhasebe ve mali yerleşim için etkili araçlar alabilirsiniz.
• Dizi işleme fonksiyonları. Bu dizi, IsArray içerir; LBound; UBound.
• VBA Excel hattı için çalışır. Bu oldukça büyük bir gruptur. Bu, örneğin, alan işlevi ANSI kod tam sayı bağımsız değişken veya Artan transfer semboller eşit boşluklar bir dizi ile bir dizi yaratmak için, içerir. Hepsi çok kullanılan ve bu tablolarla çalışmak çok daha kolay uygulamaları oluşturmak için "Excel" dizeleri ile çalışmak için izin verir.
• Veri türü dönüştürme işlevleri. Örneğin, CVar değişken veri türü için dönüştürme Expression bağımsız değişken döner.
• Tarih fonksiyonları. Bunlar büyük ölçüde "Excel" standart özelliklerini genişletin. Yani, WeekdayName işlevi sayısına göre haftanın günü (tam veya kısmi) adını döndürür. Daha da kullanışlı Timer olduğunu. O günün belirli anına gece yarısından itibaren geçen saniye sayısını verir.
• farklı sayı sistemlerinde sayısal argüman dönüştürmek için çalışır. Örneğin, Ekim sayısının sekizlik gösterimine verir.
• biçimlendirme fonksiyonları. Bunlardan en önemlisi Formatı olduğunu. Bu formatın açıklamasında, verilen talimatlara uygun olarak biçimlendirilmiş bir ifade ile bir varyant döndürür.
• ve benzeri.

bu işlevler ve bunların uygulama özelliklerinin incelenmesi anlamlı "Excel" kapsamını genişletecektir.

Örnek 5

en fazla karmaşık sorunları çözmek için çalışalım. Örneğin:

Dan kağıt belge kurumsal raporunun maliyetlerinin fiili seviyesi. gerektirir:

• tablo "Excel" tarafından desen bölümünü geliştirmek;
• Ham veriler gerekli hesaplamaları yapmak ve ilgili hücrenin şablonda doldurmak için, doldurmaya isteyecektir bir VBA programda.

Aşağıdaki çözümlerden birini düşünün.

Şablon oluşturma

Tüm eylemler Excel'de bir standart levha üzerinde gerçekleştirilir. üzerine veri girişi için ayrılan Ücretsiz hücreler ay, yıl, başlık tüketici şirketleri, masrafların tutarı, ciro onların seviyesi. Raporda kaydedilmez ele edilen şirketlerin (şirketler), sayısı arttıkça, hücreler önceden ayrılmış değildir değerler ve mesleki isim bazında yapmak. Yeni bir isim verilecek Çalışma. Örneğin, "Օ Raporu".

değişkenler

Program otomatik şablonunda doldurmak yazmak için gösterimini seçin. Onlar değişkenler için kullanılacaktır:

• tablosu mevcut satır nn sayısı;
• TP ve TF - planlanan ve fiili devir;
• SF ve SP - fiili ve planlanan toplam maliyetler;
• IP ve IF - planlanmış ve fiili maliyetleri seviyesi.

Biz aynı harflerle ifade, ama bu sütun için bir "ön ek» Itog birikimi toplam. Örneğin, ItogTP - kolona ilişkin olarak olarak, başlıklı "planlı ciro."

VBA programlama kullanılarak problemin çözümü

bu notasyonu kullanarak, varyans formülünü elde ederiz. Eğer% olarak hesaplamayı gerçekleştirmek istiyorsak var (F - P) / P * 100 ve miktarında - (- P F).

bu hesaplamaların sonuçları iyi sadece uygun hücrelerde "Excel" e-tablosunu yapmak olabilir.

ItogP = ItogP + U ve ItogF = ItogF + F formüllerle elde edilen sonuç aslında ve prognoz için

sapmalar = kullanmak için (ItogF - ItogP) / ItogP x 100 hesaplama yüzdesi olarak gerçekleştirilir ve eğer toplam değeri ise - (ItogF - ItogP).

Sonuçlar bir kez daha uygun hücrelerde kaydedildi, bu nedenle değişkenlere atamak için gerek yoktur.

Bir programı oluşturmak başlamadan önce adı "Otchet1.xls" altında, örneğin, çalışma kitabını kurtarmak istiyorum.

Basın "bir raporlama tablosunu oluştur" a başlık bilgilerini girdikten sonra sadece 1 kez basması gerekir. Bilirsiniz ve diğer kurallar olmalıdır. Özellikle, düğme "bir çizgi Ekle" her etkinlik için değerlerin tabloya girdikten sonra her defasında basılması gerekir. renkli "Bitir" tuşuna basıp ardından pencerede "Excel" geçmek için gerekli tüm verileri girdikten sonra.

Şimdi Makrolar ile Excel için sorunu çözmek için nasıl biliyorum. vba kullanma yeteneği (. Above örnek programlar bakınız) excel ve şu an, metin editörü en popüler ortamında çalışmanız gerekebilir "Word". Özellikle, bu makalenin başında gösterildiği gibi, kaydederek veya metin üzerinde operasyonların birçok görevde ya da "Görünüm" simgesi ve "Makro" sekmesi aracılığıyla tuşlarına basarak yapılabilir geçtiği menü düğmeleri oluşturmak için kod yazarak.