- A sógorokhoz érkezik a kompakt Vivo X200 FE
- iPhone topik
- Külföldi SIM-ek itthon
- Samsung Galaxy Watch7 - kötelező kör
- Bemutatkozott a Poco X7 és X7 Pro
- Samsung Galaxy A56 - megbízható középszerűség
- Apple iPhone 16 Pro - rutinvizsga
- Megindult világhódító útjára az új Samsung fülhallgató
- Milyen GPS-t vegyek?
- Honor 400 Pro - gép a képben
-
Mobilarena
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
-
Delila_1
veterán
-
Delila_1
veterán
-
Delila_1
veterán
válasz
s3toraph #18549 üzenetére
A formátum másolása éppen úgy történik, mint a lapokon a képleteké. Igen, azért igaz a többi cellára is, mert a D20-at nem fixen adtam meg.
A régebbi verziókban ha ráálltál egy másolt formátumú cellára, jelen esetben pl. a D21-re, a képlet ott D21-re változott. A 2007-es verzióban vezették be ezt az idétlenséget, hogy nem a hivatkozott cellát mutatja, pedig azzal számol.Szerk:
Na és a 2. kérdés: =DARABTELI(Munka2!$I$2:$BP$2;D20)>0 -
Delila_1
veterán
Mégis sikerült összehozni valamit.
Az első lapon duplaklikkre sárga lesz a háttér, a másodikon az azonos című cella felveszi az SZ értéket.Az első makrót az első laphoz rendeld, a másodikat modulba tedd.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cella$
If Not Intersect(Target, Range("A3:H3")) Is Nothing Then
cella$ = Target.Address
Range(cella$).Interior.ColorIndex = 36
SZ (cella$)
End If
End SubSub SZ(cella$)
Sheets("Munka2").Range(cella$) = "SZ"
End Sub -
Delila_1
veterán
Tedd be a képeket, ahogy sikerül, és egy makróval az összeset egyszerre méretezheted.
Sub Egyforma_meret()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 77.25
Selection.ShapeRange.Width = 113.25
Application.CutCopyMode = False
End SubA szélesség, és magasság értéket változtathatod, hogy a kívánt értéket elérd. Ha egész számot adsz, a végére #-ot tegyél, pl. 83#.
-
Delila_1
veterán
válasz
Geryson #18503 üzenetére
Az új "sokat" (
) eleve szöveg formátumú cellákba vidd be, akkor nem kell külön cirkuszolni a szöveggé alakításukkal. Most, hogy már a teljes oszlopot szöveg tip-ra állítottad, nincs más dolgod, mint bevinni az adatokat.
A FIX függvény numerikus adatot alakít át alfanumerikusra.
-
Delila_1
veterán
válasz
ElemiKoczka #18479 üzenetére
Szia.
Ha az A1 cellában van a 100-as értéked, a B1 legyen =A1/24. A cellaformátum pedig [ó]:pp
-
Delila_1
veterán
válasz
swoody #18466 üzenetére
Készítettem egy új függvényt. Amelyik füzetbe beviszed, ott működni fog a Tukor nevű függvény. Ha a personal füzetedbe teszed be – a personal szóra keresve több leírást találsz itt a fórumon –, akkor minden füzetedben dolgozhatsz vele.
Function Tukor(cella As String)
Dim betu As Integer, ujnev As String
For betu = Len(cella) To 1 Step -1
ujnev = ujnev & Mid(cella, betu, 1)
Next
Tukor = ujnev
End FunctionAz A1 cellában lévő értéket úgy tükrözi, hogy egy másik cellába ezt írod: =Tukor(A1)
-
Delila_1
veterán
válasz
Geryson #18455 üzenetére
A keresett érték legyen olyan formátumú, amilyen az FKERES tartományának az első oszlopa.
Tudod, gyakori hiba, hogy valamelyik adat végére egy nem látható karaktert, pl. szóközt gépelt be valaki.Próbáld meg, hogy a tartományt megszabadítod ezektől a karakterektől a TRIM függvénnyel egy új oszlopban, majd az újat irányítottan, értékként az eredeti helyére illeszted.
-
Delila_1
veterán
válasz
Agostino #18453 üzenetére
Az oszlop, amiben a képleteid vannak, általános cellaformátumú legyen.
Az elsőnél add meg ezt, a képletet a szerkesztőlécen enterezd le, és ezután másold a képletet.Ha csak simán átállítod az oszlop formátumát, még nem hiszi el (az Excel), egyenként le kellene enterezned a sorokat. A fenti módszerrel elég a felsőt, mert másoláskor a formátumot is viszi magával.
-
Delila_1
veterán
Feltettem n-edjére egy fájlt, ami több nyelven tartalmazza az Excel függvényeit. Régi fájl, nem tartalmazza a legújabb függvényeket. Itt megtalálod.
-
Delila_1
veterán
válasz
pero19910606 #18420 üzenetére
Ha 2007-esnél régebbi verziót használsz, az A oszlopban lévő összes dátum mellé írd be a következő képletet:
=HA(NEM(HIBÁS(FKERES(A2;Munkanapok;1;0)));0;HA(VAGY(HÉT.NAPJA(A2;2)=6;HÉT.NAPJA(A2;2)=7;NEM(HIBÁS(FKERES(A2;Ünnepek;1;0))));1;0))Ez 1 értéket ad a hétvégék és ünnepnapok mellé, a hétköznapokhoz (beleértve a munkanap áthelyezéseket is) nulla értéket ad. Autoszűrővel kihozod, és törlöd az egyesek sorait.
-
Delila_1
veterán
válasz
pero19910606 #18417 üzenetére
Ehhez meg kell adnod a kérdéses időszakban előforduló ünnepnapok dátumát valahol a füzetben.Érdemes a tartománynak nevet adni, pl. Ünnepek legyen a neve.
Felviszed egy oszlopba az időszak dátumait, majd feltételes formázást adsz az oszlopnak. A felt. formázás képlete
=VAGY(HÉT.NAPJA(A2;2)=6;HÉT.NAPJA(A2;2)=7;NEM(HIBÁS(FKERES(A2;Ünnepek;1;0))))
Adsz egy színes hátteret.Autoszűrővel kiszűröd a a színt, és ezeket a sorokat törlöd. Ezzel a módszerrel a hétvégi 2 nap sem szerepel majd a listádban.
A helyedben bevinném a munkanap-áthelyezések dátumát is, a tartománynak Munkanap nevet adnék. A feltételes formázásban ezekre a napokra keresnék rá az FKERES függvénnyel, és ezeknek egy más színű hátteret adnék. Ezeket nem törölném.
Az ünnepnapok dátumait évekre előre megtalálod a http://www.nefelejtsdel.hu lapon.
-
Delila_1
veterán
válasz
pero19910606 #18410 üzenetére
Azokba a cellákba, ahol nem hozták a gyereket, H betűt írj.
Érdemes 3 cellát felvenni segédcellaként. Az első a rendes napidíjat tartalmazza, ezt nevezd el Napidíj-nak. A második a 10 hiányzásig fizetendő összeg (650 Ft), ennek a neve Tízig. A harmadik a 10 hiányzás fölötti fizetendő összeg(350 Ft), Tíz_fölött nevet kapjon.A nevek az A oszlopban vannak, ezt követik a hónap napjai B-től AF-ig.
A fizetendő összeg az AG oszlopban lesz, a képlete=DARABTELI(D2:AF2;"X")*Napidíj+HA(DARABTELI(B2:AF2;"H")<=10;DARABTELI(B2:AF2;"H")*Tízig;(10*Tízig)+(DARABTELI(B2:AF2;"H")-10)*Tíz_fölött)
-
Delila_1
veterán
válasz
swoody #18402 üzenetére
A makró bekéri a területet, ahol a cseréket végre akarod hajtani, majd elvégzi a 3 cserét. Nem tesz különbséget a kis- és nagybetűk között. A területet beírhatod, vagy egérrel is kijelölheted. A cserék számát tetszés szerint bővítheted.
Sub Csere()
Dim ter As Range
Set ter = Application.InputBox(prompt:="Jelöld ki a tartományt", Type:=8)
ter.Replace What:="a", Replacement:="1"
ter.Replace What:="l", Replacement:="2"
ter.Replace What:="m", Replacement:="3"
End Sub -
Delila_1
veterán
válasz
dellfanboy #18374 üzenetére
Az FKERES függvény volt az. A tól-ig határokat külön oszlopban add meg (elég az alsó határokat megadni), és a függvény utolsó paramétere 1 (vagy IGAZ) legyen.
-
Delila_1
veterán
válasz
ElemiKoczka #18372 üzenetére
Nem járok arra, de lakik ott egy haver. Küldhetem a sörért?
-
Delila_1
veterán
válasz
ElemiKoczka #18369 üzenetére
Ott a hiba, hogy a szóközt is tartalmazó lapnevet aposztrófok közé kell tenni.
Ennek megfelelően a képlet is változik.
=INDIREKT("'" & $A2&"'!B33")Láthatóbban: (" ' " & $A2 & " ' !B33")
Te ne hagyj szóközöket az idézőjelek és az aposztrófok között!
-
Delila_1
veterán
válasz
ElemiKoczka #18367 üzenetére
Gyakori hiba, hogy a lapnevek nem egyeznek meg az összesítő lap celláiban szereplő nevekkel. Kis- és nagybetű, szóköz a név után, stb.
-
Delila_1
veterán
válasz
ElemiKoczka #18364 üzenetére
Feltételezem, hogy az egyes lapokon címsor van, a tényleges adatok a 2. sorban kezdődnek. 31 nappal számolva az összegző sor a 33. sorban van.
Az összegző lapon erre a sorra kell hivatkozni. Ezen a lapon is van címsor. A B2 cellában az A2 cellában tárolt név nevű lapra kell hivatkozni, ott is a B32 cellára. Erre jó az INDIREKT függvény.=INDIREKT($A2&"!B33")
A C2 képlete =INDIREKT($A2&"!C33") lesz. A képletben másoláskor az A2-re (névre) történő hivatkozás változik automatikusan.
Szerk.: Az időkön ne csodálkozz, véletlenszámokkal állítottam elő.
-
Delila_1
veterán
válasz
ElemiKoczka #18356 üzenetére
Nincs mit.
-
Delila_1
veterán
válasz
ElemiKoczka #18353 üzenetére
Vegyük, hogy az A oszlopban vannak a dátumaid. Kijelölöd az oszlopot, és a feltételes formázásnál ezt a képletet adod meg:
=HÉT.NAPJA($A1;2)=7
majd megadod A a formátumot.
-
Delila_1
veterán
válasz
Sziszmisz #18345 üzenetére
Nem látok hibát benne. Neked is azt javaslom, hogy kapcsold be a bővítménykezelőben az Analysis ToolPak, és Analysis ToolPak - VBA nevű bővítményeket.
Azért a With – End With közé csak beírtad azokat a paramétereket, amiket nem szükséges megadni, mivel standard értékek. Egyedül a Color tér el az alapértéktől.
-
Delila_1
veterán
Mindkét táblában vegyél fel egy új oszlopot, ami összefűzi egy köztes karakterrel (pl. szóköz, alsó kötjel) a cikkszámot és a dátumot. Az egyik táblában ez az oszlop adja a keresési értéket, a másikban a keresés oszlopát.
Pl. ha a két értéket a H2 és J2 cellák tartalmazzák valamelyik táblában, az összefűzés =H2 & "_" & J2
Közelítő érték keresésekor az FKERES függvény utolsó paramétere 1, vagy IGAZ, de ha nem írod be, akkor is annak veszi.
-
Delila_1
veterán
válasz
Sziszmisz #18340 üzenetére
Igen, látszik is a rögzítés, ami elég sok felesleges dolgot rak be.
A Pöttyöslabda.xls fájl Munka1 nevű lapján lévő A1 cella értékét így teheted be az aktív füzet, aktív lap B2 cellájába:
Range("B2") = Workbooks("Pöttyöslabda.xls").Sheets("Munka1").Range("A1")
Ha sokszor hivatkozol a Pöttyöslabda füzet celláira, érdemes változót felvenni hozzá.
Dim WS As Worksheet
Set WS = Workbook("Pöttyöslabda.xls").Sheets("Munka1")Ha ezt megtetted, akkor az értékadás:
Range("B2") = WS.Range("A1") -
Delila_1
veterán
válasz
Sziszmisz #18337 üzenetére
Egyszerűbben is megadhatod a cellák értékét, formázását.
Range("A1")="név"
Range("B1")="megnevezés"With Range("A1:G2").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End WithRange("C1").Font.Underline = xlUnderlineStyleSingle
-
Delila_1
veterán
válasz
ElemiKoczka #18333 üzenetére
Munkalap neve a cellába
=KÖZÉP(CELLA("filename";$A$1);SZÖVEG.KERES("]";CELLA("filename";$A$1))+1;256)
-
Delila_1
veterán
válasz
marchello1 #18288 üzenetére
Helyes.
-
Delila_1
veterán
válasz
marchello1 #18286 üzenetére
Az oszlopban bárhol állva a Ctrl+le-nyíl azonnal az alsó adathoz visz, nem kell görgetni.
-
Delila_1
veterán
válasz
marchello1 #18284 üzenetére
Miért nem helyben szűröd? Ha egy sorban vannak az összetartozó adatok, bármelyik oszlopra szűrhetsz.
Az adatok duplikálása (redundancia) a 7 fő bűn között van. -
Delila_1
veterán
válasz
marchello1 #18282 üzenetére
Már csak azt nem tudom, hogy mit szeretnél az adatokból kihozni.
Az mindenesetre meggondolandó, hogy azonos rekordban (sorban) legyenek az összetartozó adatok. -
Delila_1
veterán
válasz
marchello1 #18278 üzenetére
Más elrendezést javasolok, amivel 1 rekordba kerülnek az összetartozó adatok, és a cellák összevonása is elkerülhető.
A makró:
Sub helyszinek()
Dim sor%, sor1%
sor% = 2: sor1% = 2
Do While Cells(sor%, "A") <> ""
If Application.WorksheetFunction.CountA(Range("B" & sor% & ":C" & sor%)) = 2 Then
Cells(sor1%, "I") = Cells(sor%, "A")
Cells(sor1%, "J") = Cells(sor%, "B")
Cells(sor1%, "K") = Cells(sor%, "C")
sor1% = sor1% + 1
End If
sor% = sor% + 1
Loop
End Sub -
Delila_1
veterán
válasz
marchello1 #18278 üzenetére
Tulajdonképpen azt szeretnéd, hogy a bal oldali táblázatból gyűjtse ki a jobb oldaliba azokat az adatokat, ahol mind a két helyszín megvan?
-
Delila_1
veterán
válasz
marchello1 #18278 üzenetére
if range("b4")="" then nextrow=nextrow+2
-
Delila_1
veterán
válasz
marchello1 #18275 üzenetére
A Sheets("Munka1").Cells(nextrow, 11) = Munka1.Range("B4").Value helyett
Sheets("Munka1").Cells(nextrow+1, 11) = Munka1.Range("B4").Value -et írj.A B3 és B4 cellák adatait azonos helyre írattad be.
-
Delila_1
veterán
válasz
dellfanboy #18264 üzenetére
Szivi.
-
Delila_1
veterán
válasz
dellfanboy #18262 üzenetére
A TRIM függvény [=trim(a1)] megszünteti a hivatkozott cella elején-, és végén lévő szóközöket, valamint az adat belsejében lévő dupla szóközöket eggyé alakítja a több szóból álló kifejezésekben.
A tisztítás után ezt az oszlopot irányítottan, értékként illesztheted az eredeti oszlopra. -
Delila_1
veterán
válasz
dellfanboy #18260 üzenetére
A szokásos hiba ilyenkor, hogy vagy a keresendő, vagy a listában lévő adat tartalmaz egy nem látható, pl. szóköz karaktert. Ezt ellenőrizd mind a kettőnél.
-
Delila_1
veterán
válasz
BenJoe80 #18251 üzenetére
Azzal kezdtem, hogy "Jelöld ki a B oszlopot, és a feltételes formázásnál add meg a képletet".
Ebben az esetben nem kell másolgatni. Ha így teszel, akkor az 1517. cellán állva a megfelelő képletet találod a feltételes formázásnál. Figyelj arra, hogy a képletben a 2. paraméter B1 legyen.Lehet úgy is másolni, ahogy a leírásban szerepel, de egyszerűbb, ha a másolandó cellán állva rákattintasz a formátumfestő ecset ikonra, és az ecsetté vált egérmutatóval befested a cellákat, ahova a formátumot szeretnéd másolni.
-
Delila_1
veterán
válasz
kvoaksz #18243 üzenetére
Írtam rá egy makrót.
Az A oszlop adataiból az egyedi értékeket kigyűjti az E oszlopba, és ezek mellett színez, ahogy írtad.
Az F1:AJ1 tartományban dátumok vannak – ezeket írd be –, a cellaformátumuk nn.Sub Szinezes()
Dim sor As Long, usor As Long, sor1 As Long, oszlop As Integer
Dim elsodat As Date, ucsodat As Date, nev$
'Irányított szűrés az E oszlopba
Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1"), Unique:=True
'Előző napok hátterének festése fehérre
Range("F1:AJ1000").Interior.ColorIndex = 2
'Színezés
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
nev$ = Cells(sor, "A")
elsodat = Cells(sor, "B")
ucsodat = Cells(sor, "C")
sor1 = Application.WorksheetFunction.Match(nev$, Columns(5), 0)
For oszlop = 6 To 36
If Cells(1, oszlop) >= elsodat And Cells(1, oszlop) <= ucsodat Then
Cells(sor1, oszlop).Interior.ColorIndex = 3
End If
Next
Next
End Sub -
Delila_1
veterán
válasz
kvoaksz #18230 üzenetére
Itt egy megoldás.
Képletek
D2 -> {=MIN(HA($A$2:$A$10=$A2;B$2:B$10))}
E2 -> {=MAX(HA($A$2:$A$10=$A2;C$2:C$10;0))}
Mindkettő tömbfüggvény, Shift+Ctrl+Enter-rel kell bevinni, akkor kapja meg az elején és a végén a kapcsos zárójeleket. Ezeket másold le a 10. sorig.F2 -> =HA(VAGY($D2>=DÁTUM(ÉV($D2);HÓNAP($D2);NAP(F$1))+1;$E2<=DÁTUM(ÉV($E2);HÓNAP($E2);NAP(F$1))-1);"";1)
Ezt másold az F2:AI10 tartományba. A tartományra adj feltételes formázást. Ahol a cella értéke 1, ott legyen a kitöltés és a betű színe piros, és kapjon a cella fehér keretet. -
Delila_1
veterán
válasz
Booci&Milka #18215 üzenetére
Excelben tudok segíteni, majd átírod, ha nem egyezik a tiéddel.
A termékek nálam az A17:A23 tartományban vannak, mellettük a hozzájuk tartozó kép neve a B oszlopban.
Az A2 cellában egy érvényesítés van, ami a terméke nevét tartalmazza. A B2 cella FKERES függvénye megkeresi a kiválasztott termékhez tartozó kép nevét.
A képeket a bekeretezett tartományba szúrtam be egymás fölé.
A makrót a laphoz kell rendelned, és akkor a választást követően a hozzá tartozó kép lesz csak látható.Private Sub Worksheet_Change(ByVal Target As Range)
Dim kep$, k%
If Target.Address = "$A$2" Then
kep$ = Range("B2")
For k% = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(k%).Name = kep$ Then
ActiveSheet.Shapes(k%).Visible = True
Else
ActiveSheet.Shapes(k%).Visible = False
End If
Next
End If
End Sub -
Delila_1
veterán
válasz
Tompkins #18176 üzenetére
Megnéztem lépésenként. Mikor a 97-es értéknél az összeg 14003, ennek a hosszát 4-nek értékeli a tükrözésnél, ezért a tükörképét 41-nek hozza ki. A
For b = Len(osszeg) To 1 Step -1
sort (Do-Loop cikluson belül) megváltoztattam,
For b = Len(osszeg & "") To 1 Step -1
lett, így hozza a 6 db-os értéket. 395-nél és 584-nél 7 az érték.
Az
If Len(szam1) = 0 Then Tukroz = 0: GoTo Vege
sorban is a stringgé alakított forma hosszától indítom a ciklust:
If Len(szam1 & "") = 0 Then Tukroz = 0: GoTo Vege
-
Delila_1
veterán
válasz
Tompkins #18164 üzenetére
Közben sok számmal kipróbáltam. Vannak olyanok, ahol vagy egyáltalán nincs megoldás, vagy túl nagy az eredmény. A dimenzionálásnál az Integer-ek helyére Long-ot írtam, és megadtam egy határt (1000), ami után ne számoljon tovább, hanem írjon ki egy szöveget. Ezt a jelölt sorban módosíthatod a türelmednek megfelelően.
Function Tukroz(szam As Long)
Dim ford, b As Long, darab As Long, osszeg As Long, szam1 As Long
szam1 = szam
If Len(szam1) = 0 Then Tukroz = 0: GoTo Vege
For b = Len(szam1) To 1 Step -1
ford = ford & Mid(szam, b, 1)
Next
If szam = ford * 1 Then
Tukroz = 0: GoTo Vege
Else
Do
osszeg = szam1 + ford
ford = ""
darab = darab + 1
If darab > 1000 Then 'Itt módosíthatsz
Tukroz = "Nincs megoldás, vagy 1000-nél nagyobb": GoTo Vege
Else
For b = Len(osszeg) To 1 Step -1
ford = ford & Mid(osszeg, b, 1)
Next
szam1 = osszeg
If szam1 = ford * 1 Then
Tukroz = darab: GoTo Vege
End If
End If
Loop While szam1 <> ford * 1
End If
Tukroz = darab
Vege:
End Function
Új hozzászólás Aktív témák
Hirdetés
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Bomba ár! Fujitsu LifeBook E754 - i5-4GEN I 8GB I 256SSD I 15,6" HD I HDMI I W10 I Garancia!
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- Telefon felváráslás!! Xiaomi 13T, Xiaomi 13T Pro, Xiaomi 14T, Xiaomi 14T Pro
- Lenovo S10-2 Intel Atom retró csajszis netbook eladó
- BESZÁMÍTÁS! Gigabyte A620M R5 7500F 32GB DDR5 512GB SSD RTX3070 8GB ZALMAN S2 TG Enermax 750W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest