Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Dodanie formanta do arkusza o konkretnej nazwie

koronen · Exceloholic **Pomógł:** 29 razy Posty: 184

Witam
Polecenie:

ActiveSheet.DropDowns.Add(64.5, 218.25, 117, 24.75).Select

utworzy w arkuszu pole kombii o określonej wielkości i położeniu. Kilkukrotne użycie tej komendy utworzy kilka identycznych formantów ale o różnych nazwach(numerach). Zeby np zmienić właściwości takiego formantu potrzebuję znać jego nazwę. Jak zmodyfikować powyższe polecenie żeby utworzyć formant o konkretnej nazwie. Druga sprawa - liczby w nawiasie określające położenie i wielkość formantu mają inne jednostki niż np jednostki określające szerokość kolumny np gdy w miejsce liczby 117 określającej długość formantu wstawię: Columns("B:B").ColumnWidth czyli wartość określającą długość kolumny, długości nie będą, jakby się mogło zdawac( przynajmniej mi), jednakowe. Jak przeliczyć jednostki? Serdecznie pozdrawiam:)

Pozdrawiam

Tajan · **Pomógł:** 5501 razy Posty: 11968

Zaczynając od końca. Na temat szerokości kolumn poczytaj w tym wątku:
http://www.excelforum.pl/...highlight=width

Natomiast wracając do wstawiania formantów. Aby ustalić właściwości formantu nie musisz znać jego nazwy. Uzywając odpowiednich instrukcji VBA możesz odwołać się do niego w następujący sposób:

Kod:

With ActiveSheet.DropDowns.Add(64.5, 218.25, 117, 24.75)
'tu możesz zmieniać właściwości
' np jego nazwę:
.Name = "Nazwa formantu"
End With

Chociaż, przy "seryjnym wstawianiu formantów lepiej jest je dopasowywać do określonych komórek. Np. taki kod wstawi 10 list rozwijalnych w kolumnie B, dopasowanych wielkością do komórek w obszarze B1:B10:

Kod:

For i = 1 To 10
With Range("B" & i)
With ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height)
.Name = "NowyFormant" & i
End With
End With
Next

koronen · Exceloholic **Pomógł:** 29 razy Posty: 184

Dzięki wielkie bardzo mi pomogłeś....Pozdrawiam serdecznie...