VBA.Mania

vbamania.pl

Dziś jest poniedziałek, 29 kwietnia 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Typ kontrolki otwarty 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