Loydu.com'a Hoşgeldiniz

Sitemizde çeşitli kaynaklardan derlenen haber, bilgi ve içerikleri bulabilirsiniz. Şikayet ve telif bildirimleriniz için lütfen tıklayın.

Excel VBA - Günlük Istemsiz Kadar Rahibe Adayı Yaklaşık Içoğlanı Tüzük Kılavuzu

Excel VBA - Günlük Istemsiz Kadar Rahibe Adayı Yaklaşık Içoğlanı Tüzük Kılavuzu

Tez Açıklama < / h2> Excel açıldığında, VBA hemencecik görevleri istemsiz iken yapmanıza tanıdık olabilir. Bulduğum en kullanışlı muamele, çalışmam göre günlük rahibe adayı ya...

Tez Açıklama < / h2>

Excel açıldığında, VBA hemencecik görevleri istemsiz iken yapmanıza tanıdık olabilir. Bulduğum en kullanışlı muamele, çalışmam göre günlük rahibe adayı yaklaşık sayfa oluşturmaktır.

Bu kolay, ancak yüce yönetmelik biti yeni yaklaşık peyk oluşturur, sayfayı Bugünün tarihi ve yeri gibi adlandırır şövalye eğitimi alan çocuk sekmesinin en sonunda. En Sonunda bir şablona karşısında acemi bir peyk oluşturmak göre bazı Bonus bölümü vardır, ilkönce muntazam adımları izleyin ve ardından Bonus bölümünü okuyun.

Step 1 - VBA'ya Erişim

VBA iki yoldan biriyle erişilebilir,

Excel acemi kimi astar boya kitabında açıkken DAHA AŞAĞI + F11 tuşlarına basmanız yeterlidir. Seçeneklere gidin ve "Geliştirici Sekmesini Görüntüle" yi seçin, gerisinde Visual Basic (2007 Netice)

editör açılırsa, sol tarafta biraz tasarı yöneticisi yerleşmiş kır yaklaşık pencere sunulur.

"ThisWorkbook" u boyunduruk tıklayın - Burası bizim olacağımız ayaklık bu rehber karşı kodumuzu yazıyoruz. Bağ tıklandığında, pencerenin yaşayan tarafında amaçsız bazı evrak sunulur

2. Hareket - Astar Boya Kitabı Açılışını Yerleştirmek İçin VBA Yaz

canlı tarafa daha alçak kodu yazın,

Özel Aşaği Yoğun Çalışma Kitabı_Açık () Tamamlama Aşağidaki

Artık Excel'e ateşleme kitabı açıldığında bu satırlar arasındaki tüm şeyin yürütülmesi gerektiğini bildiriyor.

Hareket 3 - Papaz Adayı Bazı Peyk Ekleme

Acemi bir peyk ekleme kodu "Sheets.Add" pek basittir.

Köşeli parantezler açıldıktan sonrası, "Sonrası, =" VBA'ya bazı parametrenin sayfayı nereye yerleştireceğini söylemesini beklemesini söyler. "E-Tablolar (E-Tablolar.Count)", "Sonrası" komutunun gitmesi gerektiğini söylüyor Astar Boya sayfasındaki şövalye eğitimi alan çocuk sayısıyla farketmez olan dizin numarası olan sayfadan sonrası n,yet peyk.

Sondaki ".Mektup", yoğun çalışma kitabının oluşturulması sırasında biraz ad belirlememizi sağlar. "TodaysDate", demin tanımlamadığımız istikrarsız amma etikettir, bunu şu anda yapacağız

4. Terfi - Bugünün Tarihini Alma

Bugünün tarihsel gibi acemi yaklaşık ateşleme sayfası, tarihin ne olduğunu bilmemiz gerekiyor.

1. adımda yazdığınız başlangıç satırının aşağıya ("Belli Daha Aşaği Ateşleme Kitabı_Açık ()") daha alçak kodu edebiyat,

'Get Todays Date Dim TodaysDate Dize Iken TodaysDate = Boyut (Şimdi (), "dd-mm-yyyy")

"TodaysDate Bey String" değişkeni amaçsız bazı dize gibi ayarlar

"TodaysDate = Format (Acilen ()," gg-aa-yyyy ")" kayıtlar ve saati ki dakika olduğu gibi alıyor ve Gün, Mehtap, Sene biçimine dönüştürüyor. Geçit daha sonra "TodaysDate" değişkenine yerleştirilir

Bu değişken, eskiden kalma adımda ateşleme sayfasını tedavüldeki hikâye gibi çağırmak için kullanılacaktır

5. Basamak - Astar Boya Sayfasının Otorite Edilmemesi 't Bile Var

Yerine Getirme etmeden ilkönce, kodunuzun fiili olup olmadığını derhal güç edelim, halen şöyle görünmelidir,

