-
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
-
Delila_1
Topikgazda
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
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz bozsozso #18188 üzenetére
Akkor nincs más hátra, mint gyalogosan átírni HA(HIBÁS(FKERES()...-re. Szerencséd van, ha azonos oszlopban vannak ezek a képletek, mert akkor csak az elsőt kell átírnod, a többit másolhatod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz Daffni2 #18214 üzenetére
Ugyanúgy kell összeadni, mint bármilyen más értékeket.
=SZUM(F2:F200)A formázást állítsd az összegző cellában [ó]:pp:mm-re, ha 2010-esnél régebbi verziót használsz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz cserma #18220 üzenetére
Lappynak igaza van.
Mivel ez iskolai feladatnak néz ki, valószínű, hogy nekiláttál a megoldásnak, nem másoktól várod a teljes kidolgozást. Írd meg, melyik kérdéssel meddig jutottál el.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz BenJoe80 #18247 üzenetére
Szóval azt akarod elérni, hogy a B oszlopban legyen piros hátterű minden cella, ami 1-nél többször fordul elő az oszlopban.
Jelöld ki a B oszlopot, és a feltételes formázásnál add meg a képletet:
=DARABTELI(B:B;B1)>1Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz BenJoe80 #18256 üzenetére
A 18250-es leírás szerint próbáltad már?
Csak egyszer jelöltem ki a teljes oszlopot. Megnyitottam a felt. formázás menüt, megadtam a képletet, a formátumot, és kész.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz dellfanboy #18264 üzenetére
Szivi.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz marchello1 #18278 üzenetére
if range("b4")="" then nextrow=nextrow+2
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz marchello1 #18288 üzenetére
Helyes.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Delila_1 #18338 üzenetére
Még annyit, hogy a With ... End With között megadott tulajdonságok közül csupán a .Color = nnn nem alap beállítási érték, ezért elegendő a
Range("A1").Interior.Color = 65535
Range("B1").Font.Color = -16776961értékadás.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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")Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ElemiKoczka #18356 üzenetére
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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ő.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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!
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ElemiKoczka #18372 üzenetére
Nem járok arra, de lakik ott egy haver. Küldhetem a sörért?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Vírusirtó, Antivirus VPN kulcsok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs