-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
félisten
válasz kovaripeti #3519 üzenetére
Hali!
A Vista ill. egyéb Windows op. rendszereknek nem tartozéka a teljesértékű Excel.
(mintahogy a Word, Access, Powerpoint,stb). Tartalmaz(hat)nak egyszerűbb vagy egyszerűsített szövegszerkesztőt, táblázatkezelőt stb, de a "normális" irodai munkákhoz az Office csomag összetevői szükségesek.Az Excel az Office csomag része, amit verziótól függően kb 15-150ezer forintért lehet megvenni, mármint a csomagot.
Azonban minedn, az Office csomagban található program létezik külön-külön is. Microsoft-nál itt megnézheted:
[link]Ezért először deritsd ki, hogy az Exceled különálló vagy az Office csomag része.
Ha utóbbi, akkor kell lennie Word, Poverpointnak is.Egyébként a liszensz általában meghosszabbítható, "csak" pénz kérdése.
Ahhoz, hogy a liszenszet meghosszabítsd szükség lehet az eredeti szoftver ill. liszensz-szerződés adataira.UI: Sok esetben a liszenszelés NEM EGYENLŐ a teljes értékű szoftver birtoklásával, magyarul vannak olyan szoftverek amiket használhatsz liszensz megfizetésével, de nem a tiéd a szoftver.(konkrétan a Te esetedben nem tudom)
Remélem nem zavartalak nagyon össze.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Gabcsika #4069 üzenetére
Hali!
Tudom, hogy régen volt, de volt egy érdekes kérdésed a "villogó cella" témakörben.
Munkafüzet1 - Munka1 (Code)
Public Most_villog As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") = "ok" And Most_villog = False Then
Call Szincsere
Most_villog = True
ElseIf Range("A1") <> "ok" And Most_villog = True Then
Call Villogas_ki
Most_villog = False
End If
End SubMunkafüzet1 - Module1 (Code)
Public Idozites As Double
Sub Villogas_ki()
Range("A1").Interior.ColorIndex = xlAutomatic
Range("A1").Font.Color = RGB(0, 0, 0)
Application.OnTime Idozites, "Szincsere", , False
End Sub
Sub Szincsere()
If Range("A1").Interior.Color = RGB(255, 0, 0) Then
Range("A1").Interior.Color = RGB(0, 255, 0)
Range("A1").Font.Color = RGB(255, 0, 0)
Else
Range("A1").Interior.Color = RGB(255, 0, 0)
Range("A1").Font.Color = RGB(0, 255, 0)
End If
Idozites = Now + TimeSerial(0, 0, 1)
Application.OnTime Idozites, "Szincsere", , True
End SubHa az A1 cellába beírod hogy "ok" akkor villog a cella háttere, meg a betűszín, egyéb esetben meg nem. Bár a VB nem az erősségem, de ez olyan jó feladat volt, hogy nem bírtam ellenállni, hogy egy kis kitérőt tegyek
Nyílván ha szép elhalványodó, színátmenetes villogást szeretnél, akkor azért ennél több kell. Azonban egyetértek Delila_1-el, miszerint felesleges, jobb a hagyományos módszer.(ne villogjon, csak legyen más színe).Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Delila_1 #4073 üzenetére
Hali!
Tudtam, hogy nem tudod megállni, hogy meg ne írd a színátmenetet.
Természetesen kifogástalanul működik, csak hát ugye valóban semmi értelme.
(Mármint a villogosdinak). Ez olyan mint a 12 kőmíves meg a Déva vára, végül is megoldották ott is a feladatot, csak azért nem kellene embereket a malterba keverni.Annyi értelme azonban van a makrónak , hogy így megoldható ha ütemezett feladatokat kell elvégezni, azaz pl óránként el kell menteni a táblát, átszámolni, összetetteb esetben (pl a tábla egy adatbázishoz van kapcsolva) akkor óránként beolvasni stb.
Fire.
UI: Visszaolvasva látom, hogy többnyire Te segítesz a legtöbbet az érdeklődőknek, értehtően, tisztán, és türelmesen magyarázod el a dolgokat.
Megkérdezhetném, hogy honnan van ez a hozzáértés?(suli, magadtól, szülők révén, stb)Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Remélem jól értelmezem a kérdésed, ha igen akkor pl így
Munkafüzet1 - Munka1 (Code)
Private Sub DTPicker1_Change()
Range("C10:C20").Value = DTPicker1.Value
Selection = DTPicker1.Value
End SubDTPicker1 - MS Date and Time objektum
DTPicker1_Change() - akkor hajtódik végre amikor kiválasztasz egy dátumot
Range("C10":"C20").Value = DTPicker1.Value - egy tartományt tölt fel a kiválasztott dátummal(azért tettem idézőjelek közé a kettőspontot, mert különben egy tapsikoló smiley lenne ott)
Selection = DTPicker1.Value - az épp kiválasztott a cellát vagy cellákat tölti fel a kiválasztott dátummalRemélem erre gondoltál
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Nos, a kért megoldáson kívűl még egy más módszert is beleraktam, érdekességként. A képet azért mellékeltem, nehogy más objektumot használj, hanem sima Image-t.
Munkafüzet1 - Munka1(Code)
Private Sub CommandButton1_Click()
JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
If JPGFile <> False Then
Range("B2") = JPGFile
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(JPGFile)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errorhandling
If (Target.Cells.Count = 1) And Target <> "" Then
Range("B2") = Target
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Target)
End If
Exit Sub
errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
End SubFire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Persze, de bent is van a kódban. Ha rálépsz az adott cellára, amiben a kép elérése van akkor egyből betölti(már ha valóban létező képről van szó). Próbáld ki. A gombos megoldást csak érdekességnek szántam. Ha nem kell akkor töröld ki a makróból a commandbutton1_Click() metódust, meg persze töröld a gombot is.
Pár módosítást eszközöltem, mert a korábbi verzió mindig megpróbál betölteni egy képet, ha az adott cella nem üres. Ez zavaró lehet hiszen ha egy cellában szám vagy szöveg van és az nem egy kép elérési útvonala, akkor hibát dob. Ez a javított kód.Private Sub CommandButton1_Click()
JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
If JPGFile <> False Then
Range("B2") = JPGFile
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(JPGFile)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errorhandling
xstr = LCase(Target)
Pos = InStr(1, xstr, ".jpg", vbTextCompare)
If (Target.Cells.Count = 1) And (Pos > 0) Then
Range("B2") = Target
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Target)
End If
Exit Sub
errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
End SubFire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Oks, akkor leírom. Szóval, ha megsasolod a képet, akkor látnod kell, hogy B20-B23 tartományban beírtam képek elérését(de bárhova írhattam volna). Ha ezekre a cellákra kattintasz vagy rámész a kurzormozgatókkal, akkor egyből betölti a képet. a B2 cella csak kiírja, hogy épp melyik képet látod.
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Na így már tiszta, mit is szerettél volna elérni.
Munkafüzet1 - Munka1 (Code)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorhandling
xstr = LCase(Range("B2"))
Pos = InStr(1, xstr, ".jpg", vbTextCompare)
If (Pos > 0) Then
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(xstr)
End If
Exit Sub
errorhandling: MsgBox ("FileOpen ERROR!")
End SubNa, asszem ez lesz az
Ha nem a B2-ben lesz az adat akkor egyszerűen módosítsd a makróban, egy helyen kell.Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Nos ha jól veszem ki szavaidból, akkor adott egy angol OS + angol Office(ami hibátlanul müködik) ill egy magyar OS + angol Office(amiben meg nem látod a KÓD MEGJELENÍTÉSE menűt?
Ha így van, akkor a hibát okozhatja a nyelvi eltérés. [link]
Ilyennel még nem találkoztam, da hasonlóval igen, amikor angol x64 XP-m volt, erre raktam fel a magyar 2003 Office-t, nekem az Outlokkban a fájlmenü IMPORTÁLÁS-EXPORTÁLÁS menűi váltak elérhetettlenné. Talán próbáld meg az OS területi beállításait angolra állítani vagy (ha lehetséges) a Office csomag nyelvi beállításait magyarra rakni.Esetleg(bár nem írtad hogy 2000, 2003, 2007 verziójú a csomag) próbáld alaphelyzetre állítani az eszköztárat, hátha csak ezért nem látszik...
(2003 excelben ESZKÖZÖK/TESTRESZABÁS/ALAPHELYZET)Remélem segít valamit, amit írtam.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Billentyűről így el tudod érni?
Állj rá a commandbuttonra ALT+F11
Bent a VB editorban meg F7 vagy VIEW/CODEKiváncsi vagyok hogy így mi történik(esetleg dob valami hibát, stb...)
Fire.
UI: Nekem x64 magyar Vista + SP1 + Office 2007 magyar van, és működik...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Ja, hát így egyszerű. Összekeverted a Gombot a CommandButton-nal.
GOMB (Űrlap-vezérlőelem) esetén nincs (nem csak nálad, sehol és senkinél) KÓD Meglelenítése menű.
Az csak CommandButton(ActiveX vezérlőelem) esetén van.Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Sejtem mi a gond, de addig nem mondok semmit amíg meg nem néztem.
Most leszedem a 2007-es Office-t, felnyomom a 2003-at, aztán írok...Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Be kell kapcsolni a megfelelő eszköztárakat, a többit meg már írtam.(Gomb nem egyenlő CommandButton). Valószínűleg az "csapott" be, hogy teljesen egyformák a gomb ikonok is, mind Űrlap mind Vezérlő esetén.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz mimi_bacsi #4180 üzenetére
Hali!
A SPLIT a megoldás, helyezz el a lapon egy CommandButton-t, írja be valamit egy cellába, állj rá, katt...
Münkafüzet1 - Munka1(Code)
Private Sub CommandButton1_Click()
Dim x() As String
xstr = ActiveCell.Value
xstrlen = Len(xstr)
Pos = InStr(1, xstr, "/", vbTextCompare)
Rem Ez csak egy ellenőrzés, hogy NE LEGYEN ÜRES CELLA
Rem LEGALÁBB 3 KARAKTER SZEREPELJEN (pl 1/a)
Rem és LEGALÁBB EGY ELVÁLASZTÓ-KARAKTERT ("/") TARTALMAZZON
If Not (IsEmpty(xstr)) And xstrlen >= 3 And Pos <> 0 Then
x = Split(ActiveCell.Value, "/")
MsgBox ("Adat1 = " & x(0) & vbCrLf & "Adat2 = " & x(1))
Cells(ActiveCell.Row, ActiveCell.Column + 1) = x(0)
Cells(ActiveCell.Row, ActiveCell.Column + 2) = x(1)
End If
End SubA Split visszaad egy string-tömböt, amiben egyel több string lesz, mint ahány elválasztó-karakter. Ezekre, hagyományos módon 0-tól kezdődő indexel tudsz hivatkozni.
A sok feltétel azért kellett, mert különben hibát dob.(ha üres, meg nincs bent elválasztó, stb)Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Fehér Mancs #4185 üzenetére
Hali!
Igen, igen, igen...
Egyszerű és nagyszerű megoldás, ráadásul a *1-el számmá is lesz alakítva ill. csak numerikus értékeket fogad el a "/" karkteren kívűl.......123/456.
1a/1b esetén meg #ÉRTÉK!Remek megoldás!
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz mimi_bacsi #4197 üzenetére
Hali!
F oszlopban vannak az adatok, F oszlop kijelöl, jobbegér, cellaformázás, szöveggé.
(egyébként a 11/11 esetén november 11. lesz a cellába)A1
=HA(KÖZÉP(F1;SZÖVEG.KERES("/";F1)+1;20)*1<30;KÖZÉP(F1;SZÖVEG.KERES("/";F1)+1;20)*1;"")
A2
=HA(BAL(F1;SZÖVEG.KERES("/";F1)-1)*1<30;BAL(F1;SZÖVEG.KERES("/";F1)-1)*1;"")
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz mimi_bacsi #4199 üzenetére
Hali!
Ez az #ÉRTÉK dolog zavar, ugyanis nálam tökéletesen működik. Tehát üres lesz a cella, ha a feltétel hamis...., azaz nem szabadna #ÉRTÉK-nek lenni ott, kivéve ha az F1 cella üres.
Gondolom nem kézzel írtad be a képletet...
Ha igen, akkor ellenőrizd le még egyszer, hogy egyezik-e az általam küldöttel, bár szerencsésebb lenne a CLIPBOARD műveletek használata.Bocsi, nem kioktatásnak szántam, csak másra hirtelen nem tudok gondolni, mint hogy esetleg el van írva a képlet. 2007-es meg 2003-as Excel közt meg ilyen szempontból nincs különbség.(legalábbis Én nem tudok róla)
Remélhetőleg Delila_1 is feltűnik és valamit tud hozzászólni a problémához.
Fire.
UI: Ha ezt a "hibát" sikerül orvosolni, akkor már a "60-job+ball" dolog is megoldható...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz FragMaster #4254 üzenetére
Hali!
Először is BÚÉK mindenkinek!
Nos megnéztem a feladatsort, nem olyan bonyolult mint amilyennek elsőre tűnik, ne aggódj.
Bár néhány esetben az ilyen sorokkal, hogy
"A függvényt hívja meg parancsmakróból is" nem igazán tudok mit kezdeni, mert nem tudom, hogy milyen eseményhez vagy objektumhoz stb kötödjön!!??
Megköszönném, hogy ha leírnád, hogy itt mire is kellene gondolni...Addig ezenkívül itt az első feladat, remélem minden érthető lesz benne.
Function GÁZ(xnum)
If Not IsEmpty(xnum) Then
If IsNumeric(xnum) And xnum > 0 Then
Select Case xnum
Case 1 To 3000
GÁZ = xnum * 100
Case 3001 To 4000
GÁZ = xnum * 120
Case 4001 To 5000
GÁZ = xnum * 140
Case Else
GÁZ = xnum * 150
End Select
Else: GÁZ = "Csak szám lehet!"
End If
Else: GÁZ = "Nem lehet üres!"
End If
End FunctionFire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Delila_1 #4287 üzenetére
Hali!
Nem olvastam vissza, de ez az "értékes tartomány" alatt, arra gondolsz, hogy pl van A1-be valami, meg C10-be valami, és ezt a tartományt kellene kijelölni?
Csak nem Neked kell megkeresni az első meg az utolsó használt cellát? Ha erre gondolsz akkor egyszerűen így: UsedRange.Select
Fire.
UI: Bocsi, ha félreértettem, ja és a bizalmat meg köszönöm!
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Na most azért visszaolvastam. Tehát, az lenne a feladat, hogy egy tartományban összeszámold az adott színű cellákat és ezt minél gyorsabban kellene megoldani?
Ha igen, akkor érdemes lenne esetleg hagyományos ciklussal(CELLS(I,J)) próbálkozni, nem pedig IN tartománnyal, lehet hogy előbbi még gyorsabb lenne.(ki kell próbálni)
A kérdésedre pedig:
Set Tartomany = ActiveSheet.UsedRangeFire.
UI: Elnézést, ha félreértettem. Ha igen, akkor írd le Nekem, hogy mi is lenne a próblémó, amit meg kell oldani, szívesen segítek.(ha tudok)
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz concret_hp #4511 üzenetére
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
A SZUMHA függvényt nem egészen erre találták ki. Ha valakinek van rá megoldása, azt én is kiváncsian várom.
A Te esetedben egyszerűb lenne két egymásba ágyazott HA függvényt használni, pl így:=HA(Q1=D1;HA(P1=F1;SZUM(A1:A20);0);0)
(persze hogy melyik cellába rakod és milyen tartományt adjon össze a SZUM, azt már Te tudod)
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Ne az ŰRLAP ELEMEK csoportból szúrj be választógombot, hanem az ACTIVEX ELEMEK csoportból.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
szam1 = 0
szam2 = 1
OptionButton1.Value = True
MsgBox ("Viszlát!")
End SubFire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Több megoldást is javasoltak már Neked, hogy teljes legyen az örömöd én a makrós megoldást választottam, beépített időzítővel.
Ez most 10 másodpercenként ment, de átírható egyszerűen.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Remek kérdést tettél fel, csak attól félek, hogy a válaszommal lehet hogy nagyon összezavarlak, és még több kérdés merül fel benned....
Az OnTime az egy viszonylag egyszerű TASK, vagy "egyszerűbben" egy megszakítás(interrupt). Ez mindig fut("mindig működik"), csak a felhasználó ebből mit sem lát. Addig a pillanatig "láthatattlan", amíg valaki "fel nem programozza", azaz be nem állít a neki megfelelő paramétereket. 4 paramétere van, az első kettő ami esetünkben a lényeg(a többit most nem részletezem)
1. paraméter: MIKOR kell meghívni
2. paraméter MIT kell meghívni(subroutine SUB)Tehát a válasz a kérdésedre az, hogy valóban meghívódik újra és újra a SAVETHISWORKBOOK subroutine, de NEM ÖNREKURZIÓ által(azaz nem a függvény hívja meg saját magát), hanem egy tőle független TASK(Application.OnTime)
Hát remélem, nem zavartalak nagyon össze...
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Igazából a 4. paraméter Excel2003 ill. 2007 alatt "felesleges", mert az alapbeállítás(default), az TRUE. Ezt csak azért írtam oda, ha esetleg 2000 vagy 2002 officet használ valaki. A szerepe annyi, hogy ezzel a paraméterrel lehet engedélyezni ill letiltani az OnTime metódust.
Be lehet úgy is állítani, hogy egy megadott időpontba mentsen.
Application.OnTime TimeValue("13:00:00"), "SaveThisWorkBook",,TRUE
(Ebben az esetben ha a gép megállás nélkül menne egy hétig, akkor minden nap 13 órakor elmentené a excel táblát(persze ha újra értéket adsz neki))Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Happy187 #4690 üzenetére
Hali!
Esetleg lerajzolnád, hogy mit is szeretnél?(sajna így elsőre nem értem)
Egyenes mehet át origón, egy érintőegyenes is mehet át origón, de ezt a grafikonhoz origón átmenő érintő esetében tényleg nem tudom mire gondolhatsz...Talán nem tudsz koordinátarendszerben ábrázolni egyenest, vagy adott egy akármilyen típusú grafikon, és MACRÓ-val húzzunk bele egy egyenest....?
Segíts, hogy segíthessünk...
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Euzkadi #4765 üzenetére
Hali!
Hagyományos cellaformázással én sem tudom, hogy lehetne megoldani.
Azonban itt egy "szörnyedvény" ami alkalmazható és segíthet...A1-ben: 12-34 vagy akármi
B1-be meg ezt a képletet, amit aztán másolhatsz is kedvedre(bár ritka randa)=ÖSSZEFŰZ(FIX(BAL(A1;SZÖVEG.KERES("-";A1)-1);2);"-";FIX(JOBB(A1;SZÖVEG.KERES("-";A1)-1);2))
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Két "elborult" kérdésem lenne...
1. Lehet állítani valahogy, hogy a worksheet neve nagyobb legyen mint 31?
2. Ha 2007 Excelbem "Makró-barát munkafüzetként" mentek, akkor az 2003 Excelben is menni fog?Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Delila_1 #4773 üzenetére
Hali!
2. kérdésem: Oks, akkor majd olvasgatok(vagy inkább egy másik gépen amin 2003 fut, ott készítem el a dolgom)
1. kérdésem: Bocsesz, ha rosszul fogalmaztam, de nem erre irányult a kérdés hanem erre:
Szal , max 31 karakter lehet a neve(alapban). Ezt lehet valahogy nagyobbra állítani?
Fire.
UI: Anno a 2003-as Excel esetében is feltettem ezt a kérdést a MS-nek, akkor azt írták vissza, hogy a 2003-ben nem lehet állítani, de az újabb verziókban majd (esetleg) megoldják.....Most olybá tünik, hogy "esetleg" nem oldották meg...
Ha meg igen, akkor jól eldugták, vagy csak én nézek a fogammal...[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Szten Márs #4787 üzenetére
Hali!
Nem írtad hányas Office-hoz kell a segítség, ez a 2007 Excel-ben segít...
1. indítsd el az Excel-t
2. Kattints az Excel gombon(bal felső sarok)
3. Kattintsd "az Excel beállításai" feliratú gombon
4. Aztán meg navigálj el ide, a többi a képen...
(így talán könnyebb, ha látod, mint ha csak leírnám csak...)Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Szten Márs #4787 üzenetére
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz kraftxld #4794 üzenetére
Hali!
Kösz a választ, én is rengeteget kutakodtam, szerintem sem lehet...
Csak az zavar az egészbe, hogy egy nagy erőforrás-zabáló alkalmazás az Office 2007, ami egyáltalán nem baj, mert van mögötte tartalom is.
De egy ilyen apró dolgon, mint ez a max 31 karakteres munkalapnév, nem igazán kellene spórolni....
Na majd megkérdem MS barátunkat, hogy mi is a helyzet...Mégegyszer kösz a "megerősítést"...
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
A leírásod alapján elképzelhető, hogy vírus garázdálkodik a gépeden, ez tipikus és több(sok) vírus eljátsza, hogy 0-ra állítja a fájlhosszt XLS esetén is. Nem feltétlenül makróvírusra kell gondolni, vannak direkt az XLS-re "szakosodott" kártevők is.
Rögtön ess neki online scannereknek, nézesd át többel is a géped, és véletlenül sem mentsd el a látszólag ép excel táblákat sehova, mert csak mégnagyobb bajt okozhatsz(adott esetben) mint ami esetleg van.(magyarul másik gépen nehogy megnyissa valaki, mert akkor még az azon lévő táblák is el fognak tünögetni)Azt, hogy vissza-e lehet állítnai, azt nem tudom. Az első a vírusírtás(ha van), majd a HDD hibaellenőrzése. Erre azért van szükség, mert ha csak 0-ra állította a fájlhoszt, akkor a lemezellenőrzés egyszerűen vissza tudja állítani a helyes fájlméretet(szerencsés esetben).
Ha ennél nagyobb a gond, akkor meg a "milyen program, ami..." topicba írjál, ott majd javaslok olyan progit, ami az utolsó esélyed lehet...
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Tegyél be egy képet a munkafüzetről, amin látszik minden(vagy legalábbis a lényeg), ha el tudok rajt igazodni, akkor tudok segíteni, csak így visszaolvasva azt sem tudom ki-kivel van...
(Delila_1 is látom segít rendesen, csak mindig valami "apróságról" megfeledkezel, aztán az egész kódot lehet megint módosítani vagy újrairni... )Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Speeedfire #4881 üzenetére
Hali!
PNG-be mindenképp így: [link]
Nekem most 2007-es van, ott így is lehet(nem emlékszem, de lehet hogy 2003-ban is műxik)
A mentés másként-nél megjelenő ablakon van az ESZKÖZÖK gomb, azon belül WEBES BEÁLLÍTÁSOK itt lehet állítgatni, ahogy láthatod isFire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz [HUN]Tyson #4891 üzenetére
Hali!
A makrót majd pillanatok alatt elkészíti Delila_1 vagy FehérMancs....
(vagy valaki más... )Nem tudom hányas verziót használsz(2007, 2003, vagy korábbi)
A 2007-ben egy cellában 32k karakter fér el illetve ennyit is tud megjeleníteni.
A 2003-ban egy cellában 32k karakter fér el de csak 1024-et jelenít meg. (Ha jól emlékszem)
(a még korábbiakban(2000 elöttiek) meg azt hiszem, hogy csak 255 karakter fért el)Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Delila_1 #4893 üzenetére
Hali!
Igen, megírhattam volna...de most a 2-órás "NEM AKAROK KÓDOT LÁTNI ÉS KÜLÖNBEN SE ÉRTEK HOZZÁ...." időmet töltöm...
Fire.
UI: Bocsi, hogy a nevedben megelőlegeztem a kódot, de "ismerlek" annyira, hogy tudtam, hogy hamar be fog kerülni a makró a topicba...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
-
félisten
válasz VANESSZA1 #4929 üzenetére
Hali!
Igen, megoldható. A legegyszerűbb ha elsőként Access-ben elkészíted a lekérdezést, és adsz neki valami egyértelmű nevet pl Vanessa_Osszesites.
Ezután Excelben
1. ADATOK/KÜLSŐ ADATOK IMPORTÁLÁS/ADATOK BEOLVASÁSA
2. kiválasztod az adatbázist
3. ezután meg fog jelenni egy ablak amiben látnod kell a saját lekérdezésedet, kiválasztod, ok
(útólag is készíthetsz excel-ben lekérdezést persze)
4. itt még lesz egy ablak, amin beállíthatod, hogy melyik cellától kezdve helyezze el az adatokat, ill itt a gomb is amivel lekérdezést írhatsz(persze ha korábban access-ben megtetted akkor nincs rá szükség)Elméletileg ennyi lenne.
Fire.
UI: a példa kép az eredeti 2003 NorthWind adatbázisról készült, annak Order Qry lekérdezéséről...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Fehér Mancs #4947 üzenetére
Hali!
Igen, ha balkezes vagy, ha nem akkor inkább a jobb gomb lesz....
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Szinte teljesen "helyesen" írtad le hogy mit kell tenni...De akkor leírom lépésről-lépésre.
1. A1 cellába =4589/2205
2. Most azt az eredményt kapod, amit írtál is (2.081179138)
3. Jobb egér gomb az A1 cellán, a felbukkanó menüben CELLAFORMÁZÁS
4. A megjelenő ablak SZÁM fülén, a KATEGÓRIA csoportból válaszd az EGYÉNI lehetőséget
5. Jobb oldalon a FORMÁTUMKÓD felirat alatti szerkesztősorba írd be óó:pp:mm
6. Okézd le, és már meg is kaptad az eredményt(igaz nem annyi amennyit írtál), hanem 01:56:54Fire.
UI: persze nem csak egy cellát jelölhetsz ki, hanem egész oszlopot, sort, stb, majd ezután a kijelölésen jobb egér gomb, a többi lépés ugyanaz...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Fehér Mancs #4958 üzenetére
Hali!
Igen, tökéletesen igazad van. Egy pillanatnyi "elmezavar" volt, amit most ráfoghatok a 39,5 fokos lázacskámra, meg az izzó agyacskámra, meg torkocskámra....
Éreztem, hogy valami nem oké, de akkor nem igazán dolgozott a szürkeállományom.De legalább jó tudni, hogy Delila_1 ill személyedben van kontroll....
Kösz a helyreigazítást!
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz student #4967 üzenetére
Hali!
Remélem ezt a kérdést már nem értelmezem félre, és nem hülesgeket írok neked...
A példa kedvéért A1-ben van az 1000, A2-ben a 1251...
Ha az kell, hogy az 1251 hány %-os növekedés az 1000-hez képest, akkor
A3-ba =1-A1/A2Az eredmény cellá(ka)t formázd százalékra ill adj neki legalább két tizedesjegyet(már ha fontos).
Fire.
UI: mostanában olyan szétszórt vagyok, mint a pétisó...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz kamikaze boci #4974 üzenetére
Hali!
Korábban írtad, hogy 1 hete foglalkozol VB-vel. Nos, ha ennyire gyorsan sajátítasz el dolgokat, akkor javaslok egy dolgot.
Tessék az ACCESS berkeiben elmerülni, és az adatbáziskezelést VB-vel megtanulni.
Az ilyen feladatok alapszinten jók, de az igazán "profi" megoldás az az, hogy Access-ben kezelem az adatbázist, és annak segítségével állítok elő Excel táblát, vagy egyszerűen az Excel "külső adatok átvétele" segítségével...Ráadásul így a user csak a végeredményt látja, nem kell még azzal is foglalkoznia, hogy engedélyezze a makrókat, stb(és még sok más is rejtve marad a user elött, amire tényleg semmi szüksége semm lenne). Szóval sokkal elegánsabb, jobb, profibb megoldáa az Access. Ott is létrehozhatsz grafikus felületet(form, button, dbcomponents, stb) amivel beviszed az adatokat, felügyeled, módósítod, törlöd, stb. Aztán egy sima lekérdezéssel akár, kész az eredménytábla, amit 3 kattintással beimportál az Excel...
Ezt jótanácsnak szántam, remélem élsz vele...
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Delila_1 #5072 üzenetére
Hali!
Ez jó HSZ volt...
"=szumah"
"csak a smile-k írtam"Csak nem valami buliban voltál? Akkor meg nem kellene ilyen korán felkelni....
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Igen, roppant egyszerűen, simán csak megnyitod az XML-t(Excel-ből) és választasz az "arcodba figyelő" ablak lehetőségei közül(3 van)
Részletesebben
(Amúgy ez Excel 2007-ben is így van, csak menürendszer miatt, máshol találja meg az ember)Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz DeFranco #5316 üzenetére
Hali!
=SZUMHA(A1:A10;"<>" & "";B1:B10)
Ugye itt a problémádat az okozta, hogy a SZUMHA függvény KRITÉRIUMába, azt kellett volna beírni, hogy "<>""". Aposztrófon belüli aposztróf eset forog fent, amit így az Excel nem tud értelmezni. Ezért kell "kettészelni" a KRITÉRIUMot két szöveggé és azt az & operátorral összefűzni.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz DeFranco #5318 üzenetére
Hali!
Oksa...
Ezek a számítási operátorok témakörébe tartoznak, amit az Excel súgó is tartalmaz, használd... Addig itt egy link a témakörben: [link]
(ez 2003-as éppen, de e tekintetben nincs különbség az egyes excel változatok közt)Fire.
UI: a ="" azt jelenti bármely függvény kritériumában(feltételében), hogy az adott cella üres
És valóban ÉN írtam hüleséget előbb, mivel azok nem aposztrófok, hanem idézőjelek(2darab, nem 4 darab aposztróf)[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Windows 10 Home COA fizikai licencek kiárusítás ingyenes szállítással