- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- ArchiCAD és Artlantis topik
- Mikrotik routerek
-
IT café
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
-
alfa20
senior tag
megint én:
most olyat szeretnék, hogy kész a táblám nagyon szépen működik de még olyat szeretnék, hogy ha egy adott sorban talál egy szöveget, akkor egy 'MsgBox'-ot dobjon fel, ha meg másik szöveg akkor egy másikat, és egy harmadik félét, ha egyik szöveg sem szerepel az oszlopban:amit kipróbáltam az nem működik, nem tetszik neki, gondolom nem ennyire egyszerű
Range("AB1").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(COUNTIF(C[-7],""STÁTUSZ HIBA!""),COUNTIF(C[-7],""ADAT HIBA!"")), msgbox(Ellenőrizd a Státuszokat és az adatokat!),IF(AND(COUNTIF(C[-7],""STÁTUSZ HIBA!""),COUNTIF(C[-7],""OK"")),msgbox(Ellenőrizd a státuszokat!),IF(AND(COUNTIF(C[-7],""OK""),COUNTIF(C[-7],""ADAT HIBA!"")),msgbox(Ellenőrizd az adatokat!),IF(AND(COUNTIF(C[-7],""STÁTUSZ HIBA!"")=0,COUNTIF(C[-7],""ADAT HIBA!"")=0),msgbox(GRATULÁLOK! ma jó napod van!),4))))""Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
m.zmrzlina
senior tag
A probléma:
Adott egy tartomány (2 oszlop, a másodikban színes hátterű cellák). A tartomány leszűrve a 2. oszlop színes celláira.
Ezt a leszűrt tartományt (csak a leszűrt értékeket) akarom másolni.
Ennek az eredménye egyik gépen rendben van (csak a kívánt sorokat másolja) a másikon az egész tartományt, hiába csak a szűrt sorokat látom.Ha a cellatartalomra szűrök akkor mindkét gépen rendben van a szűrt tartomány kijelölése és másolása.
Nyilván valami excel beállítás az oka de vajon mi?
-
Bocimaster
csendes tag
Sziasztok!
Erre lehetne megoldás? (macroval)
- egy txt fájlba kaptam adatbázis adatot - tudom töltöttem is már be kisebbet nagyobbat.
DE egy egy 35 gigás .......- office 2013 használok, 1 millió sor azt még lekezeli.
Kérés: létezik olyan macro amely meghívja a txt fájt és 1 millió sorként új lapfület vagy új fájt nyithatna ...
előre is köszi, a válaszokat
Az ösztön mindig többet ér az észnél.
-
Kobe
veterán
hat ez valami kibaxott nagy access issue lesz, vagy nem tudom Kiprobaltam mindent amit leirtal, vegigbogarasztam a teljes CPearson fele VBA programming szekciot, gyakorlatilag mindenhol ugyanezt a emgoldast hasznaljak, amit te is mutattal, nalam ez is errorra fut. Minden valtozo definialva van rendesen, ennel a linenal viszont errorra fut :
Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
mondvan a vbext_ct_StdModule nincs definialva mint valtozo, ami tok erdekes mivel ugye ez standard VBA komponens es kulon definialas nelkul is mennie kene...
-
Agostino
addikt
üdv
adott egy hatalmas excel file, amiben kb 65 000 sornyi adat található, sok adattal és szemre látom, hogy kb a 2/3 ismétlődik. hogyan lehetne ezeket kiszűrni a legegyszerűbben? feltételes formázás - cellakijelölés szabályok - ismétlődő értékek nem vezetett eredményre, teljesen leterheli a gépet és lefagy az egész. igazából az adatok ismétlődések eltávolítása lenne az igazi, az viszont csak az adott oszlopból teszi és nem töröli ki a sort, amelyben az ismétlődés található, csak az oszlop értékeit tolja felfelé, de ezzel az egész használhatatlan lesz. ha azt mondom tegye mindent bővített kijelöléssel, akkor meg semmit sem talál. hogyan lehetne a második módszer aszerint ötvözni, hogy megtalál minden duplikációt az adott oszlopon belül, majd a duplikációval érintett sort is törli - ezáltal nem csúsztatva el mindent?
hey friend listen, i know the world is scary right now but its gonna get way worse
-
Delila_1
Topikgazda
válasz Agostino #17805 üzenetére
Készíts egy másolatot a lapról.
A másolaton vegyél fel egy új oszlopot, ahol a darabteli függvénnyel kiíratod, hány db van az egyes adatokból az oszlopban. Szűrd az új oszlopot az 1-nél nagyobb értékekre, és ezeket a sorokat töröld ki.
Töröld a régi lapot.
Örülj.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Agostino #17807 üzenetére
A DARABTELI függvény ad majd számokat.
Ha az adataid az A oszlopban vannak, akkor az új oszlop 2. sora (címsort feltételezve) legyen =DARABTELI(A$2:A2;A2). Figyelj a $ jelre!
Ezt a függvényt lemásolod a többi sorba. Minden sorba azt írja be, hányadik alkalommal fordul elő az adat az oszlopban.
Ahol 1 az érték, az a sor marad, a többit törölheted.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Vicoo
senior tag
Üdv!
Excel guruk segítsetek ! Hogyan tudok egy oszlopból tortadiagramot készíteni, ha négyféle szöveges adat fordul elő , de van hogy egy cellában többféle is, de maximum négy? Szóval azt szeretném, hogy mind a négy szöveg számát tudjam, hogy hányszor fordul elő az oszlopban, és utána az előfordulásuk alapján százalékos megoszlást írni róluk amit torta diagramba teszek. -
Delila_1
Topikgazda
-
alfa20
senior tag
Delila_1
Köszönöm a másik fórumon a válaszod, mivel látom itt aktívabb vagy inkább itt kérdeznék:és ha én egy egész oszlopban szeretnék kerestetni?
igazából négy állításra kellene az üzenet.pl:
ha 'A' oszlop tartalmazza az 'alma' szót, akkor írja ki: 'van almád'
ha 'A' oszlop tartalmazza az 'körte' szót, akkor írja ki: 'van körtéd'
ha 'A' oszlop tartalmazza az 'alma' és a 'körte' szót, akkor írja ki: 'van almád és körtéd'
ha 'A' oszlop egyiket sem tartalmazza, akkor meg azt írja: 'semmid sincs'előzmények:
kérdés:
Makróba 'HA' függvénybe belehet ágyazni az 'MsgBox'-ot?
Azt szeretném, ha lefut a makró összerakja nekem a táblát, és ha 'X'
sorban talál egy bizonyos szöveget, akkor fel dobjon egy üzenet ablakot, amit csak le kell 'OK'-ézni, ha viszont nem találja akkor egy másik üzenet jelenjen meg.válaszod:
Sub Kerdesek()
If Range("A5") = "Egyik szöveg" Then
MsgBox "Tudomásul vettem."
Else
MsgBox "Nem találom. :("
End If
End SubHa egy ciklusban keresel, kicsit másképp alakul.
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
válasz alfa20 #17811 üzenetére
Itt legalább látszik a makróban a tagolás.
A ciklust a 2. sortól indítottam, feltételezve, hogy van címsorod.Sub Valami()
Dim sor%, usor%, szoveg$, f As Boolean
usor% = Range("A" & Rows.Count).End(xlUp).Row
For sor% = 2 To usor%
If InStr(Cells(sor%, 1), "alma") And _
InStr(Cells(sor%, 1), "körte") Then
szoveg$ = "Van almád és körtéd"
f = True: GoTo Kiiras
End If
If InStr(Cells(sor%, 1), "alma") Then
szoveg$ = "Van almád"
f = True: GoTo Kiiras
End If
If InStr(Cells(sor%, 1), "körte") Then
szoveg$ = "Van körtéd"
f = True: GoTo Kiiras
End If
Kiiras:
If f Then
MsgBox szoveg$
Else
MsgBox "Semmid sincs"
End If
szoveg$ = "": f = False
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
őstag
válasz koxkids #17797 üzenetére
Mégis lenne egy kérdésem
Itt a sorbarendező kód:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveWorkbook.Worksheets("Munka2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Munka2").Sort.SortFields.Add Key:=Range("H1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Munka2").Sort
.SetRange Range("B1:H322")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End SubŐ ugye bármilyen változásra lefut, hogy lehetne, hogy csak akkor fusson le, ha lent átváltok a Munka2-re?
Mert ha az Munka1-en írom be az adatok, zavaróan felvillan. Mintha átlátszana a Munka1-es lap, az adatok nekem ugyis csak akkor kellenek, ha megnézem a Munka2-t.Köszi
-
alfa20
senior tag
szerintem:
'A' oszlopban vannak az állítások tetszőlegesen (pl: egy, kettő, három, négy)
'B' oszlopba megadod az állításokat:
B2: egy
B3: kettő
B4: három
B5: négy'C' oszlopba:
C2: =DARABTELI(A:A;"egy")
C3: =DARABTELI(A:A;"kettő")
C4: =DARABTELI(A:A;"három")
C5: =DARABTELI(A:A;"négy")'D' oszlop %-ot számol ennek megfelelően legyen % a cella formátum:
D2: =C2*(1/SZUM(C$2:C$5))
D3: =C2*(1/SZUM(C$2:C$5))
D4: =C2*(1/SZUM(C$2:C$5))
D5: =C2*(1/SZUM(C$2:C$5))Aztán márt csak a diagram van hárta
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz Delila_1 #17812 üzenetére
köszi,
ez jó lenne csak most az a baj, hogy végigmegy az összes cellán.
próba képen 8 cellába beírtam felváltva, alma, körte, majd futtattam a makrót és 8 szor kellett klikk-elni az ok-ra."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz Delila_1 #17816 üzenetére
Bocsi,
szóval azt szeretném, hogy adott egy oszlop (legyen "A") amiben vannak állítások (több száz sor):
- ideális esetben csak "OK" szerepel, ekkor írja ki: "minden ok"
- az oszlopban szerepel az "OK" és a "STÁTUSZ HIBA!", ekkor írja ki: "Státusz hiba, javítsa!"
- az oszlopban szerepel az "OK" és az "ADAT HIBA!", ekkor írja ki: "Adat hiba, javítsa!"
- az oszlopban szerepel az "OK", a "STÁTUSZ HIBA!" és az "ADAT HIBA!", ekkor írja ki: "Státusz és adat hiba, javítsa!"a lényeg hogy csak egy ablak ugorjon fel.
remélem sikerült leírnom amit szeretnék...
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
válasz alfa20 #17815 üzenetére
Talán így megfelel.
Sub Valami()
Dim sor%, usor%, szoveg$
Dim alma%, korte%
usor% = Range("A" & Rows.Count).End(xlUp).Row
For sor% = 2 To usor%
If InStr(Cells(sor%, 1), "alma") Then alma% = alma% + 1
If InStr(Cells(sor%, 1), "körte") Then korte% = korte% + 1
Next
If alma% > 0 And korte% > 0 Then szoveg$ = "Van " & alma% & " db almád és " _
& korte% & " db körtéd."
If alma% > 0 And korte% = 0 Then szoveg$ = "Van " & korte% & " db körtéd."
If alma% = 0 And korte% = 0 Then szoveg$ = "Nincs semmid."
MsgBox szoveg$
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Caipi
tag
-
Mutt
aktív tag
válasz koxkids #17797 üzenetére
Hello,
Tehát amint írok be az első munkalapon új céget, a 2. munkalapon amint bekerül a sorok közé az új adat, automatikusan csökkenő sorrendben jelenjen meg.
Ha érdekel, akkor makró nélkül is meg lehet oldalni a NAGY (LARGE) függvény és vmilyen kereső függvény (FKERES, ELTOLÁS stb.) eltolásával is meg lehet oldalni.
Felraktam ide egy egyszerű példát, az első táblázatba felvitt értékeket a másodikban csökkenő sorrendben jeleníti meg.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz Bocimaster #17803 üzenetére
Hello,
Ha tényleg 35GB-os a text fájl akkor szerintem Excel-t felejtsd el, vagy előbb PowerPivot kiegészítőd rakd fel. Ezt inkább adatbáziskezelővel kellene feldolgozni.
A lenti makró megcsinálja azt amit kérsz, egy 70MB-os 400.000 soros text fájlon nekem kb. 5 perc kellett neki. Egy 35 GB-oson 41 óra lenne a beolvasás, szóval mielőtt ráereszted egy kisebb szeleten is próbáld ki.
Saját felelősségre itt a kód.
Sub ImportTxtFile()
Dim myFileName As String
Dim myLine As String
Dim FileNum As Long
Dim sor As Long
Dim splitLine
Dim i As Long
Const chrDelimiter = vbTab
'fájl hozzárendelése
myFileName = "C:\test.txt"
FileNum = FreeFile
Close FileNum
Open myFileName For Input As FileNum
'képernyő frissítés kikapcsolása
Application.ScreenUpdating = False
sor = 1
'fájl beolvasás kezdete
Do While Not EOF(FileNum)
Line Input #FileNum, myLine
'sorok felszabdalása
splitLine = Split(myLine, chrDelimiter)
'sorok cellákba mentése
If UBound(splitLine) > 0 Then
For i = 1 To UBound(splitLine)
ActiveSheet.Cells(sor, i) = splitLine(i - 1)
Next i
End If
sor = sor + 1
'új munkalap nyitása - ha már nincs több sor
If sor > Rows.Count Then
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Activate
sor = 1
End If
Loop
Application.ScreenUpdating = True
End Subüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
Hello,
Szeretném valahogy levizsgálni, hogy a kézi rögzítés a bal oldali táblázatnak megfelelő oszlopba/oszlopokba történik-e.
Hogyan kerülnek be az adatok a bal oldaliba? Mindegyik cella ki lesz ott töltve?
Egyszerre több sor is kerülhet be a bal oldaliba?Ha realtime (vagyis ahogy a balba egy cella bekerül) szeretnéd ellenőrízni, akkor a makróval ezt tudod kezelni, pl:
Private Sub Worksheet_Change(ByVal Target As Range)
'ha az első 5 oszlopban változik adat (kivétel az első sor)
'akkor a cella kitöltése után jobbra ugrunk 7-et
If Target.Row > 1 And Target.Column <= 5 Then
Cells(Target.Row, Target.Column).Offset(, 7).Activate
End If
End SubHa utána akarod összehasonlítani a bal és jobb táblázatot, akkor pedig egy sima = vagy <> összehasonlítással tudod megtenni. Pl.
=(A2<>H2)+(B2<>I2)+(C2<>J2)+(D2<>K2)+(E2<>L2)
Ha ez a függvényt 0-t ad, akkor a sorban azonos a két táblázat, különben pedig annyi helyen van eltérés.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz koxkids #17813 üzenetére
Hello,
Ő ugye bármilyen változásra lefut, hogy lehetne, hogy csak akkor fusson le, ha lent átváltok a Munka2-re?
Ahogy írod is a Workbook_SheetChange esemény minden alkalommal lefut, amikor bármelyik lapon változás történik.Neked a Munka2-es lap Activate eseményére kell tenned a kódot.
Private Sub Worksheet_Activate()
<kódod>
End Sub
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Caipi
tag
Szia,
Köszönöm szépen, a függvényre volt szükségem :-)
Megint nem láttam a fától az erdőt, nem jutott eszembe ez az egyszerű megoldás.A bal oldali táblázatba kézzel bevitt összegek kerülnek. A feladvány az, hogy a kézi beírás ugyanabba az oszlopba/oszlopokba kell történnie, mint a függvénnyel átemelt értékeket tartalmazó jobb oldali táblázatban.
Ezen felül még a táblázat sorainak végösszegei meg kell egyezzenek egy harmadik helyen bevitt adatokkal.
De ennek segítségével már megy is az egész :-)
Még1x köszönöm :-) -
alfa20
senior tag
válasz Delila_1 #17818 üzenetére
Szia Delila_1,
Kipróbáltam reggel, át ültettem a táblába, előbb volt egy hiba üzenet a "Dim sor%, usor%, szoveg$" ", usor%"-nál:
"Compire error:
Duplicate declaration in current scope
mivel van már 'usor' a táblába így a 'Dim' sorbol kivettem a többi 'usor%'-ot át írtam 'usor'-ra, így már végigfut, de csak egy üres ablak jelenik meg. próbáltam, hogy rögzítem a képletet hogy csak szöveg legyen a cellában, de akkor is csak üres ablakot dob fel.
Azt is megpróbáltam, hogy másik makróba tettem csak ezt a részt és egy 'CTRL+K'-val futtattam, de ez sem segített.
most így néz ki:
Dim sor%, szoveg$
Dim OK%, AH%
usor = Range("U" & Rows.Count).End(xlUp).Row
For sor% = 2 To usor
If InStr(Cells(sor%, 1), "OK") Then OK% = OK% + 1
If InStr(Cells(sor%, 1), "ADAT HIBA!") Then AH% = AH% + 1
Next
If OK% > 0 And AH% > 0 Then szoveg$ = "Adathibák száma: " & AH% & " db."
If OK% > 0 And AH% = 0 Then szoveg$ = "Nincsenek hibák."
MsgBox szoveg$viszont ami érdekes, ha egy üres munkafüzetbe teszem bele csak ezt a részt, akkor szépen működik, akkor meg szépen teszi a dolgát.
lenne ötleted?
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
válasz alfa20 #17828 üzenetére
Az én makrómban 1× szerepelt a Dim sorban az usor%, amit Te végül nem dimenzionáltál.
Az utolsó sor (usor) értékét a
usor = Range("U" & Rows.Count).End(xlUp).Row
sor szerint a lap U oszlopából veszed az A helyett. Ha az U oszlopban nincs adat, vagy nem annyi van, mint az A-ban, hibásan működik a makró.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
m.zmrzlina
senior tag
Szerintem egy ötletnek ez jó lesz.
Sub ellenoriz()
Range("F:F").EntireColumn.ClearContents
For Each cella In Selection.Cells
If cella.Value <> cella.Offset(0, 7).Value Then
Cells(cella.Row, 6).Value = "Ez a sor hibás!"
End If
Next
End SubMielőtt futtatod ki kell jelölni a függvények által képzett (az "A" oszlopban kezdődő) tartományt.
-
Delila_1
Topikgazda
válasz m.zmrzlina #17830 üzenetére
A saját kijelölés kiküszöbölésére a for each fölött a
Range("A1").Select
Selection.CurrentRegion.Selectkijelöli a szükséges területet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Caipi
tag
válasz m.zmrzlina #17830 üzenetére
Köszönöm szépen,
A makrókat igyekszem kerülni, mivel a cégnél alapból le van tiltva a makró az excelekben és elég nehézkes elmagyarázni az emberkéknek, hogy mit is tegyenek, ha dolgozni akarnak ebbe a fájlbaEzért igyekszem mindent függvénnyel megoldani
-
m.zmrzlina
senior tag
Amíg meg nem kapod a rendes megoldást addig használd ezt a förmedvényt:
=HA(A1<>ELTOLÁS(A1;0;7);"Ez a sor hibás!";HA(B1<>ELTOLÁS(B1;0;7);"Ez a sor hibás!";HA(C1<>ELTOLÁS(C1;0;7);"Ez a sor hibás!";HA(D1<>ELTOLÁS(D1;0;7);"Ez a sor hibás!";HA(E1<>ELTOLÁS(E1;0;7);"Ez a sor hibás!";"")))))
Értelemszerűen ez az F1 cella képlete.
Biztos vagyok benne, hogy létezik egy szebb fv erre a problémára.[ Szerkesztve ]
-
Caipi
tag
válasz m.zmrzlina #17833 üzenetére
Köszönöm,
Már csinálom a függvényt, a többi része rendben lesz, bár jó hosszú lesz
Még ki kell tesztelnem, hogy minden hibára jelezzen, amit el lehet követni -
Caipi
tag
válasz m.zmrzlina #17838 üzenetére
:-D
Hálistennek a hibázási lehetőségek száma nem sok, főleg ha a függvényes cellák zároltak.
Azt már látom, hogy csak simán nem megy az A1<>D1, mivel az első táblázatba fgv-el jönnek az adatok.
Darab(A1)<>darab(D1) szintaktika a működő az esetemben. -
Delila_1
Topikgazda
válasz m.zmrzlina #17834 üzenetére
Aktuális terület 1 cellából nézve az, amit 4 irányból határol 1-1 üres oszlop, ill. üres sor.
A területen belül állva Ctrl+a, vagy Ctrl+t jelöli ki. Próbáld ki foghíjas területekkel.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Caipi
tag
-
whatnot
őstag
Sziasztok!
Makróban van dátum/időpont formázási problémám.
Adott formátumban, stringként van megadva az időpont:nn/hh/éééé óó:pp:mm
Ezt kéne alábbi formátumba rakni:
éééé.hh.nn óó:pp
Tehát pl. 25/04/2013 09:00:00 -> 2013.04.25 09:00
A fenti példát az alábbi kódom egyszerűen meg is oldja:
For i = 2 To LastRow
If Cells(i, 9).NumberFormat <> "yyyy.mm.dd hh:mm" Then
Ttime = Cells(i, 9).Value
Cells(i, 9).Value = Format(Ttime, "yyyy.mm.dd hh:mm")
End If
NextA probléma ott kezdődik, amikor a dátumban a hónap és a nap látszólag érvényesen felcserélhető lenne. Pl. ebben az esetben:
04/06/2013
Ebből ugyanis ez lesz: 2013.04.06, a 2013.06.04 helyett.Sajnos az nem segít, hogy én előre letisztázom neki, az adott cellákban a formátum nn/hh/éééé óó:pp:mm és ebből legyen szíves átalakítani.
Ötlet?
-
lapa
veterán
válasz whatnot #17843 üzenetére
én inkább biztosra szoktam menni és összetákolom dateparttal. mittomén ilyesmi:
datenow = DatePart("yyyy", Date) & Right("0" & DatePart("m", Date), 2) & Right("0" & DatePart("d", Date), 2) & Right("0" & DatePart("h", Time), 2) & Right("0" & DatePart("n", Time), 2)
elég favágás, de ha meló van inkább befavágom ezt 5 mp alatt.
más: volt régen egy olyan makró, amivel úgy tudtam emailezni a táblát, hogy nem jött a görcsi outlook figyelmeztető üzenet. megvan ez valakinek, vagy kezdjek turkálni? köszi.
(ja, amúgy a gombicsek-csinálást nem felejti el a Citrix, szóval minden szuper.)
[ Szerkesztve ]
-
elmouse
aktív tag
válasz Delila_1 #17658 üzenetére
Szia!
Az általad írt makróról lenne kérdésem.
A feladat most is hasonló, tehát egy adott oszlop utolsó 50 tagjának kellene kiszámolni az átlagát, de ciklusban. Vagyis először az A oszlop utolsó 50 tagjának az átlagát,aztán a B oszlopét is így tovább, míg van adatokat tartalmazó oszlop.
A kérdés persze nem csak neked szól. Bárki segítségét elfogadom.
Előre is köszönöm!Ka nama kaa lajerama!
-
lapa
veterán
ja, megtaláltam. CDO bigyóval outlook nélkül lehet spammelni.
ehhez annyit, hogy ezzel amúgy teljesen automatizált szerveroldali riportolást lehet csinálni, pölö:
-van egy szervered (mondjuk terminálszerver) excellel
-csinálsz egy excelt auto_open makróval
-tötöjkéz a makró, elmenti magát a kész fájl valami néven
-cdo makró elküldi a tündéreknek a riportot
-file bezárja excelt application.quit-tel
-beállítod a szerveren ütemezett feladatnak, hogy egy (megfelelő jogokkal rendelkező) júzer nevével minden nap elindítsa a fájlttada. csak gondoltam hasznos lehet.
[ Szerkesztve ]
-
whatnot
őstag
Nem próbáltam ki, de gyanúm szerint a következő miatt nem fog menni.
Van nekem ugye egy Ttime nevű, Date típusú változóm.
A 04/06/2013 09:00:00 stringet beledobom ebbe a változóba, szépen meg is eszi. Amikor lépésről lépésre nézem a kódot, a Locals Window-ban lehet nézni a változók aktuális értékeit. A fenti string pedig 2013.04.06 09:00:00 formátumban kerül be egyből a Ttime változóba, tehát a hiba már meg is történt. Azaz eleve rosszul értelmezi a napot, hónapot.Persze elvileg meg lehet csinálni regular expression-nel, de valami elegánsabb, kevésbé bonyolult megoldást keresek. No meg nem is csináltam még regex-et excelben.
[ Szerkesztve ]
-
Delila_1
Topikgazda
Ez a forma nem a legjobb hozzá. Próbáld másképpen.
Dühítő ez a 2010-es verzió. Adok egy galambszürke kitöltést a diagram területére, mire ezt a bánatos színt hozza. Nem bajlódom vele tovább, úgysem a szín a lényeg.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.