Excel ve VBA için faydalı programlar. VBA Programlama Temelleri

Aşağıdaki basit Excel makro örnekleri, Excel VBA eğitiminde açıklanan bazı özellikleri ve teknikleri göstermektedir.

Excel Makrosu: Örnek 1

Başlangıçta bu prosedür Alt VBA kodunda yorum kullanımına örnek olarak verildi. Ancak burada ayrıca değişkenlerin nasıl bildirildiğini, Excel hücre referanslarının nasıl çalıştığını ve döngü kullanımını da görebilirsiniz. İçin, koşullu operatör Eğer ve bir mesaj penceresinin görüntülenmesi.

"Sub prosedürü, etkin çalışma sayfasının A1:A100 hücreleri aralığında verilen dizeyi içeren bir hücreyi arar Sub Find_String(sFindText As String) Dim i As Integer "For döngüsünde kullanılan Integer türünde bir tamsayı Dim iRowNumber As Integer "Sonucu depolamak için Integer türünde bir tamsayı iRowNumber = 0 "Dize bulunana kadar A1:A100 hücrelerine tek tek bakar sFindText For i = 1 To 100 If Cells(i, 1).Value = sFindText Then " Verilen dizeyle bir eşleşme bulunursa " numarayı kaydedin mevcut satır ve buradan ayrılıyoruz Döngü için iRowNumber = i Exit For End If Next i "Kullanıcıya aranan dizenin bulunup bulunmadığını bir açılır pencerede bildiririz" Belirtilen dize bulunursa, eşleşmenin hangi hücrede bulunduğunu belirtin iRowNumber = 0 Sonra MsgBox "String " & sFindText & " bulunamadı" Else MsgBox " Row "&sFindText&" A hücresinde bulundu" & iRowNumber End If End Sub

Excel Makrosu: Örnek 2

Sonraki prosedür Alt– döngü kullanma örneği Yaparken. Burada ayrıca değişkenlerin nasıl bildirildiğini, Excel hücre referanslarıyla nasıl çalışıldığını ve koşullu bir operatörün nasıl uygulandığını da görebilirsiniz. Eğer.

"Alt prosedür, 1000'i aşmayan Fibonacci sayılarını çıkarır Sub Fibonacci() Dim i As Integer "Sıradaki öğe konumunu belirten sayaç Dim iFib As Integer "Dizinin geçerli değerini saklar Dim iFib_Next As Integer "Dizinin bir sonraki değerini Dim iStep As Integer olarak saklar " Sonraki artışın boyutunu saklar "i ve iFib_Next değişkenlerini başlat i = 1 iFib_Next = 0 "Do While döngüsü, "mevcut Fibonacci numarası 1000'i aşana kadar yürütülecektir Do While iFib_Next< 1000 If i = 1 Then "Особый случай для первого элемента последовательности iStep = 1 iFib = 0 Else "Сохраняем размер следующего приращения перед тем, как перезаписать "текущее значение последовательности iStep = iFib iFib = iFib_Next End If "Выводим текущее число Фибоначчи в столбце A активного рабочего листа "в строке с индексом i Cells(i, 1).Value = iFib "Вычисляем следующее число Фибоначчи и увеличиваем индекс позиции элемента на 1 iFib_Next = iFib + iStep i = i + 1 Loop End Sub

Excel Makrosu: Örnek 3

Bu prosedür Alt bir sütunun hücrelerini tarar A boş bir hücreyle karşılaşıncaya kadar aktif sayfa. Değerler bir diziye yazılır. Bu basit Excel makrosu, aşağıdakilerle nasıl çalışılacağını gösterir: dinamik diziler ve ayrıca bir döngü kullanmak Şu ana kadar yap. Bu örnekte dizi ile herhangi bir eylem gerçekleştirmeyeceğiz ancak gerçek programlama pratiğinde veriler diziye yazıldıktan sonra genellikle bu tür eylemler dizi üzerinde gerçekleştirilir.

"Sub prosedürü, aktif sayfanın A sütununun hücre değerlerini Sub GetCellValues() Dim iRow As Integer dizisinde saklar "Geçerli satırın sayısını Dim dCellValues() As Double olarak saklar "Hücre değerlerini saklamak için bir dizi ​​iRow = 1 ReDim dCellValues(1 To 10) "Do Loop Until, aktif sayfanın A sütununun hücreleri boyunca sırayla yinelenir "ve boş bir hücreyle karşılaşılıncaya kadar değerlerini bir diziye çıkarır Do Until IsEmpty(Cells( iRow, 1)) "dCellValues ​​dizisinin yeterli boyutta olup olmadığını kontrol edin"Değilse, ReDim If UBound(dCellValues) kullanarak boyut dizisini 10 artırın< iRow Then ReDim Preserve dCellValues(1 To iRow + 9) End If "Сохраняем значение текущей ячейки в массиве dCellValues dCellValues(iRow) = Cells(iRow, 1).Value iRow = iRow + 1 Loop End Sub

Excel Makrosu: Örnek 4

Bu örnekte prosedür Alt bir sütundan değerleri okur Açalışma kağıdı Sayfa2 ve bunu onlarla yapıyor Aritmetik işlemler. Sonuçlar sütun hücrelerine girilir A aktif çalışma sayfasında. Bu makro Excel nesnelerinin kullanımını gösterir. Özellikle itiraz usulü ile gerçekleştirilir. Alt nesneye Sütunlar ve bu nesneye nesne aracılığıyla nasıl erişildiğini gösterir Çalışma kağıdı. Ayrıca aktif sayfadaki bir hücreye veya hücre aralığına erişirken, bağlantıyı yazarken bu sayfanın adını belirtmenin gerekli olmadığı da gösterilmiştir.

"Alt prosedür, bir döngü kullanarak, Çalışma Sayfası Sayfa2'nin A sütunundaki değerleri okur, "her değerle aritmetik işlemler gerçekleştirir ve sonucu etkin çalışma sayfasının A sütununa yazar (Sayfa1) Sub Transfer_ColA() Dim i As Integer Dim Col As Range Dim dVal As Double "Çalışma sayfasının A sütunu değişkenine atayın Sayfa 2 Set Col = Sheets("Sheet2").Columns("A") i = 1 "Bir döngü kullanarak değerleri okuyoruz ​​Col sütunundaki hücrelerin sayısı "boş bir hücreyle karşılaşılıncaya kadar Do Until IsEmpty(Col.Cells(i)) "Geçerli hücrenin değeri üzerinde aritmetik işlemler gerçekleştir dVal = Col.Cells(i).Value * 3 - 1 "Aşağıdaki komut, sonucu aktif çalışma sayfasının A sütununa yazar "Bağlantıdaki sayfa adını belirtin, bu aktif yaprak olduğundan gerekli değildir Cells(i, 1) = dVal i = i + 1 Loop End Sub

Excel Makrosu: Örnek 5

Bu makro, bir Excel olayını izleyen bir VBA kodu örneğini gösterir. Makronun eklendiği olay, çalışma sayfasında bir hücre veya hücre aralığı her seçildiğinde gerçekleşir. Bizim durumumuzda, bir hücre seçerken B1, ekranda bir mesaj penceresi görünür.

"Bu kod, geçerli çalışma sayfasında B1 hücresi seçilirse bir mesaj kutusu gösterir. Private Sub Worksheet_SelectionChange(ByVal Target As Range) "B1 hücresinin seçilip seçilmediğini kontrol edin If Target.Count = 1 And Target.Row = 1 And Target.Column = 2 Daha sonra "B1 hücresi seçilmişse gerekli işlemi yapın MsgBox "B1 hücresini seçtiniz" End If End Sub

Excel Makrosu: Örnek 6

Bu prosedür operatörlerin kullanımını göstermektedir Hata Durumunda Ve Sürdürmek hata yönetimi için. Bu kod aynı zamanda bir dosyadaki verileri açma ve okuma örneğini de gösterir.

