- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- Atomenergiával dübörögnek tovább az Amazon adatközpontok, SMR-ek is jöhetnek
- Macron betiltatná az EU-ban a közösségi médiát a 15 év alattiaknak
- Az NVIDIA ipari AI-felhőt épít a németeknek, együtt az OpenAI és a Google
- Két új Ryzen közül választhatnak a kézikonzolok
- Milyen notebookot vegyek?
- HiFi műszaki szemmel - sztereó hangrendszerek
- Kompakt MSI alaplap érkezett Ryzenek alá
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Milyen videókártyát?
- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- Autós kamerák
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- AMD Navi Radeon™ RX 9xxx sorozat
- Ismét a Gigabyte alaplapjaival van az Erő
-
PROHARDVER!
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
-
Colin111
csendes tag
válasz
Delila_1
#37798
üzenetére
ezzel is csak egyesével léptet a nevek közt....
a következőre szeretnék ugrani, akkor is ha azonos nevűből egymás alatt több vanannyit már sikerült megoldani, hogy névkezelővel felvettem egy dinamikus tartományt, amiben megszámolom hány azonos név van egymás alatt (=DARABHATÖBB(form_1;név)
továbbá megoldottam, hogy megszámolja hány darab van a következő névből és az előzőből
- ez az ugrások számához kell majd... -
Mutt
senior tag
válasz
Colin111
#37796
üzenetére
Egy hosszú képlet esetleg Excel 2010 vagy frissebb esetén:
=HA(K1>SZORZATÖSSZEG(1/DARABTELI(nevsor;nevsor));"Nincs több név";INDEX(nevsor;ÖSSZESÍT(15;6;HOL.VAN(nevsor;nevsor;0)/HA(GYAKORISÁG(HOL.VAN(nevsor;nevsor;0);SOR(INDIREKT("A1:A"&DARAB2(nevsor))))>0;1;0);K1)))Létre kell hoznod a névkezelőben nevsor névvel egy dinamikus tartományt, a képlete (Munka1 füzet esetén):
=ELTOLÁS(Munka1!$A$2;0;0;DARAB2(Munka1!$A:$A)-1) -
Colin111
csendes tag
válasz
Fferi50
#37795
üzenetére
Bocs, azt nem írtam, hogy segéd oszlopra nincs lehetőség, mert folyamatosan bővül az adatbázis újabb és újabb esetekkel, ezért arra nincs lehetőség hogy minden új bejegyzés után a segéd oszlopot frissítse a felhasználó, ennek automatikusan követnie kellene a változásokat.
-
Fferi50
Topikgazda
válasz
Colin111
#37794
üzenetére
Szia!
A neveket másold le egy külön oszlopba, majd ismétlődések eltávolítása. - ezáltal csak egy-egy név marad.
A léptetőnek a min-max értékét ehhez az oszlophoz igazítsd.
Ha mondjuk az X oszlopban vannak a nevek, a léptető pedig a K1 cellához van kapcsolva, akkor a képlet=Index($X$1:$X$10;$K$1)
amit írhatsz pl. a K2 cellába akár.Üdv.
-
Colin111
csendes tag
Sziasztok!
Régóta megoldatlan dologba futottam megint, mármint részemről, azaz eddig még nem sikerült egyszerűen megoldani az alábbi problémát. Mindenféle ötletet szívesen fogadok!
Az alábbi táblázatban azt szeretném elérni hogy a léptető gombra kattintva mindig a következő/előző név jelenjen meg, függetlenül attól hogy egy név hányszor szerepel a listában az A oszlopban..
A léptető ugyebár nem tud függvényt fogadni, mert pl. a "DARABHATÖBB(A:A;K3)" segíthetne...
Remélem érthető a kérdésem.... -
Fferi50
Topikgazda
válasz
logitechh
#37792
üzenetére
Szia!
Számolást kikapcsolod. (Képletek - Számolási beállítások - Manuális). Ezután Ctrl+F (keresés és csere), Keresett szöveg 10403 Csere fül -- Csere erre: amire akarod, majd Egyebekre katt, Keresés helye kiválasztod Képletek --- az összes cseréje.
Számolás visszakapcsolása (Képletek - Számolási beállítások - Automatikus)
Makróval:
Application.Calculation=xlCalculationManual
Activesheet.Usedrange:Find What:="10403",LookIn:=xlFormulas,LookAt:=xlPart
Activesheet.Usedrange.Replace What:="10403", Replacement:="5000",LookAt:=xlpart
Application.Calculation=xlCalculationAutomaticÜdv.
-
logitechh
csendes tag
Sziasztok
Van egy táblázatom ami jelenleg 10000 sornyi adatra van képletezve.
ez most még sok de később meg kevés lesz.
Van egy rakat képletem ami kb ilyen=SZUMHA($B$404:$B$10403;B257;$K$404:$K$10403)itt rögzített a végeA kérdésem az hogy ha a 10403 at ki szeretném cserélni 5000 re vagy 15000 re akkor azt makróval vagy az indirekt függvénnyel csináljam.
Lehet ezt egyáltalán makróval?Sajnos az indirektet se nagyom bírom felfogni. Valaki tudna egy érthető leírást hozzá?
-
Fferi50
Topikgazda
Szia!
Ha kérdés nélküli felülírást szeretnél, akkor
Application.DisplayAlerts = False a makró elejére és
Application.DisplayAlerts = True a makró végére.A kihagyáshoz:
LocalFileName = "C:\temp\" & Evaluate("TRIM(RIGHT(SUBSTITUTE(""" & c & """,""/"",REPT("" "",1000)),1000))")
B=Dir(LocalFileName)=""
If B Then B = True ThenDownloadFile(UrlFileName:=URL, _
DestinationFileName:=LocalFileName, _
Overwrite:=PromptUser, _
ErrorText:=ErrorText)
End ifÜdv.
-
Marvinyo
aktív tag
Sziasztok!
Power Queryvel van problémám:
Több lekérdezést fűzök össze egymás "mögé" (táblázatilag alá). A különálló lekérdezésekben, és a forrásában is az A oszlop adat típusa dátum. Az összefűző lekérdezésben is átállítottam a típust dátumra. Valamiért mégis az eredmény minden egyes alkalommal dátum helyett "General", emiatt egy ezen a queryn alapuló pivot table mindig elromlik.
Mi a megoldás erre a problémára?
-
palimre
csendes tag
Nagyon szép megoldás. Egyetlen apró hibalehetőség maradt benne: A végén a $A$1-ben a $ jelek nem kellenének. Ugyanis a kérdező elfelejtette jelezni, hogy nem az A oszlopban használja, hanem az X oszlopban. Ráadásul nem is ugyanazon a munkalapon. És ha ilyenkor is az aktuális munkalap A1 oszlopában keresi a karaktereket, akkor meglepő eredményekre juthat.
-
Lokids
addikt
Sziasztok!
Segítséget szeretnék kérni az FKERES működésre bírásához.
EZ a leírás alapján próbálok validációs listát csinálni, de nem megy, hibát dob a képletre.
az, hogy:
=INDIREKT(FKERES(A1,lookuplista,2,HAMIS)&"List")
hibát okoz. És a FKERES belsejét jelöli. (lookuplista egy névtér)Egyszerűen nem tudok rájönni, hogy mi a hiba.
Elvileg ennek az A1 cellába írt érték alapján kellene kikeresnie a lookuplista névtérből a második oszlop értékét, majd ezt az indirekt egy másik névtérbe lévő értékkel kapcsolja. -
#37780
dellfanboy
őstag
dellfanboy
őstag
szerintetek mi okozza azt hogyha egy excelt bezarok, allandoan feljon az a hibaablak hogy az excel.exe stopped working and restarting? jogtiszta, meg uj gep...
-
#37779
Mutt
senior tag
MinekMentOda
#37757
Mutt
senior tag
válasz
MinekMentOda
#37757
üzenetére
Tömb függvény:
=--ÉS(SZÁM(SZÖVEG.KERES(KÖZÉP(A2;SOR(INDIREKT("A1:A"&HOSSZ(A2)));1);$A$1))) -
lcdtv
tag
Válaszolok is ha valakinek szüksége lenne rá.
Option Explicit
Public Enum DownloadFileDisposition
OverwriteKill = 0
OverwriteRecycle = 1
DoNotOverwrite = 2
PromptUser = 3
End Enum
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Windows API functions, constants,and types.
' Used for RecycleFile.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Declare Function PathIsNetworkPath Lib "shlwapi.dll" _
Alias "PathIsNetworkPathA" ( _
ByVal pszPath As String) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" ( _
ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Private Declare Function SHEmptyRecycleBin _
Lib "shell32" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
Private Const MAX_PATH As Long = 260
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
'''''''''''''''''''''''''''
' Download API function.
''''''''''''''''''''''''''''''''''''''
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' DownloadFile
' This downloads a file from a URL to a local filename.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function DownloadFile(UrlFileName As String, _
DestinationFileName As String, _
Overwrite As DownloadFileDisposition, _
ErrorText As String) As Boolean
Dim Disp As DownloadFileDisposition
Dim Res As VbMsgBoxResult
Dim B As Boolean
Dim S As String
Dim L As Long
ErrorText = vbNullString
If Dir(DestinationFileName, vbNormal) <> vbNullString Then
Select Case Overwrite
Case OverwriteKill
On Error Resume Next
Err.Clear
Kill DestinationFileName
If Err.Number <> 0 Then
ErrorText = "Error Kill'ing file '" & DestinationFileName & "'." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If
Case OverwriteRecycle
On Error Resume Next
Err.Clear
B = RecycleFileOrFolder(DestinationFileName)
If B = False Then
ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If
Case DoNotOverwrite
DownloadFile = False
ErrorText = "File '" & DestinationFileName & "' exists and disposition is set to DoNotOverwrite."
Exit Function
'Case PromptUser
Case Else
S = "The destination file '" & DestinationFileName & "' already exists." & vbCrLf & _
"Do you want to overwrite the existing file?"
Res = MsgBox(S, vbYesNo, "Download File")
If Res = vbNo Then
ErrorText = "User selected not to overwrite existing file."
DownloadFile = False
Exit Function
End If
B = RecycleFileOrFolder(DestinationFileName)
If B = False Then
ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If
End Select
End If
L = URLDownloadToFile(0&, UrlFileName, DestinationFileName, 0&, 0&)
If L = 0 Then
DownloadFile = True
Else
ErrorText = "Buffer length invalid or not enough memory."
DownloadFile = False
End If
End Function
Private Function RecycleFileOrFolder(FileSpec As String) As Boolean
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
If (Dir(FileSpec, vbNormal) = vbNullString) And _
(Dir(FileSpec, vbDirectory) = vbNullString) Then
RecycleFileOrFolder = True
Exit Function
End If
With FileOperation
.wFunc = FO_DELETE
.pFrom = FileSpec
.fFlags = FOF_ALLOWUNDO
' Or
.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
End With
lReturn = SHFileOperation(FileOperation)
If lReturn = 0 Then
RecycleFileOrFolder = True
Else
RecycleFileOrFolder = False
End If
End Function
Sub example()
Dim URL As String
Dim LocalFileName As String
Dim B As Boolean
Dim ErrorText As String
Dim c As Range
For Each c In Columns("K:L").SpecialCells(xlCellTypeConstants, 23)
URL = c
LocalFileName = "C:\temp\" & Evaluate("TRIM(RIGHT(SUBSTITUTE(""" & c & """,""/"",REPT("" "",1000)),1000))")
B = DownloadFile(UrlFileName:=URL, _
DestinationFileName:=LocalFileName, _
Overwrite:=PromptUser, _
ErrorText:=ErrorText)
If B = True Then
Debug.Print "Download successful"
Else
Debug.Print "Download unsuccessful: " & ErrorText
End If
Next c
End Sub -
-
tomi5244
őstag
Sziasztok!
Volna egy hatalmasnak mondható táblázat, ahol egy összeadás elcsúszott, vagy hibás össdzeget írtam, nem tudom. Végén a szumma nem számol, meg kéne keresnem, hogy hol a hiba, de a több mint 22 ezer sort nem nyálaznám végig.
Van arra módszer, hogy a hibás adatra ugorjak?
Köszi!
T -
#37773
Ferenc1989
tag
Ferenc1989
tag
Sziasztok!
Akadt egy kis problémám:
Van egy sor január 1-től január 30-ig a napokkal.
Abban a sorba sárgával jelölök meg pár cellát..
Egy külön cellába folyamatosan számolnia kellene hány sárga színű cella van és a darabszámot kiírnia..
Ki hogy oldaná meg? Amit találtam macro-t ilyen célra, ott csak akkor növekszik a darabszám, ha formátummásolóval változtatom a cella színét..Előre is köszönöm.
-
DeFranco
nagyúr
sziasztok!
makró nélkül (policy) szeretném megoldani a következő feladatot: van egy 20x10-es mátrix, ahol minden sorban ki kell tölteni max. 5 cellát egy legördülő menü által felajánlott elemek közül valamelyik értékkel. ha 5-nél többet akarnak kitölteni a 10-ből akkor hibaüzenetet kell dobjon.
a kettőt külön külön meg tudom oldani érvényesítéssel, de egyszerre nem.
a legördülő lista triviális, a kitöltött értékeket pedig ennek nyomán lehet számoltatni de akkor listát nem tudok beállítani.
próbálkoztam azzal, hogy a mátrixba beteszem a listát, a sorok végére pedig beteszek egy darab2-t és azt figyeltetem, de az szépen felszámol 6-7-8-ig és nem szól, csak ha F2-t nyomok rá majd ütnék egy entert, tehát itt átcsúszik az ellenőrzésen a hiba.
van-e erre valamilyen makrómentes workaround?
-
#37770
MinekMentOda
csendes újonc
MinekMentOda
#37769
MinekMentOda
csendes újonc
válasz
MinekMentOda
#37769
üzenetére
Nem. Még sem jó
Nem működik jól. -
#37769
MinekMentOda
csendes újonc
MinekMentOda
#37766
MinekMentOda
csendes újonc
válasz
MinekMentOda
#37766
üzenetére
Közben megtaláltam a megoldást. Valószínűleg nem a legelegánsabb, de jobb, mint a semmi.
=HA(VAGY(BAL(X5;1)=BAL(Megoldókulcs!X5;1);BAL(X5;1)=JOBB(Megoldókulcs!X5;1));1;HA(VAGY(JOBB(X5;1)=BAL(Megoldókulcs!X5;1);JOBB(X5;1)=JOBB(Megoldókulcs!X5;1));1;HA(UNICODE(BAL(X5;1))+UNICODE(JOBB(X5;2))=UNICODE(BAL(Megoldókulcs!X5;1))+UNICODE(JOBB(Megoldókulcs!X5;2));1;0))) -
#37768
valyogvisko
csendes tag
Fferi50
#37764
valyogvisko
csendes tag
-
#37766
MinekMentOda
csendes újonc
MinekMentOda
csendes újonc
Sziasztok!
Excel 2016-ot használok. Képtelen vagyok megoldani a következő egyszerű feladatot. Nagyon fontos, hogy makró nélkül kell a megoldás.
Van egy kitöltős teszt. A megoldókulcsban 2 betű szerepel. Pl. AB. A helyes megoldás lehet A, B, AB, BA. Ha ezeket így beírom az üres teszt cellájába, mint helyes megoldás, az működik, csak nem elegáns. Azt szeretném megértetni a programmal, hogy Ha a megoldókulcs cellájában szereplő betűk közül bármelyik le van írva az üres tesz cellájában, és nem szerepel más betű benne, akkor helyes a megoldás, minden más esetben helytelen.
Pl. A : helyes
BA: helyes
b, A : helyes
B, a, C : helytelen. -
Baky1987
tag
Sziasztok!
Excelt szeretnék tanulni (nem makrót, arra a korábbi fórum hsz-okat átnyálazva láttam ajánlott irodalmat) és szeretnék érdeklődni, hogy most van-e vmi ajánlott könyv, weboldal, tanfolyam, ami a segítségemre lehet?
Ha már volt erre válasz, neharagudjatok, egy negyedóra keresgélés után nem találtam.
köszönöm előre! -
#37764
Fferi50
Topikgazda
valyogvisko
#37762
Fferi50
Topikgazda
válasz
valyogvisko
#37762
üzenetére
Szia!
Szerintem akkor jársz a legjobban, ha a feltételes formázásokat átírod erre a kereső munkalapra is, persze megfelelően módosítva. Gondolom néhány általános szabály van és nem minden cellára/munkalapra különböző.
Üdv.
-
#37763
lappy
őstag
valyogvisko
#37762
lappy
őstag
válasz
valyogvisko
#37762
üzenetére
Ezt nem is fogod függvénnyel megoldani csak makróval lehet!!!
-
#37762
valyogvisko
csendes tag
valyogvisko
csendes tag
Sziasztok,
adódott egy problémám, hátha ti tudtok rá megoldást. Ha tudtok, az optimális az lenne, ha a megoldás kerülné a makrókat, de végső esetben, ha nincs más, kénytelen leszek azzal dolgozni
Szóval, a gond a következő: Adott (kereséstől függő) nevű sorhoz és oszlopokhoz tartozó adatokat szeretnék keresni egy excelben, ami sok munkalapos, mindegyik sok-sok ezt-azt tartalmaz. Ez nem is okoz gondot, Index és két Hol.Van megoldja.
Viszont: a keresett adatok sokszor színezve vannak, ilyen-olyan opciók alapján feltételes formázással. A nagyon király az lenne, ha nem csak az adott cella értékét tudnám kinyerni a keresésnél, hanem a cella színét is. Az se zavarna, ha valahogy a teljes cella "jönne" ahogy formázva van, mindenestől.
Egyszerűen nem találok még olyan függvényt sem, ami lekérdezné egy adott cella színét, hát még olyat, ami ezzel műveletek is képes végezni (másolni pl).
Ha ez így, amit leírtam, nem tiszta, készítek egy rövid mintát, és dobok be képet. Tudtok valami megoldást, ami segítene?
Előre is köszönöm!
-
#37760
MinekMentOda
csendes újonc
demesjano
#37758
MinekMentOda
csendes újonc
válasz
demesjano
#37758
üzenetére
D1 cellába beírod ezt:
=HA(B1+30=C1;MA();"")
Ha a C cellában 30 nappal több van, mint B cellában, kiírja a dátumot, egyéb esetben nem ír kis semmit.
D1 cella > feltételes formázás > új szabály > adott tartalmú cella formázása > nem üres > formátum > piros betűszín > formátummásolóval addig húzod, amíg tart az oszlop.
-
#37756
Delila_1
veterán
MinekMentOda
#37754
Delila_1
veterán
válasz
MinekMentOda
#37754
üzenetére
Írtam hozzá egy saját függvényt, amit modulba kell tenned (lásd a Téma összefoglalót). Ha több füzetben is szeretnéd alkalmazni, akkor a personal-ba tedd.
Function Van_Benne(mitkeres As String, mibenkeres As String)
Dim b As Integer, f As Boolean
For b = 1 To Len(mitkeres)
If InStr(mibenkeres, Mid(mitkeres, b, 1)) > 0 Then
f = True
Else
f = False: Exit For
End If
Next
If f Then Van_Benne = 1 Else Van_Benne = 0
End FunctionA cellába, ahol az eredményt szeretnéd megkapni, írd be
=van_benne(A2;A1)
-
#37754
MinekMentOda
csendes újonc
MinekMentOda
csendes újonc
Sziasztok!
A megoldandó feladatom a következő: Mondjuk van A1 és A2 cella. Ha A2 tartalmának legalább egyik eleme (karakterlánc) megegyezik az A1 cellában található karakterlánc egyik elemével, de A2 nem tartalmaz olyan karaktert, amit A1 sem tartalmaz, akkor az eredmény legyen 1. Minden más esetben az eredmény legyen 0.
Kisbetű/nagybetű nem számít.Pl. A1=AB
A2=A; eredmény=1
A2=BA; eredmény=1
A2=ABC; eredmény =0Egyszer már írtam ide, és nagyon segítőkészek voltatok, sikerült is megoldanom a segítségetekkel egy ennél sokkal durvább problémát, úgyhogy előre is köszönöm a segítséget!
-
Delila_1
veterán
válasz
norbika84
#37743
üzenetére
A Munka1 lapon felveszel egy új oszlopot, nálam ez a P. Itt jelenítem meg az A oszlop dátumaiból a hónapot.
P2 –> =hónap(A2)
A Munka2 E4 cellájának a képlete
=INDEX(Munka1!A:D;HOL.VAN(HÓNAP(Munka1!J1);Munka1!P:P;1);4)A hónapok oszlopát teheted máshova is, és akkor a képletben a P:P helyett ennek az oszlopnak a betűjelét add meg.
-
norbika84
csendes tag
Sziasztok!
Segítségre lenne szükségem. A munka1 nevű fülön van egy táblázatom, aminek A oszlopa dátumok (nem folyamatos). a munka2 nevű fül E4 mezőjében olyan keresést kellene csinálnom, hogy pl., ha a munka2 fül J1 mezőjében 2018.04.01 van írva, akkor a munka1 nevű munkalapon az A sorban meg kellene keresni az utolsó 2018. márciusi sort, és annak a D oszlopában lévő értéket kellene visszaadnia.
Ezt hogy lehetne megoldani?
-
#62169858
törölt tag
Szisztok! Lehet nem ide vágó kérdés, de hátha valakinek van jó ötlete.
Van egy „Full_beosztas.xlsx” Excel 2016 táblázat.
Ez jelenleg 24 munkalapból áll (a munkalapok nevei a hónapok, január, február, március…)Meg lehetne úgy osztani ezt a táblázatot (Google Drive), hogy aki csak megtekinti, Ne az egész táblázatot láthassa? Elég lenne mindig csak az előző és aktuális hónapot.
Elrejtés/felfedés nem jó ötlet, mert itt az lenne a lényeg, hogy sokkal kisebb legyen a fájl mérete, mert sokan panaszkodnak, hogy már alig-alig tudják megnyitni mobiltelefonról.Mivel sűrűn változik az aktuális hónap, így a változásokat látni kellene a megosztott táblázatban.
- „Full_beosztas.xlsx” (24 munkalapból)
és legyen egy
- „Lite_beosztas.xlsx” (1-2 munkalapból)Az egésznek a lényege, Google Drive a fájl mérete és a mobiltelefonról láthatóság!
A segítséget és az ötleteket előre köszönöm! -
Oldman2
nagyúr
válasz
#05304832
#37620
üzenetére
Valóban sokat segített. Belemélyedtem az elmúlt napokban a Pivot táblába.
Amire még nem jöttem rá, hogy amikor létrehozom a Kimutatást, megadok egy blokkot.
Ezt a blokkot később hol tudom módosítani/bővíteni anélkül, hogy elölről kelljen kezdenem a Kimutatás összeállítását?
-
Fferi50
Topikgazda
Szia!
"Ha manuálisra állítom, akkor is gyorsan megcsinálja"
Akkor bizony olyan függvények lehetnek az adott munkafüzetben, amelyek minden cellaváltozásra újraszámolják az értékeket.
Keress a VBA nézetben rá a Volatile szóra. Nagy eséllyel fogsz találni olyan eljárást, ami tartalmazza. Na az a bűnös.Látatlanban ennél többen nem tudok mondani. Ha nem túl titkosak az adatok, akkor küldd el priviben és ránézek.
Üdv.
-
spe88
senior tag
válasz
Fferi50
#37732
üzenetére
Arról a munkalapról 100%, hogy semmit nem számol a file. Ha manuálisra állítom, akkor is gyorsan megcsinálja, csak nem akarom mindig arra állítgatni egy tök egyszerű műveletnél. Ahogy írtam is az az érdekes, hogy egy random új XLSX file-ban is lassan csinálja ezt a műveletet, amit akkor hozzok létre és beillesztek pár új számot (értékként). Szóval biztos, hogy a makrós file lassítja be az Excelt, de mi köze van egy teljesen új fájlhoz? Amint becsukom ezt a problémás file-t egyből egy pillanat alatt végez. Feladatkezelőben egyáltalán nem fogja a gépet a makrós file, arra sem lehet gondolni, hogy azért lassú, mert a háttérben csinál valamit.
Amúgy modulokban van felépítve a makrós file. Rejtély számomra.
-
Fferi50
Topikgazda
Szia!
"közepesen komplex makrót tartalmazó Excel file-om"
Jó lenne tudni, hol van az a makró. Modulban, munkalap kódlapján, esetleg a Thisworkbook kódlapján....
Az a tippem, hogy eseménykezelő van a munkafüzetben és emiatt lassú a sok ezer cella lekezelése. Esetleg lehetnek olyan munkalapok benne még, ahol számítások vannak és minden művelet után újraszámolja az Excel a képleteket. Erről meggyőződhetsz, ha a számolást átállítod manuálisra.Üdv.
-
spe88
senior tag
Sziasztok!
Érdekes jelenséggel állok szemben. Van egy közepesen komplex makrót tartalmazó Excel file-om. Benne egy új munkalapon rengeteg szám van, amik szövegként vannak tárolva. Amint átállítom, hogy számként kezelje őket, egyesével szépen lassan állítgatja át, több ezer számnál ez a jelentéktelen task perceket eredményez.
Ha ezeket a számokat átmásolom egy új file-ba és becsukom a makrót tartalmazó Excelt, akkor az új file-ban ez a task egy pillanat. Ha nem csukom be ugyanolyan lassú az új file-ban is.
A makrós file nem csinál semmit, csak egy munkalapon van egy halom szövegként tárolt szám, amit számra kell állítani és ennyi, semmi extra. Ráadasul az új file-nak semmi közt a makróshoz, értékként átmásoltam, az amúgy is képletet nem tartalmazó adathalmazt és mégis lassú.
Mi okozza ezt?
Köszönöm
-
oke
senior tag
Sziasztok!
Office 365 excelénél lehet valahogy bővíteni/letölteni a jelenlegi ikonkészletet a feltételes formázásnál?
Növekedés/csökkenés irányát szeretném színes nyilakkal jelölni. Viszont piros lefele nyíl választható ki jelenleg a csökkenésre, de nekem zöld színű lefele mutató nyílra lenne szükségem ilyenkor és pirosra felfelé. -
styrex
csendes tag
Sziasztok
Egy munkarend kiíró excel táblát szeretnék, a hónapok egymás melletti tömbökben lennének mellette a hozzátartozó nap és mellette a hozzátartozó műszakbeosztás.
A műszakbeosztásom 28 naponként indul újra: 7nap de,1szünet,7du,2szünet,7éj,4szünet.
A kezdő dátum:2018.01.15
Köszönöm a segítséget -
#37728
lappy
őstag
the radish
#37725
lappy
őstag
válasz
the radish
#37725
üzenetére
-
#37726
total90
veterán
the radish
#37725
total90
veterán
válasz
the radish
#37725
üzenetére
Szia,
szerintem ilyen nem lehetséges
-
#37725
the radish
senior tag
the radish
senior tag
Sziasztok!
Hogy tudom megoldani azt, hogy ne a makróba legyen beírva a küldendő fájl elérési útvonala, hanem pl., hanem pl. a "B8" cellába?
.To = "" & Sheets("email").Range("B1") & ""
.CC = "" & Sheets("email").Range("B2") & ""
.BCC = "" & Sheets("email").Range("B3") & ""
.Subject = "" & Sheets("email").Range("B5") & ""
.Body = "" & Sheets("email").Range("B7") & ""
'.Attachments.Add ActiveWorkbook.FullName
.Attachments.Add ("C:\minta.pdf")Bármilyen formátummal próbálkozok, nem jön össze, csak ha beleírom a makróba.
Előre is köszönöm.
-
d@minator
addikt
válasz
Delila_1
#37715
üzenetére
A neten rákerestem a 2016 Office színeire. Utána kívánt szín hexa kódja alapján megtaláltam az RGB kódot.
A másik: csináltam egy új modult (Insert Module), bemásoltam amit írtál. A négy gombos csoportot is átneveztem a szerkesztőfülön de nem működik. A terület J3:L100 de hiába kattintok bele. A csoporthoz hozzá kellene rendelni a makródat valahogy?
Bocs ez az első és nem olvastam az egészről semmit csak szeretném megoldani a problémát.
Így most a fejlécbe tettem a gombokat és rögzítettem. Pont illeszkedik is amíg a dokumentum szélességét meg nem változtatom ezért is jobb lenne a te módszered. -
GreenIT
tag
Segitseget kernek excel 2016 angol hasznalatahoz, teljesen ismeretlen a menuje szamomra.
Feltoltettem a fajlt, latszik, hogy kizarolag az adatokat volt hajlando grafikonba tenni:
idosorHogyan tudom rabirni, hogy az A6-A10 cellaban levo adatokat hasznalja tengelyek es adatok feliratakent,
az A1-et cimkent, es a felso sort (2000-2017) jelenitse meg az x tengelyen, ne szamokat?Extra szolgaltataskent esetleg ra lehetne venni, hogy - mivel negativ adatok is vannak - az x tengely feliratat legalulra tegye, hogy olvashato legyen?
Bocsanat, ha trivialisakat kerdesek, 2000-es excelt hasznaltam utoljara, abban szepen be tudtam ezeket allitani, de ez csak az adatokkal foglalkozik.
-
#37717
Delila_1
veterán
customer114
#37716
Delila_1
veterán
válasz
customer114
#37716
üzenetére
Az Excel 2007-es verziójától kezdve lehet színre szűrni. Szűrd az oszlopot, majd a szűrt állományt másold át a másik lapra.
-
#37716
customer114
őstag
customer114
őstag
Sziasztok,
Mi arra a megoldás, ha az egyik lapon (worksheet), adott oszlopban lévő piros betűszínnel formázott cellák tartalmát a másik lap adott oszlopába kívánom helyezni képlettel. Létezik olyan képlet, ami átnéz egy adott oszlopot és kiválogatja az adott betűszínre formázott cellák értékeit (betűk, számok vegyesen)?
(Ha nem teljesen világos mit szeretnék csinálok példa táblázatot)
Köszi,
Szép napot -
Delila_1
veterán
válasz
d@minator
#37712
üzenetére
A gombokat csoportba foglalod, és a Csoport neved adod neki.
Ez a laphoz rendelt makró az A3:D100 cellák bármelyikére kattintva mindig "kéz alá" teszi a csoportodat.
Írd át a kiválasztott területet a saját igényed szerint.Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A3:D100]) Is Nothing Then
ActiveSheet.Shapes("Csoport").Top = ActiveCell.Top - 20
ActiveSheet.Shapes("Csoport").Left = ActiveCell.Left + ActiveCell.Width + 20
End If
End Sub
Az RGB kódhoz: keverd ki háttérnek a kedvenc árnyalatodat, és jegyezd meg az RGB értékeket. A makróban így adhatod meg
Selection.Interior.Color = RGB(100, 200, 170) -
d@minator
addikt
válasz
Fferi50
#37702
üzenetére
Szia! Pont erre gondoltam én is! Nagyon köszi! Két színt meg is csináltam. Még a legalsó sorból (Alapszínek) kellene a harmadik és az ötödik szín. Ezeknek tudni kellene az RGB kódját?
A dokumentumok A4-esek egymás alatt. A felső két (1. és 2.) sort rögzítettem. A gombokat valahol a táblázatoktól jobbra oldalon kellene elhelyezni (praktikusan egymás alatt), mert ott van hely, viszont nem tudom rögzíteni. A függőleges görgetés viszi őket. -
Geryson
addikt
Sziasztok! Elég furi gondom van.
Van egy számom, pl. 0,1234
Mivel én csak 3 tizedesig szeretném látni, így a formátumbeállításnál beállítom. De ha rámegyek a cellára, akkor ugye ő továbbra is a 4 tizedest mutatja a szerkesztőlécben, csak a cellában nem. Én azt szeretném, hogy sehol ne látszódjon a 4. tizedes.
Próbáltam már külön oszlopba tenni és visszamásolni a számformátum beállításával, de egyszerűen nem megy.
-
Marvinyo
aktív tag
Sziasztok!
Excel képletben hogy tudnék egy "értéket" kényszeredetten növelni másoláskor? Afféle inverz $ operátor :-D
Mármint például dátumnál ugye a napokat folyamatosan növeli ha elhúzom.
Na, nekem van egy speciális, bazihosszú képletem, ennek 1-2 tagját szeretném ha automatikusan növelné ha elhúzom jobbra, egy fix értékkel.
Sajnos elég sok helyen kéne, elég sok alkalommal átírni, hogy ne legyen se felhasználóbarát, se veszélytelen a manuális átírási mód. -
D5
aktív tag
Sziasztok!
Miért van az, hogy ha feltételes formázást használok cellákon, akkor a cellaigazításom változik automatikusan? Középre-középre beállítást átállít középre-lent beállításra. A fájl kiterjesztése *.xlsx. Nem jövök rá, hogy mi lehet a megoldás. Hiába állítom újra középre-középre beállításra, a cellaérték marad a középre-lent igazításon.
Tudnátok segíteni?
Előre is köszönöm!
-
Fferi50
Topikgazda
válasz
d@minator
#37701
üzenetére
Szia!
Csak egy ötlet. Ha már úgyis makrózol, tehetnél fel pár "szinező" gombot. Ami úgy működne, hogy gombnyomásra beszínezi az adott színre a cellát, ha pedig be van színezve, eltávolítja a színt. Ebben a makróban meghívhatod a színösszeadós makrót és akkor egyből látod a változást.
Hátrány, hogy minden színhez kell egy gomb.
Pl.Sub piros()
If selection.interior.color=vbwhite then
selection.interior.color=vbred
else
selection.interior.color=vbwhite
end if
end subSzerintem a gombnyomogatás még kényelmesebb is, mint a kézi átszínezés (kivéve, ha feltételes formázással színezel, ami egész más tészta - ott akár az is elképzelhető, hogy Change eseményhez köthető az újraszámolás, ha a feltételes formázás cella értékhez van kötve).
Üdv.
-
d@minator
addikt
válasz
Fferi50
#37700
üzenetére
Szia! Köszönöm, hogy utánanéztél! Én is elolvastam nem is tudom miért írtam bele a kérdésbe. Viszont ha lehetne automatikus újraszámolást csinálni...csak akkor meg "villanna" egyet a tábla minden újraszámoláskor amit meg nem lehet kiküszöbölni.
Legalábbis a munkahelyen egy excel olvas ki egy txt fájlból adatokat és jeleníti meg grafikusan "real time", az is villan n másodpercenként. Szóval marad a manuális frissítés.
Van arra módszer, hogy a hibás adatra ugorjak?
Új hozzászólás Aktív témák
Hirdetés
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Túra és kirándulás topic
- Ingatlanos topic!
- Milyen notebookot vegyek?
- Nintendo Switch 2
- Minecraft
- HiFi műszaki szemmel - sztereó hangrendszerek
- Kompakt MSI alaplap érkezett Ryzenek alá
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- One mobilszolgáltatások
- További aktív témák...
- Gyermek PC játékok
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Assassin's Creed Shadows Collector's Edition PC
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest