VBA Simple Afficher/Masquer les Commentaires Excel problèmes

Ce qui me donne de façon plus mal qu'il ne le devrait.

J'ai des commentaires sur une feuille de calcul excel. J'ai un bouton. Lorsqu'un utilisateur clique sur le bouton, les commentaires ne montrent. Quand ils cliquez sur nouveau, les commentaires devraient disparaître. C'est le code que j'utilise - ils à la fois travailler de façon indépendante, mais quand je l'ai mis dans un if then Else, j'ai des erreurs peu importe ce que j'essaie:

Sub showcomments()

If Comments <> "Visible" Then Application.DisplayCommentIndicator = xlCommentAndIndicator
Else: Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If

End Sub

J'ai essayé toutes les variantes de l'espacement, l'indentation, etc. J'ai essayé d'autre si les commentaires = visible; rien ne semble fonctionner pour ce qui devrait être une tâche simple. Habituellement, je reçois l'erreur "d'autre sans s'" malgré le fait qu'il est là.

Merci 🙂

  • C'est pour un tableau de bord j'ai créé donc je vais essayer de faire simple et la plus propre possible.
InformationsquelleAutor Adam | 2013-09-25
  1. 3

    Essayez ceci:

       Sub showcomments()
   Comments = 1
   For Each MyComments In ActiveSheet.Comments
       If MyComments.Visible = True Then
           Comments = 0
       End If
   Next
   If Comments = 1 Then
       Application.DisplayCommentIndicator = xlCommentAndIndicator
   Else
       Application.DisplayCommentIndicator = xlCommentIndicatorOnly
   End If
End Sub
    • Cela fonctionne, merci! Maintenant, je vais essayer de comprendre pourquoi 🙂
    InformationsquelleAutor Jair Batista
  2. 3

    A été de vouloir faire cela dans Excel moi-même. Si je ne me trompe pas, cela fonctionne parfaitement bien pour ce que vous voulez et ne nécessite aucune boucle ou extra variables globales...

    Sub showcomments()
  If Application.DisplayCommentIndicator = xlCommentIndicatorOnly Then
    Application.DisplayCommentIndicator = xlCommentAndIndicator
  Else
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
  End If
End Sub
    • ..cela fonctionne parfaitement pour moi sur Win10/MS Office 2010! Thx!
    InformationsquelleAutor ProlificSwan
  3. 0

    Cette méthode utilise une variable globale et ne pas avoir à parcourir l'ensemble de vos commentaires.

    Public comments As Integer

Sub showcomments()
 If comments = 1 Then
   Application.DisplayCommentIndicator = xlCommentAndIndicator
   comments = 0
  Else
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    comments = 1
  End If
End Sub
    • Celui-ci travaille trop, merci! Vais essayer et de comparer les deux qui a travaillé avec le mien et de comprendre ce qui s'est passé.
    InformationsquelleAutor Portland Runner