VBA.Mania

vbamania.pl

Dziś jest sobota, 18 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Usuwanie zbędnych obszarów otwarty rozpoczął: baq postów: 3

napisał: jottad postów: 118 umieszczony: 18 lipca 2006 09:51
	Cytat: Sub AAA() Static Flag As Boolean Flag = Not Flag ActiveSheet.Columns("G:IV").Hidden = Flag ActiveSheet.Rows("26:65536").Hidden = Flag End Sub Wydaje mi się, ze użycie zmiennej statycznej nie jest najlepszym rozwiązaniem. Przy każdym otwarciu skoroszytu zmienna będzie miała wartośc False, niezależnie od tego, czy obszary są ukryte, czy też nie. Proponuję takie rozwiązanie: Sub BBB() With ActiveSheet.Columns("G:IV") .Hidden = Not .Hidden End With With ActiveSheet.Rows("26:65536") .Hidden = Not .Hidden End With End Sub chociaz i ono nie jest do końca doskonałe (badana jest właściwość Hidden tylko pierwszego wiersza/kolumny obszaru). Pozdrawiam

napisał: baq postów: 6 umieszczony: 17 lipca 2006 17:37
	Witam. Jestem początkującym "programistą" VBA. Kilkukrotnie widziałem, że w excelu jest mozliwość usuniecia/niewyświetlania niechcianych kolomn i wierszy ... inaczej - chce pozostawić w arkuszu obszar roboczy, który będzie się składał tylko z zakresu np A1:F25. Mam jeszcze dodatkowe pytanko: jak otrzymać nazwę komputera z którego jest używany plik excela. Proszę o pomoc Z góry wielkie dzieki Pozdrawiam Baq

wstecz 1 dalej

wszystkich stron: 1