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 Ü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!
