Új hozzászólás Aktív témák

• #24804 Delila_1 veterán felora:) #24801

  Új Válasz 2014-12-30 13:28:34 #24804

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz felora:) #24801 üzenetére

  "minden cellának majd a szöveget az "A16"-osba kell begenerálnia, szépen egymás után."
  Ezt úgy érted, hogy az A16-ban az utoljára kiválasztott értéknek megfelelően jelenjen meg az OK vagy a NEM OK szöveg?

  Ha igen, az A16 képlete legyen:

  =HA(INDIREKT("A" & DARAB2(A1:A15))="Igen";"OK";"NEM OK")

  Az A1:A15 helyett azt a tartományt add meg, ahol kiválasztod az igen, vagy nem szöveget.

• #24803 Delila_1 veterán felora:) #24801

  Új Válasz 2014-12-30 13:20:29 #24803

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz felora:) #24801 üzenetére

  ... és ha a több (hány?) cellába bevitt értékek vegyesen IGEN-t és "NEM"-et tartalmaznak? Akkor mi legyen az A16-ban?

• #24802 Delila_1 veterán felora:) #24801

  Új Válasz 2014-12-30 13:18:35 #24802

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz felora:) #24801 üzenetére

  Ehhez az A16-ba kell beírni a képletet.

  =HA(A1="IGEN";"OKÉ";"Nem OKÉ")

  Itt az A1 cellában van a választék.

• #24767 KaliJoe tag felora:) #24759

  Új Válasz 2014-12-29 16:19:42 #24767

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  KaliJoe

  tag

  válasz felora:) #24759 üzenetére

  Szia felora ,

  A B oszlopba csinálj Választéklistát, az Adatok érvényesítése segítségével. Ott válaszd a listából opciót, és a munkalap egy megfelelő részén hozd létre a kételemű listádat (Igen / Nem) elemekkel.

  

• #24761 m.zmrzlina senior tag felora:) #24759

  Új Válasz 2014-12-29 11:11:29 #24761

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz felora:) #24759 üzenetére

  Néhány cella méretig jó lehet ez a Móricka megoldás:

  =ÖSSZEFŰZ(HA(B1="igen";A1;"");HA(B2="igen";A2;"");HA(B3="igen";A3;"");HA(B4="igen";A4;"");HA(B5="igen";A5;""))

  Pontosabb válaszhoz jó lenne többet tudni a feladatról.

• #5060 Cuci3 tag felora:) #5059

  Új Válasz 2009-06-16 22:11:23 #5060

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Cuci3

  tag

  válasz felora:) #5059 üzenetére

  Pár kérdés, mivel csak utólag vettem észre, hogy ez a számsor az aláírásod:
  1. Mivel vannak elválasztva a számok a cellán belül? Gondolok itt space-re, vesszőre, tabra, ilyesmire.
  2. Tényleg nyolc szám van? (Aláírásodban csak 7 - bár már magam sem tudom, hogy mit higgyek)

  Kezdésnek itt egy makró, mely a space-sel elválasztott adatokat szedi szét. Az adatoknak a Munka1 A1-es cellájában kell kezdődnie. A 'szövegből oszlopok' módszerrel szétszedett adatokat a Munka2 A2-es cellájától folyamatosan kezdi el felhozni, majd a Munka2 C3-as cellájától kezdve bedob egy kimutatást, amit a számok darabszáma alapján rendez csökkenő sorrendbe.

  Kikommentelni nem volt kedvem, de ha kell egyszer megteszem. Rem OpenOffice alatt is frankón működik, dehát ki tudja. Próbáld ki, aztán majd lesz valahogy!

  Most látom csak, hogy a szöveg szétszedésénél 7 érték van, amit majd módosítani kell, ha tényleg 8 szám van. Próba után okosabbak leszünk.

  Sub nyolcmaximum()
  
  Dim i, sor, sor2 As Integer
  Dim hely, hely2 As String
  
  Munka1.Activate
  Munka1.Cells(1, 1).Select
  Range(Selection, Selection.End(xlDown)).Select
  
  Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
  Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
  :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
  Array(7, 1)), TrailingMinusNumbers:=True
  
  Munka1.Cells(1, 1).Select
  sor = Selection.End(xlDown).Row
  
  For i = 1 To Selection.End(xlToRight).Column
  
  Munka1.Activate
  Munka1.Range(Cells(1, i), Cells(sor, i)).Select
  Selection.Copy
  
  Munka2.Activate
  Munka2.Cells((i - 1) * sor + 2, 1).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Next
  
  Application.CutCopyMode = False
  
  Munka2.Cells(1, 1).Select
  Selection = "szam"
  
  sor2 = Selection.End(xlDown).Row
  hely = "Munka2!R1C1:R" & sor2 & "C1"
  hely2 = "[" & ActiveWorkbook.Name & "]Munka2!R3C3"
  
  Range(Selection, Selection.End(xlDown)).Select
  ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
  hely).CreatePivotTable TableDestination:= _
  hely2, TableName:="nyolcszam", DefaultVersion:= _
  xlPivotTableVersion10
  
  
  ActiveSheet.PivotTables("nyolcszam").AddDataField ActiveSheet.PivotTables( _
  "nyolcszam").PivotFields("szam"), "Darab / szam", xlCount
  ActiveSheet.PivotTables("nyolcszam").AddFields RowFields:="szam"
  ActiveSheet.PivotTables("nyolcszam").PivotFields("szam").AutoSort xlDescending _
  , "Darab / szam"
  
  End Sub

• #5057 Cuci3 tag felora:) #5056

  Új Válasz 2009-06-16 18:00:23 #5057

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Cuci3

  tag

  válasz felora:) #5056 üzenetére

  Azt nem tudom, hogy mit tud az OpenOffice. Én makrók nélkül kezdtem el gondolkodni.
  De úgy gondolkodtam, hogy alap függvényekkel csak boldogul. Én Excel 2003-at használtam, és egy példát felraktam [ide].
  A Munka1-en először szétszedem a nyolc számot. Innentől azonban már sok megoldás van:
  1. Munka2-re A2-től kezdve egymás alá másolom a számokat, mellé rakok egy darabteli függvényt, majd a B oszlop szerint rendezem csökkenőbe az egészet. (800 számnál kicsit macerás a 8 legnagyobbat megadni)
  2. az egymáés alá másolt számokat bedobom egy kimutatásba, teszek mellé darabszámot, aztán berendezem a darabszám szerint csökkenőbe. (mivel 1-től 20-ig mennek a számok, ezért ez egész átkátható)

  Tehát az a kérdés, hogy mennyire gyakran kell ezt megcsinálnod? Ha sűrűn, akkor tényleg kényelmesebb egy makró.

• #5056 felora:) tag felora:) #5055

  Új Válasz 2009-06-16 16:26:38 #5056

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  felora:)

  tag

  válasz felora:) #5055 üzenetére

  bocsi, azt még hozzátenném, hogy openoffice szoftverrel dolgozok.

Új hozzászólás Aktív témák