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

• Pulsar veterán

  2009-11-23 09:56:10 #5700

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 üzenetére #5699

  Szia!

  az Application.ScreenUpdating ismerem köszi
  hát itt tartok, hátha így érthetőbb.

  Sub visual()
  
  Sheets("IDE_MASOLD").Select
  filteregy = Range("Data!C23").Text
  Dim sor, x
  Dim sor1, y
  x = 0
  y = 0
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = filteregy And Cells(sor, 13) = " 1-10" And _
  Cells(sor, 17) = "Visual Inspection - OOW" Then x = x + 1
  Next
  
  For sor1 = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor1, 4) = filteregy And Cells(sor1, 13) = "21-30" And _
  Cells(sor1, 17) = "Visual Inspection - OOW" Then y = y + 1
  Next
  Sheets("Data").Select
  Cells(25, 2) = x
  Cells(26, 2) = y
  End Sub

  Szóval a filteregy egy olyan érték, ami két féle lehet (most, majd a végén 5 lesz ) és egy cellából olvasom ki
  a (sor,4) 5 + 1 különöböző állapotot vehet fel, és a (sor, 17) pedig 19 féle lehet
  így jön ki a 114

• Delila_1 veterán

  2009-11-23 08:44:53 #5699

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5697

  Egy kicsit átalakítottam arra az esetre, ha nincs szükséged a laponkénti összegzésre, és a Data lapon egy összegben akarod látni az A14 cellában az összes lap megfelelő sorainak számát.

  Sub Xek_1()
  Application.ScreenUpdating = False
  
  Dim sor, darab, lap, sor_data
  darab = 0
  For lap = 2 To Worksheets.Count
  Sheets(lap).Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" _
  And Cells(sor, 17) = "x" Then darab = darab + 1
  Next
  Next lap
  Sheets("Data").Cells(14, 1) = darab
  
  Application.ScreenUpdating = True
  End Sub

  Az Application.ScreenUpdating = False sor leállítja a képernyő frissítését, az Application.ScreenUpdating = True pedig visszaállítja azt. Ezt azért tettem be, hogy ne zavarjon, hogy a program egyik lapról a másikra "ugrál".

• Delila_1 veterán

  2009-11-23 08:17:28 #5698

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5697

  Nem egészen tiszta, mit akarsz 114-szer átrakni.
  Átírtam úgy a makrót, hogy a Data lapon gyűjti össze az adatokat az A2-től kezdve. Az A oszlopba beírja a munkalap nevét, mellé a B-be a darabszámot.
  A Data lap legyen a füzetben az első helyen.

  Nagy különbség! A lapokon a Q oszlopban szereplő x szöveg, míg a makróban lévő szám. Hogy ne zavarjon az azonos kinézet, az x változó nevét átírtam darab-ra, de csak azért, hogy ne zavarjon.

  Sub Xek()
  Dim sor, darab, lap, sor_data
  darab = 0
  sor_data = 2
  For lap = 2 To Worksheets.Count
  Sheets(lap).Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" _
  And Cells(sor, 17) = "x" Then darab = darab + 1
  Next
  Sheets("Data").Cells(sor_data, 1) = Sheets(lap).Name
  Sheets("Data").Cells(sor_data, 2) = darab
  darab = 0
  sor_data = sor_data + 1
  Next lap
  End Sub

• Pulsar veterán

  2009-11-22 19:18:37 #5697

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Pulsar üzenetére #5696

  tárgytalan mindkettő.
  addig próbálgattam még összejött...
  köszi

• Pulsar veterán

  2009-11-22 18:26:27 #5696

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 üzenetére #5694

  illetve ha egy másik sheetre akarom az eredményt, akkor muszáj ezt így csinálni?

  Sheets("Data").Select
  Cells(14, 1) = x

  csak mert mire 114-szer ide oda váltok sheet-et elég lassú

• Pulsar veterán

  2009-11-22 17:24:21 #5695

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 üzenetére #5694

  Köszönöm
  

  ezt meg tudnád mondani, hogy mit csináljak, ha ugyanezt aarom többször berakni egy macroba? az x-et nevezzem át?
  vagy van valami más megoldás?

• Delila_1 veterán

  2009-11-22 14:22:53 #5694

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5693

  Cells(sor,oszlop)=x
  Persze meg kell adnod a sor, és az oszlop számát.

• Pulsar veterán

  2009-11-22 14:19:00 #5693

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 üzenetére #5685

  Szia!

  Köszönöm, állatsák, működik, és még azt is értem, hogy miért Tényleg köszi

  már csak két kérdésem lenne... vagyis már csak egy, mert megoldottam közbe az egyiket mire leírtam
  hogy tudom nem message box-ba írni az infót, hanem egy megadott cellába?
  

  szerk:
  ja, a 25-ször dolgot úgy értettem, hogy a három érték közül valamelyik mindig változik.
  és így nem 25 hanem 114 variációm van.

• Fire/SOUL/CD félisten

  2009-11-22 12:16:09 #5692

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #5691

  Hali!

  1. De igen, van scroll: [link]
  2. Igen, ezt eddig is tudtam, ezért nem kell simán beírni képleteket...
  3. Megnéztem, na ez is szép, hogy most tudok meg ilyen életbevágó információkat...

  Fire.

• Delila_1 veterán

  2009-11-22 12:05:25 #5691

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Fire/SOUL/CD üzenetére #5690

  1. Nem jelenik meg a görgető sáv.
  2. A smiley-k nem a programkódnál, hanem a simán beírt képleteknél szerepelnek.
  3. Nézz meg egy régebbi, smiley-s kódot.
  

• Fire/SOUL/CD félisten

  2009-11-22 12:01:06 #5690

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #5689

  Hali!

  Nem értelek, sorry. Nálam
  1. Lehet scrollozni vízszintesen
  2. Nincsenek smiley-k a Programkód részben...
  3. "Eddig a letiltásuk elmulasztása esetén a smiley fölé állva látszott a kódja."
  Na ez meg a pár év alatt fel sem tűnt Nekem...

  Fire.

• Delila_1 veterán

  2009-11-22 11:23:54 #5689

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Fire/SOUL/CD üzenetére #5687

  Az is baj vele, hogy hosszabb sor esetén nem lehet görgetni.
  A smileyk meg elrontják a kódot. Eddig a letiltásuk elmulasztása esetén a smiley fölé állva látszott a kódja.

• Delila_1 veterán

  2009-11-22 11:21:45 #5688

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  Mivel 25 lap van, kicsit hozzáírtam az előző makróhoz. Ez akkor jó, ha csak az a 25 lap van a füzetben, amelyikeknél össze kell számolni az x-eket.

  Sub Xek()
  Dim sor, x, lap
  x = 0
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" And _
  Cells(sor, 17) = "x" Then x = x + 1
  Next
  MsgBox "Az x-ek száma a megadott feltételek esetén: " & x
  x = 0
  Next lap
  End Sub

• Fire/SOUL/CD félisten

  2009-11-22 11:16:52 #5687

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #5685

  Hali!

  Nem lenne ezzel az új Programkóddal semmi baj, csak meg kellett volna hagyni a betűszínt szürkének, mert így beleolvad a HSZ-ba, hiába más a betűkészlet de így is "kissé" zavaró(legalább is szerintem).

  Fire.

• Delila_1 veterán

  2009-11-22 10:57:51 #5686

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Delila_1 üzenetére #5684

  Az 5684-es hozzászólásba is belerondított a szerkesztés megváltoztatása.
  Helyesen (a kettőspontok utáni szóközök nélkül), hátha így már nem íródik át:

  R1-be (ha szabad ez az oszlop): =HA(ÉS(D1="y";M1="o";Q1="x");1;0)
  R2-be: =HA(ÉS(D2="y";M2="o";Q2="x");MAX(R$1: R1)+1;0)
  Ez utóbbit másold végig az oszlopban.
  Utoljára valahova: =MAX(R: R)
  Ezt akár meg is írhatod makróba.

• Delila_1 veterán

  2009-11-22 10:50:10 #5685

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5683

  Makróval:

  Sub Xek()
  Dim sor, x
  x = 0
  
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" And _
  Cells(sor, 17) = "x" Then x = x + 1
  Next
  MsgBox "Az x-ek száma a megadott feltételek esetén: " & x
  End Sub

  Hova lett a szerkesztésből a kód? Van helyette a Programkód, de nem olyan jó.

• Delila_1 veterán

  2009-11-22 10:41:16 #5684

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5683

  Makró nélkül, képletekkel:

  R1-be (ha szabad ez az oszlop): =HA(ÉS(D1="y";M1="o";Q1="x");1;0)
  R2-be: =HA(ÉS(D2="y";M2="o";Q2="x");MAX(R$11)+1;0)
  Ez utóbbit másold végig az oszlopban.
  Utoljára valahova: =MAX(R)

  Ezt akár meg is írhatod makróba.

• Pulsar veterán

  2009-11-22 07:48:49 #5683

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Vasinger! üzenetére #5646

  én ilyen esetben text (szöveg)-et szoktam választani.

• Pulsar veterán

  2009-11-22 07:08:12 #5682

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  Sziasztok!

  a következőt szeretném megoldani egyszerűbben.

  van egy adathalmazom. össze kell számolni a q oszlopban az x-eket akkor ha a d-ben talál y-t, és a és az m-ben o-t.
  én az így oldottam meg most, hogy leszűröm a megfelelő adatokra az oszlopokat, a létrejött tartalmat átmásolom egy data2 sheet-re, a data sheet-en egy counta függvénnyel összeszámolom, és az értéket lemásolom.
  így:

  Sheets("IDE_MASOLD").Select
  Rows("1:1").Select
  
  Selection.AutoFilter
  
  Selection.AutoFilter Field:=4, Criteria1:="y"
  Selection.AutoFilter Field:=13, Criteria1:="o"
  Selection.AutoFilter Field:=17, Criteria1:="x"
  
  Columns("Q:Q").Select
  Selection.Copy
  Sheets("data2").Select
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  
  Sheets("Data").Select
  
  Range("A4").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("A5").Select
  ActiveSheet.Paste
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Range("A20").Select
  Sheets("data2").Select
  Columns("A:A").Select
  Application.CutCopyMode = False
  Selection.ClearContents

  ez jól működik, csak nagyon lassú. ezt 25-ször kell megcsinálni, így sokáig fut.
  esetleg valami egyszerűbb megoldása valakinek?

• Delila_1 veterán

  2009-11-21 14:40:11 #5681

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ffxgabor üzenetére #5680

  Futtatás előtt add meg az útvonalat és a fájl nevét, kiterjesztését az idézőjelek között.

  Sub Tartomany_masolas()
  Dim UtvonalAndNev As String
  
  Application.DisplayAlerts = False
  
  UtvonalAndNev = "Ide jön az útvonal és a fájlnév kiterjesztéssel"
  Workbooks.Open Filename:=UtvonalAndNev
  Sheets("db").Select
  Range("C10:V2000").Copy
  ActiveWindow.Close False
  Sheets("db").Select
  Range("C10").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  
  Application.DisplayAlerts = True
  
  End Sub

• ffxgabor csendes tag

  2009-11-19 22:58:42 #5680

  Új Válasz

  Ú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

  

  ffxgabor

  csendes tag

  válasz Fire/SOUL/CD üzenetére #5642

  Sziasztok!

  Nekem hasonló dolgot kellene megvalósítanom mint mizu_-nak.
  A megnyitott xls db munkalapjára (C10:V2000) kellene, hogy bemásolódjon a hálózaton található xls db munkalapjának (C10:V2000) tartalma.
  Segítsetek please!

• Delila_1 veterán

  2009-11-19 18:49:22 #5679

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz lúzer üzenetére #5678

  Szívesen.
  Azt nem mondtam, hogy a nyomtatásban a háttér nem jelenik meg, de biztosan észrevetted.

• lúzer veterán

  2009-11-19 16:41:48 #5678

  Új Válasz

  Ú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

  

  lúzer

  veterán

  válasz Delila_1 üzenetére #5677

  ááá köszi!

  (mindkettőt)

• Delila_1 veterán

  2009-11-19 14:36:25 #5677

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz lúzer üzenetére #5676

  Celláé nem, csak az egész lapé. Formátum/Lap/Háttér.

  Nagyon elhanyagolod egy ideje ezt a fórumot, már hiányoltalak!

• lúzer veterán

  2009-11-19 12:38:28 #5676

  Új Válasz

  Ú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

  

  lúzer

  veterán

  Üdv!
  vicces kérdés de cella háttere lehet kép?
  mint a kitöltés?

• Fire/SOUL/CD félisten

  2009-11-18 19:17:03 #5675

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz FneCsilla üzenetére #5674

  hali!

  2003-as Excel-ben is ismert a NETWORKDAYS függvény, csak be kell kapcsolni az Analysis ToolPak-ot. (Eszközök menü/Bővítménykezelő)

  Fire.

• FneCsilla csendes tag

  2009-11-18 17:53:01 #5674

  Új Válasz

  Ú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

  

  FneCsilla

  csendes tag

  Sziasztok! Az excel 2003-ban hogyan tudok munkanapokat számolni? a 2007-esben már van networkdays függvény.

• Delila_1 veterán

  2009-11-18 09:14:56 #5673

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz DBob üzenetére #5672

  A félreértés viszont tökéletes.

• DBob őstag

  2009-11-18 03:59:12 #5672

  Új Válasz

  Ú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

  

  DBob

  őstag

  válasz Delila_1 üzenetére #5665

  Ennek köze nincs ahhoz amit akartam. Én háttérben való fájlmegnyitást akartam hyperlink tartalmával...ám nem tudtam kiolvasni a hyperlink tartalmát. De tegnap sikerült

  cells(x,y).hyperlinks.items(1).address

• Delila_1 veterán

  2009-11-17 13:49:16 #5671

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ALbeeeee üzenetére #5670

  Szia!

  Jól vissza kellett lapozni az eredeti kérdésedhez, míg kiderült, mit is köszöntél meg.
  Fő, hogy végül sikerült a kedved szerinti megoldást összehoznod.
  Nagyon szívesen.

• ALbeeeee csendes tag

  2009-11-17 13:40:49 #5670

  Új Válasz

  Ú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

  

  ALbeeeee

  csendes tag

  válasz Delila_1 üzenetére #5566

  Szia Delila_1,

  az általad leírtaknak megfelelően meg tudtam oldani maradéktalanul a problémát. A kommentek megjeleítését az adott cellára való kattintáshoz kötöttem az elrejtését pedig egy "X" alakzathoz (az összes elrejtését). Jól működik, kis helyet foglal és nem zavaró.

  Nagyon hálás vagyok a tanácsokért! Köszönöm!

  Üdv,
  ALbeeeee

• Delila_1 veterán

  2009-11-17 12:08:08 #5669

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Narancs üzenetére #5668

  Szívesen.

• Narancs őstag

  2009-11-17 11:47:09 #5668

  Új Válasz

  Ú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

  

  Narancs

  őstag

  válasz Delila_1 üzenetére #5664

  Köszi, működik!

• Delila_1 veterán

  2009-11-17 10:02:28 #5667

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Lehdog üzenetére #5666

  Köszönöm.

• Lehdog csendes tag

  2009-11-17 09:30:51 #5666

  Új Válasz

  Ú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

  

  Lehdog

  csendes tag

  válasz Delila_1 üzenetére #5665

  Ügyes!! (mint mindig)

• Delila_1 veterán

  2009-11-17 07:52:14 #5665

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz DBob üzenetére #5663

  Shell ("rundll32.exe shimgvw.dll, ImageView_Fullscreen " & Kép),
  ahol a Kép változó egy cellahivatkozás. A cella a megnyitandó kép útvonalát, nevét és kiterjesztését tartalmazza. A kép a Windows kép- és faxmegjelenítő segítségével nyílik meg.

• Delila_1 veterán

  2009-11-17 07:43:32 #5664

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Narancs üzenetére #5662

  Csakis pozitív – 0-nál nagyobb – értékek mértani középértékét számolhatod. A nullát tartalmazó cellát ki kell hagynod a függvény argumentumából.
  Ha pl. az A1:A10 tartomány mértani közepére vagy kiváncsi, ahol az A3 értéke 0, akkor a függvény
  =mértani.közép(A1:A2;A4:A10) legyen.

• DBob őstag

  2009-11-17 05:36:52 #5663

  Új Válasz

  Ú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

  

  DBob

  őstag

  Kíváncsi vagyok megfejti-e valaki a problémámat
  A háttérben való fájlmegnyitást akarom kombinálni hyperlink megnyitásával, ami egy változó cellában van rögzítve. Előbbi teljesen jól megy, és az így megnyílt fájlból akarok infókat kiolvasni, majd bezárni a linkben tárolt excel táblát.

  Noh ötletek?

• Narancs őstag

  2009-11-16 20:51:56 #5662

  Új Válasz

  Ú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

  

  Narancs

  őstag

  válasz Delila_1 üzenetére #5661

  Kipróbáltam, de sajna nem jött be...
  Formátumnál is beállítottam a számformátumot, de nem használt. A kérdéses oszlopban van 0 is, a többiben nincs. Lehet ez a baj?

• Delila_1 veterán

  2009-11-16 18:48:19 #5661

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Narancs üzenetére #5660

  Valószínű, hogy az oszlopod elemei bár számnak látszanak, szöveg formátumúak.
  Írj be akárhova egy 1-est, másold Ctrl+c-vel
  Jelöld ki a hibás adatokat, jobb klikk, Irányított beillesztés, Szorzás.
  Ezzel az összes adatodat felszoroztad 1-gyel, de ami fontosabb, számokká alakítottad.
  (A beírt 1-esre már nincs szükség)