"Alt prosedür Val1 ve Val2 argümanlarına A1 ve B1 hücrelerinin değerlerini atar" çalışma kitabı Data.xlsx, C:\Documents and Settings klasöründe bulunur Sub Set_Values(Val1 As Double, Val2 As Double) Dim DataWorkbook As Workbook Hata Durumunda GoTo ErrorHandling "Veri içeren çalışma kitabını aç Set DataWorkbook = Workbooks.Open("C:\ Documents and Settings\Data") "Val1 ve Val2 değişkenlerinin değerlerini belirtilen çalışma kitabından atayın Val1 = Sheets("Sheet1").Cells(1, 1) Val2 = Sheets("Sheet1").Cells(1, 2) ) DataWorkbook.Close Exit Sub ErrorHandling: "Dosya bulunamazsa kullanıcıdan aradığı dosyayı yerleştirmesi istenecektir" istenilen klasör ve ardından makroyu çalıştırmaya devam edin MsgBox "Data.xlsx dosyası bulunamadı! " & _ "Lütfen çalışma kitabını C:\Documents and Settings klasörüne ekleyin ve Tamam'a tıklayın" Devam Et End Sub

İşin amacı - Temel operatörlerin incelenmesi ve temel programlama yapılarının VBA dilinde uygulanması.

4.1 Excel'de vba programlarıyla çalışmanın ana aşamaları

Bir VBA programı hazırlamak ve çalıştırmak için aşağıdakileri yapmanız gerekir:

Excel'de menüden bir komut seçin Araçlar – Makro – DüzenleyiciGörselTemel;

beliren pencerede menüden komutu seçin Sokmak – modül. Bir modül oluşturulur, yani basitçe söylemek gerekirse, programın metnini girebileceğiniz bir pencere açılır.

Modülün başında bir talimat belirtilebilir SeçenekAçık. Belirtilmişse programda kullanılan tüm değişkenlerin ifadede bildirilmesi gerekecektir. Loş(Bu konuda daha fazla bilgi için 4.3 numaralı alt bölüme bakın).

Bazı durumlarda VBA ortamının nasıl yapılandırıldığına bağlı olarak talimat SeçenekAçık Modülün başında otomatik olarak belirtilir. Programcı değişkenleri bir ifadede bildirmeden kullanmak isterse Loş, ardından talimatlar SeçenekAçık kaldırılması gerekiyor.

Programı çalıştırmak için menüden komutu seçmelisiniz. Çalıştır – Sub/UserForm'u Çalıştır.

4.2 VBA'daki bir programın en basit örneği

Örnek 4.1– Belirli bir sayıyı yükselten bir program A belirtilen dereceye kadar B.

a Tek Olarak Dim, b Tek Olarak Dim

a = OutputBox(“Tabanı girin: ”)

b = OutputBox(“Üssü giriniz: ”)

x = a^b 'Üslü ifade

MsgBox("Sonuç " & x)

İşte kelime Alt prosedürün başlangıcını gösterir; onun adı burada bu durum – astar4_1 . Bir VBA programı her zaman bir veya daha fazla prosedürden (bu durumda bir) oluşur.

' (tek tırnak işareti) karakteri bir yorumun başlangıcını belirtir. Yorum metni herhangi bir şey olabilir.

Loş– değişken bildirim operatörü. Bu durumda değişkenlerin olduğu belirtilmektedir. A Ve B türü var Bekar. onlar. hem tam hem de kesirli sayıları temsil edebilir. Veri türleri ve değişken bildirimleri alt bölüm 4.3'te daha ayrıntılı olarak ele alınacaktır.

Giriş Kutusu– Bir değişkenin değerini girme işlevi. Astar A = Giriş Kutusu(“Tabanı girin:”) değişkenin değerinin girildiği anlamına gelir A; ekranda bir mesaj görüntüleniyor “Üssü girin:”. Astar X = A^ B– atama operatörü: sağ taraftaki değer hesaplanır (bu durumda değişken A güce yükseltildi B) ve sonuç, sol tarafta belirtilen değişkene (bu durumda değişken) atanır. X). Astar Mesaj Kutusu(“Sonuç: ” &X) ekranda bir mesajın görüntülendiği anlamına gelir “Sonuç şu” ve değişkenin değeri X.

Not - İşaret & işlevde Mesaj Kutusu Bu örnekte görüntülenmesi gereken çeşitli veri öğelerini (dizeler) birleştirmek için tasarlanmıştır “Sonuç eşit” ve değişken X. Benzer işaret & işlevinde kullanılabilir Giriş Kutusu(bu tür kullanım örnekleri aşağıda verilecektir). Tabelanın önünde & ve sonrasında boşluklar olmalıdır.

Tek bir satıra birden fazla VBA ifadesi yerleştirebilirsiniz. Bunu yapmak için iki nokta üst üste karakterleriyle ayrılırlar. Dolayısıyla Örnek 4.1'deki program örneğin aşağıdaki gibi yazılabilir:

‘Bir VBA programının ilk örneği

a Tek Olarak Dim, b Tek Olarak Dim

a = OutputBox(“Tabanı giriniz: ”) : b = OutputBox(“Üssü giriniz: ”)

x = a^b: MsgBox(“Sonuç “ & x) ‘Üs ve sonucun çıktısı

Bu örnekte altprogram adı verilen bir prosedür kullanılmaktadır. Bu prosedür kelimeyle başlar Alt. Bir VBA programında her zaman en az bir alt rutin prosedür bulunur. Ek olarak, VBA dilinin başka bir prosedür türü vardır - işlevler. Bir işlev prosedürü sözcükle başlar İşlev. Bu tür prosedürlerin kullanımı alt bölüm 4.9'da tartışılacaktır.

Excel kullanıcı arayüzünün sağladığı güçlü işlevselliğe rağmen, yalnızca programlı olarak gerçekleştirilebilen bazı görevler vardır. "Excel'de Makroları Kullanma" kitabı, Excel VBA'da programlamaya giriş niteliğinde olup, Excel'de çalışırken ortaya çıkan çeşitli pratik sorunların çözümüne ilişkin örnekler içerir.Kitabın materyali Excel kullanıcılarına ve ayrıca Excel nesne modeline aşina olmayan programcılara yöneliktir. Excel 2002 için makro geliştirme bölümlerinin yanı sıra bu ders, Excel ortamında makro ve program yazmaya yönelik bir giriş dersidir.

Kitap: Hafta Sonu Yoğun Excel Programlama Kursu

Yayımcı: Diyalektik
Sayfalar: 421
Biçim: DJVU
Boyut: 12,6 MB
Kalite: Normal
Dil: Rusça
Tür: programlama
Yayınlandığı yıl: 2004
ISBN: 5-8459-0687-3

Olasılıklar Microsoft Excel yalnızca veri tablolarıyla çalışmakla sınırlı değildir. Elektronik tablo araçlarının arkasında güçlü bir programlama dili vardır - VBA (Uygulamalar için Visual Basic). Bununla birlikte, hemen hemen her kullanıcı, hesaplamaların mekanik olarak yürütülmesinden kendi ekran formlarına ve revizyon olasılığına sahip bir veri giriş sistemi oluşturmaya kadar Excel'deki en çeşitli görevleri çözmek için VBA dilinde programların nasıl yazılacağını öğrenme fırsatına sahiptir. yazılan değerlerin doğruluğu.

Kitap: VBA 2002'de Programlama

Kalite: Normal
Dil: Rusça
Tür: programlama

Kitap, uygulamalarda temel dil olan Visual Basic for Applications'da (VBA) programlama üzerine bir ders içermektedir. Microsoft Office(Word, Excel, Access, PowerPoint, FrontPage, Visio vb.). Kitap, yeni başlayanların Windows ortamında Word, Excel ve PowerPoint nesnelerini kullanarak programlama yapmasına yöneliktir.Kitabın bir kısmı her iki bilgisayarda da depolanan veritabanlarını kullanan Office uygulamalarının geliştirilmesine ayrılmıştır. ayrı dosyalar ve uzak sunucularda.Kitap, Visual Basic dilinin temellerini öğrenmek ve belgeler, elektronik tablolar, grafikler, sunumlar vb. ile rutin, tekrarlanan çalışmaları otomatikleştirmeye yardımcı olan basit makrolar oluşturmak ve ayrıca iletişim kutularını kullanarak oldukça karmaşık veritabanı işleme uygulamaları geliştirmek için yeterli materyal içerir. kullanıcıya en modern arayüz araçlarını sağlayan.Kitaptaki örneklerin çoğu ticari faaliyetin güncel konularına ayrılmıştır, bu nedenle kitap yöneticiler için çok faydalı olacaktır. çeşitli seviyeler görünüşe göre hem Microsoft Office hem de yerleşik dilin amacı budur VBA programlama.
Kitabın sonundaki ekler, hem VBA hem de normal VB ile çalışmak için kullanışlı bir referans görevi görebilir.

Excel'de birçok kitap yazıldı. Ancak bu kitabı özel kılan şey, elektronik tablo uygulaması geliştirmeyi daha geniş bir bağlama yerleştirmesidir. VBA, geliştirme ortamının yalnızca bir bileşenidir özel uygulamalar oldukça anlamlı olmasına rağmen. Bu kitap, VBA kullanarak uygulama geliştirmenin inceliklerini anlamanıza yardımcı olacaktır. VBA dilinin birçok özelliğini, yeteneklerini ve kullanım ortamını açıklar. İlk olarak size programın yeteneklerine ilişkin bir genel bakış sunulacak, ardından VBA programlama kavramlarını tanımlamaya geçeceksiniz ve ardından VBA programlama kavramlarını tanıyacaksınız. dilin kendisi. Acemi bir VBA programcısıysanız, bu yayında daha fazla çalışma için ihtiyaç duyacağınız tüm gerekli bilgileri bulacaksınız. Zaten VBA ile çalışma konusunda kıskanılacak bir deneyiminiz varsa, bu kitap yeni teknikler ve gerçek hayattan örnekler ekleyerek bilginizi zenginleştirecek ve artıracaktır.

Katılımcı tarafından düzenlenmiş ve nazikçe sağlanan PDF sürümü.

Microsoft Excel bir elektronik tablodan çok daha fazlasıdır. Excel 97'de Visual Basic Düzenleyicisi'nin kullanıma sunulması ve ardından Excel 2000'in önemli ölçüde geliştirilmiş kararlılığıyla Excel, kendi başına saygın bir geliştirme platformu haline geldi. Excel uygulamaları artık C++, Java ve .NET geliştirme platformunu temel alan uygulamaların yanı sıra, görev açısından kritik kurumsal uygulamalardan oluşan çekirdek paketin bir parçası olarak da bulunuyor.
Ne yazık ki, Excel'in hâlâ hobi amaçlı bir platform olduğu düşünülüyor; insanlar boş zamanlarında yalnızca küçük görevleri otomatikleştirmek için Excel uygulamaları geliştiriyorlar. Birçok Excel VBA kitabına kısa bir bakış bu görüşü doğruluyor gibi görünüyor. Bu kitaplar, VBA kullanarak Excel görevlerini otomatikleştirmenin temellerine odaklanmaktadır. Bu kitap, profesyonel kalitede uygulamalar geliştirmek için Excel'in bir platform olarak nasıl kullanılacağına ilişkin ayrıntılı bir açıklama sağlayan türünün ilk örneğidir.
Diğer büyük geliştirme platformlarının çoğu, bu platformu kullanan uygulamaların tasarlanması, tasarlanması ve geliştirilmesi için ortak olarak kabul edilen en iyi uygulamaları açıklayan fiili standart bir metne sahip gibi görünse de, şu ana kadar Excel'de yoktu. Bu kitap bu boşluğu doldurmaya çalışmaktadır. Yazarlar, bireylerden en büyük çok uluslu şirketlere kadar çeşitli müşteriler için Excel tabanlı uygulamalar yaratan profesyonel Excel geliştiricileridir. Bu kitap, müşterilerimiz için yazdığımız uygulamaları tasarlarken, geliştirirken, dağıtırken ve desteklerken kullandığımız yaklaşımları açıklamaktadır.

