-
GAMEPOD.hu
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 DasBoot #51899 üzenetére
Kiegészítettem bela85 linkelt makróját úgy, hogy a számokat emelkedő sorrendbe rakja.
Sub LottoSzamok()
Dim Rng As Range, WorkRng As Range, xNumbers(49) As Integer, xTitleId As String
Dim xIndex As Integer, xNum As Integer, Cim As Range, Lapnev As String
Lapnev = Selection.Worksheet.Name
On Error Resume Next
xTitleId = "Véletlen számok"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Melyik cellában kezdődjön?", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
Set Cim = Range(WorkRng.Range("A1"), WorkRng.Offset(0, 5))
Range(Cim.Address).Select
ActiveWorkbook.Worksheets(Lapnev).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(Lapnev).Sort.SortFields.Add2 Key:=Range(Selection.Address), _
SortOn:=xlSortOnValues, Order:=xlAscending
With ActiveWorkbook.Worksheets(Lapnev).Sort
.SetRange Range(Selection.Address)
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
karlkani
aktív tag
válasz Delila_1 #51901 üzenetére
Nem tudom régebbi verziók esetén hogyan működik, 2021-nél egyetlen képlet elég ehhez, igaz a számok egymás alá kerülnek. Cellahivatkozásokkal megoldható az elrendezés, ha így nem megfelelő.
=SORBA.RENDEZ(INDEX(EGYEDI(VÉLETLENTÖMB(6^2;1;1;45;IGAZ));SORSZÁMLISTA(6)))
Cellába kattintással frissül (F9-re tenyerelve még jópofa is, akkor áll le, amikor elengedem a gombot). Lehet egy rövid makrót írni, ami egy ideig pörgeti a számokat, majd megáll (gombot kitenni).
-
Jarod1
addikt
Sziasztok!
Adott 1 számsor oszlopban ( hetek számai) meg szeretném fordítani , de nem normális sorrendben teszi
hanem 1,11,12,13,14,15,16,17,18,19,2,20... stbHogy tudnám megcsinálni hogy rendesen sorba rendezze?
-
DasBoot
aktív tag
válasz karlkani #51902 üzenetére
A lejjebb említett egyik követelmény éppen látszik a táblázatban, hogy ne legyenek egy mezőben (összesen 8 fedi le a 45 számot) 34, 44 azonos számjegyre végződő számok. Éppen ezért nem szeretném a VÉLt használni, mert abban ez igen gyakori.
LEGO-ból bármit megépíteni, csak idő kérdése.
-
karlkani
aktív tag
válasz DasBoot #51908 üzenetére
Meg kellene osztani a követelményeket, akkor tudnának segíteni a fórumtársak, akik értenek a makróhoz. Sajnos ez ügyben nem tudok segíteni (nem igazán értek hozzá), általában itt kérek segítséget, vagy privátban a topikgazdától, ha valamit meg szeretnék oldani makróval.
-
skyrush7
aktív tag
Sziasztok!
Egy, a mai dátumra mutató hiperhivatkozást szeretnék létrehozni, munkahelyi jelenléti táblázathoz van rá szükségem. Az előző évi táblában van egy ilyen gomb, de nem tudom se szerkeszteni, se másolni, hogy működjön...
Ameddig eljutottam, az az hogy vertikálisan már tudok hivatkozni:
=HIPERHIVATKOZÁS("#A"&HOL.VAN((MA();A3:A50;0);"Mai NAP")
Itt lényegében kidobja a az egyezés relatív helyét a kezdősortól (ennek függvényében kell hozzáadni annyit, amilyen messze van az első cellától az első adat) és hozzáfűzi az A-t, így megkapom a mai napra mutató linket.
Horizontálisan ezt hogyan tudnám megoldani? Van valakinek ötlete erre? -
félisten
válasz skyrush7 #51912 üzenetére
=HIPERHIVATKOZÁS("#" & KARAKTER(HOL.VAN(MA();A1:E1;0)+64) & SOR(A1);"Mai nap")
Infó:
1. KARAKTER fx-ben azért van a +64 mert a karaktertáblázatban a nagybetűs a ("A") karakterkódja decimálisan 65, tehát 65=A, 66=B, 67=C 68=D stb stb. A HOL.VAN fx azt adja vissza, hogy az adott cellatartomány hányadik oszlopában talált egyezést (példában ez 4. oszlop), ezért 4+64=68, ez meg a "D" karakterkódja lesz
2. a SOR fx-be meg mindig az adott cellatartomány (példábanA1:E1
) első celláját add meg (példában ez A1)[ Szerkesztve ]
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)
-
Win-T
senior tag
Üdv!
Láma kérdés, ti biztosan kapásból tudjátok a választ: az utolsó oszlopba szeretném automatikusan hozni az X-hez tartozó értéket a szürke sorból. Ezt melyik függvény tudja? Vagy esetleg valami képlettel egyszerűbb?
-
félisten
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #51915 üzenetére
Másik függvénnyel:
=HAHIBA(INDEX(C:AA;2;HOL.VAN("X";C3:AA3;0));"")
Lefelé másolhatod.Bocsi, nem Neked akartam címezni, hanem Win-T-nek.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Win-T
senior tag
válasz Fire/SOUL/CD #51915 üzenetére
Teljesen jó, nagyon köszi (Delila-nak is!).
Írod, Excel 2021 esetén... a 2019 ezt akkor nem ismeri? Mert bent a melóban ilyen régi van csak. Bár ha esetleg nem akkor a lenti HAHIBA biztosan jó lesz. -
félisten
-
Win-T
senior tag
válasz Fire/SOUL/CD #51918 üzenetére
Értem, köszönöm!
-
elttiL
senior tag
Üdv. Tapasztaltatok ilyet mostanában, hogy: csinálsz egy másik munkalapról, vagy egy másik excel táblából egy cella hivatkozást. Észre veszed, hogy nem frissül a cella tartalma. Megnézed és a hivatkozáskori érték szerepel a cellában, nem pedig a hivatkozás.
Gépiesen sok ilyen hivatkozást csináltam (nyilván nem nézem meg minden linkelés után, hogy ott van e a hivatkozás) utána, amikor már frissült értékeknek kellett volna szerepelnie akkor vettem ezt észre.
xls kiterjesztésnél tapasztaltam, kínomban xlsx-re mentettem, ott már nem jelentkezett. -
félisten
-
Weareus
addikt
Üdv.
Open OfficeCalc-ban gépelek be szólistát.
Ha az szerepel, hogy
"Kávégép"
majd alá akarom azt írni, hogy
"kávé",
akkor automatikusan beírja, hogy "gép".
Ezt a segítő funkciót hogy tudom kikapcsolni?Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.
-
istvankeresz
aktív tag
Üdv!
Készítettem egy gombot, ami egy üres, template táblázatba (Maradek_TEMPLATE) összegyűjti a worksheet-ekből a kívánt értékeket és beírja a táblázatba. Odáig eljutottam, hogy végigmegy az összes worksheet-en, a megfelelő cellából kiveszi az értéket, de sajnos nem ugrik egy cellával lejebb, hanem a B9-be írja felűl mindig az átmásolandó értéket. A célom az lenne, hogy sorban B9, C9, D9...stb. cellákba másolja át a kiolvasott értékeket.
Private Sub CommandButton7_Click()
Dim lr As Long
Dim cell As Range
Dim ws As Worksheet
ThisWorkbook.Sheets("Maradek_TEMPLATE").Copy
ActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"
lr = Sheets(Maradék szabadságok).Range("A" & Rows.Count).End(xlUp).Row + 1
For Each ws In ThisWorkbook.Worksheets
For Each cell In ThisWorkbook.Sheets(ws.Name).Range("B2:B28")
ActiveWorkbook.Sheets(ws.Name).Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")
cell.Value: lr = lr + 1
Next cell
Next ws
End Sub
XBOX ONE GT: istvankereszt79
-
Delila_1
Topikgazda
válasz istvankeresz #51925 üzenetére
Az Ir értékét a For Each cell cikluson belül kell növelned.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
istvankeresz
aktív tag
válasz Delila_1 #51926 üzenetére
Hát csak nem sikerül.
Eléggé összekutyultam a sok próbálkozással. Letisztázva ez is azrt csinálja, hogy végiglépked a worksheet-eken és átmásolgatja az A2 értéket a B9-be. Innen hogyan tovább? Hogy a következő ciklusban már B9 helyett C9 legyen?
Private Sub CommandButton7_Click()
Dim ws As Worksheet
ThisWorkbook.Sheets("Maradek_TEMPLATE").Copy
ActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"
For Each ws In ThisWorkbook.Worksheets
ActiveWorkbook.Sheets("Maradék szabadságok").Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")
Next ws
End Sub
[ Szerkesztve ]
XBOX ONE GT: istvankereszt79
-
Delila_1
Topikgazda
válasz istvankeresz #51927 üzenetére
Persze próba nélkül.
oszlop=2
For Each ws In ThisWorkbook.Worksheets
ActiveWorkbook.Sheets("Maradék szabadságok").Cells(9,oszlop) = ThisWorkbook.Sheets(ws.Name).Range("A2")
oszlop=oszlop+1
Next ws
[ 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 istvankeresz #51927 üzenetére
Módosítottam az előzőt, nézd meg!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
istvankeresz
aktív tag
válasz Delila_1 #51928 üzenetére
Szia!
Na ez már alakul, köszi, de így jobbra lépeget cellánként. De én meg azt szeretném, hogy lefelé lépegessen. Sajnos elírtam a korábbi bejegyzésemben. Nem az a cél, hogy B9, C9 D9, STB:, hanem az, hogy B9, B10, B11, stb. Elnézést a félreinformálásért.
Megcserélem, és módosítom a Cells értékeket és jó lesz.
Köszönöm! Nagy segítség vagy!
[ Szerkesztve ]
XBOX ONE GT: istvankereszt79
-
Delila_1
Topikgazda
válasz istvankeresz #51931 üzenetére
Az eredeti makródban meghatároztad az Ir változót, ami az utolsó (vagy az utolsót követő első üres) sor. Ezt használhatod fel a belső ciklusban.
For Each ws In ThisWorkbook.Worksheets
ActiveWorkbook.Sheets("Maradék szabadságok").Cells(Ir,2) = ThisWorkbook.Sheets(ws.Name).Range("A2")
Ir=Ir+1
Next ws
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 istvankeresz #51931 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
aviator
tag
Sziasztok,
Tudtok valamilyen megoldást arra hogy a Treeview Control bővítmény használható legyen 2016os Office alatt?
-
-szabi-
őstag
Hi
A cellában van egy hosszabb mondat.
Mikor bekapcsolom, hogy sortöréssel több sorba akkor létrejön egy felesleges üres sor.
Azt hittem ott maradt egy cellán belüli enter de nem.
Ha a cellából a mondatot kijelölöm és átrakom másik cellába magával viszi a felesleges üres sort.
Átmásoltam wordbe, hogy megnézzem nincs e ott valami plusz karakter de nincs.
Nem jövők rá, mi okozza ezt?üdv
-
lacipapi
csendes tag
Sziasztok!
Az megoldható, hogy egy betöltött táblázat változtatását egyszerre több helyre elmentse ugyanazon a gépen. A lényeg hogy ne keljen minden mentésnél újra végigcsinálni a műveleteket, hanem a géphez csatlakoztatott több penre is kimentse. Még az is jó lenne, ha egy hiányzó pennél ne álljon le hibaüzenettel. A másik kérdésem az lenne, hogy egy makróban mit kell beírni, hogy amikor elvégezte a dolgát mindig frissítse a számolást.
Előre is köszönöm a segítséget.
Üdv LaciLelkes, de már egy kicsit idős amatőr
-
Fferi50
őstag
válasz lacipapi #51937 üzenetére
Szia!
Nézd meg a SaveCopyAs metódust.
Számolás: Application.CalculateFull.
Üdv. -
-szabi-
őstag
válasz Fferi50 #51936 üzenetére
Szia
Így néz ki:
Valamiért ott egy plusz sor.
Kipróbáltam a tisztít függvényt, majd a tisztító cellából másoltam és beillesztettem az értéket de úgy is ott a plusz sor.
Az említett szöveget betettem egy új doksiba és feltettem a onedrivera: klikk.SZERK:
Az excel online jól jeleníti meg de ha offline excel 2016 nyitom meg akkor ott van.üdv
[ Szerkesztve ]
-
félisten
válasz -szabi- #51939 üzenetére
Calibri (szövegtörzs) betűtípus 11px mérete okozza. Változtasd meg a méretét pl. 12px-re vagy válassz másik betűtípust vagy az A oszlopot mintha átméreteznéd, oda viszed az egérkurzort az A oszlopfejléc széléhez és duplaklikk és jó lesz.
[ Szerkesztve ]
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)
-
vilmaboy
őstag
Sziasztok!
Szükségem volna egy függvényre, ami:
A tábla: A B C D oszlopok és nagyon sok sor...
1 oszlop cikkszámok. B oszlop alaptípus. C oszlop sorszám, D oszlop terméknév
A "D" sok egyező név van egymás alatt, mivel sok terméknek ugyan az a neve.
A feladat: Ha D oszlopban két terméknév egyezik egymás után, akkor írja ki a legfelső termék cikkszámát a B oszlopba. Ha a három vagy több egyezik, akkor is a legelső cikkszámát írja ki B oszlopba. A legfelső terméknév ami egyezett a többivel, annak a B oszlopát hagyja üresen. C oszlopban számozni kellene az egyező neveket. Az 1es mindíg a legfelső. Köszi a válaszokatA világ legveszélyesebb dolga az, amikor a tudatlanság szorgalommal párosul!
-
Fferi50
őstag
válasz vilmaboy #51942 üzenetére
Szia!
Először a C oszlop függvénye:
C2 cellába:=DARABTELI($D$2:$D2;D2)
Ha új Exceled van, akkor DARABHA a függvény neve.
A képlet húzható lefelé, amíg adatod van. Figyelj a $ jelekre lsz.
A B oszlop függvénye:
B2 cellát üresen hagyod.
B3 cella képlete:=HA(C3=1;"";HA(B2="";A2;B2))
Ez a képlet is húzható lefelé.
Annyi eltérés van a kívánalmaidtól, hogy az egy darabos termék C oszlopában is ott lesz az 1-es szám - a B oszlopban viszont nem lesz érték.
Módosítás
A C oszlop javításához a képletek:
C2 cellába:=HA(ÉS(DARABHA($D$2:$D2;D2)=1;DARABHA($D$2:$D3;$D3)=1);"";DARABHA($D$2:$D2;D2))
B3 cellába:=HA(VAGY(C3=1;;C3="");"";HA(B2="";A2;B2))
Üdv.[ Szerkesztve ]
-
gulupeti
senior tag
Olyan problémával találkozott már valaki, hogy a keresés és csere ablakban, egy már ott lévő adatot nem tud kijelölni egérrel és beilleszteni az új, keresendő számot, szöveget, stb? Minden alkalommal bele kell, hogy kattintsak és backspace-szel kitörölni, de van, hogy így sem lehet beilleszteni, hanem keresés és csere bezár, újra ctrl+f és csak akkor lehet beilleszteni. Már másfél éve szerintem ezzel szívok, van, hogy folyamatosan csinálja, van, hogy csak néhány tétel után. Voltam már win10-en, win11-en jelenleg, mindkettő eredeti, az Office normális, előfizetés cucc. Olyan szinten meglassít ez engem a munkában, hogy a maradék hajam is kipotyog tőle lassan, megoldást nem találtam még rá.
-
gulupeti
senior tag
válasz Fferi50 #51945 üzenetére
2 db költségvetési táblázatot hasonlítok össze, régit az újjal, hogy melyek azok a kódok, amelyek az újban is megvannak, manuálisan, egyenként csináltuk ez mindig. Sokszor a 2 összehasonlítandó fileban lévő tartalom felépítése is teljesen eltérő. Lehet, hogy lehetne ezt makrózni, de én ahhoz sajnos nem értek.
-
Delila_1
Topikgazda
-
-szabi-
őstag
válasz Fire/SOUL/CD #51941 üzenetére
Sajnos az A oszlopfejléc szélén a duplaklikk nem vált be.
Sose találtam volna ki, hogy a betű típusa, mérete okozza.
Köszi. -
ElemiKoczka
csendes tag
Sziasztok!
Az eddig tökéletesen működő módszerek most nem működnek...
A cella tartalmát nem tudom számmá alakítani.
Mi lehet a probléma? -
Delila_1
Topikgazda
válasz ElemiKoczka #51949 üzenetére
https://prohardver.hu/tema/excel/hsz_49013-49013.html
Itt a második bekezdésben leírtakat alkalmazhatod.
A szóközös helyett a szövegként szereplő számokat tartalmazó cellákra kell irányítottan beilleszteni az 1-est.[ 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.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen