95855 1







Strona: [  >  ]  z  1     









Autor
Temat: Instrukcja If











toja


Typ:
neutral
Postów: 31
Zarejestrowany: Apr 2005




Instrukcja If
Wiem że to jest proste ale nie kumam tegoNie wiem jak dopisać drugą częśc tej instrukcjiPierwsza część:If .Range("AL7" = "" ThenMsgBox " Pozycja 1 przekroczone godziny"Tłumaczę to tak:Jeżeli komorka AL7 jest pusta to pojawi się MsgBox " Pozycja 1 przekroczone godziny" druga część: ale jak komorka ta jest pusta i wartość w komórce AK7 jest taka sama wartość jak w komórce AR3 to ma się pojawić MsgBox " Pozycje w normie"No nie wiem jak to połączyć





04-05-2005 17:21



 
  













losmac
"profesorek"

Typ:
neutral
Postów: 758
Zarejestrowany: May 2003





if Range(A7)="" and Range(AK7)<>Range(AR3) then    Msgbox "Przekroczenie"else    Msgbox "w normie"end if
_____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś




04-05-2005 21:19



 
    













toja


Typ:
neutral
Postów: 31
Zarejestrowany: Apr 2005





Czy jest może lepszy sposób niż to co ja wymyśliłem. Jest to napisane dla dwóch komórek A1 i A3, a gdyby trzeba było napisać np dla 200, bylo by to trochę mozolne. Czy można zastosować jakąś pętlę, ktora by sprawdzała te instrukcje co drugi wiersz ThisWorkbook.Worksheets("Arkusz1".ActivateWith ThisWorkbook.Worksheets("Arkusz1"If .Range("A1" > "0" ThenMsgBox "przekroczenie".Range("A1".ActivateElseIf .Range("A3" > "0" ThenMsgBox "przekroczenie".Range("A3".ActivateEnd IfEnd IfEnd WithEnd Sub





05-05-2005 17:27



 
  













losmac
"profesorek"

Typ:
neutral
Postów: 758
Zarejestrowany: May 2003





With ThisWorkbook.Worksheets("Arkusz1"Do While .Range("A" & i) > 0    If .Range("A" & i) > 0 Then     MsgBox "przekroczenie"    .Range("A" & i).Activate    Exit do    End If    i = i+2LoopEnd With
_____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś




05-05-2005 18:59



 
    













toja


Typ:
neutral
Postów: 31
Zarejestrowany: Apr 2005





Witam,W jaki sposób wpisać do CommandButton1 kod, który by sprawdzał, czy w Skoroszycie występuje arkusz o nazwie Arkusz1. Jeżeli tak to powinien się otworzyć, a jak go nie ma to, MsgBox"Arkusz nie występuje"----------------------------------Pozdrawiam Marian





23-05-2005 16:05



 
  













losmac
"profesorek"

Typ:
neutral
Postów: 758
Zarejestrowany: May 2003





Możesz to zrobić na 2 sposoby:1)==========================================Dim wsh As WorksheetDim wystepuje As Booleanwystepuje = FalseFor each wsh in ThisWorkbook.Worksheets    If wsh.name = "Arkusz1" wystepuje = TrueNext wshMsgbox "Arkusz 'Arkusz1' występuje w zeszycie:" & wystepuje==============================================2)===========================================Dim wsh As WorksheetOn Error Resume NextSet wsh = ThisWorkbook.Worksheets("Arkusz1"If Not wsh is Nothing Then    MsgBox "Występuje"Else    MsgBox "Nie występuje"End IfSet wsh = Nothing==============================================Pierwszy jest łatwiejszy do użycia dla początkujących. Drugi wymaga pamiętania, że należy wyłączyć obsługę błędów i raczej wymaga już jakiś umiejętności programistycznych.Decyzja należy do Ciebie...
[Post edytowany dnia 23-05-2005 22:23 przez losmac]_____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś




23-05-2005 22:22



 
    













toja


Typ:
neutral
Postów: 31
Zarejestrowany: Apr 2005





No i następna sprawa z If. Rozumuję to tak :Jeżeli w komórce B2 pojawi się wyraz Styczeń to wartości z Kolumny K z K1 do K31 maja być skopiwane do wiersza 2 do komórek od E2 do AI2 Następnie jak pojawi się w komorce B2 wyraz Luty to wartości z Kolumny K z K32 do K59 maja być skopiwane do  do wiersza 2 do komórek od E2 do AI2itd, itdPoprostu kopiuję dane z kolumny i wklejam do wiersza--------------------------------------Pozdrawiam Marian





26-05-2005 13:44



 
  












Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20










Strona: [  >  ]  z  1     









Wyszukiwarka