-
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
-
-
-
#19507
Delila_1
veterán
terencehIII
#19506
Delila_1
veterán
válasz
terencehIII
#19506
üzenetére
Annál a 3-4 cellánál a cella formázásánál vedd ki a pipát a "Zárolt" négyzetből (Védelem fül), ezután védd le a lapot.
-
Delila_1
veterán
válasz
retesz147
#19497
üzenetére
A képeken nem látszanak a sor- és oszlopazonosítók, így nem tudom megírni a képletet. Nem baj, a SZUMHA függvénnyel Te is meg tudod írni.
Figyelj a hivatkozásokra! A tartomány és a kritérium meghatározásánál fix oszlopok legyenek, az összegtartomány relatív oszlopra hivatkozzon.
-
-
Delila_1
veterán
-
Delila_1
veterán
-
Delila_1
veterán
válasz
dudikpal
#19423
üzenetére
Sajnos a cellaformázás az előzően bevitt adatok típusát nem változtatja meg. A számjegyekből álló adataidat kell szöveg típusúvá alakítani.
Ezt úgy teheted meg, hogy hozzájuk fűzöl egy üres stringet egy üres oszlopban az =A1 & "" képlettel – feltéve, hogy az A oszlopban vannak az átalakítandó értékek. A képletet lemásolod a többi adatod mellé, majd az új oszlopot kijelölöd, másolod (ctrl+c), ráállsz a módosítandó oszlopra, jobb klikk, irányított beillesztés, értéket. A segédoszlopot törölheted.
Ha az oszlopot beállítottad szöveg formátumúra, akkor az ezután bevitt adatokkal már nem kell megcsinálnod ezt a cirkuszt, azok már eleve szövegesek lesznek.
Az Excel nem mutatja a nem látható karaktereket. Próbáld meg a következőt oszloponként:
ráállsz az alsó cellára, ami látható karaktereket tartalmaz. Shift+Ctrl+le nyíl megnyomására kijelöli az oszlopnak azt a tartományát, amiben valamilyen karaktereket talál. Nyomd meg a Delete gombot.
Lehet, hogy a füzetben lévő alsó sorig jelöli ki a cellákat, ami azt jelenti, hogy üresek a cellák. Akkor is alkalmazhatod a törlést. -
Delila_1
veterán
válasz
dudikpal
#19421
üzenetére
Nem azonos a két érték. Az E48-ban idézőjelek között mutatja a számot, ami szöveg típusú értéket jelent, az A29-ben pedig azonos küllemű, de szám tip. érték van. Számokat tartalmazó oszlopban keresel egy szöveget.
A keresési értéknek és a keresés helyén lévő adatoknak azonos típusúaknak kell lenniük.A szóközön kívül sok olyan karakter van, ami nem látható. Töröld ki ezeket a sorokat.
-
-
Delila_1
veterán
válasz
Wollie
#19390
üzenetére
Felveszel egy segédoszlopot, ahol a darabteli függvénnyel minden településed mellé kiíratod, hányszor szerepel a tartományban. Vegyük, hogy a településeid az A2:A25 tartományban vannak. A B2 képlete
=DARABTELI($A$2:$A$25;A2), ezt másold le a 25. sorig.Erre a 2 oszlopra hivatkozva meghatározhatod a legtöbbször előforduló település nevét, és az előfordulásainak a számát.
=INDEX(A2:$B$25;HOL.VAN(MAX($B$2:$B$25);$B$2:$B$25;0);1) & ": " & MAX($B$2:$B$25)A képlet első fele (az & jelig) megadja a nevet, a további rész utána írja a kettőspontot, és az előfordulások számát.
-
Delila_1
veterán
A H1:J1 tartományba beírod a 3 címet (Node, Caption, Db), I2-be a keresett címet, és indítod a makrót.
Sub Node()
Dim sor As Integer, usor As Integer, WF As WorksheetFunction, v
Range("H2").ClearContents
v = MsgBox("Beírtad az I2 cellába a keresett címet?", vbYesNo + vbQuestion)
If v = vbNo Then Exit Sub
Set WF = Application.WorksheetFunction
Range("L1") = "Node": Range("M1") = "Caption"
usor = WF.CountA(Columns("A"))
Range("A1:E" & usor).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I1:I2"), CopyToRange:=Range("L1:M1"), Unique:=False
usor = WF.CountA(Columns("L")): Range("J2") = usor - 1
For sor = 2 To usor
Range("H2") = Range("H2") & Range("L" & sor) & ", "
Next
Range("H2") = Left(Range("H2"), Len(Range("H2")) - 2)
Columns("L:M").ClearContents
End Sub -
Delila_1
veterán
válasz
Pityke78
#19384
üzenetére
A VBA szerkesztőben a ThisWorkbook laphoz rendeld a makrót:
Private Sub Workbook_Open()
Dim nev
nev = ActiveCell.Parent.Parent.Name
nev = Left(nev, InStr(nev, ".") - 1)
Range("B2") = "=[Valami_" & Right(nev, 2) - 1 & ".xls]Munka1!A2"
End SubAz általad használt verziótól függően az utolsó sorban az .xls... részt írd át .xlsm-re, a Valami_-t a füzeted nevére.
Ez akkor felel meg a célodnak, ha az elmentett füzetek nevének a végén van a hét száma.
-
#19380
Delila_1
veterán
Papa-Georgo
#19379
Delila_1
veterán
válasz
Papa-Georgo
#19379
üzenetére
Kicsit bonyolultnak látszik, de egyszer kell megcsinálni, utána már mindig működik.
Egy oszlopba beviszed a kategóriákat növekvő sorrendben, de a számok végére teszel egy pontot, vagy valami más jelet, mert anélkül nem fogadja majd el a a következő lépés.
Egyéni listaként beviszed ezt a tartományt. Ennek az elérése az eltérő verziókban különböző helyen található meg.
Innen kezdve a rendezésnél az Egyebek gombra kattintva megjelenik egy új párbeszéd ablak, ahol az "Első kulcs szerinti rendezés" legördülőben kiválasztod az előbb bevitt listádat. Minden újabb rendezésnél már csak ezt az utolsó lépést kell végrehajtanod.
-
Delila_1
veterán
-
Delila_1
veterán
válasz
Oliverda
#19358
üzenetére
Vegyük, hogy a szorzandók az A oszlopban vannak, a szorzó pedig a H1 cellában.
A B1 képlete =A1*$H$1. Ezt lemásolod a többi, A oszlopban lévő cellád mellé.Mivel a szorzó címzését fixen írtad be (a $ jelekkel fixáltad az oszlop, és a sor helyét), mindegyik A oszlopbeli értéket a H1 értékével szorzol fel.
-
Delila_1
veterán
válasz
Krisz26
#19350
üzenetére
2 segédoszlop kell hozzá. Az egyik tartalmazza a női neveket, a másik a férfiakét. Legyen ez a 2 oszlop pl. a Munka2 lap A és B oszlopában. A neveket megtalálod az interneten, több helyen.
A Munka1 lap A oszlopában vannak a vezeték nevek, a B-ben a keresztnevek. A C2 képlete – címsort feltételezve – =HA(HIBÁS(FKERES(B2;Munka2!A:A;1;0));"férfi";"nő").
2003-asnál magasabb verziójú Excelben a HAHIBA képlet alkalmazható a Ha(HIBÁS... helyett.
-
#19326
Delila_1
veterán
the radish
#19325
Delila_1
veterán
válasz
the radish
#19325
üzenetére
Feltételnek azt a kérdést tettem be, hogy az A1 értéke egyenlő-e a B1-ével.
Sub valami()
If Cells(1) = Cells(2) Then
Exit Sub
Else
MsgBox "Hé, nem figyeltél!", vbOKOnly + vbExclamation, "Figyelmeztetés"
End If
End Sub -
-
-
Delila_1
veterán
-
Delila_1
veterán
válasz
Eastman
#19271
üzenetére
Ráállsz a képletet tartalmazó cellára.
Ha vannak a balra mellette lévő oszlopban adatok a sok sorban, akkor az ábra szerinti kis fekete négyzeten duplaklikk végig lemásolja a képletet addig, ameddig a mellette lévő oszlopban valamilyen adatot talál.
Ha nincs adat mellette, ugyanezt a kis négyzetet megfogod az egérrel, és lehúzod, ameddig szükséges. -
Delila_1
veterán
válasz
autox3c
#19242
üzenetére
A képlet arra az esetre vonatkozik, mikor a költségek a B oszlopban vannak.
Ha a B oszlopban a számításkor figyelmen kívül hagyandó adatok is vannak, akkor a B:B (teljes oszlopra hivatkozás) helyett a pontos hivatkozást add meg, a sorok feltüntetésével.=SZUMHA(B:B;">25000";B:B)*25000+SZUMHA(B:B;"<25000";B:B)*DARABTELI(B:B;"<25000")
-
#19229
Delila_1
veterán
the radish
#19228
Delila_1
veterán
válasz
the radish
#19228
üzenetére
Ugyanannyiszor szívesen.
-
#19227
Delila_1
veterán
the radish
#19225
Delila_1
veterán
válasz
the radish
#19225
üzenetére
A
If WorksheetFunction.Max(Range("A:A")) > krit Then
sor helyesen:
If WorksheetFunction.Max(hol) > krit Then
-
#19226
Delila_1
veterán
the radish
#19225
Delila_1
veterán
válasz
the radish
#19225
üzenetére
Írtam hozzá egy kis makrót. Mivel ez funkció, úgy kell alkalmaznod, mint bármelyik függvényt.
A cellába, ahol az eredményt akarod megkapni, az=Max_1(A1:A7;E1)
képletet írd be. A képlet 2 paramétere a keresés területe (hol As Range), és a kritérium helye (krit As Range).
A felsorolt értékeidet az A1:A7 tartományba írtam, a 120-at az E1-be.
Function Max_1(hol As Range, krit As Range)
Dim szam As Single, CV As Object
If WorksheetFunction.Max(Range("A:A")) > krit Then
For Each CV In hol
If CV < krit And CV > szam Then szam = CV
Next
Else
Max_1 = krit.Value
End If
Max_1 = szam
End Function -
#19224
Delila_1
veterán
the radish
#19223
Delila_1
veterán
válasz
the radish
#19223
üzenetére
Akkor feltétel (Ha függvény) nélkül írd be a NAGY függvényt.
A kérdésed az előbb nem így szólt.
-
#19222
Delila_1
veterán
the radish
#19221
Delila_1
veterán
válasz
the radish
#19221
üzenetére
Szívesen.
-
#19220
Delila_1
veterán
the radish
#19219
Delila_1
veterán
válasz
the radish
#19219
üzenetére
A példában az E1 cella tartalmazza azt a számot, aminél kisebb max értékre van szükséged.
=HA(MAX(A:A)<E1;MAX(A:A);NAGY(A:A;2))
-
#19210
Delila_1
veterán
the radish
#19209
Delila_1
veterán
válasz
the radish
#19209
üzenetére
Nincs mit.
-
#19208
Delila_1
veterán
the radish
#19207
Delila_1
veterán
válasz
the radish
#19207
üzenetére
D1 cella -> =MAX(A:A)
E1 cella -> =INDEX(A:B;HOL.VAN(D1;A:A;0);2) -
Delila_1
veterán
válasz
Scytha
#19163
üzenetére
Remélem, nem vesztek el az adataid!
Azt nem írtam, hogy a "Más helyre másolja" opciót is kapcsold be.Ha már megvan a névsor, egy makróval elő lehet állítani annyi lapot, amennyi szükséges, és el is lehet nevezni az emberek nevével.
Mikor ez is megvan, egy másik makró széthajigálja a sorokat a megfelelő lapokra.
-
Delila_1
veterán
válasz
Scytha
#19158
üzenetére
Első lépésként létre kell hoznod annyi lapot, ahány neved van, és ezeket a neveknek megfelelően érdemes elnevezni.
Ehhez célszerű a neveket tartalmazó oszlopból létrehozni egy újat a speciális-, vagy régebbi verziókban irányított szűrő menüpont segítségével, a verziótól függetlenül legyen bejelölve a "Csak az egyedi rekordok megjelenítése" kapcsoló.
Ha kész a szűrés, mondd meg, melyik oszlopba szűrted a neveket, akkor már tovább tudunk lépni.
-
-
Delila_1
veterán
Ez a függvény nálam sosem jött be.
A helyedben egy nyúlfarknyi makróval oldanám meg. Az első lap A oszlopába beírnám az egyes lapok nevét, a makró meg melléjük tenné a B oszlopba a hiperhivatkozást.Sub hiper()
Dim i As Integer
For i = 2 To Worksheets.Count
Cells(i - 1, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:=Sheets(i).Name & "!A1"
Next
End Sub -
-
#19138
Delila_1
veterán
ElemiKoczka
#19120
Delila_1
veterán
válasz
ElemiKoczka
#19120
üzenetére
Rájöttem, hogy a #19121-ben nem azt a választ adtam, amire vártál.
Kerek óránál 600-t írj, 12:42-höz elég 1242-t írnod, 0:54-nél 054-et.Private Sub Worksheet_Change(ByVal Target As Range)
Dim ido, ertek
If Not Intersect(Target, [A:B]) Is Nothing Then
If Range(Target.Address) = "" Then Exit Sub
Application.EnableEvents = False
On Error GoTo Hiba
ertek = Target * 1
If ertek > 2359 Or ertek < 0 Or Right(ertek, 2) > 59 Then
GoTo Hiba
Else
Select Case Len(ertek)
Case 1, 2
ido = "00:" & ertek
Case 3
ido = "0" & Left(ertek, 1) & ":" & Right(ertek, 2)
Case Else
ido = Left(Target, 2) & ":" & Right(Target, 2)
End Select
Range(Target.Address) = Format(ido, "hh:mm")
End If
End If
Application.EnableEvents = True
Exit Sub
Hiba:
MsgBox "Hiba!" & Chr(10) & "Ilyen időpont nem létezik", vbInformation
Range(Target.Address).Select
Application.EnableEvents = True
End Sub -
#19122
Delila_1
veterán
the radish
#19119
Delila_1
veterán
válasz
the radish
#19119
üzenetére
Sub direktor()
Dim utvonal$
utvonal$ = Range("B1")
ChDir utvonal$
ActiveWorkbook.SaveAs Filename:=utvonal$ & "proba.xls"
End SubNem szerencsés dolog személy szerint valakinek címezni a kérdésedet. Ha nincs itt a címzett, vagy nem tud-, nem akar válaszolni, akkor várhatsz a sorodra.
-
#19121
Delila_1
veterán
ElemiKoczka
#19120
Delila_1
veterán
válasz
ElemiKoczka
#19120
üzenetére
A lapodhoz rendeld a makrót, ilyen módon.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:B]) Is Nothing Then
If Target = 6 Then Range(Target.Address) = "6:00"
If Target = 14 Then Range(Target.Address) = "14:00"
End If
End SubEz a makró az A és B oszlopba beírt 6-ot írja át 6:00-ra, és a 14-et 14:00-ra.
Ha nem az A és B oszlopban van a két időpontod, azIf Not Intersect(Target, [A:B]) Is Nothing Then
sorba írd be a módosítást.
-
#19117
Delila_1
veterán
the radish
#19115
Delila_1
veterán
válasz
the radish
#19115
üzenetére
Ha előtte más meghajtó volt aktuális, előbb át kell váltanod a chdir paranccsal a D-re.
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="export.txt", FileFormat:=xlTextMSDOSRemélem, jól írtam, mert nem próbáltam ki.
-
#19109
Delila_1
veterán
the radish
#19108
Delila_1
veterán
válasz
the radish
#19108
üzenetére
Megjegyzel?!!!
Szívesen.
-
#19106
Delila_1
veterán
the radish
#19104
Delila_1
veterán
válasz
the radish
#19104
üzenetére
kr1 = ">=" & CDate(Sheets("Munka1").Range("A1"))
kr2 = "<=" & CDate(Sheets("Munka2").Range("B2"))
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Tőzsde és gazdaság
- Autós topik
- Kertészet, mezőgazdaság topik
- RETRO beárazás (mobil, PC, konzol)
- Okos Otthon / Smart Home
- Andras-G: Az internet veszélyei [2. rész] - Facebook Marketpalce
- Elemlámpa, zseblámpa
- AMD GPU-k jövője - amit tudni vélünk
- Mesterséges intelligencia topik
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- PC Game Pass előfizetés
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Új könyv: Grandpierre Attila: Az élő világegyetem könyve
- Újra raktáron! MacBook Pro 14" M1 32GB RAM 27%-os áfás számla
- GYÖNYÖRŰ iPhone 12 mini 256GB Red -1 ÉV GARANCIA -Kártyafüggetlen, MS3627
- Samsung Galaxy A80 128GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 12 128GB,Átlagos,Adatkabel,12 hónap garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest