 |
Coders' city
Nasza pasja to programowanie!
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Tamgo
Dołączył: 27 Maj 2005
Posty: 290
Skąd: trochę dalej od domu
|
 Wysłany: Nie Paź 01, 2006 9:24 pm Temat postu: dodawanie/odejmowanie wartości w komórkach |
  |
|
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 |
|
 |
|
|
Jottad
Dołączył: 29 Wrz 2006
Posty: 37
Skąd: zza firewall'a
|
| Wysłany: Nie Paź 01, 2006 9:54 pm Temat postu: |
|
|
Powinno być:
| Kod: |
If Range("J1") <> "" Then
|
|
|
| Powrót do góry |
|
|
|
|
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.10312 sekund, zapytan = 11
|
Pomoc
Szukaj
Użytkownicy
Grupy
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
