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 Sub3. 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 Sub3. 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:
- Excel'de belirli bir süre sonra ileti kutusunu otomatik olarak kapatmak için bir ileti kutusu zamanlayıcısı nasıl oluşturulur?
- Excel'de belirli bir hücreye tıklandığında mesaj kutusu nasıl açılır?
- Excel'de mesaj kutusundan metin nasıl kopyalanır?
- Excel'de belirli bir çalışma sayfasını etkinleştirdikten / açtıktan sonra bir mesaj kutusu nasıl açılır?
- Excel'deki bir aralık içinde hücre değeri değişirse ileti kutusu nasıl açılır?
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.
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!
