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

Excel'de hücre aralığını veya hücre değerlerini görüntülemek için ileti kutusu nasıl açılır?

Bazı durumlarda, seçtiğiniz aralık kapsamını kendinize hatırlatmanız veya belirtilen aralığın tüm değerlerini görüntülemeniz gerekebilir. Bu makalede, seçili hücre referansını veya ayrıntılı hücre değerlerini Excel'de görüntülemek için ileti kutusunun nasıl açılacağına ilişkin yöntemler bulacaksınız.

VBA kodu ile hücre aralığını görüntülemek için mesaj kutusu açılır
VBA kodu ile belirtilen aralığın değerlerini görüntülemek için mesaj kutusu açılır


VBA kodu ile hücre aralığını görüntülemek için mesaj kutusu açılır

Aşağıdaki VBA kodu, seçtiğiniz aralık kapsamını açılan bir mesaj kutusunda görüntülemenize yardımcı olur. Lütfen aşağıdaki işlemleri yapın.

1. Çalışma sayfasındaki hücre aralığını seçtikten sonra, Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA kodu: Hücre aralığını görüntülemek için mesaj kutusu

Sub Test()
    On Error Resume Next
    MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ardından, içinde görüntülenen seçili hücrelerin aralık kapsamıyla bir mesaj kutusu açılır.


VBA kodu ile belirtilen aralığın değerlerini görüntülemek için mesaj kutusu açılır

A1: D13 aralığının tüm hücre değerlerini aşağıda gösterilen ekran görüntüsü gibi görüntülemek için bir mesaj kutusu açmanız gerektiğini varsayarsak. Lütfen aşağıdaki VBA kodunu çalıştırın.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA kodu: Excel'de seçili hücre değerlerini görüntülemek için mesaj kutusu

Sub mesage()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xStr As String
    Dim xRow As Long
    Dim xCol As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    For xRow = 1 To xRg.Rows.Count
        For xCol = 1 To xRg.Columns.Count
            xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
        Next
        xStr = xStr & vbCrLf
    Next
    MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub

3. Tuşuna basın. F5 açılır pencerede kodu çalıştırmak için anahtar Kutools for Excel iletişim kutusu, lütfen bir mesaj kutusunda hücre değerlerini görüntülemeniz gereken aralığı seçin ve ardından OK buton. Ekran görüntüsüne bakın:

Ardından, aşağıda gösterilen ekran görüntüsü gibi bir mesaj kutusu alacaksınız ve belirtilen aralığın tüm hücre değerleri mesaj kutusunda görüntülenir.


İlgili Makaleler:


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 (2)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu çok yardımcı! VBA'da aralık değerlerinin görüntülenmesindeki sütunları biçimlendirmenin bir yolu var mı? Örneğinizde de tüm sütunların aynı verileri göstermediğini görüyorum. Ad sütunu uzundur ve tarih sütununuzu sağa doğru iter.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bana puedes ayudar? Necesito hacer la selección que se hace con este cuadro, pero al seleccionarlo quiero copiarlo ve pegarlo en otra hoja.
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