vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest czwartek, 31 października 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Typ kontrolki


otwartyotwarty rozpoczął: grzegorz0379 postów: 4



napisał: grzegorz0379
postów: 76


umieszczony:
30 kwietnia 2013
13:58

  
Żeby nie zastanawiać się co ma jaki numer zrobiłem coś takiego:)

Sub UstalTypKontrolki(TekstTypuKontrolki As String, TypKontrolki As MsoControlType)
Select Case TekstTypuKontrolki
Case "msoControlPopup"
TypKontrolki = msoControlPopup
Case "msoControlButton"
TypKontrolki = msoControlButton
End Select
End Sub
napisał: grzegorz0379
postów: 76


umieszczony:
30 kwietnia 2013
13:43

  
Dzięki. Tak myślałem, żeby zrobić to funkcją konwertującą ale miałem nadzieję, że da się prościej:(

I tak serdeczne dzięki.

PS Strasznie mi brakowało forum po zniknięciu vbamani. I w sumie trafiłem tutaj przypadkowo. Żadnej informacji w necie nie można było znaleźć, że to funkcjonuje teraz pod innym adresem.
napisał: admin
postów: 613


umieszczony:
30 kwietnia 2013
13:27

  
Cześć,

msoControlButtonPopup to nie jest ciąg tekstowy. To stała, liczba typu Long o wartości 12.

Wiec:
1. albo wpiszesz w komórkę odpowiednie wartości liczbowe, odpowiadające poszczególnym kontrolkom
2. albo napiszesz funkcje, która konwertowałaby ciągi tekstowe typu msoControlButtonPopup na liczby,

Dim TypKontrolki As MsoControlType
TypKontrolki = ControlNumber(Application.ActiveSheet.Range("a1").Value)

Function ControlNumber(strName As String ) as Long

   Select Case strName
       Case "msoControlButtonPopup"
          ControlNumber=12
          .
          .
          .
   End Select

End Function


Cytat:
Witam,

Chciałbym tworzyć menu z automatu na podstawie poszczególnych pozycji zdefiniowanych w arkuszu. Jedną ze zdefiniowanych właściwości jest typ kontrolki. Nie chciałbym definiować tego w procedurze

Dim TypKontrolki As MsoControlType
TypKontrolki = msoControlButtonPopup

tylko pobrać typ kontrolki z arkusza

Dim TypKontrolki As MsoControlType
TypKontrolki = Application.ActiveSheet.Range("a1")

gdzie w komórce a1 mam wpisane msoControlButtonPopup

I wyskakuje mi błąd. Proszę o pomoc.
napisał: grzegorz0379
postów: 76


umieszczony:
30 kwietnia 2013
10:11

  
Witam,

Chciałbym tworzyć menu z automatu na podstawie poszczególnych pozycji zdefiniowanych w arkuszu. Jedną ze zdefiniowanych właściwości jest typ kontrolki. Nie chciałbym definiować tego w procedurze

Dim TypKontrolki As MsoControlType
TypKontrolki = msoControlButtonPopup

tylko pobrać typ kontrolki z arkusza

Dim TypKontrolki As MsoControlType
TypKontrolki = Application.ActiveSheet.Range("a1")

gdzie w komórce a1 mam wpisane msoControlButtonPopup

I wyskakuje mi błąd. Proszę o pomoc.


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z