• Narancs őstag

  2009-11-16 18:30:35 #5660

  Új Válasz

  Ú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

  

  Narancs

  őstag

  válasz Delila_1 üzenetére #5659

  Wow köszi szépen működik
  Már csak egy láma kérdésem maradt: egy oszlopnyi szám mértani közepét szeretném megkapni, miért jön ki két oszlopnál rendesen, egy harmadiknál meg az, hogy #SZÁM!

• Delila_1 veterán

  2009-11-16 07:19:13 #5659

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Narancs üzenetére #5656

  =ha(vagy(%-ot tartalmazó cella<=50%;pontot tartalmazó cella<=3);ID-s cella;"")

• Fire/SOUL/CD félisten

  2009-11-15 22:00:51 #5658

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Narancs üzenetére #5656

  Hali!

  Egy kis kép jó lett volna, hogy hol vannak és milyen adatok. Amúgy a feladat nem azt mondja, hogy KIZÁRÓLAG az ÉS függvényt használhatod...

  tehát 50% ALATT (<50) vagy TÖBB MINT 3 pont nem elért (<=3) esetén kell az ID. (Az ÉS csak akkor igaz, ha az összes feltétel igaz(jelen estben 2 darab feltétel van)

  Fire.

• Fire/SOUL/CD félisten

  2009-11-15 21:27:39 #5657

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz doxa üzenetére #5655

  Hali!

  Igen, a vbacv10.dll és vbacv10d.dll kellett gondolom. (addig nem akartam javasolni, hátha a vizsgálat talált volna valamit)

  Ez az ablak csak arról tájékoztat, hogy mostantól hogy fog működni a makró írás/szerkesztés(régi verziókban más volt, a szöveg elég egyértelmű). Az viszoint kérdéses lehet, hogy valóban látni fogsz-e mindent a kódból rendesen. Remélhetőleg igen.

  Ha nem, akkor ez a megoldás van amiről tudok: [link]

  Sok sikert.

  Fire.

• Narancs őstag

  2009-11-15 21:24:09 #5656

  Új Válasz

  Ú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

  

  Narancs

  őstag

  Sziasztok!
  Van ez a feladatom, nem boldogulok:

  Create an another column on the worksheet "Results", which contains the ID number of students (like last time in the "Failed") who failed. This time somebody failed, if her/his total is under 50%, or she/he has a test for which she/he didn't obtaine more than 3 points! To solve the exercise you may have to use the AND function! Explore the AND function, the excel can help you a lot - e.g.: definition!

  ÉS függvénnyel eddig jutottam:=ÉS(H4>=50%;D4>3;E4>3;F4>3)
  Így aki megbukott kiírja, hogy HAMIS, de nem ezt kéne kiírnia, hanem egy másik oszlopban felsorova lévő ID számát...
  Ezt hogy lehetne összehozni?

  Előre is köszi,
  Narancs

• doxa tag

  2009-11-15 21:18:16 #5655

  Új Válasz

  Ú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

  

  doxa

  tag

  válasz Fire/SOUL/CD üzenetére #5654

  a diagnosztika sem segített, viszont itt van a megoldás: ezzel működik a két dll kell a megadott helyre

  nem vagyok nagy hozzáértő: a fájlt már megnyitja működik is minden de egy ilyen üzenetem még van:

  

  ezzel kell törödnöm?

• Fire/SOUL/CD félisten

  2009-11-15 20:39:14 #5654

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz doxa üzenetére #5653

  Hali!

  Régebbi Excel-be készült a fájl( pl Excel 5). Először próbálkozz ezzel:
  Excel indít, nyisd meg ezt a fájlt(lényegtelen hogy olvassa be)
  Excel gomb, excel beállításai gomb, bal oldalt Források, Diagnosztikánál VIZSGÁLAT

  Fire.

• doxa tag

  2009-11-15 20:24:26 #5653

  Új Válasz

  Ú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

  

  doxa

  tag

  válasz Delila_1 üzenetére #5651

  az adatvédelmis rész nem jön be, ua. a helyzet...
  nem én csináltam, nem tudom milyen verziós, lehet olyan probléma, hogy újabb az office-m? hajrá microsoft...
  nem ide tartozik, de 2 napja nem tudom az outlook-ból átvinni az adataimat livemailba

• doxa tag

  2009-11-15 20:19:20 #5652

  Új Válasz

  Ú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

  

  doxa

  tag

  válasz Delila_1 üzenetére #5649

  nyomtam egy update-t (office) és azt írja van sp2 segíthet a dolgomon?

• Delila_1 veterán

  2009-11-15 20:12:14 #5651

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz doxa üzenetére #5650

  Meg lehet még próbálnod az adatvédelmi központ beállításainak módosítását, bár a 2. üzenet "olvashatatlan tartalom"-ra utal.
  Office gomb, Az Excel beállításai, Adatvédelmi központ, Adatvédelmi központ beállításai, Megbízható helyek, Új hely hozzáadása. Az elérési úthoz megadod a fájlod útvonalát, ami lehetőleg ne az alapértelmezett Documents and Settings mappa legyen.
  Az xls kiterjesztésből látom, hogy a fájl régebbi verzióban készült. Az a verzió már nincs meg a gépeden? A régebbi verzióban fut most?

• doxa tag

  2009-11-15 20:00:40 #5650

  Új Válasz

  Ú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

  

  doxa

  tag

  válasz Delila_1 üzenetére #5649

  van VBA a gépen (alt F11-re bejön)

• Delila_1 veterán

  2009-11-15 19:42:15 #5649

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz doxa üzenetére #5648

  Telepítened kell a CD-ről a VBA-t (Visual Basic for Application).
  Ezen a programnyelven írt valaki a fájlhoz makró(ka)t, programo(ka)-t. Az Excel csak a telepítés után tudja értelmezni, futtatni.

• doxa tag

  2009-11-15 19:30:54 #5648

  Új Válasz

  Ú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

  

  doxa

  tag

  fennakadok egy ilyenen:
  kaptam egy excel táblát ami minden félét kiszámolna nekem (nem vagyok otthon sajna otthon benne...), de amikor megnyitom ez fogad:

  

  megnyitja és ez fogad:

  

  biztos láma kérdés, de mivel van a baj?
  segítséget előre is köszönöm

  szerk: win7-en (home premium) office 2007: ezem van (ha számít)

• Delila_1 veterán

  2009-11-14 07:49:26 #5647

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Vasinger! üzenetére #5646

  Nézz még körül a Vezérlőpulton a Területi beállítások számformátumában.

• Vasinger! nagyúr

  2009-11-13 21:29:14 #5646

  Új Válasz

  Ú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

  

  Vasinger!

  nagyúr

  válasz Delila_1 üzenetére #5645

  Sajna nem jó, miután ezt megcsinálom, akkor egy 5 jegyű számot csinált a 2-ből...érdekes. Közben sikerült úgy megoldanom, hogy szövegként állítottam be.

• Delila_1 veterán

  2009-11-13 20:46:44 #5645

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Vasinger! üzenetére #5643

  Jelöld ki az oszlopot, és a cellaformázásnál adj neki szám formátumot.

• Delila_1 veterán

  2009-11-13 20:44:44 #5644

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Jumbo üzenetére #5641

  Szívesen.
  Makró törlése:
  Eszközök/Makró/Visual Basic Editor, vagy ehelyett Alt+F11. Bal oldalon megtalálod a füzeted nevét, alatta (a + jel kinyitása után) a lapokat, alattuk a Module1-et.
  Arra kattintva jobb oldalon megjelenik a Sub-bal kezdődő makró.
  Ha az egyéni makró-munkafüzetbe rögzítetted, akkor a Personal.xls alatt keresd.
  A Module1-en jobb klikk, Remove Module1. Rákérdez, hogy akarod-e máshova menteni, nemet válaszolj.

• Vasinger! nagyúr

  2009-11-13 18:43:51 #5643

  Új Válasz

  Ú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

  

  Vasinger!

  nagyúr

  Van egy nagyon idegesítő hibám. Ha beírok egy tizedes számot az excelbe, akkor nap. hónap évben írja ki, és hiába állítom át a formátumot, nem jó. Hogyan lehet azt megcsinálni, hogy 3.052-t mindig úgy hagyja, ahogy én beírtam és ne konvertálja át?

• Fire/SOUL/CD félisten

  2009-11-13 18:13:53 #5642

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz mizu_ üzenetére #5633

  Hali!

  Mivel makró után érdeklődsz ezért feltételezem, hogy azt nem kell elmagyarázni Neked, hogy hogy kell bevinni egy makró kódot.
  Amint látod, az alábbi makró egy CommandButton-hoz tartozik.

  Private Sub CommandButton1_Click()
  
  'A hálózati Excel fájl útvonala és neve
  Dim MyNetworkExcelFilename As String
  MyNetworkExcelFilename = "d:\_developer\_PH\Fire\mizu_\halozati_fajl\leltar.xls "
  'MyNetworkExcelFilename = "http://www.firelapja.hu//leltar.xls"
  
  'Ennek az Excel fájlnak a neve, ami futtatja a makrót
  Dim MyCurrentExcelFilename
  MyCurrentExcelFilename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(1, ThisWorkbook.Name, ".", vbTextCompare) + 1)
  
  'Forrás munkafüzet
  Dim MySourceWorkbook As Workbook
  
  'Forrás munkalap neve, amiből másolunk. Ezen a munkalapon vannak a kimutatás adatai
  Dim MySourceSheet As String
  MySourceSheet = "Munka1"
  
  'Cél munkalap neve, amibe másolunk. Automatikusan létrehozza a makró ezt a munkalapot
  Dim MyDestinationSheet As String
  MyDestinationSheet = "Adatok"
  
  'Megnyitjuk az állományt
  Set MySourceWorkbook = Workbooks.Open(Filename:=MyNetworkExcelFilename)
  
  'Átmásoljuk a kívánt munkalap tartalmát, a másikba, mégpedig úgy,
  'hogy egy új munkalapot hozunk létre a munkafüzet végén
  Sheets(MySourceSheet).Copy after:=Workbooks(MyCurrentExcelFilename).Sheets(Workbooks(MyCurrentExcelFilename).Sheets.Count)
  
  'Bezárjuk a hálózatról megnyitott Excel fájl, méghozzá úgy, hogy nem jelenik meg
  'semmilyen kérdés bezáráskor(például a módosítások mentése)
  MySourceWorkbook.Close False
  
  'Az előbbiekben létrehozott munkalapot átnevezzük a kívánt névre, amit korábban megadtunk(itt most "Adatok"ra)
  ActiveSheet.Name = MyDestinationSheet
  
  End Sub

  A példában nem internetről nyitottam meg fájlt, de természetesen ott van a forrásban is az elérés formátuma("http://www.firelapja.hu//leltar.xls") és természetesen működik is. (Persze ez nem létező oldal)

  Ha valami nem lenne tiszta, akkor írj.

  Fire.

