Print side | Luk vindue

Søg og vælg

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=724
Udskrevet den: 21.Maj.2024 kl. 02:41


Emne: Søg og vælg
Besked fra: finn.lauridsen
Emne: Søg og vælg
Posteringsdato: 25.Mar.2012 kl. 12:12
Kan man i excel søge og få vist en bestemt tekst, når man søger i kommentarer
således at kommentaren åbner sig når den er fundet


Svar:
Besked fra: excelent
Posteringsdato: 25.Mar.2012 kl. 17:45
prøv:
Sub FindKommentar()
hvad = Application.InputBox("", "Find hvad")
Selection.SpecialCells(xlCellTypeComments).Select
For Each c In Selection
If c.Comment.Text Like "*" & hvad & "*" Then c.Comment.Visible = True
Next
End Sub


-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: rassten
Posteringsdato: 25.Mar.2012 kl. 18:56
Eller

Sub d_test()
' skjuler allerede synlige kommentar
For i = 1 To ActiveSheet.Comments.Count
    ActiveSheet.Comments(i).Visible = False
Next

' vis kommentar som indeholder søge tekst
b = InputBox("Skriv den tekst som skal søges", "Søg i kommentar")
For i = 1 To ActiveSheet.Comments.Count
    a = ActiveSheet.Comments(i).Text
    If InStr(UCase(a), UCase(b)) > 0 Then
        ActiveSheet.Comments(i).Visible = True
    End If
Next

End Sub



-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: finn.lauridsen
Posteringsdato: 25.Mar.2012 kl. 19:01
Jeg koblede makroen til en knap , den finder fint de kommentarer jeg søger og åbner dem
men nu kan jeg ikke komme ud af det igen, hvis jeg lader søgeteksten forblive blank , så åbner den bare alle kommentarer
Det var jo ikke meningen, hvad gør jeg ??

Besked fra: rassten
Posteringsdato: 25.Mar.2012 kl. 19:11 

b = InputBox("Skriv den tekst som skal søges", "Søg i kommentar")
       If b = "" Then Exit Sub
For i = 1 To ActiveSheet.Comments.Count


Nu vil jeg ikke rigtig blande mig i Excelents kode, men det er nok samme metode


-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: excelent
Posteringsdato: 25.Mar.2012 kl. 19:43
yep If hvad = "" Then Exit Sub
 
Det skyldes jo nok at hverken rassten eller jeg havde fantasi til at tro at nogen ville søge efter ingenting Wink


-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!


Print side | Luk vindue