- Microsoft Excel topic
- Mesterséges Intelligencia topik
- Xiaomi AX3600 WiFi 6 AIoT Router
- Linux kezdőknek
- A pápa egyre jobban tart a romlott AI veszélyeitől
- Synology NAS
- Milyen routert?
- DIGI internet
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
-
IT café
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
-
Dolphine
addikt
válasz Delila_1 #23143 üzenetére
2013-ast.
Igazság szerint az a probléma, hogy 5 féle színt használok és néha jó lenne, hogyha nem kellene keresgetni, mivel nem mindegyik színt jegyzi (amit korábban használtam) meg az Excel.[ Szerkesztve ]
Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
slashing
senior tag
-
Delila_1
Topikgazda
válasz Dolphine #23151 üzenetére
Megírtam a 3 színhez, tudod folytatni.
Sub Piros()
Selection.Offset(-1).Font.Color = vbRed
End Sub
Sub Kek()
Selection.Offset(-1).Font.Color = vbBlue
End Sub
Sub Zold()
Selection.Offset(-1).Font.ColorIndex = 10
End SubA zöldhöz számmal adtam meg az árnyalatot, mert a vbGreen nagyon világos.
Tegyél ki 3 (5) alakzatot. Adj nekik nevet (itt Sz, I és T), és rendeld hozzájuk a megfelelő makrót.
Ezek színeznek a következő képpen: beírod a számot pl. a B4 cellába, mire a fókusz a B5-be áll. Rákattintasz a megfelelő színű alakzatra, ami az aktuális (B5) cella fölötti cella tartalmát színezi ki.Írtam egy másik makrót, amit a lapodhoz kell rendelned. Ennek hatására az alakzatok mindig az aktuális cella mellett jelennek meg, kényelmesebbé téve a színezést.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Sz").Top = ActiveCell.Top
ActiveSheet.Shapes("I").Top = ActiveCell.Top
ActiveSheet.Shapes("T").Top = ActiveCell.Top
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 Dolphine #23156 üzenetére
Igen, a beírt szám alatti cella mellett megjelennek a színező gombok.
Persze szerintem is külön oszlopba kellene írni a szóbeli, írásbeli, stb. jegyeit, de ha ragaszkodsz az 1 oszlophoz, hát ez a módszer megteszi.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Titkárnő
újonc
Sziasztok!
Segítség kellene, egy oszlopon belül szeretném összeadni azokat az értékeket, amelyek piros betű színűek...(eredetileg mindegyik fekete, csak ha kifizették átállítom pirosra, és szeretném, ha automatán összeadódna, és nem kellene minden egyes újabb piros számot hozzáadni az összeghez)
Ha ezt lehet bonyolítani, vannak kék betűszínű értékek is, ezek számlázottak, de még nincsenek kifizetve.
És jó lenne, ha azonnal frissülne az összeg, amikor átszínezem pirossá...
Van rá megoldás? Előre is köszönöm a válaszokat! -
Fferi50
őstag
válasz botond187 #23162 üzenetére
Szia!
Itt az egész makró, hátha elírtál valamit:
Sub kieg()
Dim sor As Long, usor As Long, sorS, sorK As Long, szamol As Integer
Dim ehhez As String, tol$, ig$
Columns(2) = ""
usor = Range("A" & Rows.Count).End(xlUp).Row: sor = 1
For sor = 2 To usor
ehhez = Cells(sor, "A")
If ehhez <> "" Then
sorS = Application.Match(ehhez, Range("D:D"), 1)
szamol = 0
For sorK = 1 To usor
tol$ = Cells(sorS, "E"): ig$ = Cells(sorS, "F")
If Cells(sorK, "A") >= tol$ And Cells(sorK, "A") <= ig$ Then
If szamol = 6 Then Exit For
If Cells(sor, "B") = "" Then
Cells(sor, "B") = Cells(sorK, "A")
Else
Cells(sor, "B") = Cells(sor, "B") & "|" & Cells(sorK, "A")
End If
szamol = szamol + 1
End If
Next
End If
Next
End SubÜdv.
-
slashing
senior tag
válasz Titkárnő #23163 üzenetére
csak makróval fog működni és nem lesz automatikusan, a szerkesztőlécen le kell okézni mindig a képletet hogy frissüljön...
ezt találtam a neten:
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'Sums or counts cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Font.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Font.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Functionén csak annyit írtam át rajta hogy ne háttérszínt nézze hanem a betűszínt.
használni úgy kell hogy: =ColorFunction(C1;A1:A9;IGAZ)
ahol c1 cella háttérszíne olyan mint az összeadandó számoké tehát piros, A1:A9 a tartomány amit figyeltetünk. A végén ha igaz akkor összeadja ha hamis akkor csak megszámolja hány cella piros...szerintem egyszerűbb egy új oszlop amibe beírod hogy fizetve aztán egy =SZUMHATÖBB(A1:A9;B1:B9;"fizetve") ahol a1:a9 az összegek b1:b9 a fizetve és a fizetve szövegűeket összeadja...
-
maestro87
őstag
válasz maestro87 #23142 üzenetére
Erre valaki?
Lehetőleg makró nélkül mert olyat még nem csináltam.
A kiemelést formázással gondoltam (pl. más színnel).
A cellaformázásnál a formátum egyébként számra van állítva, így nem értem, hogy miért keres úgy mintha karaktereket keresnék. -
Delila_1
Topikgazda
-
botond187
csendes tag
Sziasztok,
Arra keresek képletet, hogy a cellákban lenne egy random szám, és azt a számot kerekítse fel úgy, hogy az utolsó 2 számjegye 90-ra végződjön. A kerekítés képlet valamiért nem működött.
Köszönöm a segítséget előre is
-
Teejay83
tag
Sziasztok
segítsetek légyszi
szeretnék egy excel táblát office 2010-ben,amely teljesen védett,de bizonyos oszlopokat a cégen belüli több felhasználó is módosíthatna, a problémám az,hogy ha zárolom a lapot és hozzáadok pl. egy felhasználót az AD-ből egy bizonyos tartományhoz módosítási engedéllyel már nem csak ő hanem én is tudom szerkeszteni, ez miért van?
DPS Hungary- szoftverrobot fejlesztés-online marketing támogatás-rendszerek bővítése,korszerűsítése-digitalizáció-IT biztonsági tanácsadás | www.onlineasszisztens.com | www.dpshungary.eu |
-
Delila_1
Topikgazda
válasz Teejay83 #23173 üzenetére
Kipróbáltam, nem hibázik.
Kijelölöd a tartományt, Korrektúra | Változások | Tartományok szerkesztésének engedélyezése.
Megadás, itt módosíthatod a neve (címet), a hivatkozásba bekerül a tartomány címe. Megadod a jelszót, OK.Jöhet a következő tartomány engedélyezése, mint fent, végül a Lapvédelem.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
botond187
csendes tag
válasz Delila_1 #23172 üzenetére
Szuper, működik.
Olyan segítség kellene még, hogy csináltál egy cikkszám kiolvasós makrót nekem, amiben pár hozzászólással feljebb Fferi50 segített egy-két dologban már. (A füzetet ferakom IDE)
Ezt 6-oszlopba lefutattam külön-külön, más értékekkel beállítva, mert 6 különböző értékeket kellett kiolvasnia.
Ezzel kapcsolatba lenne olyan kérdésem, hogy miután kihozta az eredményeket 6 oszlopba, oszloponként van hogy 1-2, van hogy 0 találat van, van hogy 6 találatot is kidob.
Ebből szeretném azt kihozni, hogy egy másik oszlopba gyúrjon össze 6 találatot úgy, hogy mind a 6 oszlopból kerüljön bele legalább 1. Ha nincs mind a 6 oszlopba találat, akkor a többiből szedjen össze 6-ot.Ez megoldható?
Köszönöm a választ előre is
[ Szerkesztve ]
-
-
Teejay83
tag
válasz Delila_1 #23174 üzenetére
köszi.működik csak szerintem az volt a baj,hogy nem adtam be tartományi jelszót először
DPS Hungary- szoftverrobot fejlesztés-online marketing támogatás-rendszerek bővítése,korszerűsítése-digitalizáció-IT biztonsági tanácsadás | www.onlineasszisztens.com | www.dpshungary.eu |
-
Delila_1
Topikgazda
válasz botond187 #23182 üzenetére
Nem akarom átböngészni a makrókat, amit valamikor én írtam közülük, már rég elfelejtettem.
Lefuttatod a 6 makrót, ami a Module3 lapon van?
Hol jelennek meg a kiválasztott értékek, amik közül 6-ot ki kell választani?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
botond187
csendes tag
válasz Delila_1 #23183 üzenetére
Lefuttatom a makrókat 1-6-ig (8-ig van megcsinálva, de elég a 6.-ig), mindet egyesével, mert ha csak a modul 3-at futtatom le, akkor a 3. oszlopba futtatja le.
modulkieg1-et ha lefuttatom csak az AH oszlopba dobja ki az eredményeket
kieg2-nél az AI oszlopba dobja ki
modulkieg3-nál csak az AJ oszlopba hozza ki az eredményeket
és így tovább.
Ezzel így nincs is gond, 6-szor lefuttatom, bár ha le lehetne egybe futtatni az se lenne baj, így legalább külön-külön is tudom futtatni.
Azt szeretném, hogy az AH-AI-AJ-AK-AL-AM oszlopból szedjen össze 6-ot, és mondjuk a B oszlopba tegye ki mint végeredmény.
Úgy gyűjtse össze, hogy ha az AH-AI-AJ-AK-AL-AM oszlopban mindegyikben van eredmény, akkor mindegyikből 1-1-et szedjen ki.
Ha nincs mindegyikbe oszlopban eredmény, akkor a többiből gyűjtse össze a 6-ot.
Elsődleges az lenne, hogy mindegyikből összejöjjön legalább 1. -
Titkárnő
újonc
válasz slashing #23165 üzenetére
köszönöm, nagyon kedves vagy, hogy több variációval is dolgoztál!
A második megoldás nekem sokkal jobban tetszik, mert egyszerűbbnek tűnik, viszont mivel egy oszlop egy hónap és 12 van belőle, nem tudom megoldani, hogy 24 oszlop legyen, átláthatatlan lenne.
A makróval még barátkoznom kell... sosem csináltam még...
Kipróbálom és visszajelzek!Köszi még egyszer!
-
Vasinger!
nagyúr
Olyan problémában kérném segítségegetek, amelyre nem találtam máshol választ:
Van egy excel táblázatom, abban egy oszlopban vannak szövegek/stringek/. (számok és betűk sorozata) Annyi lenne a probléma, hogy elromlott a karakterkódolása annak az adott oszlopnak, így tele van ilyen és ehhez hasonló karakterekkel: ö, Ă©, Ă stb. Ezeket kéne lecserélni az eredeti ékezetes betűkre.
Pl.: ö ö-re, Ă© é-re úgy, hogy a többi karakter érintetlen maradjon.Ezt egy visual basic scripttel könnyen meg tudnám csinálni, ha az egész cellát le kéne cserélni, de itt a cellákon belül kéne dolgoznom, ez az ami megnehezíti a feladatom. Van erre valami jó módszer?
Előre is köszönöm a segítséget!
[ Szerkesztve ]
-
Delila_1
Topikgazda
-
-
botond187
csendes tag
válasz Delila_1 #23189 üzenetére
Szia,
Valami nem stimmel, nálad lefutott, és kihozott az egész B oszlopba eredményt? (ameddig az A oszlopban van cikkszám)
Nekem csak a B-oszlop első 6 sorába hoz ki valamilyen eredményt. Ez is furcsa, hogy a B6-ba jön ki úgy az eredmény ahogy kellene, a B5-be amibe ugyanúgy 6 cikkszámot kéne kihozznia, csak 3-at ad ki. -
slashing
senior tag
-
Fferi50
őstag
válasz Delila_1 #23187 üzenetére
Szia!
Bocsánat, hogy belekotyogok, de ha rész szövegre keresünk, akkor a Range.Find utasításban nem elég a lookat paraméter elhagyása.
A Find ugyanis megőrzi a korábbi beállításokat (gyakorlatilag a Ctrl+F nek a VBA megfelelője, olyannyira, hogy az ottani beállítások is "átjönnek" a makróba és viszont), tehát ajánlott beírni a lookat:=xlpart paramétert is hozzá - mivel ki tudja, hogy mit kerestek korábban.
Vagy ugyanazt eredményezi, ha marad a lookat:=xlwhole, de a keresendő betúk elé és mögé egy-egy csillagot teszünk. (Pl.: *lil* xlwhole beállításnál megtalálja a delila szót is - sőt, ebben az esetben nem is jó az xlPart beállítás!!!)De ha már makróról beszélünk, akkor inkább a Range.Replace utasítás jöhet szóba a fenti megkötésekkel, vagy a replace függvény.
Üdv.
-
RAiN91
őstag
Sziasztok
Ha egy office doksiből kitöröltek pár sort, és utána feltöltötték netre, én onnan letöltöm, nem lehet valahogy visszahozni amit kitöröltek belőle? -
Delila_1
Topikgazda
válasz botond187 #23191 üzenetére
Az volt a feladat, hogy 6 eredmény legyen a B oszlopban, lehetőleg a 6 kigyűjtésből 1-1. Ha valamelyik kigyűjtés nem ad eredményt, akkor ahelyett egy másikból írjon be eredményt.
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
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- World of Warcraft Shadowlands Collectors edition EU EN