VBA Excel: nümunə proqramları. Excel makro

y = x1 + x1 ^ 2 + 3 * x1 ^ 3 - Cos (x1)

Cells (i, 1) .Dəyər = x1 (x1 dəyəri koordinatları (i ilə yaddaş yazılmış 1))

Cells (i, 2) .Dəyər = y (y dəyəri koordinatları (ilə kamerada yazılı i, 2))

i = i 1 (etibarlı count) +;

x1 = x1 + (dəlil addım ölçüsü dəyişir) shag;

ilmə

End Sub.

y - Bu run makro nəticəsində "Excel" iki x dəyərlər qeydə ilk olan sütun, və ikinci almaq.

Sonra "Excel" üçün onlara standart inşa edə cədvəli.

NÜMUNƏ 3

dizayn üçün istifadə edərkən artıq azalıb Do ilə yanaşı, VBA Excel 2010-cu ildə dövründən həyata, eləcə də digər versiyaları üçün.

bir sütun yaradır bir proqram düşünün. Hər hüceyrə bu xətt sayı müvafiq meydanlarda qeyd olunacaq. dizayn istifadə üçün bir counter istifadə etmədən, çox qısa qeyd imkan verir.

Əvvəlcə yuxarıda təsvir kimi, makro yaratmaq lazımdır. Next kodu özü yazın. Biz 10 hüceyrələri üçün dəyərlər maraqlı inanıram. Aşağıdakı kimi kodu.

i 10 Sonrakı 1 = For

komanda kimi, "insan" dil transfer "bir əlavələr 1-dən 10 təkrarladı."

tapşırıq meydanların ilə sütun almaq əgər, məsələn, 1 və 11 arasında tək integers, biz yazmaq:

i = 1 10 addım 1 Next üçün.

Burada addım - addım. Bu halda, bu iki bərabərdir. Mənim cari olaraq, loop sözü olmaması bir addım deməkdir.

nəticələr mobil sayı (i, 1) saxlanılır lazımdır. i avtomatik inkişaf və line sayı olacaq addım Sonra hər dəfə dəyərinin artması ilə dövrü başlayır. Belə ki, kod optimallaşdırılması olacaq.

Ümumiyyətlə, kodu kimi görünür:

Sub proqramı ()

i = 1 10 Addım 1 (1 10 = yalnız i üçün yazılı bilər)

Cells (i, 1) .Dəyər = i ^ 2 (yəni kvadrat dəyəri hüceyrə yazılmışdır (i, 1) i)

Next (bir mənada counter vasitə və başqa dövrü başlanğıc rolunu oynayır)

End Sub.

qeyd və çalışan makro (. yuxarıda talimatları bax), o cümlədən Düzgün həyata Əgər, sonra bir ölçüsü (10 hüceyrələrinin ibarət bu halda) sütun əldə ediləcək hər vaxt adlanır.

NÜMUNƏ 4

Gündəlik həyatda, çox tez-tez bəzi şəraitdən asılı olaraq bu və ya qərar qəbul etmək lazımdır. VBA Excel onlara olmadan edə bilməz. alqoritm daha əlbəttə əvəzinə seçilmiş proqramları nümunələri END varsa ... Sonra ... ilkin müəyyən bir (çətin hallar) Sonra əgər ən çox istifadə dizayn ... edin.

xüsusi nümunəsinə nəzər salaq. Siz qeyd edilmişdir koordinatları ilə hüceyrə (1,1) və "Excel" üçün makro yaratmaq istəyirəm düşünək:

1 arqument müsbət olduqda;

0 arqument sıfır olduqda;

1 arqument mənfi, əgər.

"Excel" üçün belə bir makro yaradılması "isti" düymələri Alt və F11 istifadə edərək, bir standart şəkildə başlayır. Əlavə aşağıdakı kodu yazılı:

Sub proqramı ()

x = Cells (1, 1) .Dəyər (Bu skript mobil məzmunu x koordinatları dəyəri (1 verir, 1))

Sonra x> 0 Cells (1, 1) .Dəyər = 1 olarsa

Sonra x = 0 Cells (1, 1) .Dəyər = 0 olarsa

Sonra x <0 Cells (1, 1) .Dəyər = -1 varsa

End Sub.

Bu arqument üçün istədiyiniz dəyər bir makro run və "Excel" in almaq qalır.

VBA funksiyaları

Fark ola bilər kimi, ən məşhur proqram Microsoft tablo proqram çox çətin deyil. Xüsusilə, əgər VBA funksiyaları istifadə etmək üçün necə öyrənmək. Ümumilikdə, bu proqramlaşdırma dili "Excel" və Word, 160 funksiyaları applications yazmaq üçün xüsusi olaraq yaradılmışdır. Onlar bir neçə böyük qrupa bölmək olar. Onlar:

• Riyazi funksiyaları. kosinus dəyər dəlil onları tətbiq, təbii logarithm, və belə ki, bütün hissəsini əldə edilir.
• Maliyyə funksiyaları. Due Excel onların mövcudluğu və istifadə proqramlaşdırma, siz mühasibat və maliyyə yaşayış üçün effektiv alətlər əldə edə bilərsiniz.
• Array emal funksiyaları. Bu Array, IsArray daxildir; LBound; UBound.
• VBA Excel xətti fəaliyyət göstərir. Bu, kifayət qədər böyük bir qrup var. Bu, misal üçün, Space funksiyası ANSI kodu tam dəlil və ya Asc köçürmələri rəmzləri bərabər boşluqlar bir sıra simli yaratmaq daxildir. Onların hamısı geniş istifadə olunur və bu masaları ilə işləmək üçün daha asan applications yaratmaq üçün "Excel" in strings ilə işləmək üçün imkan verir.
• Data növü dönüşüm funksiyaları. Məsələn, CVaR Variant data növü konvertasiya, Expression dəlil qaytarır.
• Tarix funksiyaları. Onlar çox "Excel" in standart funksiyalar genişləndirmək. Belə ki, WeekdayName funksiyası sayı həftənin gün (tam və ya qismən) adını qaytarır. Hətta daha faydalı Timer edir. O gün bir xüsusi an gecə yarısı keçir saniyə sayı verir.
• müxtəlif sayı sistemləri sayısal dəlil çevirmək fəaliyyət göstərir. Məsələn, Oct sayı octal təmsil nəticələr.
• biçimlendirme funksiyaları. Bu ən mühüm Format edir. Bu format təsviri verilmiş təlimatlara uyğun olaraq biçimlendirilmiş bir ifadə ilə bir Variant qaytarır.
• və s.

Bu funksiyaları və onların tətbiqi xassələrinin öyrənilməsi əhəmiyyətli dərəcədə "Excel" çərçivəsində genişlənəcəkdir.

NÜMUNƏ 5

daha mürəkkəb problemləri həll etmək üçün cəhd edək. Məsələn:

Dan kağız sənəd müəssisə hesabat xərcləri faktiki səviyyəsi. tələb edir:

• tablo "Excel" öz model hissəsini inkişaf etdirilməsi;
• xam data lazımi hesablamalar həyata keçirmək və müvafiq hüceyrə şablon doldurmaq üçün, onu doldurmaq üçün xahiş edəcək bir VBA proqram etmək.

Aşağıdakı həlləri bir düşünün.

şablon yaratmaq

Bütün tədbirlər Excel bir standart hesabatı aparılır. haqqında məlumat daxil olmaq üçün qorunur Free hüceyrələri ay, il, adı-istehlakçı şirkətləri, xərclərin məbləği, dövriyyəsi, onların səviyyəsi. Hesabat qeyd olmayan barəsində şirkətləri (şirkətlər), sayı, hüceyrələri əvvəlcədən qorunur deyil dəyərlər və professional adı əsasında etmək. yeni bir ad təyin iş. Məsələn, "Օ Hesabatı".

dəyişənlər

Bu proqram avtomatik olaraq şablon doldurmaq yazmaq üçün notation seçin. Onlar dəyişənlər üçün istifadə olunacaq:

• masa cari sıra NN- sayı;
• TP və TF - planlı və faktiki dövriyyə;
• SF və SP - faktiki və planlı ümumi xərclər;
• IP və IF - planlı və faktiki xərcləri səviyyəsi.

Biz eyni məktublar işarə, lakin sütun üçün "prefiks» itog toplanması cəmi. Məsələn, ItogTP - sütun ilə bağlı olaraq "başlıqlı planlı dövriyyəsi".

VBA proqramlaşdırma istifadə edərək problemin həlli

bu notation istifadə edərək, biz zidd düsturunu əldə. Siz% -i hesablanması həyata keçirmək istəyirsinizsə, biz (F - P) / P * 100 və məbləğində - (- P F).

bu hesablamalar nəticəsində yaxşı yalnız müvafiq hüceyrələri "Excel" elektron tablo üçün ola bilər.

ItogP = ItogP + P və ItogF = ItogF + F. düsturlar ilə əldə əslində nəticəsi və proqnoz üçün

sapmalar = istifadə edin (ItogF - ItogP) / ItogP * 100 hesablanması faizi kimi həyata keçirilir və əgər ümumi dəyəri, əgər - (ItogF - ItogP).

nəticələr bir daha müvafiq hüceyrələri qeyd, belə ki, dəyişənlərin onları təyin etmək üçün heç bir ehtiyac yoxdur.

bir proqram yaratmaq üçün başlamazdan əvvəl siz adı "Otchet1.xls" altında, məsələn, kitabı saxlamaq istəyirəm.

Press "hesabat masa yaratmaq," Əgər header məlumat daxil etdikdən sonra yalnız 1 dəfə basın lazımdır. Bilirsiniz və digər qaydalar lazımdır. Xüsusilə, düyməsini "bir xətt əlavə et" hər bir fəaliyyət üçün dəyərlər masa girdikdən sonra hər dəfə bərk olmalıdır. düyməsini "Finish" düyməsini basın, sonra pəncərə "Excel" keçmək üçün lazım olan bütün məlumat daxil sonra.

İndi makroları istifadə edərək, Excel üçün vəzifələri necə həll edəcəyini bilirsiniz. Ən məşhur mətn redaktoru "Vord" mühitində işləmək üçün vba excel tətbiq etmək qabiliyyəti (proqram nümunələri, yuxarıda bax) lazım ola bilər. Xüsusilə məqalənin başında göstərildiyi kimi və ya kodu yazmaq vasitəsilə mətn üzərində bir çox əməliyyatlar düymələri basaraq və ya "View" seksiyası və "Makrolar" simvolu ilə həyata keçirilə bilərik.