Judith bu haftanın Excel sorusunu yayınladı.
Günlük olarak bir dosya içe aktarmam gerekiyor. Dosyayı her gün mevcut bir Excel çalışma kitabına eklemek ve çalışma sayfasının g / a / y olarak adlandırılmasını istiyorum.
Kısa bir görsel temel makro, bunu basit bir görev haline getirecektir. Bir problem - bir sayfanın sekme adı eğik çizgi içeremez. Dolayısıyla çözüm, her günün sayfasını "Ekim 03 1999" gibi bir adla yeniden adlandıracak.
Çözüm, mevcut kitabınıza bir üst çalışma sayfası eklemeyi içerir. "Menü" adı verilen bu sayfa, gerektiğinde bu görevi başka bir personele verebilmeniz için basit bir kullanıcı arabirimi sağlar. Üst sayfa, kullanıcının içe aktarılacak dosyanın yol adını ve dosya adını belirleyebileceği hücreleri içerir. Başka bir sistem tarafından oluşturulan bir dosyayı içe aktarıyorsanız, bu alanlar günden güne değişmeyecektir. Menü sayfası ayrıca geçerli tarihi bölü çizgisiz olarak biçimlendirilmiş bir hücre içerir. Kullanıcı için bu hücreyi otomatik olarak dolduracak otomatik açılan bir makro ekleyeceğim, ancak dosyayı içe aktarmak için düğmeye tıklamadan önce her zaman değiştirmekte özgürdürler. Son olarak, Menü sayfasında kullanıcının tıklayacağı büyük bir düğme bulunur.Bu düğme, makroyu, Menü'de adı geçen dosyayı belirtilen sekme adıyla geçerli kitaba aktarmak için çağırır.
Yalnızca tek bir sayfayla yeni bir çalışma kitabı açın. Sayfa sekmesine çift tıklayın ve "Menü" adlı sayfa için bir ad yazın. A1 hücresine güzel bir başlık ekleyin. Cells C3: C5'te metni solda gösterildiği gibi ekleyin. Hücre D3'te, dosyanın her gün bulunduğu dizinin yol adını girin. D4 hücresine dosyanın adını ekleyin. D5'i boş bırakın. Makro oluşturulduktan sonra düğmeyi ayarlamak daha kolaydır, bu yüzden onu daha sonra bırakacağız.
- Makro Düzenleyiciyi alt = "" + F11 ile başlatın
- Ekle - Modül'ü seçin
- Aşağıdaki metni makro düzenleyiciye kopyalayın
Sub Auto_Open() ' This macro will put today's date as the default new tab name Sheets("Menu").Select Range("D5").Select Selection.Formula = "=text(now(),""mmm dd yyyy"")" Selection.Copy Selection.PasteSpecial Paste:=xlValues Application.CutCopyMode = False Selection.Columns.AutoFit Range("D8").Value = "" End Sub Sub GetFile() ' This macro will import a file into this workbook ' Copyright 1999 www.MrExcel.com Sheets("Menu").Select PathName = Range("D3").Value Filename = Range("D4").Value TabName = Range("D5").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Filename ActiveSheet.Name = TabName Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1) Windows(Filename).Activate ActiveWorkbook.Close SaveChanges:=False Windows(ControlFile).Activate Sheets("Menu").Select Range("D8").Select ActiveCell.Value = "Completed" Range("D9").Select End SubŞimdi, Excel'e geri dönün ve Menü sayfasına bir düğme ekleyin.
Çalışma Sayfasına Düğme Nasıl Eklenir
- Görünüm - Araç Çubukları - Formlar'ı seçerek Formlar Araç Çubuğunu gösterin
- Araç çubuğundan Düğme aracını seçin
- Alt = "" tuşunu basılı tutun, B8'in üst köşesinden C9 hücresine sürükleyin
- Makro Ata iletişim kutusundan GetFile adlı makromuzu seçin ve Tamam'a tıklayın.
- Düğme halen seçiliyken, düğmedeki metni seçmek için tıklayıp sürükleyebilirsiniz. Bu metni "İşlem!" İle değiştirin. veya kendi seçtiğiniz herhangi bir metin
Artık eksiksiz başvurunuz var. Dosyayı uygun bir yere kaydedin. Dosyanızı D3: D4 hücrelerinde doğru bilgilerle kurduğunuzda, günlük prosedür aşağıdaki gibi olacaktır:
- Az önce oluşturduğumuz dosyayı açın
- D5 hücresinde gösterilen tarihin uygun olduğunu doğrulayın.
- Büyük düğmeyi tıklayın.
- Dosya 'yı kaydet
Makroyu değiştirmenin bazı yolları şunlardır:
- Sekmenin önceki günün tarihiyle adlandırılmasını istiyorsanız, makroda "ŞİMDİ ()" den sonra "-1" ekleyin.
- İçe aktarılacak dosyanın birden fazla sayfası varsa ve hedef sayfa üstte olmayabilir, o zaman Sayfaları ekleyin ("sayfa adı") Yukarıdaki Dosya.Aç satırından sonra seçin.
