Kategorie szkoleń | Egzaminy | Kontakt
  • 4
  • 0
  • 1

Czy istnieje w Excelu funkcja, za pomocą której można wstawić komentarz do komórki? Chodzi mi o funkcję, która np. działałaby w analogiczny, bądź podobny sposób, co funkcja HIPERŁĄCZE. Może to być także funkcja, która wstawiałaby komentarz do komórki pobierając go z innej komórki, która go już posiada. Wykluczam użycie VBA.

Paweł_Borowski_ckd0
  • Zapytał
  • @ Paweł_Borowski_ckd0 | 10.01.2018
    • 5
    • 0
    • 0
Zaloguj się aby zadać pytanie
Pokrewne

Odpowiedzi (4)

  • 0

Natywnymi funkcjami Excela się nie da, ale dopytam o VBA - wykluczasz definitywnie w jakiejkolwiek formie, czy może UDF (czyli własna funkcja) byłaby dopuszczalna? Końcowy użytkownik korzystałby z niej jak ze zwykłej funkcji i nawet by nie wiedział, że stoi za nią jakiś kod - wpisywałby po prostu =WSTAW_KOMENTARZ(A1;"tekst"):

Function WSTAW_KOMENTARZ(rng As Range, txt As String)

If Not rng.Comment Is Nothing Then rng.Comment.Delete
rng.AddComment txt

End Function

 

Mirosław_Janiak
  • Odpowiedział
  • @ Mirosław_Janiak | 11.01.2018
    • 1
    • 7
    • 1
  • 1

To ja bym jednak proponował inaczej. Funkcję należy wpisać w komórce, w której nie będzie sprawdzany, ani umieszczany komentarz. Funkcja sprawdzi czy w określonej komórce jest komentarz i jeśli jest, to zwróci wynik PRAWDA i skopiuje ten komentarz do wskazanej komórki. Jeśli w badanej komórce nie ma komentarza, to zwróci wynik FAŁSZ.

Function WSTAW_KOMENTARZ(KomDoc As Range, Zrodlo As Range) As Boolean

If Not Zrodlo.Comment Is Nothing Then
If Not KomDoc.Comment Is Nothing Then KomDoc.Comment.Delete
KomDoc.AddComment
KomDoc.Comment.Text Zrodlo.Comment.Text
WSTAW_KOMENTARZ = True
Else
WSTAW_KOMENTARZ = False
End If

End Function

 

 

Tomasz_Kasprzycki
  • Odpowiedział
  • @ Tomasz_Kasprzycki | 11.01.2018
    • 2
    • 4
    • 8
Komentarze
Dzień dobry! Jak zmodyfikować Pański kod, aby VBA umieszczało jako treść komentarza zawartość wskazanej komórki (a nie jej komentarz, jak jest obecnie)?
Skomentował : @ Marek_Bas ,25.05.2020
  • 0
  • 0
  • 0
  • 0

Dzień dobry! Jak zmodyfikować kod, aby VBA umieszczało jako treść komentarza zawartość wskazanej komórki (a nie jej komentarz, jak jest obecnie)?

Marek_Bas
  • Odpowiedział
  • @ Marek_Bas | 25.05.2020
    • 0
    • 0
    • 0
Komentarze
Czy to o to chodziło?
Skomentował : @ Tomasz_Kasprzycki ,29.05.2020
  • 2
  • 4
  • 8
  • 0

Proponuję tak:

Function WSTAW_KOMENTARZ(KomDoc As Range, Zrodlo As Range) As Boolean

If Not Zrodlo.Comment Is Nothing Then

    If Not KomDoc.Comment Is Nothing Then KomDoc.Comment.Delete
    KomDoc.AddComment
    KomDoc.Comment.Text Zrodlo.Value
    WSTAW_KOMENTARZ = True

Else

    WSTAW_KOMENTARZ = False

End If

End Function

 

Tomasz_Kasprzycki
  • Odpowiedział
  • @ Tomasz_Kasprzycki | 25.05.2020
    • 2
    • 4
    • 8