Excel kaydediciyi kullanarak makro kaydetmeye hızlıca göz attık. Şimdi bu ormana dalacağız ve örnek olarak birkaç basit makro yazacağız. Örneklerden birinde geleneksel olarak "Mesaj" tipi bir iletişim kutusuyla çalışmayı göstereceğiz, diğerinde ise iletişim kutumuzu genişleteceğiz.

Örnek 1: VBA'da basit msgBox iletişim mesajı

Tüm programlama örneklerinin başında gelen geleneklerden sapmayalım. Çalıştırıldığında bize "Merhaba Dünya" yazan bir mesaj kutusu verecek bir makro yazalım. Aynı zamanda kullanıcı diyaloglarıyla çalışmaya da bakalım.

Artık makroları sadece manuel mod, kayıt cihazı yok!

Bu nedenle, bir makro oluşturmak için herkesin favori Visual Basic (VB) düzenleyicisinin penceresini açmanız gerekir. Bunu yapmak için aşağıdaki adımları izleyin: Servis-Makro-DüzenleyiciGörselTemel(Alt+F11).

MS Visual Basic düzenleyici penceresi açılacaktır.

Sol pencereniz yoksa, bunları etkinleştirmeniz gerekir. Bunu yapmak için F4 tuşuna basın - Özellikler penceresini açar ÖzelliklerPencere ve Ctrl+R klavye kısayolu – bir pencere açar ProjeKaşif. Bu pencereler olmadan gelecekte çalışmak zor olacaktır. Tüm! Tamamlamak.

Pencerede ne görüyoruz Proje? Bu pencere kitabımızın yapısını tam olarak yansıtıyor. Kitap nesneleri – Sayfa1, 2, 3, Bu kitap. Bu nesneleri sonraki makalelerde daha ayrıntılı olarak inceleyeceğiz ancak şimdilik örneğe döneceğim.

Kod yazmaya başlamak için ne yapmanız gerekiyor? Bir modül oluşturmanız gerekiyor. Not: Genel olarak gelecekte işleyici kodunu aşağıdakilere bölmenizi öneririm: farklı modüller. Bu, kodun anlaşılmasını kolaylaştıracak ve yapıda düzen oluşturacaktır.

Bir modül oluşturun: Ekleme Modülü

Önümüzde not defterini andıran boş bir modül penceresi açıldı. Zaten böyle bir pencereyi ilk makroyu kaydettiğimizde görmüştük. Modülümüze “iyi form” kurallarına göre bir isim vereceğiz, adını “iyi form” koyalım. Makro Kitap" Bunu yapmak için özellikler penceresine gidin ve alana bir ad girin (İsim)

Kod düzenleme penceresine gidin ve aşağıdakileri yazın:

Hazır! Çalışma penceresini aç Excel çalışma kitapları, tıklamak Alt+F8 ve “Merhaba” makromuza bakın

Geriye kalan tek şey " Koşmak" Makroyu çalıştırmanın bir sonucu olarak aşağıdaki türde ve içerikte bir mesaj alacağız:

Örnek 2: VBA'da Geliştirilmiş msgBox İletişim Mesajı

Aşağıdakileri içeren başka türdeki diyalog mesajlarını ele alalım: ek düğmeler"Evet", "Hayır", "İptal"

Merhaba makromuzun koduna gidip komuta ekleyelim. mesaj kutusu takip etme:

Mesaj Kutusu"Merhaba Dünya!", vbYesNoCancel, "Makrom"

"Merhaba Dünya!"dan sonra virgül koyduğunuzda, mevcut tüm iletişim kutusu türlerinin bir listesini görmeniz gerektiğini unutmayın.

Anlamak için her birini deneyin.

Makromuzu çalıştıralım

Artık tamamen farklı bir iletişim şeklimiz var.

Şimdilik bu kadar. Makalelerin ve derslerin yayınlanmasını takip edin. Sorularınız olursa memnuniyetle cevaplarım, gerekirse açıklamalı bir yazı da yazarım.

Video: vba'da çalışan bir msgbox örneği