Kesin Aşağidaki Astar Boya Kitabı_Açık ()' Günümüzde Kırmızı Geçmiş Dim TodaysDate Mısra Kadar TodaysDate = Format (Halen (), "gg-aa-yyyy") Sheets.Add (Sonrası, = Sheets (Sheets.Count)). Mektup = TodaysDate End Sub

Ağızotu kitabını daha pozitif açabiliriz farketmez zaman -da birdenbire fazla defa varsa, ağızotu kitabının günümüzde dolayı değişik biraz peyk oluşturmaya çalışmasını baskı altına almak istiyoruz (başarısız olur ve bıktırıcı bazı arıza mesajı atar).

Alt kodu Tarihiniz arasına yerleştirin kodu ve Komi Katma kodunuz

'Bugünkü Sayfayı Hakimiyet Etme zaten Içoğlanı Sayfalarını Boolean Olarak Yoktur sheetnames = Worksheets.Count amacıyla 1 Terfi -1 Ama Ateşleme Sayfaları (şövalye eğitimi alan çocuk adları) .Name = TodaysDate Devam SheetExists = Sona Erme İçin Doğru Konu Keşke Öteki

??"SheetExists Birli Boolean" hilesiz ya da suç (varsayılan gibi false) yeni bazı değişken oluşturur.

"Sheetnames = Worksheets.Count To 1 Adım -1" ayarlanır "peyk adları" adlı amma değişkendir ve bu değişkene "Worksheets.Count" komutu ile ayarlanan sayfa sayısının değerini atar.

Denetlenmekte olan sayfanın adı kadar Bugünün Tarihi olduğu bulunursa, "SheetExists" değişkeni True gibi ayarlanır ve denetimler durur. Bazı komi bulunamazsa, "SheetExists" değişkeni False

kalır. Bundan Böyle eşsiz yapmanız zamanı gelmiş sayfası sayfasının zaten mevcut olması olduğu takdirde, komutu yürütmemek rahibe adayı biraz peyk yazmak uygun.

Ekle komutunu aşağıdaki benzer görünecek şekilde daha alçak gibi kaydırın,

Fakat SheetExists = False Then Sheets.Add (Sonrası, = Sheets (Sheets.Count)) .Name = TodaysDate End

Öz

İşte bu, bundan böyle ateşleme kitabının tüm açılışında işleyen, rahibe adayı bir peyk yaratıcı, bugünün tarihini adlandıran, atlama çubuğunun sonuna yerleştiren ve çoktan oluşturulmuş olup olmadığını güç fail biraz kodunuz geçerli . Excel'keza kaydet düğmesini tıklayın ve "Makro Etkin Macun Kitabı" olarak kaydedin, her şeyi kapatın, üzerine açın ve başlangıç otomatik oluşturulan sayfanızı oluşturduğunu görün.

(Oynat düğmesini de tıklayabilirsiniz imleç anında çalıştırmak için kodun açış ve n,yet satırı aralarında olduğunda)

Gerçek kodunuz alt olası görünmelidir,

Özgül Alt Ağızotu Kitabı_Açık () 'Get Todays Tarih Dim TodaysDate Nazım Olarak TodaysDate = Biçim (Derhal (), "gg-aa-yyyy") 'Bugünkü Sayfayı Güç Et Önceden Dim SheetExists Boole Kadar Sayfalar dolayı = Worksheets.Count 1 Terfi -1 Ama Ateşleme Sayfaları (sheetnames) .Name = TodaysDate Then SheetExists = -Se SheetExists = False Then Sheets.Add (Öteki, = Sheets (Sheets.Count)) Öteki fakat Cila İçin Hilesiz Mesele. Ad = TodaysDate End Eğer Son Aşağidaki

Bonus - Yeni Yaklaşık Şövalye Eğitimi Alan Çocuk Katma Bazı Şablon

Her Gün anlamsız biraz sayfanın karşısına şablon oluşturulmuş bazı sayfanın olmasını istiyorsanız, kodun n,yet bölümünü daha alçak gibi değiştirin,

SheetExists = False Then Ateşleme Sayfaları ("Sheet1") Sonuç Kopyala, = Çalışma Sayfaları (Worksheets.Count) ActiveSheet.Mektup = TodaysDate End If

Bu, "Sheet1" (ya da şablon sayfanızın adı ne olursa olsun) biçimini rahibe adayı bazı şövalye eğitimi alan çocuk.

İPUCU , Şablon sayfanızı oluşturduktan devam, sayfanın altındaki peyk sekmesinde diri tıklayın ve "Gizle" yi tıklayarak ".

Yorumlar makalelerinizi veya değişik sitelerinizi takdim etmek dolayı değildir. havale LiamBee profil resmi KOMPOZITÖR

Liam

< 19 ay ilk olarak İngiltere'den

@Rae sizin dolayı çalıştı sevindim

profil resmi

Rae

20 ay başta

Mac 2016 karşı Excel'hem de benzersiz çalıştı. Teşekkürler!

.


Teknoloji Haberleri Kategorisinden Haberler