Nie znam prostego sposobu. Niewłaściwe łącze należy wyszukać w formule. Do zapisu poszukiwanego łącza w odpowiednim miejscu należy dodać nawiasy kwadratowe. Po wyszukaniu określenie wiersza w którym wystąpiło łącze nie jest problemem. Weź pod uwagę czy to samo łącze występuje wielokrotnie.
napisał: VBAmator postów: 67
umieszczony: 1 marca 2019 11:04
edytowany: 1 marca 2019 11:07
Dziękuję, to jest poszukiwane rozwiązanie.
Dotyczy jednak całego arkusza.
Ścieżkę niepoprawną wrzucam użytkownikowi do edycji w UserFormie.
Jak to ubrać w For each in Range? Nie mogę sobie poradzić...
napisał: Trebor postów: 1209
umieszczony: 26 lutego 2019 18:21
Sprawdź czy takie coś będzie działać po wpisaniu w miejsce "C:\" prawidłowej ścieżki. Jak taką ścieżkę chciałbyś podawać - wskazywać, pisać z ręki?
Sub linki() Dim odniesienie
odniesienie = ActiveWorkbook.LinkSources(xlExcelLinks) IfNot IsEmpty(odniesienie) Then For i = 1 To UBound(odniesienie) If Len(Dir(odniesienie(1))) = 0 Then ActiveWorkbook.ChangeLink odniesienie(1), "C:\", Type:=xlExcelLinks Next i EndIf EndSub
napisał: VBAmator postów: 67
umieszczony: 25 lutego 2019 09:44
Nie. Ogólne odświeżenie łączy nie jest dla mnie rozwiązaniem.
Użytkownik często dodaje nowe wiersze przeciągając funkcję i nie zmienia np. nazwy pliku w ścieżce z braku czasu. Potem inna osoba przed wysłaniem pliku do przełożonego musi sprawdzić, które funkcje nie mają prawidłowej ścieżki i ją poprawić.
Moje makro pobudza każdą funkcję lecąc po jednej kolumnie. Funkcje z niepoprawną ścieżka dają efekt w postaci okienka z żądaniem pokazania ścieżki. To jet moment w którym chciałbym edytować ścieżkę jako string w formularzu i użytkownik może dokonać zmian (zwykle jest to zmiana części nazwy pliku, np ver 2 na ver3 itp.). Dalej makro zamienia ścieżkę na poprawną także w wielu innych komórkach w tym wierszu po offsecie i rusza dalej po kolumnie w poszukiwaniu kolejnej funkcji, która ma niepoprawną ścieżkę i procedura się powtarza.
Mój problem to: uzależnienie w/w czynności od sytuacji -> funkcja ma niepoprawną ścieżkę tudzież pojawiającego się okienka lub innych zdarzeń o których nie wiem.
Please, help...
napisał: Trebor postów: 1209
umieszczony: 24 lutego 2019 06:39
Ręcznie zrobisz z menu Dane, grupa Połączenia przycisk Edytuj łącza (tak jest w excel 2007).
Czy to jest wystarczające?
... a jednak zawracam głowę dalej...
Potrzebuję wychwycić lecąc po komórkach, które z nich mają w funkcji niepoprawną ścieżkę (a mają funkcję łączącą je z inną komórką w pliku znajdującym się w innej lokalizacji sieciowej, czyli zaczynają się ścieżką od IP począwszy)
Jeśli np. zmienię nazwę pliku źródłowego to ścieżka nie zadziała i pojawi się okno (jak w załączniku) wymuszające pokazanie prawidłowej ścieżki do pliku.
- Wymuszam to dla każdej komórki ActiveCell.Formula=ActiveCell.Formula - jest inny sposób analogiczny do (F2 i Enter) ?
- Muszę dalsze czynności uzależnić właśnie od opisanego powyżej wyskakującego okienka. Nie wiem czy to jest jakieś zdarzenie, czy można to jakoś inaczej złapać?
Pomożecie?
napisał: VBAmator postów: 67
umieszczony: 8 lutego 2019 08:31
Rozwiązaniem dla mnie okazało się zwykłe Activecell.Formula, które daje mi zapis funkcji w stringu.
Bardzo dziękuję za pomoc Trebor i przepraszam za zawracanie głowy banałami.
napisał: Trebor postów: 1209
umieszczony: 7 lutego 2019 20:44
edytowany: 7 lutego 2019 20:55
Czy użycie klawiszy Ctrl+` jest przez Ciebie poszukiwanym rozwiązaniem? Drugi znak znajdziesz na klawiszu z tyldą (nad Tabem).
Inaczej - dla komórki z formułą użyj formatu tekstowego. Następnie wejdź w jej edycję i wyjdź z edycji
napisał: VBAmator postów: 67
umieszczony: 7 lutego 2019 08:41
Witam.
W związku z tym, że pracuję na Excel 2010 potrzebuję rozwiązania analogicznego do funkcji Formula.Text
Czyli potrzebuję wyciągnąć zapis tekstowy funkcji widoczny w .DisplayFormulas = True ale bez kopiowania i wklejania z apostrofem.
wstecz 1 dalej
otwarty rozpoczął: VBAmator
postów: 9
zapyt na forum.jpg