| Home Poczta Office Office2 Office 2000 Office XP Internet Explorer Outlook Express Outlook2 Windows XP Windows Windows Vista Exchange Server Windows Server SBS |
On 1 Lip, 14:14, maracan...@talktalk.net (maracana29) wrote:
> Mam taki problem z nagrywaniem Makra: chcialbym utworzyc makro ktore
> uzupelnialoby mi pusta utworzona kolumne z funkcja =IF(A4=A5,0,1) tylko w
> tych polach ktore sa zapelnione w kolumnie A. Codziennie robie podobny
> raport i zakres danych jest zawsze rozny, dlatego nie wiem jak to zrobic.
1 .sposób:
Sub wypełnianie()
z = Range("a65536").End(xlUp).Row
For i = 1 To z
If Cells(i, 1) = Cells(i + 1, 1) Then
Cells(i, 2) = 0
Else
Cells(i, 2) = 1
End If
Next i
End Sub
2. sposób
Sub wypelnianie2()
z = Range("a65536").End(xlUp).Row
Range("b1").FormulaR1C1 = "=IF(RC[-1]=R[1]C[-1],0,1)"
Range("b1").AutoFill Destination:=Range("b1:b" & z)
End Sub
Różnią się tym iż w pierwszym w komórce będziesz miał same liczby bez
formuł (0 i 1), natomiast w drugim będziesz miał w komórkach formułę
=jeżeli( itd...)
--
Pozdr.
Cynio
| 01 Lip 2010 | Makro w Excelu | maracana29 |
| 01 Lip 2010 |  Re: Makro w Excelu | Cynio |
