konwersja makra z excela. Proszę o pomoc

Makropolecenia i funkcje w języku Basic

konwersja makra z excela. Proszę o pomoc

Postprzez AndrzejSz » 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.
Kod: Zaznacz cały   Rozszerz widokZwiń widok
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.
OpenOffice 3.1 na Windows XP
AndrzejSz
 
Posty: 2
Dołączył(a): Pn wrz 08, 2014 10:17 am

Re: konwersja makra z excela. Proszę o pomoc

Postprzez belstar » Pn wrz 08, 2014 11:21 pm

Kod: Zaznacz cały   Rozszerz widokZwiń widok
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 napisał(a):Makro "chodzi" w Excelu

Teraz makro nie chodzi w Excelu
LibreOffice 5.1.2.2 Ubuntu 16 LTS
belstar
 
Posty: 648
Dołączył(a): Cz mar 17, 2011 9:08 am

Re: konwersja makra z excela. Proszę o pomoc

Postprzez AndrzejSz » 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
OpenOffice 3.1 na Windows XP
AndrzejSz
 
Posty: 2
Dołączył(a): Pn wrz 08, 2014 10:17 am


Powrót do Basic

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 1 gość

cron