Excel'de mesaj kutusunda Aralık seçimi veya hücre değerleri nasıl görüntülenir?
Bazı durumlarda, seçtiğiniz aralığın kapsamını hatırlamanız veya Sınırlı Aralık değerlerinin tamamını görüntülemeniz gerekebilir. Bu makalede, Excel’de seçili hücre başvurusunu ya da ayrıntılı hücre değerlerini göstermek için nasıl mesaj kutusu açacağınızı öğreneceksiniz.
Hücre aralığını VBA koduyla mesaj kutusunda görüntüleme
Sınırlı aralık değerlerini VBA koduyla mesaj kutusunda görüntüleme
Hücre aralığını VBA koduyla mesaj kutusunda görüntüleme
Aşağıdaki VBA kodu, seçtiğiniz aralığı bir mesaj kutusunda görüntülemenizi sağlar. Lütfen aşağıdaki adımları uygulayın.
1. Çalışma sayfasında bir hücre aralığı seçtikten sonra, Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın. 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üleyen mesaj kutusu
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub3. Kodu çalıştırmak için F5 tuşuna basın. Ardından, seçili hücrelerin aralık kapsamını içeren bir mesaj kutusu açılır.
Sınırlı aralık değerlerini VBA koduyla mesaj kutusunda görüntüleme
A1:D13 aralığındaki tüm hücre değerlerini aşağıdaki ekran görüntüsünde gösterildiği gibi bir mesaj kutusunda görüntülemek istediğinizi varsayalım. Aşağıdaki VBA kodunu çalıştırın.
1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applicationspenceresinde,Ekle>Modülseçeneğine tıklayın. 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üleyen mesaj kutusu
Sub message()
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. Kodu çalıştırmak için F5 tuşuna basın. Açılan Kutools for Excel iletişim kutusunda, lütfen mesaj kutusunda hücre değerlerini görüntülemek istediğiniz aralığı seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
Daha sonra aşağıdaki ekran görüntüsünde gösterildiği gibi bir mesaj kutusu görüntülenecek ve Sınırlı Aralık değerlerinin tamamı bu kutuda listelenecektir.
İlgili makaleler:
- Excel'de belirli bir süre geçtikten sonra otomatik olarak kapanan bir mesaj kutusu zamanlayıcısı nasıl oluşturulur?
- Excel'de belirli bir hücreye tıklandığında nasıl mesaj kutusu açılabilir?
- Excel'de mesaj kutusundaki metin nasıl kopyalanır?
- Excel'de belirtilen bir çalışma sayfası etkinleştirildiğinde veya açıldığında nasıl mesaj kutusu açılabilir?
- Excel'de bir aralıkta yer alan hücre değerleri değiştiğinde nasıl mesaj kutusu açılabilir?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar