Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - 65. Brak deklaracji zmiennych - konsekwencje?

MaxRebo · Świeżak Posty: 5

Cześć,

ostatnio pisałem rozbudowane makro wyświetlające dużo różnych UserFormów. Po skończeniu go uświadomiłem sobie, że zaniechałem deklarowanie zmiennych. W większości kodu program po prostu pobiera wartości z kontrolek (np. ComboBoxów) i wkleja te wartości do innego pliku Excela. Docelowy arkusz, do którego makro wstawia wartości, też nie jest zadeklarowany:
"Dim nazwa as Worksheet"

Kompletnie zapomniałem o deklaracjach, a mimo to makro wykonuje się poprawnie. Zastanawiam się, czy warto byłoby te deklaracje zmiennych dopisać - chociaż się waham, bo byłoby to czasochłonne, jako że kodu jest dużo.

I tutaj moje pytanie: jakie są konsekwencje braku deklaracji zmiennych? Czy powinienem się tym martwić?

ąćęłńóś · ExcelSpec Posty: 1647

Jak zwykle, będziesz mieć odpowiedzi z dwóch szkół: Falenickiej i Otwockiej.

Czym grozi ? Wszystkim i Niczym, a nawet tym czym chcesz lub czego nie chcesz.

Pytanie jest inne ... Jak starasz się traktować swoją pracę ?

Tak sobie ("leży mi to", "zwisa mi to", "mam to gdzieś")
Średnio ("dla siebie panie robie to dobrze, ale to nie dla mnie")
Rzetelnie ("i dla siebie i dla innych staram się w miarę dobrze")
Pedantycznie ("wzorem mnichów z Szaolin") => wstęp do programowania w innych językach, które będą mniej "wyrozumiałe" niż VB/VBA

... i dla kogo ona ma być/czy ktoś będzie jeszcze po tobie sprawdzać/poprawiać ?

Artik · Artik Wersja: Win Office 365 Posty: 10702

Sorry, że nie reprezentuję żadnej szkoły. Bo żadnej z nich nie kończyłem. :-)

sanctus · Stały bywalec Excelforum Posty: 350

Taka funkcja wykonuje się w 2ms dla tablicy double o wielkości 47k rekordów.
Jeśli zadeklaruję wszystkie zmienne jako variant czas wyniesie ok 12ms.
6 x dłużej.

Kod:

Function Roc(Array1() As Double, Periods As Integer)

'Stop zwrotu w ujeciu %
Dim Result() As Double
Dim i As Long
Dim First As Integer
First = LBound(Array1) + Periods

On Error Resume Next
ReDim Result(First To UBound(Array1))

For i = First To UBound(Array1)
Result(i) = (Array1(i) / Array1(i - Periods) - 1) * 100
Next

Roc = Result
End Function

Rafał B. · ExcelSpec Wersja: Win Office 2016 Posty: 421

To ja jeszcze dodam kolejny argument poza już bardzo ważnymi jak (1) literówki (2)szybkość działania kodu. Tym argumentem są podpowiedzi "IntelliSense" w VBE.

Chcesz powiedzmy programowo dodać poprawność danych do komórki A1 bieżącego arkusza. Zrób to bez patrzenia do dokumentacji i bez deklarowania zmiennych. Dajmy na to, że używasz jakiejś zmiennej typu Range.

Kod:

Set rng = Range("A1")
rng. ' ...i co dalej?

Domyślasz się, że może poprawność danych to może coś z Validation.

Kod:

Set rng = Range("A1")
rng.Validation. ' ...i co dalej?

Jak ją dodać? .New, .Add, .Create...?
Jesteś sprytny i najlepiej pasuje Ci .Add.

Kod:

Set rng = Range("A1")
rng.Validation.Add ' ...i co dalej?

Dalej już nie masz pojęcia jakie argumenty, jakie stałe oferuje VBA.

----------------------------------------------------------
A teraz to samo linijką deklaracji. Upewniamy się, ze mamy włączoną opcję:
Tools->Editor->Auto list members.

Kod:

Dim rng As Range
Set rng = Range("A1")
rng.

Tym razem po dodaniu tej niepozornej kropeczki od razu pojawiają się podpowiedzi edytora VBE ze wszystkimi metodami i właściwościami obiektu typu Range. Faktycznie na samym końcu tej listy jest Validation.

Kod:

Dim rng As Range
Set rng = Range("A1")
rng.Validation.

Tym razem nie mamy wątpliwości- edytor od razu podsunie nam metodę .Add i zasugeruje wszystkie parametry. Piszesz ładniej i szybciej duże fragmenty kodu nie bawiąc się myszą (podpowiedzi wybierasz strzałkami góra-dół i akceptujesz TABem). Oczywiście dokumentację warto znać, ale później nie musisz za każdym razem do niej sięgać, podpowiedzi edytora prowadzą Cię same.

Zaznacz koniecznie wymuszanie Option Explicit, jak opisał @Artik. Przez kilka dni będzie to dla Ciebie upierdliwe. Ale czas poświęcony na deklaracje zwróci się z nawiązką błyskawicznie. Nie ma dobrych, ani nawet "średnio dobrych" koderów VBA bez włączonej tej opcji w edytorze.

umiejead · Excel Expert Wersja: Win Office 2013 Posty: 5298

Ta ja jeszcze doprecyzuję: Tools->Options...->Editor->Auto list members.
.

bodek · Wersja: Win Office 2019 Posty: 3109

To i ja dorzucę swoje 3 grosze
Deklarując zmienną nadajesz jej jakąś nazwę, która określa co ta zmienna ma reprezentować np:

Kod:

dim Ostatni_Wiersz_W_Arkuszu_Temp as Long

coś tam dziubiesz i chcesz użyć tej zmiennej w kodzie, zaczynasz pisać ost, wciskasz Ctrl + spacja i bingo, masz wpisane lub listę do wyboru :mrgreen:

Zatem "bezkarnie" używasz długich nazw dla swoich zmiennych.

Rafał B. · ExcelSpec Wersja: Win Office 2016 Posty: 421

Mały vox populi: może warto byłoby temat po jakimś małym oczyszczeniu podwiesić? I spamować autorów pytań z kodem bez deklaracji... :mrgreen:

umiejead · Excel Expert Wersja: Win Office 2013 Posty: 5298

Ad 1. Jest weekend (ze wskazaniem na "end") - ale część osób może jeszcze odpoczywać - poczekajmy do któregoś dnia roboczego.
Ad 2. Deklarowanie zmiennych jest opcją (tak: dobry zwyczaj) - ale tylko opcją i nie widzę powodu do "spamowania" użytkowników którzy z niej nie korzystają.
.

bodek · Wersja: Win Office 2019 Posty: 3109

master_mix · Excel Expert Wersja: Win Office 365 Posty: 2377

Fajny temat podwiesiliście.\

Właściwie ze wszystkim się zgadzam z Wami

plusy deklarowania:
intellisense
szybkość pisania kodu
łatwość czytania kodu
mniej pomyłek
itd

Jednak z jednym nie mogę się z Wami zgodzić, mam takie prawo i się: Nie Zgadzam :niee

Variant nie jest powolny ani pojemy.
Varian właściwie na początku jest typem wartościowym z możliwością typu referencyjnego ,
Rezerwuje 16 bajtów pamięci umieszczone na stosie.
Śmiało można deklarować Varianty bez obawy o pojemności i szybkości.
O szybkość i pojemność należy się martwić w momencie planowania jakie typy danych w kodzie będziemy używać, niezależnie czy w deklaracji są określone czy nie.
Dokładne określenie typu danych przy deklaracji pomaga w panowaniu nad typem przypisywanym do zmiennej, co oczywiście polecam (Artur o tym wspomniał).

Gdzie podzialiście mój artykuł o przechowywaniu danych w pamięci? ://

Wiem że stary z 2013...pewnie coś bym w nim pozmieniał i dodał, ale na razie nie planuję wracać do tematu...
(zamieszczam w załączniku)

p.s.
@Sanctus, jeżeli robisz jakieś testy to rób na konkretnych typach danych, nie mieszaj referencyjnych i wartościowych.
coś typu:

Kod:

Sub testDouble()

Dim tmStart As Double
Dim tmStop As Double
Dim x As Double
Dim zmienna As Double

tmStart = Timer
For x = 1 To 50000 Step 0.1
zmienna = x
zmienna = zmienna + 0.2
Next

tmStop = Timer
Debug.Print tmStop - tmStart

End Sub

Sub testVariant()

Dim tmStart
Dim tmStop
Dim x
Dim zmienna

tmStart = Timer
For x = 1 To 50000 Step 0.1
zmienna = x
zmienna = zmienna + 0.2
Next

tmStop = Timer
Debug.Print tmStop - tmStart

End Sub

Artik · Artik Wersja: Win Office 365 Posty: 10702

master_mix · Excel Expert Wersja: Win Office 365 Posty: 2377