Forum Coders' city Strona Główna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Potrzebuję szybkiej odpowiedzi na moje pytanie... Zasady

dodawanie/odejmowanie wartości w komórkach



 
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Oprogramowanie biurowe
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Tamgo



Dołączył: 27 Maj 2005
Posty: 290
Skąd: trochę dalej od domu

PostWysłany: Nie Paź 01, 2006 9:24 pm      Temat postu: dodawanie/odejmowanie wartości w komórkach Odpowiedz z cytatem Pisownia

Witam

Chcę dodawać i odejmować w 20 komórkach jednocześnie. Mam coś takiego:
Kod:


Private Sub CommandButton1_Click()
Dim i As Integer

For i = 1 To 20
      Cells(i, 10).Value = Cells(i, 10).Value + 1 ' in rows if you want in cloumns change to cells(1, i)
Next

End Sub

Private Sub CommandButton2_Click()
If Range("J", 1) <> "" Then
For i = 1 To 20
      Cells(i, 10).Value = Cells(i, 10).Value - 1 ' in rows if you want in cloumns change to cells(1, i)
Next
Else
MsgBox "Nie można już odejmować!!!"
End If
End Sub



O ile dodawanie działa, to odejmowanie z warunkiem NIE. Dostaję błąd:

1004 Method 'Range' of Object'_Worksheet' failed

P.S. Bez warunku odejmowanie ładnie działa.

Co robię źle, proszę o pomoc, z góry dzięki.

_________________
Sie pyta, to sie wie, sie wie, to sie ma
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Wyślij email
Jottad



Dołączył: 29 Wrz 2006
Posty: 37
Skąd: zza firewall'a

PostWysłany: Nie Paź 01, 2006 9:54 pm      Temat postu: Odpowiedz z cytatem Pisownia

Powinno być:
Kod:

If Range("J1") <> "" Then

Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
Wyświetl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Oprogramowanie biurowe Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Możesz dodawać załączniki na tym forum
Możesz pobierać pliki z tego forum




Debug: strone wygenerowano w 0.03942 sekund, zapytan = 10
contact

| Darmowe programy i porady Jelcyna | VB4all | Tansze zakupy w Helionie | MS Office Blog |