Hirdetés
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Sapphi: StremHU | Source – Self-hostolható Stremio addon magyar trackerekhez
- laskr99: DFI és DFI Lanparty gyűjteményem
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- Invázió egy novellában 3-4. (Update) +5. fejezet! (18+ nyelvezet)
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- LordAthis: Mission: Imposible? - Együtt 1333 és 1600 MHz, ECC/Non-ECC
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
-
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
-
#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")) -
#19103
Delila_1
veterán
the radish
#19101
Delila_1
veterán
válasz
the radish
#19101
üzenetére
Az R3 képlete =HA($C3="A";KICSI($A:$A;SOR()-2);"")
Ezt másold az S3-ba, és az "A"-t írd át "B"-re. -
#19102
Delila_1
veterán
the radish
#19101
Delila_1
veterán
válasz
the radish
#19101
üzenetére
A változót így add meg:
kr1= ">=" & sheets("Munka1").range("a1") -
#19099
Delila_1
veterán
the radish
#19098
Delila_1
veterán
válasz
the radish
#19098
üzenetére
Szívesen.
-
#19097
Delila_1
veterán
the radish
#19096
Delila_1
veterán
válasz
the radish
#19096
üzenetére
"A Munka1 lap A1 cellájába írd be idézőjelek nélkül a >=0:00:45 szöveget", de az is jó, amit most írtál, csak akkor a cellában ne szerepeljenek relációs jelek (=, >, <).
-
-
#19093
Delila_1
veterán
the radish
#19092
Delila_1
veterán
válasz
the radish
#19092
üzenetére
A Munka1 lap A1 cellájába írd be idézőjelek nélkül a >=0:00:45 szöveget, a Munka2 lap B2 cellájába pedig <=0:02-t. A két cella értékét 1-1 változóba teszed, és kritériumként ezeket a változókat adod meg.
kr1 = Sheets("Munka1").Range("A1")
kr2 = Sheets("Munka2").Range("B2")
Sheets("Filter").Select
ActiveSheet.Range("$A$1:$C$5001").AutoFilter Field:=3, Criteria1:= _
kr1, Operator:=xlAnd, Criteria2:=kr2 -
Delila_1
veterán
válasz
Agostino
#19083
üzenetére
Nem elég számformára állítani az oszlopot, attól még szöveg típusúak az értékeid. Sajnos így működik az Excel.
Viszont egyszerű kijavítani.
Beírsz valahova, egy üres cellába egy egyest. Ctrl+c-vel másolod, kijelölöd az átalakítandó tartományt. Jobb klikk, Irányított beillesztés, Szorzás, OK.A szorzástól számmá alakulnak az értékeid, az egyest kitörölheted.
Új hozzászólás Aktív témák
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Linux haladóknak
- Bambu Lab 3D nyomtatók
- 3D nyomtatás
- Tényleg nem változik semmit a Samsung Galaxy S26+?
- Vicces képek
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Milyen hagyományos (nem okos-) telefont vegyek?
- Google Pixel Buds 2a és Pixel Buds Pro 2 összehasonlító gyorsteszt
- Linux kezdőknek
- További aktív témák...
- BESZÁMÍTÁS! MSI X99A i7 5820K 16GB DDR4 240GB SSD 1TB HDD GTX 1050Ti 4GB Deepcool Ducase V2 600W
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3074, 100% Akkumulátor
- Gamer PC-Számítógép! Csere-Beszámítás! I3 14100F / RTX 3060Ti / 16GB DDR5 / 1TB SSD
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest