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

Temel Yahudi Blessings ile kutlayın - mankenler

Temel Yahudi Blessings ile kutlayın - mankenler

Yahudi kutsamaları sıradan ve özel iyiliği takdir etmek ve kutlamak için hatırlatıcıdır , hayatın anları. İşte bilmeniz gereken bazı temel Yahudi nimetleri: Yeni bir şey için kutlamanın kutlanması Barukh Atah Adonai, Eloheynu Melekh ha-olam, Şehri-heh-khi-yanu v'key'manu v'hee-gee-anu laz'man ha-zeh .

Ortak Günlük Blessings ve Dualar Kabala'nın

Ortak Günlük Blessings ve Dualar Kabala'nın

Ortak Günlük Blessings ve Dualar bir nimet vermek. Sabah uyanma üzerine: Bunlar yaygın nimetler Gün boyu teşekkür etme yollarıdır “Seni şefkat ile içimde ruhumu döndü için size, Allah'ı Yaşayan ve sonsuz minnettarım. Sadakati bol, bol miktarda. "...

Bar Mitzvah'ı veya Bat Mitzvah'ı kutluyor - kuklalar

Bar Mitzvah'ı veya Bat Mitzvah'ı kutluyor - kuklalar

Bar Mitzvah "emir oğlu" ve Bat Mitzvah "emirlerin kızı" anlamına gelir. "Yahudi geleneği, kızlar 12, erkek çocuklar 13 yaşına geldiklerinde toplulukta yeni sorumluluklar taşıdığını söylüyor. Geleneksel cemaatlerde, erkeklerin tefillin giymeye ve günlük dua etmeye başlamaları bekleniyor ...

Editörün Seçimi

Facebook'u kullanarak: Genel Online Gizlilik Yap ve Önerilenler

Facebook'u kullanarak: Genel Online Gizlilik Yap ve Önerilenler

Gizlilik gizliliğinizi korur Facebook kullanırken - veya evde, işte veya başka yerde herhangi bir zamanda çevrimiçi olursanız. Aşağıda, çevrimiçi güvenlik ve gizliliğinizin artmasına yardımcı olacak bazı kullanışlı ipuçları bulunmaktadır: Güçlü bir şifre seçin. Büyük harf ve küçük harf, rakam ve sembollerden oluşan bir karışım kullanın. Parolanızı hatırlayabiliyorsanız ... ...

Görsel Sosyal Pazarlama: Facebook'ta Bir Bağlantıyı Eşlik Eden Bir Resim Nasıl Seçilir

Görsel Sosyal Pazarlama: Facebook'ta Bir Bağlantıyı Eşlik Eden Bir Resim Nasıl Seçilir

Bir sosyal pazarlama durumu güncellemesinde bir web sayfasına bir bağlantı ekledikten sonra Facebook, paylaşılan bağlantıya eşlik edecek görüntüler için web sayfasında otomatik olarak arama yaparak daha görsel olarak çekici hale getirir. Bu ifade, kendi web sitenizden veya başka bir web sitesinden içerik paylaşsanız da geçerlidir. Sonrasında ...

Facebook'a Hoş Geldiniz - Facebook profil oluşturma sürecindeki üç adımdan sonra Kişisel Kimlik -adamlarınızı Onaylayın

Facebook'a Hoş Geldiniz - Facebook profil oluşturma sürecindeki üç adımdan sonra Kişisel Kimlik -adamlarınızı Onaylayın

Tamamlandığında (veya seçimlerinize göre atlandığında) sizi Facebook'a davet eden bir sayfaya geliyorsunuz; ekranın üst kısmındaki şeritte, kaydolma işlemini tamamlamak için e-postanıza gitmenizi öneren bir bildirim görüyorsunuz. Şimdi e-postanıza gidin ...

Editörün Seçimi

Photoshop Elements 10'daki Sıvılaştırma Filtresi ile Görüntüleri Bozgula - Yuvarlak Modeller

Photoshop Elements 10'daki Sıvılaştırma Filtresi ile Görüntüleri Bozgula - Yuvarlak Modeller

Photoshop Elements'taki Sıvılaştırma filtresi 10, bir filtreden çok daha fazladır. Sanki sıcak taffymiş gibi bir görüntüyü manipüle etmenize izin veren bir bozulma. Görüntünüzün etkileşimli olarak bükülmesini, çekilmesini, döndürülmesini, sıkışmasını ve şişirilmesini sağlayabilirsiniz. Görüntüyü gösterildiği gibi bir diyet üzerine bile koyabilirsiniz. Aslında ...

Dijital Fotoğrafınıza Balık Gözü Efekti Verin - AYDINLATMA

Dijital Fotoğrafınıza Balık Gözü Efekti Verin - AYDINLATMA

Balık gözü objektifleri fotoğrafçıların fotoğraf çekmesini sağlar 180 derecelik bir bozulma. Bir çok görüntü düzenleyicisinde (Photoshop Elements dahil) balık gözü görünümünü taklit edebilirsiniz. Fotoğrafınızı balık gözü lensi gibi çekilmiş gibi göstermek için:

HDR Fotoğrafçılık ve Doğa Manzarası - AYDINLATMA

HDR Fotoğrafçılık ve Doğa Manzarası - AYDINLATMA

HDR (high-definition range) fotoğraf makinesi olarak bilinen bir yöntem size dijital fotoğrafçılıkla mümkün olandan daha geniş bir renk yelpazesine ve tonale sahip peyzaj ve doğa görüntüleri yaratmak için. HDR fotoğrafçılık, güzel canlı renkler ve karanlık gölgeden en karanlık gölgeye kadar geniş bir dinamik ton dağılımı sergilemek için kullanılır ...