Excel'de başka bir çalışma kitabını açmak için bir düğme nasıl uygulanır?
Bir çalışma sayfasında, başka bir çalışma kitabını bağlamak için bir köprü ekleyebiliriz, böylece onu hızlı ve kolay bir şekilde açabiliriz. Ancak, aktif çalışma kitabı aracılığıyla başka bir çalışma kitabını açmak için bir düğme oluşturmayı hiç denediniz mi?
VBA kodu ile başka bir çalışma kitabını açmak için bir düğme uygulayın
VBA kodu ile başka bir çalışma kitabını açmak için bir düğme uygulayın
Excel'de bir şekil düğmesi ekleyebilir ve ardından ona bir kod bağlayabiliriz. Bu işi aşağıdaki adımlarla çözebilirsiniz:
1. tıklayın Ekle > Şekiller > Dikdörtgen, ekran görüntüsüne bakın:
2. Sonra bir şekil düğmesi çizmek için fareyi sürükleyin ve ihtiyacınıza göre biçimlendirin, ekran görüntüsüne bakın:
3. Ve sonra ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
4. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Belirli bir çalışma kitabını açın:
Sub Openworkbook_Click()
'Updateby Extendoffice
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
Err.Clear
Else
MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
End If
End Sub
not: Yukarıdaki kodda, dosya yolunu ve adını değiştirmelisiniz C: \ Kullanıcılar \ DT168 \ Masaüstü \ test \ Book2.xlsx Bağlanmak istediğiniz çalışma kitabının gerçek yoluna.
5. Ardından bu kod penceresini kaydedip kapatın, oluşturduğunuz şekil düğmesine sağ tıklayın, seçin Makro Ata bağlam menüsünden, açılır pencerede Makro Ata iletişim kutusu, makro adını tıklayın Openworkbook_Click şimdi eklediniz ve tıklayın OK düğmesi, ekran görüntüsüne bakın:
6. Şimdi, şekil düğmesini tıkladığınızda:
(1.) Çalışma kitabı yoksa, aşağıdaki istem kutusunu alırsınız:
(2.) Çalışma kitabı varsa, bir kerede açılır ve size şunu hatırlatmak için bir komut kutusu da açılır:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!