• Jumbo tag

  2009-11-13 17:02:22 #5641

  Új Válasz

  Ú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

  

  Jumbo

  tag

  válasz Delila_1 üzenetére #5640

  Sikerült!

  Köszönöm a segítséget, azért kestem az ecset ikonhoz valamilyen billentyűs megoldást, hogy ne kelljen mindig felkattintanom oda, hanem egérrel a cellát és billentyűvel a többit munkagyorsítás céljából.

  Általam létrehozot makrót, hol és hogyan tudom törölni?

• Delila_1 veterán

  2009-11-13 15:47:08 #5640

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Jumbo üzenetére #5639

  Egy kis makrót kell hozzá rögzítened.
  1. Állj a cellára, aminek a formátumát akarod másolni.
  2. Ctrl+c (másolás)
  3. Állj a cellára, ahova másolni akarod a formátumot.
  4. Makrórögzítés indítása. Itt megadod a nevet és a billentyűparancsot a Ctrl+ mellé, a helyéhez az "Egyéni makró-munkafüzetben" nevűt választod, hogy minden füzetben érvényes legyen, OK.
  5. Az aktuális cellán jobb klikk, Irányított beillesztés, Formátumot.
  6. Makrórögzítés vége.

  Egyébként van ehhez egy ecset formájú ikon, alapban kint van az eszköztáron, csak ahhoz nincs bill.kombináció.

• Jumbo tag

  2009-11-13 14:50:24 #5639

  Új Válasz

  Ú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

  

  Jumbo

  tag

  Sziasztok!

  Az lenne a kérdésem, hogy a formátum másolásnak mi a billentyűkombinációa, és ha véletlen nincs, hogy tudok megadni egyet?

  Előre is köszi!

  Jumbo

• Zolee11 senior tag

  2009-11-12 23:14:49 #5637

  Új Válasz

  Ú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

  

  Zolee11

  senior tag

  válasz Fire/SOUL/CD üzenetére #5636

  Szia.

  Tökéletes, nagyon szépen köszönöm!

• Fire/SOUL/CD félisten

  2009-11-12 19:10:01 #5636

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Zolee11 üzenetére #5634

  Hali!

  "Természetesen képletet nem akarok ráhúzni (legalábbis ne képlet legyen a cellában, ha nem muszáj), és új cellákat se akarok létrehozni, hanem ezekben a cellákban lecserélni, mínusz számmá, amit fel is ismer és képetekben használhatom a számot ill. pénznemet."

  Ha gondot okoz, akkor leírom ezt is, szóval az előző HSZ-omnál maradva, csináld végig, majd ezután tedd ezt:

  1. B oszlop kijelöl(katt a B oszlopazonosítón), jobb egér, Másolás
  2. A oszlop kijelöl, jobb egér, Irányított beillesztés, ÉRTÉKET bejelöl, OK
  3. Újra jobb katt az A oszlopon, Cellaformázás, Pénznem, OK
  4. B oszlop kijelöl, jobb egér, Törlés

  Fire.

• Fire/SOUL/CD félisten

  2009-11-12 18:36:42 #5635

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Zolee11 üzenetére #5634

  Hali!

  A példa kedvéért az A oszlopban vannak az adatok A1-től kezdődően, akkor B1 cellába másold be az alábbi kódot, majd másold le a szükséges tartományba.
  Ez a módszer automatikusan számformátummá konvertálja az értékeket, függetlenül, hogy az előtte szám avagy szöveg formátumú volt-e.

  =HA(JOBB(A1;1)="-";("-"&BAL(A1;HOSSZ(A1)-1))*1;A1*1)

  Természetesen ez csak akkor működik hibamentesen, ha a negatív értékek "negatív jelre" végződnek ill. csak 1 darab negatív jel található a cellában.

  Fire.

• Zolee11 senior tag

  2009-11-12 15:21:46 #5634

  Új Válasz

  Ú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

  

  Zolee11

  senior tag

  Sziasztok.

  Hogyan tudok egy ilyen általános formátumú karakterláncot: 55- Számmá alakítani, de úgy, hogy ez a mínuszjel a végén azt jelenti, hogy mínusz 55. Odáig eljutottam, hogy a mínusz jelet leveszem és pénznemmé formázom tehát 55,00 lesz, csak nekem -55,00 kellene. Rengeteg számról van szó, így macerás lenne átírni az összeset, így viszont nem tudok velük dolgozni. Valahol csak van erre megoldás, ha már a számot szöveggé meg mindenné lehet alakítani, akkor nehogy már mínusszá ne lehessen. Természetesen képletet nem akarok ráhúzni (legalábbis ne képlet legyen a cellában, ha nem muszáj), és új cellákat se akarok létrehozni, hanem ezekben a cellákban lecserélni, mínusz számmá, amit fel is ismer és képetekben használhatom a számot ill. pénznemet.
  Előre is köszönöm.

• mizu_ tag

  2009-11-11 20:48:23 #5633

  Új Válasz

  Ú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

  

  mizu_

  tag

  Sziasztok!

  Hogy tudnám makróval megoldani, hogy a megnyitott xls adatok munkalapjára bemásolódjon egy a hálózaton található xls kimutatás munkalapja. (Mehet egy az egyben az egész munkalap)

  Előre is köszi a segítséget!

• xkacsa csendes tag

  2009-11-10 17:57:24 #5632

  Új Válasz

  Ú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

  

  xkacsa

  csendes tag

  válasz codec üzenetére #999

  . téves

• Delila_1 veterán

  2009-11-08 15:21:46 #5631

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz bzsolt99 üzenetére #5630

  Szívesen.

• bzsolt99 tag

  2009-11-08 15:20:52 #5630

  Új Válasz

  Ú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

  

  bzsolt99

  tag

  válasz Delila_1 üzenetére #5629

  müködik köszönöm

• Delila_1 veterán

  2009-11-08 15:16:18 #5629

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz bzsolt99 üzenetére #5628

  

• bzsolt99 tag

  2009-11-08 15:10:42 #5628

  Új Válasz

  Ú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

  

  bzsolt99

  tag

  Sziasztok!Azt hogyan lehet megoldani hogy ugye adott két munkalap és azt szeretném megoldani ,hogy ha az egyik munkalapban az értéket megváltoztatom akkor a másik munkalapon is megváltozzon erre van egy olyan megoldás,hogy csoportos kijelölés de van más megoldás is?

• Fire/SOUL/CD félisten

  2009-11-07 16:10:58 #5627

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jobbi üzenetére #5625

  Hali!

  Bocs, csak nagyon rossz valamiért a netem, a forráskódot már nem tudtam beilleszteni...

  Munkafüzet1

  Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = False Then
  ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = True
  Call Timer_ON
  End If
  End Sub

  Module1

  Public Idozites As Double
  Sub Timer_ON()
  Idozites = Now + TimeSerial(0, 0, 5)
  Application.OnTime Idozites, "Tooltip_OFF", , True
  End Sub
  Sub Tooltip_OFF()
  ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = False
  End Sub

  Fire.

