Forum społeczności użytkowników OpenOffice i LibreOffice

: **pn wrz 08, 2014 10:26 am**

Witam. Proszę o pomoc w konwersji makra
Makro ma przełączać mnie na wskazany (wpisany w okienku) arkusz.

Sub ListujArkusze()
komunikat = "Wprowadź nazwę arkusza"
 Do
 mySht = InputBox(komunikat, "Wybór Arkusza", "Arkusz1")
 If mySht = "" Then Exit Sub
 For i = 1 To ActiveWorkbook.Sheets.Count
 If UCase(mySht) = UCase(Sheets(i).Name) Then Exit Do
 Next i
 
 komunikat = "Wprowadź poprawną nazwę arkusza"
 Loop
 Sheets(mySht).Select
End Sub

Uruchomienie makra powoduje wywołanie okienka, dla którego jednak wprowadzenie nazwy arkusza powoduje podświetlenie linii "For i = 1 To ActiveWorkbook.Sheets.Count" oraz wywala komunikat: Błąd pracy BASICA... Nie ustawiono zmiennej obiektu.
Makro "chodzi" w Excelu.

: **pn wrz 08, 2014 11:21 pm**

Kod: Zaznacz cały

Sub ListujArkusze()
	komunikat = "Wprowadź nazwę arkusza"
	Do
		mySht = InputBox(komunikat, "Wybór Arkusza", "Arkusz1")
		If mySht = "" Then Exit Sub
			For i = 0 To thisComponent.Sheets.Count - 1
				If UCase(mySht) = UCase(thisComponent.Sheets.getByIndex(i).getName) Then Exit Do
    		Next i
    	komunikat = "Wprowadź poprawną nazwę arkusza"
    Loop
    thisComponent.getCurrentController.setActiveSheet(thisComponent.Sheets.getByName(mySht)
End Sub

AndrzejSz pisze:Makro "chodzi" w Excelu

Teraz makro nie chodzi w Excelu

: **wt wrz 09, 2014 12:54 pm**

Dziękuję Ci pięknie.
Teraz wszystko chodzi idealnie. Problemem było szybkie przełączanie się pomiędzy arkuszami, których jest ponad 300 a których nazwa jest znana.
Jeszcze raz dziękuję i pozdrawiam

Forum społeczności użytkowników OpenOffice i LibreOffice

konwersja makra z excela. Proszę o pomoc

konwersja makra z excela. Proszę o pomoc

Re: konwersja makra z excela. Proszę o pomoc

Re: konwersja makra z excela. Proszę o pomoc