-
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
-
DeFranco
nagyúr
Ez egy céges tanfolyami beugró teszt. Több kérdésből áll, de ez az egy, amire nem tudom a megoldást.
A semmilyen módon nem formáztuk kikötés szerintem annyit jelent, hogy ahogy megnyitották az excelt, már írták is bele, persze ez nem zárja ki az alapértelmezett formátum beállítás lehetőségét.
Én mégis arra gondolnék, hogy a cella tartalma valójában nem "3 db" hanem valami más, ami "3 db"-nak látszik. Volt egy excel könyvem, abban voltak ilyenek, hogy hogyan lehet operátorokkal úgy bűvészkedni, hogy szövegnek látszódjon, de szám legyen, de már nincs meg sajnos...
-
ALbeeeee
csendes tag
Hello,
ez lett a jó!
LEN = megszámoljuk a karakterek számát
LEN(SUBSTITUTE) = MEGSZÁMOLJUK A CSERÉLT KARAKTEREK SZÁMÁT
kivonjuk egymásból a két eredményt és meg is van!Köszi!
________
Kedves Delila_1,
annyi vessző van amennyi név.( név, beosztás ) > az adatok adatbázisból jönnek
KÖSZÖNÖM A MAKRÓT!
_________
Nagyon kedvesek vagytok! A dolog megoldva, sikerült automatizálnom, amit akartam!
További szép napot nektek!
Üdv,
ALbee:)
-
-
ro_bert17
őstag
Akkor viszont én megvagyok lőve. Ha át állítom nem szines nyomtatóra, nálam akkor is szines a nyomtatási kép! (ezt már az előző hsz-nél is így tapasztaltam, ezért is nem írtam bele)
(#7078) attiati: egy virtuális nyomtató nem fog megártani. Szóval szerintem próbáld ki. (Lehet még az office-é is elég.)
-
nagytomi10
csendes tag
Az ActiveSheet. beillesztése lett a megoldás, pedig nálam 2007-es Excel van. Köszi!
Azt hogy lehetne megoldani, hogy ha nem talál azonos cellát a keresés, akkor ne Run-time error-ral szálljon el, hanem dobjon egy felugró ablakot, valamilyen üzenettel?
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Találatok").Select
ActiveSheet.Rows("2").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Sheets("Munka2").Select
ActiveSheet.Cells(1, 1).Select
sor_k = 2
sz = Selection.Value
Sheets("Munka1").Select
Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
sor = Selection.Row: sor_m = sor + 1
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Do 'Keresés ismétlése
Cells.FindNext(After:=ActiveCell).Activate
sor = Selection.Row
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Loop While sor >= sor_m
Sheets("Találatok").Select
usor = ActiveSheet.UsedRange.Rows.Count
usor = usor + 1
ActiveSheet.Rows(usor).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Cells(1).Select
Application.ScreenUpdating = True
End Sub -
Oly
senior tag
Ilyesmire.
Ezt már korábban mutatta Delila_1A problémám az, hogy a listák nem egyforma hosszúak. Az üres cellák kis szépséghibát mutatnak a lenyílóban.
Hogy érted a dinamikusat?
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Oly
senior tag
Ha így adom meg, akkor nem tudok rá hivatkozni.
A Név megadása listában ott van, de ha hivatkozok arra a névre, akkor nem jó.
Mindjár felrakom valahova a file-t.SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
félisten
Hali!
A makrós megoldást én az Oly által megadott példaprogi kapcsán írtam, mert abban ListBox-ok szerepelnek, és ezen Listbox-ok esetén is ott vannak az üres listaelemek.
Az meg sem fordult a fejemben, hogy makróval a Datavalidation részbe matassak(ha lehet egyáltalán, még sosem csináltam olyat)A 2007-ben meg a Képletek csoport/Névjegykezelés (vagy hasonló, nem otthonról írok) alatt találod a tartománylistákat.
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
-
Delila_1
Topikgazda
Igazad van. Akkor kicsit összetettebb a feladat, több oszlop kell hozzá.
Az A és B marad a megnevezés, és a hozzá tartozó összeg.
C1-> =B1+SOR()*0,0001
D1:D25 -> 1-től 25-ig sorszám
E1-> =INDIREKT("A"&HOL.VAN(F1;C:C;0))
F1-> =NAGY(C:C;D1)
G1-> =INT(F1)
H1-> =SZUMHA(A:A;E1;B:B)
A C1-et kell lemásolni az eredeti adatok mellé, az E1:H1 tartományt pedig a 25. sorig.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
Ettől a választól féltem, nagyjából én is ezt tudtam lederiválni a súgóból, csak gondoltam hátha rosszul néztem.
Az a feladatom, hogy egy ilyen struktúrájú: 63:37 (21.3 %) cellatartalomból (kb 12000 db cella) kell kiválogatnom a százalék értékeket majd azokkal egyszerű matematikai műveleteket végezni. A munkafüzetnek egymástól eltérő területi beállítású gépeken is működnie kell ezért nem mindegy, hogy a tizedeselválasztó "." vagy ","
Mivel az általam beidézett parancsnak nem látszik hogy lenne egyetlen munkafüzetre érvényes változata ezért marad a B terv miszerint a munkafüzet betöltődésekor le kell kérdezni a területi beállítást és az eredménytől függően vagy lefuttatni a cseréldleazösszespontotvesszőre makrót vagy nem.
A kérdés mostmár az, hogy hogyan lehet excelből lekérdezni a gép területi beállítását különös tekintettel a tizedeselválasztóra.
-
motinka
tag
szia, köszi hogy foglalkozol vele.
szóval:
- az A oszlopba egy lenyíló listából kerül be egy szöveg (2 betü)
- a C oszlopban egy függény van (alapból =HA(A2="SC";"SC";"-" )
tehát ha az A-ban a SC kerül kiválasztásra akkor a C is az lesz
na de:
- a C oszlopban is egy lenyíló lista van, amiből szintén ki lehet választani egy szöveget
- amennyiben ezt kell tenni, akkor a lenyílóból kiválasztva beíródik( felüllíródik a képlet)
ez sok esetben csak időleges adat, azaz ha ez az állapot megszűnik, akkor a listából
kiválasztott beírás töröljük ( de mivel már nincs ott a képlet üres lesz a cella),
akkor kellene hogy működjön a képlet és újra beírja az A oszlopban látható SC- ha az
SC, ha nem akkor - jelet.A kis táblázat fent van a http://www.hunsurf.hu/1.xlsoldalon, letölthető, a képlet nincs benne, azt betettem VB -be, ahogy Delila tanácsolta, de nem működik, minta nem aktiválná semi a futását, de én ehhez már nem értek
köszi előre is a segítségedet!
MoTiNka
-
motinka
tag
Köszi perfag ( és bocs a múltkori elírásért), közben aludtam egyet és az alábbi szerint működik ahogy szeretném:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E3"), Range(Target.Address)) Is Nothing Then
Range("E2").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 5)
End If
End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$2" Then
Range("E3") = ""
Range("E3").Select
Selection.AutoFilter Field:=5
End If
End SubMoTiNka
-
pentium4
senior tag
ez a darabteli függvény nem jó, mert ez megszámolja és a másik hibája hogy nem tud kezelni csak adott részt hogy pl: A1:A7 de nekem nem így van hanem így: G5;L5;Q5;V5 és ha ezt írom bele akkor tól soknak írja a dolgot!
végül is sikerült megoldani így:
=MIN(HA(G5<>0;G5;99999);HA(L5<>0;L5;99999);HA(Q5<>0;Q5;99999);HA(V5<>0;V5;99999))
igaz nem a legszebb függvény de legalább müxik és akkor a magyarázat hogy miért is így, hát azért mert ha minden cellára megnézzük (a minimum kiválasztás előtt), h egyenlő-e 0-val, ha nem, akkor vesszük a cella értékét, ha viszont 0, akkor veszünk egy nagy számot (pl aminél nincs nagyobb az Excelben, én most a 99999-et választottam), ami így minimumként sosem jöhet ki!
nem tudom hogy van rövidebb megoldás ennél, biztos van, de nem vok egy excel guru, de így sikerült összehoznom!
vélemények?P4
-
pentium4
senior tag
gondoltam az már mind1 hogy most hogy vannak a cellák, nem akartam bonyolultan feltenni a kérdést, inkább egyszerűsítettem, hogy ne legyen probléma, de ezek szerint nem kellett volna!
igen feltettem, mert nem tudtam hogy hogy kell, de gondoltam amíg válaszoltok én se ülök a seggemen hanem keresgetek és próbálgatom hogy hogy lehet megoldani a problémát!P4
-
Medcomp
tag
Tévedtem. Az egyik táblázatban, ami gyakran okozza a mentéskori fagyást van egy makró, ez:
Sub áthelyezés()
'
' áthelyezés Makró
' Rögzítette: Gép_03, dátum: 2007.01.10.
'
'
Sheets("Munka11").Select
Rows("2:45").Select
Selection.Copy
Sheets("Munka1").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Munka11").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End SubEz esetleg okozhatja?
www.medcomp.hu
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Canva Pro előfizetés - 1 éves