• Fire/SOUL/CD félisten

  2009-11-07 16:02:07 #5626

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jobbi üzenetére #5625

  Hali!

  Egy checkbox, meg egy tooltip: [Screen]
  Szükséges kód a képen: [VBA Macro]

  DrawingObjects("VALAMI"): itt adod meg az objektum nevét
  dozites = Now + TimeSerial(0, 0, 5): itt pedig, hogy hány másodpercig legyen látható(jelen esetben 5 másodperc múlva fog eltűnni a tooltip)

  Fire.

• jobbi csendes tag

  2009-11-06 06:28:11 #5625

  Új Válasz

  Ú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

  

  jobbi

  csendes tag

  sziasztok!

  tudna abban vki segíteni nekem, h hogyan tudok Excel 2003-ban egy checkbox elemre tooltip-et rakni?

  Köszi

• sunone aktív tag

  2009-11-05 09:16:00 #5624

  Új Válasz

  Ú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

  

  sunone

  aktív tag

  válasz Delila_1 üzenetére #5623

  Egy fájllal megy, de több, azonos struktúrájú excel fájlra gondoltam, azt is tudja?

• Delila_1 veterán

  2009-11-04 12:10:06 #5623

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz sunone üzenetére #5622

  Igen, lehet külső adatforrásból.
  Beszúrás, Táblázatok, Kimutatás, Külső adatforrás használata.

• sunone aktív tag

  2009-11-04 12:04:41 #5622

  Új Válasz

  Ú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

  

  sunone

  aktív tag

  Tiszteletem,
  Kimutatást lehet készíteni külső excel fájlok adataiból, vagy be kell másolnom őket egy közös excelbe? (2007)
  Köszönöm!

• Delila_1 veterán

  2009-11-02 19:34:43 #5621

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz mikoljan üzenetére #5620

  Szívesen.

• mikoljan tag

  2009-11-02 19:30:22 #5620

  Új Válasz

  Ú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

  

  mikoljan

  tag

  válasz Delila_1 üzenetére #5618

  Szia Delila,

  Nagyon-nagyon köszönöm szépen a segítségedet, tökéletesen működik!

  Ui: igen a kihúzás alatt, a cella hátterére gondoltam.

• Delila_1 veterán

  2009-11-02 19:13:39 #5619

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz polar üzenetére #5616

  Ki tudja, hátha a 2007-nek erre is van valami bűvész mutatványa.

• Delila_1 veterán

  2009-11-02 19:12:31 #5618

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz mikoljan üzenetére #5617

  Azt nem írtad, hogy a háttér, vagy a karakter sárga. Ha a karakter, akkor az Interior szót írd át Font-ra.

  Sub Sárga()
  For sor = 1 To 30000
  If Cells(sor, 1).Interior.ColorIndex = 6 Then
  Cells(sor, 40) = "Sárga"
  Else
  Cells(sor, 40) = "Színtelen"
  End If
  Next
  End Sub

• mikoljan tag

  2009-11-02 19:03:07 #5617

  Új Válasz

  Ú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

  

  mikoljan

  tag

  Sziasztok,

  A segítségeteket kérném szépen az alábbiakban.
  Négy excel adatbázisom van több ezer sorral. Bizonyos sorok sárga színnel vannak kihúzva. Ezeket a sorokat szeretném valamilyen formában megjelölni.
  Utána olvastam, hogy ezt csak makróval lehet megoldani. Például amit Delila_1 írt első makró nekem tökéletes lenne, csak ki kellene terjeszteni az egész munkafüzet egy részére, mondjuk A1:A30000-ig és, ha a feltétel "igaz", akkor a 40. oszlopban jelenjen meg valamilyen eredmény soronként. (színes, színtelen).

  Nagyon megköszönöm a segítséget, ha valaki tud nekem ebben segíteni!

• polar tag

  2009-11-02 18:24:43 #5616

  Új Válasz

  Ú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

  

  polar

  tag

  válasz Delila_1 üzenetére #5615

  Igen, ez a megoldás nekem is megvan, csak azt akartam elérni, hogy mind a 2 diagram megfelelő sorrendbe legyen, az adatok sorrendjének módosítása nélkül. De akkor ezt Te szerinted sem lehet megcsinálni

  Azért köszi szépen a segítséget!

• Delila_1 veterán

  2009-11-02 17:36:08 #5615

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz polar üzenetére #5614

  Ja, az más!
  Adj sorszámot a szumma oszlopod elemeihez. A diagram előállításához rendezd a szumma oszlopodat csökkenő sorrendbe, a sorszámot tartalmazó oszlop segítségével bármikor vissza tudod állítani az eredeti sorrendet. Nem kell külön lapon duplikálni az adatokat.

• polar tag

  2009-11-02 17:22:30 #5614

  Új Válasz

  Ú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

  

  polar

  tag

  válasz Delila_1 üzenetére #5613

  Mellékelnék némi képanyagot, mert nem teljesen érthető szerintem amit leírtam
  
  1.jpg: Ezen van az X legjobb érték summája
  
  2.jpg: ezen az összes érték (nem egy summa oszlopból származik, hanem az összes, értéket tartalmazó oszlop külön van felvéve, hogy külön látszódjanak)
  
  3.jpg: Itt látható az 1.jpg-n látható diagram adatforrása. Mivel itt csak egy értéket raktam be(vagyis csak a summa oszlopot), ezért nem tudok módosítani az adatsoron.

  Egyébként a 2.jpg-n látható diagramon megy az adatsor módosítása, de itt is csak az értékek sorrendjét változtatja egy oszlopon belül. Nekem pedig az kellene, hogy az oszlopok sorrendje legyen csökkenő.

• Delila_1 veterán

  2009-11-02 17:04:07 #5613

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz polar üzenetére #5612

  
  A diagramon jobb klikk, Adatok kijelölése. A csatolt képen bekarikázott nyíllal tudod feljebb-lejjebb vinni az adatsorodat.

• polar tag

  2009-11-02 16:53:52 #5612

  Új Válasz

  Ú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

  

  polar

  tag

  válasz Delila_1 üzenetére #5609

  Köszi a segítséget, de ez Office 2007? Csak mert nekem az van felrakva és nem találom

• Delila_1 veterán

  2009-11-02 16:50:30 #5611

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz rdi üzenetére #5608

  Minek?
  Járj sűrűbben ezen az oldalon, itt mindenféle kérdés felmerül.
  Régebben többször előfordultál erre felé.

• Fire/SOUL/CD félisten

  2009-11-02 16:43:34 #5610

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Ribi üzenetére #5602

  Hali!

  1. hozz létre egy digitális tanúsítványt
  START/Microsoft Office/Microsoft Office eszközök/Digitális tanúsítvány VBA projektekhez
  2. add hozzá a VBA project-hez
  ALT+F11/Tools/Digital Signatures/Kiválasztás (a korábban létrehozottat kiválaszt) OK
  3. Adatvédelmi központban (itt már jártál párszor)
  Összes makró letiltása, a digitálisan aláírtak kivételével
  4. makróbarát dokumentumként kell menteni természtesen

  Ennyi. Ez természetesen csak egyszerűbb védelem, ha neten megosztott, bizalmas adatokat tartalmazó, stb, stb dokumentumokhoz, megfelelő jogkörrel bíró cégnél kell/lehet igényelni, digitális azonosítót. Arra viszont jó, hogy csak azok nyíljanak meg és futtassanak automatikusan makrót, amely dokumentumnak ismered a készítőjét például.

  Fire.

• Delila_1 veterán

  2009-11-02 16:37:38 #5609

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz polar üzenetére #5607

  A diagramon jobb klikk az egyik adatsoron, Adatsorok formázása, Sorrend fül.

• rdi veterán

  2009-11-02 16:34:17 #5608

  Új Válasz

  Ú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

  

  rdi

  veterán

  válasz Delila_1 üzenetére #5605

  Szép megoldás ))
  igazán indíthatnátok logouton egy excel tanfolyamot, mondjuk középhaladóknak

• polar tag

  2009-11-02 16:29:02 #5607

  Új Válasz

  Ú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

  

  polar

  tag

  válasz Delila_1 üzenetére #5605

  Ez remek, köszi szépen.
  Akkor be is dobnám a következő kérdésemet
  Az előző struktúráról van szó ismét. Van egy summa oszlopom, ahol minden érték szerepel és van egy, ahol csak a legjobb X. Szeretnék diagramot készíteni mindegyik oszlopból, de azt akarom, hogy mindegyik diagram csökkenő sorrendben jelenítse meg az értékeket. Ezt nekem csak úgy sikerült kiviteleznem, hogy a táblázatban szereplő adatok szerint teszi be a diagram oszlopait. Vagyis egyszerre csak az egyik jelent meg csökkenő sorrendben.
  Van erre valami mód, hogy ne kelljen 2 sheeten tárolni ugyan azokat az adatokat, csak más sort-olással?

  Köszönöm!

• Delila_1 veterán

  2009-11-02 16:15:18 #5606

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Ribi üzenetére #5602

  Erre majd Fire válaszol, ha erre jár, ő a nagy 2007 bűvész.

• Delila_1 veterán

  2009-11-02 16:13:28 #5605

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz polar üzenetére #5604

  =SZUM(C4;E4;G4;I4;K4)-KICSI((C4;E4;G4;I4;K4);1)-KICSI((C4;E4;G4;I4;K4);2)

• polar tag

  2009-11-02 15:13:08 #5604

  Új Válasz

  Ú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

  

  polar

  tag

  válasz Fehér Mancs üzenetére #5603

  Köszi, de ez sajnos nem oldja meg teljesen a problémámat.
  Sorokat kellene summáznom, ráadásul ott sem minden oszlopot. Vagyis:
  C4, E4, G4, I4, K4 mezőkből kellene összesummáznom a 3 legnagyobb értéket.
  De mégjobb lenne, ha azt meg lehetne csinálni(a későbbi, egyszerűbb bővíthetőség érdekében), hogy a C4, E4, G4, I4, K4(és a későbbiekben még jópár következő mező) 2 legkisebb értékű mezője kivételével summázzon.

  Köszi előre is!

• Fehér Mancs tag

  2009-11-02 15:01:47 #5603

  Új Válasz

  Ú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

  

  Fehér Mancs

  tag

  válasz polar üzenetére #5601

  =SUMPRODUCT(LARGE(A1:A100;ROW(A1:A10)))

  , ahol A1 -> A100 -ig az adatok vannak, a ROW(A1:A10) pedig azt mondja meg, hogy a hányadik legnagyobbakat szummázza. Jelen esetben ez 1-10-ig, vagyis a top 10 legnagyobb összegeződik. Annyi, hogy amennyiben a 10. legnagyobb érték többször is szerepel, akkor azt többször veszi bele.

• Ribi nagyúr

  2009-11-02 13:35:51 #5602

  Új Válasz

  Ú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

  

  Ribi

  nagyúr

  válasz Delila_1 üzenetére #5576

  Hali,

  Elmentettem úgy is, de csak akkor használja még mindig, ha enable all macro be van kapcsolva, amúgy nem futattja le.
  Hogy lehet belerakni valami notify-t? És akkor azzal ellenne a mostani állapotban is.
  Köszi

• polar tag

  2009-11-02 10:09:41 #5601

  Új Válasz

  Ú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

  

  polar

  tag

  Sziasztok!

  Azt szeretném megoldani Excelben, hogy X szám közül summázza össze az Y darab legnagyobbat. Vagy másképpen fogalmazva, X cella summájából maradjon ki az Y darab legkiseb érték.

  Tudnátok segíteni?
  Köszönöm!

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