-
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
-
Geryson
addikt
Kérdeznem kell ismét:
Vagy egy ilyen képletem:
=HA(J2=HUF;D2;D2*M2)
A J oszlopban szöveg alapon vagy HUF vagy EUR van írva. Valami miatt viszont mégsem megy a képlet, azt írja mindenhova, hogy "#NÉV?". Miért?
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Geryson
addikt
Van egy ilyen FKERES-em:
=FKERES(I2;Készlet!A;5)
Hogyan lehet ezt összekombinálni úgy, hogy ha nincs találat, akkor 0 (nulla) legyen az eredmény? Az FKERES amúgy szigorúan keres, tehát csak teljes egyezés esetén hoz találatot?
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
föccer
nagyúr
válasz Geryson #15455 üzenetére
=HA(HIBÁS(FKERES(I2;Készlet!A:F;5;0);0;FKERES(I2;Készlet!A:F;5))
Nincs előttem excel, így nem tudtam leellenőrizni.
FKERES akkor ad pontos egyezést, ha a tartomány paraméterét is meg adod 0 értékkel. Ha nem adod meg, akkor a legközelebbi találatot adja.
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
Geryson
addikt
-
Delila_1
Topikgazda
válasz pschio #15460 üzenetére
Nem érdemes külön text-ből bevinni, megteheted az automatikus javítás funkcióval. Egyszer kell bevinni, hozzárendelni egy olyan karaktert, ami valószínűleg soha nem fordul elő magában (pl. w), ezután már csak ezt a karaktert írod be egymagában, és átírja a megadott névre.
Legegyszerűbb, ha a Wordbe beviszed a nevet, akár meg is formázhatod, majd Office gomb | A Word beállatásai | Nyelvi ellenőrzés | Automatikus javítási beállítások.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
poffsoft
addikt
apropo, lenne egy kérdésem ezzel kapcsolatban:
det(0, 1) = 0: det(0, 2) = 0: det(0, 3) = 0: det(0, 4) = 0
det(1, 1) = 1: det(1, 2) = 0: det(1, 3) = 0: det(1, 4) = 0
det(2, 1) = 1: det(2, 2) = 1: det(2, 3) = 0: det(2, 4) = 0
det(3, 1) = 1: det(3, 2) = 0: det(3, 3) = 1: det(3, 4) = 0
det(4, 1) = 1: det(4, 2) = 1: det(4, 3) = 0: det(4, 4) = 0
det(5, 1) = 1: det(5, 2) = 0: det(5, 3) = 1: det(5, 4) = 0
det(6, 1) = 1: det(6, 2) = 1: det(6, 3) = 0: det(6, 4) = 0
det(7, 1) = 1: det(7, 2) = 0: det(7, 3) = 0: det(7, 4) = 1Ennek az értékedásnak nincsen valami egyszerűbb módja?
talán az Array operandus, csak nem egészen értem, hogy ott egy mátrix elemeit (a sorokat) hogyan kellene felsorolnom?[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz poffsoft #15463 üzenetére
Egy oszlopnyi adatot be tudok olvastatni, de mátrixra nem ismerem a módot.
Sub mm()
Dim tomb, kiiras, i
tomb = Application.Transpose(Range("A1:A5"))
For i = 1 To 5
kiiras = Join(tomb, vbCrLf)
Next
MsgBox kiiras
MsgBox tomb(2)
End Sub[ 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.
-
poffsoft
addikt
válasz Delila_1 #15464 üzenetére
Nem feltétlen cellából kellene beolvasnom, elég ha kód.
Egyenlőre ezt a megoldást találtam , ezzel maga a mártix bevitel picit áttekinthetőbb, viszont a teljes kód változott (és továbbra is elég favágós algoritmus):Option Explicit
Sub alg()
Dim passlen, pass, LastRow, i, j, Iend, form, d0, d1, d2, d3, d4, d5, d6, d7, det
d0 = Array(0, 0, 0, 0, 0)
d1 = Array(0, 1, 0, 0, 0)
d2 = Array(0, 1, 1, 0, 0)
d3 = Array(0, 1, 0, 1, 0)
d4 = Array(0, 1, 1, 0, 0)
d5 = Array(0, 1, 0, 1, 0)
d6 = Array(0, 1, 1, 0, 0)
d7 = Array(0, 1, 0, 0, 1)
det = Array(d0, d1, d2, d3, d4, d5, d6, d7)
pass = ""
Sheets(1).Select
Iend = 100
passlen = Len(Iend)
For i = 1 To passlen
pass = pass & "0"
Next i
LastRow = ActiveSheet.UsedRange.Rows.Count
Range("A2:G" & LastRow).ClearContents
If Iend = 0 Then Iend = 1
For i = 1 To Iend
det(0)(0) = i
Cells(i + 1, 1).Select
Cells(i + 1, 1) = det(0)(0)
form = "x= "
For j = 1 To 4
det(0)(j) = det(0)(j) + det(((i - 1) Mod 7) + 1)(j)
Cells(i + 1, j + 1) = det(0)(j)
form = form & Right(pass & det(0)(j), passlen) & "*" & Chr(Asc("a") + j - 1) & "+"
Next j
Cells(i + 1, 7) = Left(form, Len(form) - 1)
Next i
Cells(1, 1).Select
End Sub[ Szerkesztve ]
-
kokopeti
csendes tag
Sziasztok!
Kellene egy kis segítség kimutatás "féle" megjelenítéshez...
A feladat az lenne, hogy van 2 munkalapom (Kiadások, Bevételek). A munkalapokon azonos táblázat van létrehozva (Dátum, Mód, Összeg, Megnevezés). Ennek a 2 munkalap táblázataiból kellene kinyernem adatokat egy másik munkalapon (Napi összesítő), ami úgy történne, hogy A1 cellába megadom az adott dátumot,amire kíváncsi vagyok és ezzel az alatta lévő táblázatban kilistázza nekem a 2 másik munkalapból kinyert adatokat,amelyek az adott napra vonatkoznak.
Ha nem voltam érthető kérlek jelezzétek és töltök fel képet, hogy miről is lenne szó! Előre is köszi a segítséget!!
[ Szerkesztve ]
-
Telda
addikt
Hali!
Hogyan tudnék véletlen időket generálni az Excellel?
Pl.:10:36
12:41
1:57
10:00stb.
-
Kicker
senior tag
Helló!
Van egy nagy gondom, semmi msát nem akarnék, összehasonlítani két számsort, tehát van 5 sorom, és 30 oszlopom, és a végén kiakarom iratni, hogy van-e két egyforma oszlop.
Vagy inkább menjen be acces-be az adathalmazom? megpróbálom aztArról ismerik futball körökben, hogy egyik meccsén kettőt bólintott, egy gólt és egy nézőt.... muhaha
-
Delila_1
Topikgazda
válasz Kicker #15470 üzenetére
Ez a makró az egyforma oszlopoknak színes hátteret ad. Ha több azonos is van, azt már könnyen ki tudod választani a színezés alapján.
Sub hasonlit()
Dim oszlop%, oszlop1%
For oszlop% = 1 To 29
a1 = Cells(1, oszlop%)
a2 = Cells(2, oszlop%)
a3 = Cells(3, oszlop%)
a4 = Cells(4, oszlop%)
a5 = Cells(5, oszlop%)
For oszlop1% = oszlop% + 1 To 30
If Cells(1, oszlop1%) = a1 And Cells(2, oszlop1%) = a2 And Cells(3, oszlop1%) = a3 _
And Cells(4, oszlop1%) = a4 And Cells(5, oszlop1%) = a5 Then
szin = Int(Rnd() * 50) + 1
Range(Cells(1, oszlop%), Cells(5, oszlop%)).Interior.ColorIndex = szin
Range(Cells(1, oszlop1%), Cells(5, oszlop1%)).Interior.ColorIndex = szin
End If
Next
Next
End Sub[ 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.
-
Kicker
senior tag
válasz Delila_1 #15471 üzenetére
Köszönöm Szakértő Úr!
2 Problémám van, a makrot valahogy beírtam, de hogyan futtatom? Illetve ha ezt kiakarom bővíteni oszloponként 14 sorra, (1 oszlopba 14 adat) melyből van 30 és összehasonlítani? Accesbe próbáltam beírni, de a 2007-es annyira más mint amit használtam anno (2003-as)...
Arról ismerik futball körökben, hogy egyik meccsén kettőt bólintott, egy gólt és egy nézőt.... muhaha
-
Delila_1
Topikgazda
válasz Kicker #15472 üzenetére
A "Szakértő Úr" nem illik rám.
Az értékadásnál értelemszerűen folytatsd a sort az A6, A7, ...A14-gyel. A
If Cells(1, oszlop1%) = a1 And Cells(2, oszlop1%) = a2 And Cells(3, oszlop1%) = a3 _
And Cells(4, oszlop1%) = a4 And Cells(5, oszlop1%) = a5 Thensorba további And operátorral add be a többi adatot. A hosszú sornál a törést úgy tedd be, hogy hagysz egy szóközt, majd írsz egy alsó kötjelet, és a következő sorban folytatod a felsorolást.
Az Excelben az Alt+F11 előhozza a VB szerkesztőt. Bal oldalon kiválasztod a füzetedet, majd az Insert menü segítségével beszúrsz egy modult. Kiválasztod a modult, és a jobb oldalon kapott üres füzetbe bemásolod a makrót, beviszed a módosításokat. Visszalépsz a füzetbe, és Alt+F8-cal előhívod a makrók ablakot, ott tudod indítani.
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
A fenti képen az A:J oszlopok külső adatforrásból származnak és a látott formában kerülnek az Excelbe. Az L oszlopot a következő módon képzem:
For i = 2 To 8
Cells(i, 13).Value = Mid(Cells(i, 7), 7, 4) & "." & Mid(Cells(i, 7), 1, 2) & "." & Mid(Cells(i, 7), 4, 2)
Nextami a '=ÖSSZEFŰZ(KÖZÉP(G3;7;4);".";KÖZÉP(G3;1;2);".";KÖZÉP(G3;4;2)) képlet VBA megfelelője.
M2 cella képlete M1-ben
Kérdésem, hogy hogyan tudnám egy lépésben megoldani ezt a transzformációt
A végső célom az, hogy az F és E oszlopok által meghatározott időponthoz, hozzáadjam a J oszlopban lévő értéket tehát pl a 2 sorban a 2012/14/10 16:50:15-höz adjuk hozzá a 3 nap 22:01:20 értéket (J2 cella)
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz m.zmrzlina #15476 üzenetére
ami a '=ÖSSZEFŰZ(KÖZÉP(G3;7;4);".";KÖZÉP(G3;1;2);".";KÖZÉP(G3;4;2)) képlet VBA megfelelője.
Pontosabban a '=ÖSSZEFŰZ(KÖZÉP(F2;7;4);".";KÖZÉP(F2;1;2);".";KÖZÉP(F2;4;2)) képlet VBA megfelelője.
Menet közben a képkivágáshoz odébbtettem a tartományt.[ Szerkesztve ]
-
mome
tag
Sziasztok
makróval szeretnék szűrőt használni 2 érték közötti számokra
a 2 értékre felvettem 2 változót (e és f), de így csak szövegként keresi e-t és f-etActiveSheet.Range("$A$1:$AM$20504").AutoFilter Field:=16, Criteria1:= _
">=e", Operator:=xlAnd, Criteria2:="<=f"Tudnátok segíteni, hogy kell megadni a feltételt?
Köszönöm
-
Delila_1
Topikgazda
válasz m.zmrzlina #15477 üzenetére
Az egyik lapon az adatok-, a másikon a képletek látszanak.
Biztosan át tudod tenni VBA-ba. A munkalapon külön cellákba tettem az egyes lépések eredményét, VB-ben változókkal is létre tudod hozni.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
Üdv!
Abban kérem a segítségetek, hogy hogyan tudnám megoldani a legkönyebben az alábbi feladatot.
Ki kellene küldenem 80 db e-mailt. A címzettek nevei és címei egy excel táblában vannak felsorolva. Az e-mail egy meghívó egy rendezvényre.
Ha jól emlékszem, akkor rá lehet veni az outlookot arra, hogy az xls-ből kiszedje a neveket és címeket és azt külön-külön elküldje minden címzetnek, csak nem találom ezt a funkciót.
Ha tényleg van ilyen, akkor azt merre találom, illetve ha nincs, akkor hogyan ehetne ezt megoldani?
Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
kokopeti
csendes tag
Sziasztok!
Korábban kérdeztelek Titeket, de sajnos nem jött válasz! Valaki esetleg rátudna nézni mégegyszer, hátha tudnátok segíteni nekem. Köszönöm előre is!!
-
pecze
aktív tag
Hello
Át lehet e állítani az Excelt, hogy melyik nyelv függvényeit használja? Pl. magyar Excelben angol függvényneveket akarok.[ Szerkesztve ]
-
Delila_1
Topikgazda
-
föccer
nagyúr
válasz Delila_1 #15486 üzenetére
Zsír köszi, majdnem jó lett. Csak a csatolt 2 doksit nem volt hajlandó elküldeni a megírt levéllel együtt. Viszont beillesztett 2 csatolmán ikonjának a képét azt betette a levélbe. Majd vakargatják a fejüket, hogy nem bírját a csatolt pdf-et megnyitni.... :-/
Erre valami megoldás, csak ki kellene mennie a mellékleteknek is.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz föccer #15488 üzenetére
Van ilyen funkció az Excelben is, csak mindenkinél be kell állítanod, milyen mellékletet küldesz neki.
Esetleg tedd ki valahova a pdf-eket, és az útvonalat add meg a levélben.
[ 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.
-
föccer
nagyúr
válasz Delila_1 #15489 üzenetére
Igen, az lesz a megoldás, hogy feltöltöm és a letöltési linket küldöm el. A saját honlapunkra kellene felrakni, csak amire az IT-n átverem ennek a 2 fájlnak a felrakását, az kb 1 hét
Szüval marad az ingyenes tárhely, meg a hiperlink. Reméleem az rendesen ki fog menni...
Köszi
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Metathrone1
csendes tag
Sziasztok
Megakadtam, kérlek segítsetek.
Azt szeretném elérni, hogy egy új üres dokumentum nyitásakor egy inbox bekérjen egy szöveget, amit egy makró minden futtatásnál használ. A makró annyi lenne, hogy aktív cellába bedobja az aktuális dátumot és egy cellával jobbra tőle beírja a nyitáskor beírt szöveget.
Most ott tartok, hogy az inbox megvan nyitáskor:
Thisworkbook-ban van ez a kód:
Dim valami As String
valami = InputBox("Írd be a neved!", "Név")
A moduloknál pedig ez:
Sub Insert_date()
Selection.Value = Date
Cells(ActiveWindow.RangeSelection.Row, ActiveWindow.RangeSelection.Column + 1).Value = valami
End SubMiért nem írja be a dátum mellé az elején bekért nevet?
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Metathrone1 #15491 üzenetére
Át kell adnod a valami nevű változót a második makrónak. A vicc a dologban, hogy ha Workbook_Opennel indítod az első makrót, akkor az A1 cella lesz aktív hivatalból.
Private Sub Workbook_Open()
valami = InputBox("Írd be a neved", "Név")
Insert_date valami
End SubSub Insert_date(valami)
ActiveCell = valami
ActiveCell.Offset(, 1) = Date
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.
-
Metathrone1
csendes tag
válasz Delila_1 #15492 üzenetére
Ez már jobb egy fokkal, de azt hogy oldom meg, hogy a dátum és a megadott név beírása ne történjen meg csak ha én akarom és akkor egy valamilyen billentyű kombinációval?
Meg ez fordítva kellene, előbb a dátum, jobbról mellé a név.A fordítva részt már megoldottam
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Metathrone1 #15493 üzenetére
Az inputboxba beírt nevet tedd be egy távoli cellába, pl. a GX60000-be.
A másik makró
Sub Insert_date()
ActiveCell = Date
ActiveCell.Offset(, 1) = range("GX60000")
End SubEhhez a makróhoz rendelhetsz bill. kombinációt.
Az elsőből nem kell meghívnod a másodikat.Private Sub Workbook_Open()
Range("GX60000") = InputBox("Írd be a neved", "Név")
End Sub[ 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.
-
mandin
senior tag
Sziasztok, van egy táblázatom, ahol minden rekord után kellene írnom, hogy .pdf.
Ezt hogyan tudom a legegyszerűbben megoldani? -
Delila_1
Topikgazda
válasz Metathrone1 #15499 üzenetére
Például így:
Private Sub Workbook_Open()
Range("GX60000") = InputBox("Írd be a neved", "Név")
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.
Új hozzászólás Aktív témák
- Apple Watch Sport - ez is csak egy okosóra
- Az USA nem akarja visszafogni Kína növekedését
- Hagyományos és extrém roller, kickbike, Boardy topik
- Azonnali játékos kérdések órája
- Háztartási gépek
- Milyen TV-t vegyek?
- Synology NAS
- Okos Otthon / Smart Home
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- VR topik (Oculus Rift, stb.)
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Vírusirtó, Antivirus VPN kulcsok
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.