Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: dwa warunki w jednym IF (and)
Slec




Typ: neutral
Postów: 1
Zarejestrowany: Jan 2005
dwa warunki w jednym IF (and)

Witam, jestem zupelnie zielony w sprawach VBA wiec zwracam sie do doswiadczonych programistow z prosba o rade.

kawalek problemu przedstawiam nizej:

Private Sub CommandButton2_Click()
  Range("H15:I16" ).Select
  Range("E12:G19" ).Select
  If Selection.Interior.ColorIndex = 1 and  Selection.Interior.ColorIndex = 16 Then
  Selection.Interior.ColorIndex = 2

  End If

chodzi mi o to zeby po slowie AND bral zakres drugiego RANGE. za chiny ludowe nie wiem jak to zrobic. za wszelka pomoc z gory dziekuje
Slec

05-01-2005 22:20
Pokaż profil Slec  Wyślij email do Slec   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Sub MyRange()
'''' zakresy niespójne mozna wybierać tak jak poniżej
'''' Range("H15:I16, E12:G19" ).Select
'''' wówczas cały zakres jest wybrany
'''' sprawdzenia parametów można dokonywać nie wybierając komórki a tylko
'''' wskazując jej adres jak poniżej na przykład

  If Range("H15:I16" ).Interior.ColorIndex = 1 And Range("E12:G19" ).Interior.ColorIndex = 16 Then
        Range("H15:I16, E12:G19" ).Interior.ColorIndex = 2
End If
End Sub



Sub MyRange_New()
'''' dobrze jest też wskazać arkusz z którego pochodzą komórki
'''' gdzie "Arkusz1" jest nazwą arkusza może być inna oczywiście
'''' i gdzie ThisWorkbook oznacza, że chodzi nam o Skoroszyt w którym znajduje się przytoczony kod VBA

With ThisWorkbook.Worksheets("Arkusz1" )
'''' może być też tak, że wskażemy tylko numer skoroszytu
'''' With ThisWorkbook.Worksheets(1)


  If .Range("H15:I16" ).Interior.ColorIndex = 1 And Range("E12:G19" ).Interior.ColorIndex = 16 Then
        Range("H15:I16, E12:G19" ).Interior.ColorIndex = 2

        '''' albo tylko 1-dna część zakresu np jak poniżej
        '''' Range("H15:I16" ).Interior.ColorIndex=2

    End If
End With
End Sub


Miłego dnia...


_____________________________________________
Karolina

06-01-2005 09:31
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1