Excel'de birden çok hücreye hızlı bir şekilde yorum nasıl eklenir?
Bir çalışma sayfasında, bir hücreye yorum eklemek çok kolaydır, ancak aynı yorumu aynı anda birden çok hücreye eklemek istediğinizde nasıl yapabilirsiniz?
Özel Yapıştır özelliğiyle birden çok hücreye yorum ekleyin
VBA kodu ile birden çok hücreye yorum ekleyin
Özel Yapıştır özelliğiyle birden çok hücreye yorum ekleyin
Excel'de aynı anda birden çok yorum eklemenin bir yolu yoktur. Bununla birlikte, bir yorumu birden çok hücreye aşağıdaki gibi kopyalayabilirsiniz:
1. Yorumunuzu bir hücreye ekleyin.
2. Yorum hücresini seçin ve Ctrl + C tuşlarını kullanarak kopyalayın.
3. Ardından toplu yorum eklemek istediğiniz aralığı seçin ve sağ tıklayın, seçin Special yapıştırmak > Special yapıştırmak sağ tıklama menüsünden. Ekran görüntüsüne bakın:
4. içinde Special yapıştırmak iletişim kutusunda Yorumlar seçeneğini ve ardından OK buton. Ekran görüntüsüne bakın:
Ardından, seçilen tüm hücrelere hemen aynı yorumlar eklenir.
not: Bu yöntem, seçilen tüm hücrelere aynı yorumları ekleyecektir. Aynı yorumları yalnızca filtrelenmiş bir listedeki görünür hücrelere eklemek istiyorsanız, lütfen aşağıdaki VBA yöntemini deneyin.
VBA kodu ile birden çok hücreye yorum ekleyin
Aşağıda gösterilen ekran görüntüsü gibi filtrelenmiş bir listeniz olduğunu varsayarsak. Ve sadece görünen tüm hücrelere toplu olarak yorum eklemek istiyorsunuz. Lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını birlikte açarak Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Mocrosoft Visual Basic pencere, lütfen tıklayın Ekle > modülve aşağıdaki kodu Modüle girin:
VBA: Birden çok hücreye toplu eylemsiz yorum (yalnızca filtrelenmiş listede görünen hücreler)
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. İlk patlamada Kutools for Excel iletişim kutusunda, lütfen yorum eklemek istediğiniz filtrelenmiş aralığı seçin ve ardından OK buton. Ekran görüntüsüne bakın:
4. Sonra başka Kutools for Excel iletişim kutusu açılır, lütfen yorumunuzu metin kutusuna girin ve ardından OK düğmesine basın.
Şimdi yorumlar, yalnızca aşağıda gösterilen ekran görüntüsü gibi seçilen filtrelenmiş listedeki tüm görünür hücrelere eklenir:
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!