Makro Excel'de yorum değişikliği için aralık seçmiyor

Excel 2010 için, bir hücreyi veya birleştirilmiş hücreler grubunu seçip yorumu kaldır ve bir şablon ekleyecek bir makro yazmaya çalışıyorum.Makro Excel'de yorum değişikliği için aralık seçmiyor

Sub commentstripe() 
' 
' commentstripe Macro 
' 
' 
    Dim myRange As Range 
    Set myRange = Range(Selection.Address) 
    myRange.Comment.Shape.TextFrame.Characters.Font.Bold = False 
    With myRange.Interior 
     .Pattern = xlLightUp 
     .PatternColorIndex = xlAutomatic 
     .PatternTintAndShade = 0 
    End With 
    ActiveWorkbook.Save 
End Sub

myRange.comment satırında asılı görünüyor ancak nedenini anlayamıyorum. Bir kısayoldan çalıştırıyorum Ctrl + ÜstKrktr + A. Herhangi bir tavsiye takdir edilecektir.

Selamlar, Sandy

kaynak

2016-03-28 Sandy

yarayıp yaramadığına bakın. – Sandy

Çalışma zamanı hatası '91' alıyorum: Nesne değişkeni veya Blok değişkeni ayarlanmamış. Bununla biraz daha fazla uğraşırken, tek hücreler üzerinde çalışır, ancak birleştirilmiş hücrelerden oluşan tek bir hücre değildir. – Sandy

Yoksa hücre işleme yorumların iyi bir yolu için aşağıdaki hiçbir comment.See sahip olduğunu olabilir: Sub CommentAdd() Dim cmt Yorum olarak Dim cmtText As String Set cmt = ActiveCell.Comment ise cmt hiçbir şey Seti cmt cmt.Shape.TextFrame ile .Characters.Font.FontStyle.Bold = False sonu –

o hücrede hiçbir açıklama varsa, o bir hata atar gerçeği dışında ... asmak neden görmüyorum. Ayrıca, bu yeni bir çalışma kitabıysa ve bunu yalnızca kaydederseniz, bunun bir excel dosyası olduğunu, makro etkin bir excel dosyası olmadığını belirten bir uyarı verir. Sadece senin bilmen için.

Kaydetme çizgisini yorumladım ve her şey mükemmel çalıştı.

DÜZENLEME: Bu (pop-up kutusunda) Bu Visual Basic Düzenleyicisi'nde yaptığımız

Sub commentstripe() 

Dim myRange As Range 
Set myRange = Selection 
myRange.Cells(1, 1).Comment.Shape.TextFrame.Characters.Font.Bold = False 
With myRange.Interior 
    .Pattern = xlLightUp 
    .PatternColorIndex = xlAutomatic 
    .PatternTintAndShade = 0 
End With 
ActiveWorkbook.Save 
End Sub

kaynak

2016-03-28 21:08:07

Tek hücrelerle çalışıyor gibi görünüyor, ancak birleştirilmiş hücrelerden oluşan tek bir hücre değil. Tek hücreler, hem sonunda hem de kaydetmeden çalışıyorlar. Düzenlendi: Her iki hücre türünde de bir yorumu vardır. – Sandy

Sadece bir güncelleme denedim, lütfen cevabımdaki düzenlemeye bakın. –

Maalesef bu, tek hücreler veya birleştirilmiş hücreler üzerinde çalışmıyor gibi görünüyor. Çalışma zamanı hatası '424' verir: Nesne gerekli. – Sandy

Makro Excel'de yorum değişikliği için aralık seçmiyor

cevap

İlgili konular