- bitpork: Augusztus 2- szombat jelen állás szerint.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
- Fogkefe: elektromos vagy manuális?
- Magga: PLEX: multimédia az egész lakásban
- Parci: Milyen mosógépet vegyek?
-
LOGOUT
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
-
Gabcsika
tag
Sziasztok!
Most annyi lenne, hogy azt hogy lehet, hogy valamely karakter (pl. egy kötőjel, de bármi lehet) ELŐTT lévő karaktereket levágni és egy másik cellába beírni. A gond az, hogy sem a karakter, ami előtti szöveget szeretném megjeleníteni, sem az azutáni nem ugyanolyan hosszúak
Pl.:
Mariska-I046445 virágárus
Juli-I045 húsboltban dolgozikebből
kéne
Mariska
Juli
...
stb.Köszi!
-
Sziasztok!
Biztos tudtok segíteni, mert korábban kaptam itt megoldást már.
Az Excelben, ha vannak bizonyos cellák, melyekben értékek vannak.pl: A1ben 20%; B1ben 24%....és így tovább, akkor azt szeretném elérné, hogy ha a cellában szereplő érték elér 60%-ot, vagy felette van akkor a cella háttere zöld legyen, ha alatta van akkor piros színű.
Várom az ötleteket...,melyeket előre is köszönök.
-
-
Carpio
tag
Sziasztok!
Szeretnék Excel kezelést tanulni egyénileg, még középiskolában (10-12 éve) tanultam, de azóta nem használtam, erős felhasználói ismeretekre szeretnék szert tenni.
Tudnátok javasolni tankönyveket, programokat, oldalakat, stb., amiknek segítségével megtehetem ezt!?Köszi
-
AvLav
csendes tag
Köszönöm szépen a reagálásokat, mindegyikben volt valami hasznos.
Az elején én is szöveg, szám cella formátumra gyanakodtam, aztán valahogy olyan érzésem volt, mintha a vesszőt pontnak tekintené, nem nagyon értettem.
De úgy tűnik, hogy annak ellenére, hogy nem teljesen értem Fehér Mancs makróját, de az jónak tűnik, külön köszönet érte
-
#4387
Delila_1
veterán
Fehér Mancs
#4386
Delila_1
veterán
válasz
Fehér Mancs
#4386
üzenetére
A #4377-ben azt írja AvLav, hogy kézzel 18000-ret csinál a 18.000,00-ből.
-
#4385
Delila_1
veterán
Fehér Mancs
#4384
Delila_1
veterán
válasz
Fehér Mancs
#4384
üzenetére
A makród szerint egyszerűsítettem az enyémet. Nem lehet elhagyni a 3 utolsó karakter levágását, mert nem kell a tizedes vessző, és a 2 tizedes érték.
Ráadásul ez számmá is alakítja a jelölt terület string típusú adatait.Sub Csere()
Selection.Replace What:=".", Replacement:=""
For Each cv In Selection
Range(cv.Address) = Left(cv.Value, Len(cv.Value) - 3)
Next
End Sub -
Fehér Mancs
tag
válasz
Fehér Mancs
#4383
üzenetére
Most látom, hogy az is működik, ha a pontot kicseréljük pontra
Sub Macro6()
Selection.Replace What:=".", Replacement:="."
End SubEzt add össze!
-
#4383
Fehér Mancs
tag
AvLav
#4381
Fehér Mancs
tag
A probléma az, hogy a macro a számokat angolosan látja, vagyis tizedesvesszőként pont szerepel; ha azt kicseréled, akkor elvész a nagyságrend. (A visszaírásnál is így kell megadni).
Két megoldást látok:
- egyik, hogy az excelbe való betöltésnél kezeljük ezt le (Tools->Options->International menüpontban be kell állítani a konvertálás idejére a ","-ős ezresválasztót és "."-os tizedesvesszőt.- másik, hogy a macro csak a szöveges mezőket alakítja át, angolos lelkületűre (futtatás előtt ki kell választani az átalakítandó cellákat):
Sub Macro6()
Dim rngCell As Range
For Each rngCell In ActiveWindow.RangeSelection
If VarType(rngCell.Value) = vbString Then
rngCell.Replace What:=".", Replacement:=""
rngCell.Replace What:=",", Replacement:="."
End If
Next rngCell
End SubReméljük ez megoldja a problémát.
-
Delila_1
veterán
Sub Csere()
Range("A1:A1000").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
For Each cv In Worksheets("Munka1").Range("A1:A1000")
Range(cv.Address) = Left(cv.Value, Len(cv.Value) - 3)
Next
End SubEz a makró megcsinálja mindegyik cserét, de a futtatása előtt a Range("A1:A1000")-et két helyen, és a Munka1-et írd át a saját értékeidre.
-
-
AvLav
csendes tag
válasz
vakondka
#4376
üzenetére
Szia!
Ha van egy üres munkalapod, akkor:
adatok -> külső adatok importálása -> adatok beolvasása.
Megkeresed a fájlt és megnyitod.
Bejön a szövegbeolvasó varázsló, itt a tagoltat kell választani, aztán <tovább>.
Itt be lehet állítani mik a határoló jelek, (neked azt hiszem az egyéb: ; kell) <tovább>
kijelölöd a cikkszám oszlopot, átállítod szövegre, aztán <bejezés>!!!
Így elvileg nem szedi ki a nullákat az elejéről. -
AvLav
csendes tag
Sziasztok!
Már egy hete próbálok megoldani egy problémát, de nem találok rá megoldást. Remélem tud valaki segíteni.
Szóval olyan adataim vannak, amik általános típusú cellaformátumban vannak és számokat tartalmaz. A számok ezres nagyságrendeknél "."-al vannak jelölve (azért így, mert ez egy bemásolt adat egy másik helyről). Azonban tartalmaz tizedesvesszőt is ",".
A probléma: ha kézzel ráengedek egy keres és cserél: "."(pont) ""(semmi)-re, akkor szépen kiszedi a pontokat, de a vesszők maradnak. Ha ugyanezt csinálom makróval, akkor az kiszedi a vesszőt is! pl.: 18.000,00 kézzel 18000 lesz, makróval pedig 1800000.
Van valakinek valami ötletet, hogy miért csinálja másképp a makró, vagy esetleg hogyan lehetne esetleg másképpen megoldani?!Már régóta szenvedek vele, szóval előre is köszönök minden választ!
-
vakondka
őstag
válasz
Delila_1
#4375
üzenetére
Köszi.
Ez elsőre jónak tűnt, de ha jól látom akkor végülis annyit csinál, hogy minden cikkszám elé tesz 3db nullát.
Viszont nyílván van olyan cikkszám ami előtt eredetileg csak 1, 2, 3, 4 nulla van, vagy éppen egy sincs.Az a baj, hogy ezt a csv fájlt én generálom ki PHP-ből, de akárhogyan csinálom, akkor is eltűnnek a nullák, mikor excel-ből megnyitom....
-
Delila_1
veterán
válasz
vakondka
#4374
üzenetére
Egy új oszlopot formázz meg a formázás egyéni kategóriájában így:
00000###
Az új oszlopban hivatkozz a cikkszámot tartalmazó oszlopra:
=ÉRTÉK(A1) – ha az A oszlopban vannak a cikkszámaid.
A függvényt lemásolod, és az új oszlopot irányítottan, értékként ráillesztheted az eredeti cikkszámos oszlopodra. Az új oszlopot ki is törölheted. -
vakondka
őstag
CSV fájlt szeretnék megnyitni excelben, de sajnos az olyan cellákat, amelyekben szám van és nullával kezdődik, azokat lényegében "eltünteti".
pl: 00125487
ez lesz belőle: 125487És mivel ezek cikkszámok, ez komoly gond jelenleg...
Hogyan lehetne rávenni az excelt, hogy ne számként, hanem szövegként értelmezzen alapból minden adatmezőt, mert azt tudom hogy ilyen beállítással rendesen megjelennek a nullák a számok előtt.
-
netboy
senior tag
-
Delila_1
veterán
Kicsit zavarosra sikerült a kérdés, megbróbálom jól értelmezni.
Vegyük, hogy a másolandó adatait az Adatok nevű lapon vannak.Azon a lapon, ahova át akarod másolni az értékeket, az A1 cellába írd be:
=HA(Adatok!A1>"";Adatok!A1;"")B1-be:
=HA(Adatok!A1>"";Adatok!B1;"")A két képletet együtt másold le olyan hosszan, amilyen hosszan találhatók adatok az Adatok lapon.
-
Delila_1
veterán
válasz
Gabcsika
#4364
üzenetére
A 4360-as hozzászólás D oszlopának képletei adják az A oszlop adatait duplikátok nélkül, de az oszlop foghíjas lesz. Makróval lehetne folyamatossá tenni az adatokat.
Oldd meg inkább a feladatot Fehér Mancs javaslata szerint kimutatással. Az Adatok menüben találod, a varázsló szépen végig vezet a szükséges lépéseken.
-
Gabcsika
tag
válasz
Delila_1
#4363
üzenetére
Köszönöm tökéletesen működik. Már csak kérdés. A példámban a C oszlopot kézzel készítettem. Nincs arra mód (fgv., bár inkább gyanítom macro), hogy a duplikátumok úgy legyenek kiszűrve (maradva a példámnál), hogy a C oszlopba a macro vagy fgv. mindent csak egyszer írjon be és emelett is működőképes maradjon ez az egész?
Köszi szépen!
-
Gabcsika
tag
válasz
Delila_1
#4360
üzenetére
Köszi, de szerintem félreértetted. Mutatom a dolgot:
Itt az A oszlopban vannak azok, amelyek között vannak duplikátumok, B oszlopban vannak a hozzárendelt adatok. C oszlopban már minden csak egyszer szerepel A oszlopból, D oszlopban pedig, ha duplikátum van, akkor azok összege, ha nincs, akkor a hozzátartozó szám.
Persze ez kézzel van készítve.
-
Gabcsika
tag
Sziasztok!
Azt hogy lehet megoldani, hogy mondjuk van az A oszlopban sok szám, mellette B oszlopban hozzátartozó értékek (szintén számok). A csavar az, hogy míg a B oszlop adatai soronként mások, az A oszlopban vannak duplikátumok is.
Én azt szeretném elérni, hogy mondjuk a C oszlopba legyen egy sor ami az oszlopból jött, de minden csak egyszer szerepeljen benne, míg a D oszlopban ezek mellé a B oszlopból vett számokat hozza hozzá az Excel úgy, hogyha a duplikátumot talál az A-ban akkor az azokhoz a duplikátumokhoz tartozó B oszlop értékeinek összegét írja!Ezt hosszabb volt leírni, mint megcsinálni, szerintem.
Köszi!
-
ssrobi
csendes tag
Sziasztok!
Egy olyan gondom lenne, hogy az alábbi makróm valamiért hibázik, és nem tudom mi a rossz benne
megkéne vizsgálnia, hogy az AE cellában nagyobb-e a szám mint 36 és ha igen akkor 4 oldalt, ha nem akkor 2 oldalt nyomtatnia..de ehelyett néha valamiért akkor is 4 oldlat nyomtat ha kisebb a szám mint 36! Makrorögzitővel készítettem 
köszi előre is!
If Cells(1, 31) > "36" Then
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Exit Sub
ElseExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"
End If
-
ordogi
csendes tag
Sziasztok!
Segítségre lenne szükségem. Kellene egy makró, amely bekér egy 2007-es excelfájlt, majd lementi azt 2003-as formátumban és kilép mind a makrót tartalmazó, mind pedig a lementett 2003-as (esetleg a 2007-es fájlból).ui.: magyarázat:
Van egy ismerősöm, aki folyamatosan küldözget nekem anyagokat. Most lecseréltek valami csodát náluk és a korábbi 2007-es xls fájlok helyett egy txt állomány érkezik, mely arról értesít, hogy lecserélte az állományt. Az ismerősöm nem igazán tud a dologgal semmit kezdeni, még csak az excel megnyitását és más típussal lementését sem vállalja. Nagyon megköszönök minden segítséget!András
-
-
-
#4340
FragMaster
addikt
FragMaster
#4338
FragMaster
addikt
válasz
FragMaster
#4338
üzenetére
Első megoldva célértékkereséssel.
-
#4339
Delila_1
veterán
FragMaster
#4338
Delila_1
veterán
válasz
FragMaster
#4338
üzenetére
Solver, elküldtem.
-
#4338
FragMaster
addikt
FragMaster
addikt
A gazdasági részből kb már csak ezek vannak hátra, valakinek van tippje rájuk? -
Balinov
titán
Azt hiszem a szazadreszevel. Ime egy pelda:
2262000986,2061001563 ugyanazon oszlop egymas alatti cellajanak ertekei. Kijelolve ugye megadja az osszeguket 4323002549-kent. Ha belekattintok (vagy kimasolom a szerkesztosorbol) es atugrok (egerrel vagy billentyuzetrol) az alatta levo cellaba az elsobol 22620009.86 lesz, es igy tovabb.Ha megcsinalom ugyanezt a masodik szammal, akkor a ketto cella erteke 43230025.49 lesz.
Megneztem megegyszer, megnyitas utan milyen formatumu a "szam". Most epp general. Ha atrakom szamformatumra es beallitom, hogy ne mutassa a 2 tizedesjegyet, akkor meg ilyet produkal:
2262000986->szerkeszt->kovetkezo cellara kattint-> eredmeny: "22620010",tehat kerekit a birka.
Rohadt ciki a dolog,mert pl van egy xls fajl, ami halozati mappaban van megosztva, kb 10-20 ember dolgozik benne nagy gyakorisaggal,tovabbi jopar (vezetok, kontrollerek) meg esetenkent ill. pivot table-t is csinalnak belole kimutatasokhoz. Ilyenkor kicsit gaz, ha osszeba***dik a dolog es hulyesegek johetnek ki, nameg persze nekem is szopas, ha mondjuk egy rendelesszamot, vagy szeriaszamot keresnek egy tobbezer soros excel fajlban.
Kivancsian varom, mi a velemenyed errol. Koszi elore is
udv
Balinov -
Garffi
tag
Sziasztok!
Keresek megoldást az alábbi példára:
ha a B1 cella értéke 1, akkor a C1 cella legyen kék színű, de ha a C1-es cella tartalmaz szöveget vagy számot az ne vesszen el, szóval színezze ki a cellát. Próbáltam feltételes formázással, de az csak az adott cellára vonatkozik!
Help valaki!
-
frankie!
őstag
válasz
Delila_1
#4328
üzenetére
Azt hiszem aza a baj, hogy én a digramot nem adattartománnyal adtam meg, hanem egyenként kattintgattam az "Y és X" értékeket, amik szét vannak sorba. Tehát minden kattintásom "címe" tartalmazza a lap nevét. Azt hiszem úgy lehetne csak megoldani, hogy képlettel egy egybefüggő oszlopba rendezem az adatokat és csak ezt a tömböt másolgatom lapról lapra, meg a diagramot.
-
Balinov
titán
Uraim, idegesito dolgot tapasztalok Excel 2007-nel. Folyamatosan azt tapasztalom, hogy ha egy cellat a vagolapra masolok (99%-ban szamot), akkor a masolas utan pl. az 123456789 szamsor helyett 1234567.89 lesz a cella erteke (angol Office,angol wxpprof). Kikerulendo az ilyen szamokat tartalmazo oszlopokban atallitom mindig a formatumot text/szoveg formatumra. Mi a jonyavalyatol lehet ez es legfokeppen hogy lehetne orvosolni?
Koszi minden tippet
udv
Balionv -
frankie!
őstag
Olyat tapasztaltatok, hogy ha adatsort kívánunk hozzáadni és az értékeket egyenként kattintással jelöljük ki, egy karakterszám után "lenullázza" azt amit összekattintgattunk?
Valószínűleg ez lehet, mert ha egy rövidebb nevű lapfülről "válogatok" több cellát enged megjelölni. -
Gabcsika
tag
válasz
Fehér Mancs
#4322
üzenetére
Neked is és Delilának is nagyon köszönöm!
-
frankie!
őstag
válasz
Delila_1
#4321
üzenetére
Köszönöm a segítséget!
Sajnos nem tudom használni erre a célre, mert fontosabb lett volna egy nagyobb táblázat minden eleméhez hozzárendelni valami, és másolás-beillesztéssel az egyértelmű hozzárendelést követve módosultak volna az értékek. AZ fkeres fv sem segít ahogy nézem. -
Fehér Mancs
tag
válasz
Gabcsika
#4318
üzenetére
Képlettel is ki lehet hámozni a zárójeles részt (A1-ben van az adott szöveg):
=MID(A1;FIND("(";A1);FIND(")";A1)-FIND("(";A1)+1)1. paraméter, az adott cella
2. paraméter megkeresi, hogy honnan kezdődik, vagyis a nyitó zárójel pozíciója
3. paraméter, hogy milyen hosszú részt kell kiemelni -> záró zárójel pozíciója minusz a nyitó zárójel pozija +1 -
Delila_1
veterán
válasz
frankie!
#4319
üzenetére
Azt, hogy a beírt betű HELYETT legyen más érték, nehézkes. MELLÉ egyszerűbb az FKERES függvénnyel, de legjobb, ha adatérvényesítéssel viszed be az adatokat.
Írsz egy listát pl. a G oszlopba:
alma
körte
szilvaKijelölöd a cellákat, ahova majd be kell vinned az értékeket, Adatok/Érvényesítés. A Beállítások fülön a Megengedve legördülőből kiválasztod a Listát, a Forrásnál egér segítségével beviszed a lista helyét (pl. G1:G20).
Ezzel a módszerrel nem kell megjegyezni, hogy melyik adathoz milyen betűt gépelj be. A bevitel helyére lépve legördülő jelenik meg, amiből kiválaszthatod a megfelelő elemet.
-
Delila_1
veterán
válasz
Gabcsika
#4318
üzenetére
Vegyük, hogy a szétbontandó adataid az A oszlopban vannak. Kijelölöd az adatokat.
Az Adatok/Szövegből oszlopok menüben Tagolt, a következő ablakban Szóköz, Kész.
Ám ez a (456)-ot negatív számként teszi be a sor B oszlopába a zárójel miatt.C1-be: ="(" & B1*-1 & ")" A képletet lemásolod, kijelölöd a C oszlopot. Másolás, B1-be állva értékként beilleszted.
Ezt több idő volt leírni, mint az egészet végrehajtani.
-
Gabcsika
tag
Sziasztok!
Azt vajon hogy lehetne megcsinálni, hogy egy cellában lévő adatsorból meghatározott részt messe ki mellé (egy másik cellába) ami egyébként jellegzetesen elkülönül. Például van az a1 cellában hogy 345MBC4 (456) 8.2p és ebből nekem a b1 cellába a zárójel és a benne lévő tartalom kell csak, DE a zárójeles rész előtti és mögötti rész hossza változó mennyiségű és típusú karakter lehet!
Köszi szépen!
-
#4317
lúzer
veterán
Fehér Mancs
#4313
lúzer
veterán
válasz
Fehér Mancs
#4313
üzenetére
Köszi, így már értem a frissítést.
Delila_1: Neked is köszi!
Nem tudtok valami helyet, ahol ezek a függvények össze vannak szedve?
Könyv is jó esetleg, ha valaki tud jót ajánlaniui: ezt megtaláltam IsMissing
bár elsőre kínai -
#4315
Delila_1
veterán
Fehér Mancs
#4313
Delila_1
veterán
válasz
Fehér Mancs
#4313
üzenetére
Mindkét kérdést megoldottad, köszi.
-
#4314
FragMaster
addikt
FragMaster
#4309
FragMaster
addikt
válasz
FragMaster
#4309
üzenetére
Na én a kiemelt sort alahogy így értelemezem:
Dim MyTime
Dim MyDouble
MyTime = Time
MyDouble = CDbl(MyTime)Egyáltalán kapizsgálok?
-
#4313
Fehér Mancs
tag
lúzer
#4305
Fehér Mancs
tag
A színes kérdést is lehet dinamizálni úgy, hogy a második paramétert opcionálissá tesszük, és ha nem adunk meg értéket, akkor az "értékes tartományban" keres. Az eredeti makró egy kicsit megspékelve:
Function CountCCC(Mintacella As Range, Optional Tartomany)
Dim rngCell As Range
If IsMissing(Tartomany) Then
Set Tartomany = ActiveSheet.UsedRange
End If
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + 1
End If
Next rngCell
CountCCC = nResult
End FunctionA képletek újraszámoláról pedig úgy tudom, hogy akkor kalkulálódnak újra, ha bármelyik hivatkozott mező értéke változik (egyéb tulajdonság pl. szín nem számít). Pl. ha a fenti függvénynél nem adjuk meg a második paramétert, akkor nem fog frissülni az érték a változásokra, hiszen csak átételesen hivatkozunk a tartományra.
-
#4311
Delila_1
veterán
FragMaster
#4309
Delila_1
veterán
válasz
FragMaster
#4309
üzenetére
Nics Cdbl függvényem.
Értékek az ellenőrzéshez:
szám 5 (Double tip. adat)
dátum 7 (Date tip.)
szöveg 8 (String tip.)A 8:25:12 formában megadott időt is számként értelmezi. A VarType és a TypeName függvényekkel lehet lekérdezni -> cells(1,2)=VarType(cells(1,1))
cells(1,3)=TypeName(cells(1,1).Value) Ennél a másodiknál szükséges a Value, anélkül Range értéket ad.Tényleg használhatatlan a könyv. A példa szerint a határértékek mindegyikére 2 válasz is lehetséges. Pl. a 10 órára a Jó reggelt, és a Jó napot is igaz. Elég pongyola megfogalmazás.
-
#4310
Delila_1
veterán
FragMaster
#4308
Delila_1
veterán
válasz
FragMaster
#4308
üzenetére
Ennél a feladatnál az is kérdés volt, hogy milyen napra esik a születési dátum. A WEEKDAY függvény (hét.napja) megadja, hogy a hivatkozott dátum a hét hányadik napjára esik. A második paraméter - jelengeg 2 - azt adja meg, hogy hétfővel kezdődik a hét. 1 esetén vasárnap lenne a kezdő nap.
Az év kiszámításához a 365-tel való osztás helyett a YEAR (év) függvényt használd.
(októberben töltöttem az n-edik évemet, és ez a galád most, év elején n+1-et ír ki)Function KORA(Születési_dátum)
If VarType(Születési_dátum) = 0 Then
KORA = "Nincs adat": Exit Function
End If
If VarType(Születési_dátum) <> 7 Then
KORA = "Hiba": Exit Function
End If
KORA = Year(Date) - Year(Születési_dátum)
nap = Weekday(Születési_dátum, 2)
Select Case nap
Case 1
nap = "hétfő"
Case 2
nap = "kedd"
Case 3
nap = "szerda"
Case 4
nap = "csütörtök"
Case 5
nap = "péntek"
Case 6
nap = "szombat"
Case 7
nap = "vasárnap"
End Select
KORA = KORA & " éves, születésének napja: " & nap
End Function -
#4309
FragMaster
addikt
FragMaster
addikt
Készítsen olyan függvény makrót, amely egy beadott időérték alapján
köszönti a felhasználót.
Ha például az időérték:
reggel 6 óra és 10 közötti, akkor Jó reggelt, ha
10 és 18 óra közötti, akkorJó napot, ha
18 és 22 óra közötti, akkor Jó estét,
amennyiben 22 óra és reggel 6 közötti az idő, akkor
Jó éjszakát legyen az eredmény.
Használja az idő bekérésére a TIME függvényt, míg számmá konvertálásra a Cdbl függvényt.
A függvénymakró ellenőrizze le, hogy a bevitt adat szám-e, ha nem akkor a függvény eredmény a Hiba szó legyen.Na itt csak a kiemelt rész homály. Hihetetlen mennyire használhatatlan a kapott tankönyv
-
#4308
FragMaster
addikt
Delila_1
#4307
FragMaster
addikt
válasz
Delila_1
#4307
üzenetére
Kisebb módosításokkal meglett ennek a segítségével egy másik, hasonló feladat is.
Function KORA(Születési_dátum)
If VarType(Születési_dátum) = 0 Then
KORA = "Nincs adat": Exit Function
End If
If VarType(Születési_dátum) <> 7 Then
KORA = "Dátumot kérek": Exit Function
End If
KORA = Round((Date - Születési_dátum) / 365)
End Function
Sub Start_KORA()
Születési_dátum = ActiveCell.Value
KORA Születési_dátum
ActiveCell.Offset(, 1).Value = KORA(Születési_dátum)
End SubA " If VarType(Születési_dátum) <> 7 Then " sorban nem vagyok biztos a 7-es számban, de működik.
-
#4307
Delila_1
veterán
FragMaster
#4306
Delila_1
veterán
válasz
FragMaster
#4306
üzenetére
-
lúzer
veterán
válasz
Delila_1
#4304
üzenetére
nálam is vacakolt, új lapon ment, betudtam a sok próbálkozásnak
egyébként ha színezek egy cellát nem frissül, de ha lehúzom a cellát, másolom a színt, és utána írok be értéket akkor igen - persze tartományon belül!
érdekes....illetve frissül, ha bárhol beírok egy számot a tartományba
és hogy sem idéző sem időző jel nem kell 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Gyermek PC játékok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Bomba ár! Dell Latitude 3590 - i5-8GEN I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Garancia!
- Bomba ár! Lenovo ThinkPad P43s - i7-8G I 8GB I 256GB SSD I Nvidia I 14" FHD I Cam I W10 I Garancia!
- BESZÁMÍTÁS! Apple iMac Pro (2017) 5K - Xeon W-2140B 64GB DDR4 RAM 1TB SSD Radeon PRO Vega 56 8GB
- BESZÁMÍTÁS! ASROCK B650 R5 7600X 32GB DDR5 1TB SSD RTX 3070 8GB MSI MPG Gungnir 100 Enermax 750W
- Konzol felvásárlás!! Xbox Series S, Xbox Series X
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged