Set wks = wkb.Worksheets("Calendar") "active worksheet
wks.Cells(NextRow, 1) = ComboBox1.Value
Mam ze sobą te dwie linie kodu. Tutaj daje mi to error number 1004 kiedy mam przypisać wartość combobox do pierwszej komórki arkusza roboczego (wks). Daj mi znać, jak rozwiązać ....
Z góry dziękuję ....
Odpowiedzi:
2 dla odpowiedzi № 1Błąd czasu wykonania 1004 zwykle oznacza, że masz na myśli obiekt, który nie istnieje w skoroszycie.
Jak w twoim przypadku wks.Cells(NextRow, 1) = ComboBox1.Value
sprawdź wartość zmiennej NextRow i upewnij się, że jest ona większa niż 0, aby uniknąć problemu.
Sprawdź także skoroszyt wks jest poprawnym obiektem skoroszytu.
1 dla odpowiedzi nr 2
Ten problem może wystąpić, jeśli spełniony jest jeden z następujących warunków:
- Makro Microsoft Visual Basic for Applications (VBA) kopiuje i wkleja jeden cały wiersz w skoroszycie programu Excel 2003.
- Makro Microsoft VBA kopiuje i wkleja zakres 2516 lub więcej wierszy w skoroszycie programu Excel 2003.
Błąd czasu wykonania 1004 oznacza:
Runtime error 1004: Paste method of worksheet class failed.
Runtime error 1004: Copy method of Range Class Failed.
Odniesienie: http://support.microsoft.com/kb/905164