Note: The other languages of the website are Google-translated. Back to English

Excel'de bir dosyanın (çalışma kitabının) açık veya kapalı olup olmadığını hızlı bir şekilde nasıl kontrol edebilirim?

Excel günlük çalışması, çalışmak için aynı anda birden çok çalışma kitabı açarsınız, ancak bazen yüzlerce çalışma kitabı, belirli bir çalışma kitabının açık mı yoksa kapalı mı olduğunu hatırlamak için kafanızı karıştırabilir. Dosyaları tek tek kontrol etmenin geleneksel yönteminden vazgeçin, burada size bir çalışma kitabının açık veya kapalı olduğunu hızlı bir şekilde bulmanın püf noktalarını tanıtacağım.

VBA ile bir çalışma kitabının açık mı yoksa kapalı mı olduğunu kontrol edin

Kutools for Excel ile bir çalışma kitabının açık veya kapalı olup olmadığını kontrol edin iyi fikir3


VBA ile bir çalışma kitabının açık mı yoksa kapalı mı olduğunu kontrol edin

İşte belirli bir çalışma kitabının açık veya kapalı olup olmadığını kontrol etmek için çalıştırabileceğiniz bir VBA kodu.

1. Basın Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül ve sonra VBA'yı kopyalayıp yeni modül pencere.

VBA: Çalışma kitabının açık mı yoksa kapalı mı olduğunu kontrol edin

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. Ve tuşuna basın F5 Bu vba'yı çalıştırmak için anahtar ve belirli çalışma kitabının açık olup olmadığını size hatırlatmak için bir iletişim kutusu açılır.
doc bir dosyanın açık olup olmadığını kontrol edin 1     doc bir dosyanın açık olup olmadığını kontrol edin 2

Bahşiş: Yukarıdaki VBA'da "birleştirmek"Kontrol etmek istediğiniz çalışma kitabı adıdır, istediğiniz gibi yapabilirsiniz.


Kutools for Excel ile bir çalışma kitabının açık veya kapalı olup olmadığını kontrol edin

VBA'ya aşina değilseniz, bir çalışma kitabının açık olup olmadığını kontrol edebilirsiniz. Kutools for Excel, onun ile Navigasyon bölme, bölmenin çalışma kitabı listesindeki tüm açık çalışma kitaplarını net bir şekilde görüntülemenize yardımcı olur.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. tık Kutools > Navigasyon Gezinti bölmesini etkinleştirmek için. Ekran görüntüsüne bakın:
doc bir dosyanın açık olup olmadığını kontrol edin 3

2. Sonra tıklayın Çalışma Kitabı ve Sayfa gitmek için bölmeyi genişletme düğmesi Çalışma Kitabı ve Sayfa Bölüm. Ve tüm açık çalışma kitaplarını üst listede görüntüleyebilirsiniz. Ekran görüntüsüne bakın:
doc bir dosyanın açık olup olmadığını kontrol edin 4

İle Navigasyon bölmesi, listedeki çalışma kitapları veya sayfalar arasında hızlıca geçiş yapabilirsiniz.

Navigasyon hakkında daha fazla bilgi için burayı tıklayın.


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (5)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Mükemmel VBA, harika çalışıyor. Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Vay canına, süper VBA, basit ve işe yarıyor. Çok teşekkürler :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herkesin bildiğinden emin olmak istiyorum, "IsWorkBookOpen" işlevi yalnızca geçerli Excel örneğinde bir çalışma kitabının açık olup olmadığını anlayabilir. Açık birden fazla örneğiniz varsa, çalışma kitabının açık olduğundan (değil) emin olmak için bu kodu tek başına kullanarak her örnekte çalıştırmanız gerekir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hatırlattığın için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu koduma ekliyorum ama bazı sorunlar yaşıyorum ...

Bazı bilgileri aldığım bir çalışma kitabının zaten açık olup olmadığını kontrol etmek için ur işlevini kullanıyorum, açıksa, makro kullanıcıya çalışma kitabını kapatmasını ve makroyu yeniden başlatmasını söyleyerek, buraya kadar her şey yolunda, sorun, çalışma kitabını kapattıktan ve makroyu yeniden başlattıktan sonra, çalışma kitabının açık olmadığı halde açık olduğunu söylemeye devam ediyor, herhangi bir ipucu?


Kodu:


Alt Check_BKG()

wa = Hiçbir şey ayarla

Confirmação = MsgBox("Bir checagem de dados deseja gerçek mi?", vbYesNo + vbExclamation, "Aviso Macro")
Confirmação = vbNo ise Sub Exit

'------------------------------------------------- -------------------------------------------'
'/////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\'
'------------------------------------------------- -------------------------------------------'
Boole olarak xRet'i karart
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Eğer xRet ise
MsgBox "O arquivo EXSH0101 já está aberto, por lehinize, bir makro novamente'nin geçerli olduğu durumlara ilişkin bilgiler.", vbInformation, "ERRO EXSH0101"
'MsgBox "EXSH0101 dosyası zaten açık, lütfen makroyu yeniden başlatmadan önce kapatın.", vbInformation, "EXSH0101 HATASI"
Exit Sub
Eğer son
'------------------------------------------------- -------------------------------------------'
'///////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- -------------------------------------------'

Uygulama ile
.EnableEvents = Yanlış
.ScreenUpdating = Yanlış
İle bitmek

Abrir_Arquivos'u arayın

Setando_EXSH'yi arayın

Inserir_Formulas'ı arayın

Uygulama ile
.EnableEvents = True
.ScreenUpdating = Doğru
İle bitmek

wb.Sheets("Inserir").Activate

End Sub
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır