Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Nie widzi Public Const w Excel 2019

Tajan · **Pomógł:** 5234 razy Posty: 11412

A jeżeli w edytorze VBA użyjesz opcji "Debug"->"Compile VBAProject" to projekt kompiluje ci się bez błędów?

master_mix · Wysłany: 13-01-2023, 12:58

Coś na pewno z nieprawidłową kompilacją ..

spróbuj wyczyścić albo zaznaczyć w opcjach żądania kompilacji
screen w załączniku

a czy czasem nie masz tak samo zdeklarowanej zmiennej (ta sama nazwa) w zasięgu procedury?
np.

Kod:

Const s As String = "excel forum"

Sub test()
Dim s, d
Debug.Print s
End Sub

compile.png

Plik ściągnięto 11 raz(y) 18.95 KB

hanss9 · Fan Excela Posty: 60

hanss9 · Fan Excela Posty: 60

Tajan · **Pomógł:** 5234 razy Posty: 11412

Z tego co zauważyłem część modułów masz z opcją wymuszania deklaracji zmiennych "Option Expilcit" a część bez niej, co również może wpływać na przebieg kompilacji programów. Należy to ujednolicić , obojętnie jak, chociaż najbardziej wskazane byłoby gdyby wszystkie były z "Option Explicit".

Rafał B. · Wysłany: 14-01-2023, 14:43

master_mix · Wysłany: 15-01-2023, 22:06

@Rafał B., oj nie pamiętam już, było to dawno a mój wiek pozwala na "nie pamiętanie" pewnych rzeczy :mrgreen:

Poza tym w ostatnich latach niezbyt często sięgałem do VBA i nie śledziłem zmian jakie MS wdrożył w VBA7

Artik · Wysłany: 16-01-2023, 01:56

Np. deklaracja w takiej kolejności zwraca błąd kompilacji

Kod:

Public Const BAZA_FIRM As String = "M:\" & NAZWA_PLIKU_FIRM
Public Const NAZWA_PLIKU_FIRM As String = "Alutka.xlsx"

Jeżeli deklarację NAZWA_PLIKU_FIRM umieścimy przed BAZA_FIRM to będzie OK. Co mnie trochę dziwi, to zadeklarowanie obu stałych w osobnych modułach nie zgłasza błędu.

Artik

master_mix · Wysłany: 16-01-2023, 14:01

hanss9 · Fan Excela Posty: 60

Niestety problem znowu się pojawił i znowu gubi stałe. Z tego co zauważyłem problem najcześciej występuje na kodzie:

Kod:

Private Sub UserForm_Initialize()

Dim Wiersze As String
Dim Wiersze2 As String
Dim zakres As String
Dim kolumny As Long
Dim K As Long

Wiersze = Worksheets("OFERENCI").Range("A1").End(xlToRight).Address
zakres = Worksheets("OFERENCI").Range("A1:A20").Address

With Worksheets("OFERENCI")
Wiersze2 = .Range("A1").End(xlToRight).Address(0, 0)
ComboBox1.List = Application.Transpose(.Range("J1:" & Wiersze).Value)
End With

'załadowanie danych do Listbox1
With ListBox1
.ColumnCount = 6
.ColumnWidths = "25;120;220;200;200;90;100"

Dim rng As Range

Wiersze = Worksheets("OFERENCI").Range("B1", Worksheets("OFERENCI").Range("B1").End(xlDown)).Count
Set rng = ActiveSheet.UsedRange 'TU GENERUJE BŁAD !!!!!!

.RowSource = "OFERENCI!" & rng.Range(Range("A2"), "G" & Wiersze).Address 'TU GENERUJE BŁAD !!!!!
End With

'Ustalenie parametrów dla nagłówka
Nazw_Lp.Left = 288
Nazw_Lp.Width = 30
Nazw_skroc.Left = Nazw_Lp.Left + Nazw_Lp.Width
Nazw_skroc.Width = 120
Nazwa_kontrah.Left = Nazw_skroc.Left + Nazw_skroc.Width
Nazwa_kontrah.Width = 220
Nazwa_Adres.Left = Nazwa_kontrah.Left + Nazwa_kontrah.Width
Nazwa_Adres.Width = 200
Nazwa_email.Left = Nazwa_Adres.Left + Nazwa_Adres.Width
Nazwa_email.Width = 200
Nazwa_NIP.Left = Nazwa_email.Left + Nazwa_email.Width
Nazwa_NIP.Width = 90

'załadowanie danych do listbox2
kolumny = Worksheets("OFERENCI").Range("J1", Worksheets("OFERENCI").Range("A1").End(xlToRight)).Count

For K = 10 To kolumny + 9
ListBox2.AddItem Worksheets("OFERENCI").Cells(1, K).Value
Next K

TextBox1.Value = Worksheets(REJESTR_SYSTEMOWY).Cells(ActiveCell.row, 35).Value

End Sub

zobaczcie proszę co jest źle. Dla excela 2016 problem nie występuje

master_mix · Wysłany: 21-01-2023, 14:56

hanss9 · Fan Excela Posty: 60

Po zawieszeniu się aplikacji na powyższych wierszach plik się zamyka i po ponownym uruchomieniu nie widzi stałych. Aby znowu je widział trzeba dodać jedną a potem ją wywołać np. przez msgboxa. Jak sprawdzam kompilację to jest ok. Wymusiłem deklarowanie zmiennych dla wszystkich procedur i nie wiem co jeszcze poprawić by się nie zawieszał? Jedyne co mi do głowy przychodzi to inaczej napisać te dwie linie, które wywołują błąd.

ple4 · Wysłany: 22-01-2023, 03:36

1. 'Wiersze2' i 'zakres' to do czego są, skoro prócz deklaracji i pojedynczego przypisania, nigdzie więcej nie występują ?

2. Po co ci w ogóle takie przypisania (?) jak:

Kod:

zakres = Worksheets("OFERENCI").Range("A1:A20").Address

Skoro zakres dla tej zmiennej 'zakres' jest ci znany i "wynosi": "$A$1:$A$20" to wpisz po prostu do zmiennej to nieszczęsne "$A$1:$A$20" ... (?)

3. 'ActiveSheet' dla '.UsedRange' dla 'Set rng' to dla jakiego aktywnego arkusza jest w chwili wywoływania 'UserForm' (?) - dla "OFERENCI" ... (?) ... dla arkusza zapisanego w zmiennej/stałej (?) 'REJESTR_SYSTEMOWY' ... (?) ... dla arkusza jakiegoś wykresu ... (dla którego nie ma "UsedRange") ?

4. Co jest aktywnym arkuszem dla "Range("A2")" w:

Kod:

rng.Range(Range("A2"), "G" & Wiersze).Address

i co właściwie jest w tej komórce "A2" (?) - domyślnie kod przyjmuje dla 'Range("A2")' właściwość 'Value' i zwraca zawartość tej komórki, może tu jest zgrzyt - jeśli chciałeś użyć tego 'Range("A2")' jako zwykłego adresu dla zapisu 'Range(Range1, Range2).Address', to trzeba było po prostu wpisać to "A2", tak jak to zrobiłeś dla '"G" & Wiersze'

5. Nie stosujesz konstrukcji "With ... End With", ani przypisań "Set" do arkuszy i masz wielostopniowe dłużyzny.

6. I dlaczego "ActiveCell" w

Kod:

Worksheets(REJESTR_SYSTEMOWY).Cells(ActiveCell.Row, 35).Value

- nie ma innego sposobu na określenie "tego" wiersza ?

master_mix · Wysłany: 23-01-2023, 01:52

zacznij od chociaż podstawowej obsługi błędów, zwłaszcza w formularzach.
prześledź kod krokowo, znajdź miejsca szczególnie wrażliwe na błędy i zabezpiecz je.

nie przeglądałem Twojego pliku, o ile jeszcze jest aktualny, jak będę miał chwilę to zajrzę, albo koledzy pomogą.

ple4 · Wysłany: 23-01-2023, 12:29

Plik w zipie z wyposzczenia nr 424138 jest wg mnie uszkodzony - arkusze "REJESTR POSTĘPOWAŃ" i "REJESTR SYSTEMOWY" nie odpowiadają w ogóle na operacje "przycinania obszaru użytkowego" i nie przyjmują nowych "wymiarów zasięgu wierszy i kolumn". Każda próba usunięcia zakresu pustych wierszy/kolumn kończy się u mnie długotrwałą zwiechą i komunikatami o braku zasobów. Jak usunąć owe arkusze, to waga pliku z 4 mega spada do około 200 kilo - faktem jest, że nie mam dostępu do wersji wyższej jak E2k10, więc może tu leży przyczyna (?).

Ps: Jakby trochę uporządkować to "UserForm_Initialize", to wizualnie wychodzi mi coś takiego:

Kod:

Option Explicit

Private srs As Worksheet, sof As Worksheet

Private Sub UserForm_Initialize()
Dim a

Set sof = ThisWorkbook.Worksheets(ARKUSZ_OFERENCI)
Set srs = ThisWorkbook.Worksheets(REJESTR_SYSTEMOWY)

a = sof.Range("J1:" & sof.Range("J1").End(xlToRight).Address(0, 0)).Value

Me.ComboBox1.Column() = a
With Me.ListBox1
.ColumnCount = 6
.ColumnWidths = "25;120;220;200;200;90;100"
.RowSource = "'" & ARKUSZ_OFERENCI & "'!A2:G" & sof.Range("B1").End(xlDown).Row
End With
Me.ListBox2.Column() = a
Me.TextBox1.Value = srs.Cells(ActiveCell.Row, "AI").Value ' <=== Co z tym "Active" ?!

Me.Nazw_Lp.Left = 288
Me.Nazw_Lp.Width = 30
Me.Nazw_skroc.Width = 120
Me.Nazwa_kontrah.Width = 220
Me.Nazwa_Adres.Width = 200
Me.Nazwa_email.Width = 200
Me.Nazwa_NIP.Width = 90

Me.Nazw_skroc.Left = Me.Nazw_Lp.Left + Me.Nazw_Lp.Width
Me.Nazwa_kontrah.Left = Me.Nazw_skroc.Left + Me.Nazw_skroc.Width
Me.Nazwa_Adres.Left = Me.Nazwa_kontrah.Left + Me.Nazwa_kontrah.Width
Me.Nazwa_email.Left = Me.Nazwa_Adres.Left + Me.Nazwa_Adres.Width
Me.Nazwa_NIP.Left = Me.Nazwa_email.Left + Me.Nazwa_email.Width
End Sub