Ev Social Media Excel'de Seç Vaka Yapısını Kullanma 2016 VBA - AYGITLAR

Excel'de Seç Vaka Yapısını Kullanma 2016 VBA - AYGITLAR

İçindekiler:

Video: Excel'de Özet Tablo (Pivot Table) ile Veri Analizi ve Raporlama - Tanıtım Videosu 2025

Video: Excel'de Özet Tablo (Pivot Table) ile Veri Analizi ve Raporlama - Tanıtım Videosu 2025
Anonim

Select Case yapısı, üç veya daha fazla sayı içeren kararlar için kullanışlı bir VBA yapısıdır Seçenekler Excel 2016'da (ancak If-Then-Else yapısına bir alternatif sağlayarak iki seçenekle de çalışabilse de).

A Select Case örnek

Aşağıdaki örnek, Select Case yapısının nasıl kullanılacağını gösterir:

Sub ShowDiscount3 () Dim Quantity As As Long Dim İndirim As Double Quantity = InputBox ("Miktar Girin") Kutuyu Seçin Adet Durum 0'dan 24'e İndirim = 0. 1 Durum 25'den 49'a İndirim = 0. 15 Durum 50'den 74'e İndirim = 0. 2 Durum Varsay> = 75 İndirim = 0. 25 Bitiş Seçimi MsgBox "İndirim" ve İndirim Sonu Alt > Bu örnekte, Miktar değişkeni değerlendirilmektedir. Rutin dört farklı vakayı denetler (0-24, 25-49, 50-74 ve 75 veya daha büyük).

Her bir Vaka bildirimini takip edebilen herhangi bir sayı vardır ve bunlar, durum doğruysa hepsi yürütülür. Bu örnekte olduğu gibi yalnızca bir deyim kullanırsanız deyimi, VBA deyim ayırıcı karakteri olan iki nokta üst üste gelmek üzere Case anahtar kelimesiyle aynı satıra koyabilirsiniz. Bu kodun daha kompakt ve biraz daha net olmasını sağlar. Rutin şu şekilde görünür:

Sub ShowDiscount4 () Dim Miktar Uzun Vadeli İndirim As Double Quantity = InputBox ("Miktar Girin") Kutuyu Seçin Miktar Durum 0 - 24: İndirim = 0. 1 Durum 25 için 49: İndirim = 0. 15 Durum 50 - 74: İndirim = 0 2 Durum => 75 =: İndirim = 0. 25 End MsgBox "İskonto": İndirim End Sub

VBA, VBA gerçek bir dava bulur bulmaz yapı çıkar ve bu dava için ifadeleri uygular.

İç içe geçmiş bir Select Case örneği

Aşağıdaki örnekte gösterildiği gibi Select Case yapılarını iç içe yerleştirebilirsiniz. Bu rutin aktif hücreleri inceler ve hücrenin içeriğini açıklayan bir mesaj görüntüler. Yordamın üç Select Kasa yapısı bulunduğuna ve her birinin Son Son Seç deyimine sahip olduğuna dikkat edin:

Alt CheckCell () Dim Msg As String Küme Seç IsEmpty (ActiveCell) Case True Msg = "boş. "Case Else Select Case, ActiveCell. HasFormula Case Gerçek Msg = "bir formül var" Case Else Select Case IsNumeric (ActiveCell) Case Gerçek Msg = "bir numara var" Case Else Msg = "Metin var" End Select End Select Son Seç MsgBox "Cell" & ActiveCell. Adres & "" & Msg End Sub

Mantık şu şekilde:

Hücrenin boş olup olmadığını öğrenin.
  1. Boş değilse, bir formül içeriyor olup olmadığına bakın.

  2. Eğer formül yoksa, sayısal bir değer mi yoksa metin mi içerdiğini bulun.

  3. Rutin bittiğinde, Msg değişkeni hücrenin içeriğini tanımlayan bir dize içerir. MsgBox işlevi, bu iletiyi görüntüler.

CheckCell yordamı tarafından görüntülenen bir ileti.

Select Case yapılarını istediğiniz gibi yerleştirin, ancak her Select Case deyiminin karşılık gelen bir End Select deyimine sahip olduğundan emin olun.

Girintilenen kodun çaba harcayacağına ikna olmadıysanız, önceki liste iyi bir örnektir. Yuvalanma düzeylerini açıkça ortaya koyan girintiler. Aynı prosedüre herhangi bir girinti yapmadan bir göz atın:

Alt CheckCell () Dim Gömleği String'i Seç Case IsEmpty (ActiveCell) Case True Msg = "boş. "Case Else Select Case, ActiveCell. HasFormula Case Gerçek Msg = "bir formül var" Case Else Select Case IsNumeric (ActiveCell) Case Gerçek Msg = "bir numara var" Case Else Msg = "Metin var" End Select End Select Son Seç MsgBox "Cell" & ActiveCell. Adres & "" & Msg End Sub

Oldukça anlaşılmaz, ha?
Excel'de Seç Vaka Yapısını Kullanma 2016 VBA - AYGITLAR

Editörün Seçimi

Genişletme Bağlantılar ve Bina Robotları için Pinouts - mankenler

Genişletme Bağlantılar ve Bina Robotları için Pinouts - mankenler

Eğer bir robot inşa ediyorsanız, çok sayıda elektrik bağlantısı, bu yüzden çok sayıda iğne ile uğraşıyorsunuz. Aşağıdaki tabloda, genişleme konektörleri ve pim numaraları için sinyal gösterilmektedir. İstenmeyen çapraz bağlantıları önlemeye yardımcı olabilir. Genişletme Konnektörü Pin Numarası Sinyal Genleşmesi Konnektör Pin Numarası Sinyal 1, 2 Toprak 16 P11 Yeşil LED 3, 4 + 5 ...

Dizinler içeren Kablosuz Erişim Noktalarını bulma - mankenler

Dizinler içeren Kablosuz Erişim Noktalarını bulma - mankenler

Sıcak noktaları bulma konusunda çevrimiçi dizinler, gezinmek için mükemmel bir araçtır. ABD, Kanada ve dünyadaki artan sayıda sıcak nokta. Size kolaylık sağlamak için, bu dizinlerden bazıları. Dizin Notları JiWire WiFi Bulucu 144 ülkede ücretsiz ve ücretli Wi-Fi yerleri dizini sağlar. AT & T ...

Ham Radyoda genel Sınıf Frekans Ayrıcalıkları - mankenler

Ham Radyoda genel Sınıf Frekans Ayrıcalıkları - mankenler

Yakında yapmadıysanız, siz Yükseltmeyi düşünüyorum. Aşağıdaki tabloda gösterildiği gibi, yüksek frekanslı (HF) bantlarda kullanmak için daha fazla frekansa sahipsiniz. Tüm lisans sınıfları için ABD frekansı ve mod ayrıcalıklarının eksiksiz bir listesi, Amerikan Radyo Röle Ligi'nden (ARRL) edinilebilir. Bant Frekansları ...

Editörün Seçimi

Adobe Flash CS6'da Maske Katmanlarını Kullanma - mankenler

Adobe Flash CS6'da Maske Katmanlarını Kullanma - mankenler

Adobe Flash CS6'da maskeleme kavramı Bir parçanın bölümlerini gizlemek ya da ortaya çıkarmak için bir şekli (ya da şekilleri) kullanır - tıpkı evinizdeki küçük bir pencere aracılığıyla dışarıdan bakmak gibi. Pencere boyutu, içerideyken görebileceğiniz şeyi sınırlar. Flash, özel bir katman özelliklerine sahiptir ...

Flash CS5 3D Rotasyon Aletinin Kullanımı - mankenler

Flash CS5 3D Rotasyon Aletinin Kullanımı - mankenler

Adobe'nin kapsamlı çizim ve animasyon yetenekleri Flash Creative Suite 5, Flash'ın 3D Döndürme aracıyla büyük ölçüde geliştirilebilir. 3B Döndürme aracı, sembolü x, y ve z eksenleri etrafında döndürmek ve dönüştürmek için herhangi bir film klibi örneğinde kullanılabilir. Bir film klibi örneğini 3D olarak oluşturmak için bunları izleyin ...

Flash CS5 3D Çeviri Aletini Kullanma - aumlalar

Flash CS5 3D Çeviri Aletini Kullanma - aumlalar

In 3D Döndürme aracının aksine Flash CS5 film kliplerini bir eksen etrafında döndüren Adobe Flash Creative Suite 5, 3D Çeviri aracı, bir film klibini algılanan mesafeyi ve sahnedeki diğer nesnelere göre derinliğini değiştirmek için belirli bir eksende kaydırır. Bu kavramı üçlü düşünün ...

Editörün Seçimi

Pratik İlköğretim Sınavı-Grafik Çözümleri - mankenler

Pratik İlköğretim Sınavı-Grafik Çözümleri - mankenler

Praxis İlköğretim sınavının Matematik bölümü bir dizi çizgide bir eşitsizliğe çözüm bulmanızı gerektiren bir soru. Başlamak için, çözümdeki sayıya bir nokta koyarsınız. Sembolü> veya

Pratik İlk Öğretim Sınavı-Ölüm Şekilleri - mankenler

Pratik İlk Öğretim Sınavı-Ölüm Şekilleri - mankenler

Praxis İlköğretim Matematik ve Bilim bölümleri Eğitim sınavı, farklı ölçme şekillerine aşina olmanız gereken sorular içerir. Ölçümler, çeşitli tiplerde tanımlanabilir. Mesafe için İngilizce sistem birimleri inç, feet, metre ve mil içerir. Bunlar birbirine dayanır. Bir ayak 12 ...

Pratik İlk Öğretim Sınavı-Akıcılık - mankenler

Pratik İlk Öğretim Sınavı-Akıcılık - mankenler

Praxis İlköğretim sınavı, yardımcı stratejilerinizi test eden sorular içerir öğrenciler akıcılıklarını İngilizce olarak geliştirirler. Bu stratejiler, grafik düzenleyicileri kullanarak ve çıkarımlar yapmayı içerebilir. Akıcı bir okuyucu, sınıf düzeyinde bir metni doğruluk, çabukluk ve ifade ile okuyabilir.