-
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
-
dellfanboy
senior tag
válasz dellfanboy #8581 üzenetére
vagy az lenne az egyszerűbb hogy a 25 füles excel adatokból makró segítségével létrehozzak egy új xls-t amibe a fejléc mindig ugyanaz lesz.
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
félisten
válasz dellfanboy #8581 üzenetére
Hali!
Nem feltétlenül kell hozzá makró, lehet külső hivatkozást is alkalmazni, pl:
='C:\Users\Fire\Documents\[orszagok.xlsx]Hun'!B1Ez a C:\Users\Fire\Documents mappában található, orszagok.xlsx nevű munkafüzet, Hun nevű lapjának, B1 cellájának az értékét adja eredményül, jeleníti meg.
Fire.
[ 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)
-
m.zmrzlina
senior tag
válasz dellfanboy #8584 üzenetére
Erre a karaktersorozatra keress rá:
Wiley.Excel.2007.Power.Programming.with.VBA.Apr.2007.chm
Szerintem biblia a témában.
"God save John Walkenbach"
-
perfag
aktív tag
válasz dellfanboy #8586 üzenetére
Feltettél korábban egy kérdést: "meg akarok tanulni makrót írni, ti mit ajánlotok1 könyvet vagy olvassam el a forumot-prog.hu-t ". Szerintem IS. Olvass el
egytöbb könyvet és olvass vissza a fórumban. Mert erre a kérdésedre már van válasz, (#8525) Fire/SOUL/CD-tól visszafejtheted. Röviden: ha nincs megnyitva a másik munkafüzet, hát nyisd meg makróval![ Szerkesztve ]
-
Delila_1
Topikgazda
válasz dellfanboy #10855 üzenetére
Sub mm()
Range("A1") = 100: Range("B1") = 50: Range("C1") = Range("A1") / Range("B1")
Range("C1").Copy
Range("F1:F50").Select
Selection.PasteSpecial Paste:=xlPasteValues
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.
-
föccer
nagyúr
válasz dellfanboy #10855 üzenetére
Függvénnyel sem bonyolult.
=$A$1/$B$1
Ez megy az összes cellába. Lehúzható, másolható. Folyamatosan az A1/B1 cellára fog mutatni a hivatkozás.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
m.zmrzlina
senior tag
válasz dellfanboy #10855 üzenetére
Hol kell keresni a változókat és hová kell tenni az eredményt?
-
m.zmrzlina
senior tag
válasz dellfanboy #10855 üzenetére
Nekem az A1:B4000-ben vannak a változópárok amiket el kell osztani egymással, az eredmény pedig az F1:F50 tartományba illetve attól jobbra kerül.
Sub lepopulal()
Dim bemenoadat As Variant
Dim eredmeny As Variant
Dim i As Integer
bemenoadat = Range("A1:B4000").Value
eredmeny = Range("F1:EXA1").Value
For i = 1 To 4000
eredmeny(1, i) = bemenoadat(i, 1) / bemenoadat(i, 2)
Next i
Range("F1:EXA50") = eredmeny
End Sub -
félisten
válasz dellfanboy #10962 üzenetére
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)
-
föccer
nagyúr
válasz dellfanboy #12171 üzenetére
Én ezt mindig így csináltam, hogy fel veszek egy külön adatsort, ami 2 értékkel van jelen. Az x pontjai a diagram két szélén az y értékek pedig a beállítani kívánt vonal értéke. Ezután meg kell adni a x tengely tulajdonságainál, hogy a skála nem automatikus méretezés legyen, hanem az előre beállított érték. Ezután a frissen megadott vonalat olyanra formázod, hogy az úgy nézzen ki, ahogy szeretnéd.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz dellfanboy #12890 üzenetére
Elsőnek mindeképpen az Excel által emészthető formátummá kell konvertálni. Ennek hatákonysága erősen megkérdőjelezhető, főleg ha egy kinyomtatott anyag lett pdf-be vissza scannelve. Keress rá a pdf2xls konverter-re, hátha találsz valami olyan értelmes alkalmazást, ami kées elfogadható pontosággal a konverzióra. Ha ez megvan, akkor már simán mehet rá az fkeres.
=============
mod: nézd csak, pont egy ilyenre van szükséged: [link]üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
m.zmrzlina
senior tag
válasz dellfanboy #12892 üzenetére
Esetleg próbáld meg ezt!
Bizonyos Epson nyomtatókhoz ingyen adják (adták). Meglepően jó karakterfelismerést csinál. Nem mondom, hogy nem kell az Excelbe illesztés után gyomlálgatni de messze kevesebb munka mint begépelni a scannelt dokumentum tartalmát.
-
lappy
őstag
válasz dellfanboy #14473 üzenetére
Szia!
Alap esetben nem! De sok fáradságos és kitartó munkával igen!
[link]
vagy ez a módszer!
Először mindenképpen át kell konvertálni pl. word formátumúvá.
(persza ha kinyomtatott doksi lett szkennelve és úgy lett pdf, akkor sokkal macerásabb lesz a visszakonvertálás, minta a dokumentum közvetlenül pdf-be került nyomtatásra)Bámulatos hol tart már a tudomány!
-
lappy
őstag
válasz dellfanboy #14812 üzenetére
Szia!
Ha csak az ár kell mellé egy cellába akkor =b1!Bámulatos hol tart már a tudomány!
-
veterán
válasz dellfanboy #14814 üzenetére
akkor szerintem fkeres fv. kell neked.
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
Topikgazda
válasz dellfanboy #14814 üzenetére
Ezt így nem tudod megoldani. Honnan tudja a gép, hogy a NOK és a Nokia azonos termékre vonatkozik?
Neked kell gondoskodnod arról, hogy jó adatokat vigyél be, akkor segít a gép.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz dellfanboy #15180 üzenetére
Csak azért nem jön ki neked mert a 9+7+4 =20 és nem 24 el
Bámulatos hol tart már a tudomány!
-
Sickboy25
addikt
válasz dellfanboy #15184 üzenetére
és olyat lehet, hogy az elrejtettek csak jelszó beütése után jelenjenek meg?
"Az élet olyan, mint az ásás. Néha hátráltat egy- két gyökér, de annak jól odab*szol ásóval, azt’ haladsz tovább!"X360 gamertag: sickboyhun
-
bugizozi
őstag
válasz dellfanboy #15204 üzenetére
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Delila_1
Topikgazda
válasz dellfanboy #15588 üzenetére
Adatok | Tagolás | Csoportba foglalá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 dellfanboy #15590 üzenetére
Szívesen. Neked is Geryson.
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 #15834 üzenetére
Érd el, hogy minden lapon azonos cellában legyen az összegzendő érték. Találd meg, melyik cella szerepel a legtöbb lapon. Ha ez pl. a B30, akkor a többi lap B30 cellájába hozd be ezt az értéket. Ahol B3-ban van, ott a B30 legyen =B3. Lehet, hogy jobb egy olyan cellába vinni, amit később az adatmennyiség növekedése miatt biztosan nem írsz majd felül.
Mikor ez megvan (babrás munka, de 1× kell végrehajtani), az összegző lapon a képlet
=SZUM('Első lap neve:Utolsó lap neve'!B3)Figyelj az aposztrófokra!
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 dellfanboy #15834 üzenetére
persze azt is elmondhatnát, minek alapján találod meg, hogy éppen b30, vagy b5?
akkor talán megoldható makróval is (a rendezés is)...[ Szerkesztve ]
-
poffsoft
addikt
válasz dellfanboy #15844 üzenetére
És a KM állás sorában nincsen olyan cella, ami azonosítja, hogy ez a km állás sora lesz? mert azt akár fv-nyel is megoldhatnánk...
makróval simán átmásolható:
Option Explicit
Sub CopyRows()
Dim i As Integer
Dim r1, c1, r2, c2, r3 As Double
Dim wsTest As Worksheet
Dim sname As String
sname = "Summa"
Set wsTest = Nothing
On Error Resume Next
Set wsTest = Worksheets(sname)
On Error GoTo 0
If wsTest Is Nothing Then
Worksheets.Add(Before:=Sheets(1), Count:=1, Type:=xlWorksheet).Name = sname
End If
Worksheets(sname).Cells.Clear
For i = 1 To Sheets.Count
If Not Worksheets(i).Name = sname Then
r1 = Worksheets(i).UsedRange.Row
c1 = Worksheets(i).UsedRange.Column
r2 = r1 + Worksheets(i).UsedRange.Rows.Count - 1
c2 = c1 + Worksheets(i).UsedRange.Columns.Count - 1
r3 = Worksheets(sname).UsedRange.Row + Worksheets(sname).UsedRange.Rows.Count
Worksheets(i).Select
Worksheets(i).Range(Cells(r1, c1), Cells(r2, c2)).Copy _
Destination:=Worksheets(sname).Cells(r3, c1)
End If
Next i
Worksheets(sname).Select
[A1].Select
End Sub[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz dellfanboy #16598 üzenetére
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 dellfanboy #16598 üzenetére
ez legyen mondjuk B2-ben:
=HA((A2*0,0001*$B$1)>10;(A2*0,0001*$B$1);10)A2-ben a darab, B1-ben az egységár (12 Ft)
[ Szerkesztve ]
-
mandin
senior tag
válasz dellfanboy #16608 üzenetére
Köszönöm, a hivatkozott cellát hogyan tudom elrejteni, legyen ott, de ne látszódjon?
[ Szerkesztve ]
-
Mutt
aktív tag
válasz dellfanboy #16734 üzenetére
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
m.zmrzlina
senior tag
válasz dellfanboy #17438 üzenetére
Első körben a DARABTELI()-re gondolnék.
pl: =DARABTELI(C:C;1) megadja, hogy a C oszlopban hány 1-es van.
Vagy =DARABTELI(D:D;"ló") a D oszlopban hány ló.
-
lappy
őstag
-
Mutt
aktív tag
válasz dellfanboy #17438 üzenetére
Hello,
Ahogy mások is mondták DARABTELI-vel megoldható.
pl. ha a számok a D17 tartományban vannak akkor ez a CSE formulád:
{=SZUM(HA(DARABTELI(D17;D17)>1;1;0))}üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz dellfanboy #17605 üzenetére
A státuszsorban látszik a B6 cella képlete.
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 #17610 üzenetére
A függvényben idézőjelek között adtad meg a számításokat, ezért szövegként kezeli.
Változtass az általam küldött minta B1:B4 tartomány értékein, és meglátod, változik az eredmény is.
A B3 (fix kezelés) értékét is osztom a hónapok számával.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 #17621 ü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.
-
lappy
őstag
-
alfa20
senior tag
válasz dellfanboy #17760 üzenetére
nem tudom tud-e ilyet az fkeres, mert az első találatot keresi, majd a hozzá értők meg mondják a tutit, de addig rendezd sorba előbb a lakosság számára majd az országra, addig is jó lesz míg nem kapsz más választ
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
válasz dellfanboy #17760 üzenetére
Az Adatok | Rendezés és szűrés | Speciális menüpont segítségével a kép szerint tedd ki az egyedi értékeket egy új oszlopba, ami nálam az E. Régebbi verzióban a menüt az Adatok | Szűrő | Irányított szűrő cím alatt találod meg.
Az F2 cella képlete
=MAX(INDIREKT("B"&HOL.VAN(E2;A:A;0)&":B" & HOL.VAN(E2;A:A;1)))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 #17767 üzenetére
A szűrés behívása előtt jelöld ki a tartományt, ahogy a képen látod. Panaszkodni fog, hogy nem tudja megkülönböztetni az adatokat a címtől, mert mindegyik szöveges. Ne törődj vele, menj tovább, vagy írd be előre az E1-be az A1 értékét.
[ 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.
-
Mutt
aktív tag
válasz dellfanboy #17760 üzenetére
Hello,
Delila_1 mintájára építve ez a CSE függvény is műkődik erre:
{=MAX(HA(A2:A7=E2;B2:B7))}
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
őstag
válasz dellfanboy #17900 üzenetére
A Jobb függvény segít. Azzal megadhatod, hogy csak jobbról az utolsó néhány karaktert ellenőrizze.
"Csak a napórák fogaskerekei jártak rossz irányba"
-
Delila_1
Topikgazda
válasz dellfanboy #17902 üzenetére
=FKERES("*" & "TGDF" & "*";......;....)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
dellfanboy
senior tag
válasz dellfanboy #17904 üzenetére
megvan egy space kellett a végére++!+
=CSERE(HT11;6;5; )köszi az irányt, mindig öröm ide jönni!
[ Szerkesztve ]
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
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 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.
-
föccer
nagyúr
válasz dellfanboy #18423 üzenetére
Darabteli-t nézd meg. Erre van kitalálva.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz dellfanboy #20728 üzenetére
Egy kis makró a personalba:
Sub Szamformatum()
Selection.NumberFormat = "#,##0_L"
End SubEhhez kiteszel egy ikont. A formátum végén a _L jobbról ad egy behúzást, hogy ne "ragadjon" az adat a jobb szegélyre.
A personal szóra keresve több leírást találsz itt a fórumon.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Geryson
addikt
válasz dellfanboy #20728 üzenetére
Egyszer csináld meg és utána ecsettel át tudod vinni a formátumot!
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
lappy
őstag
válasz dellfanboy #20908 üzenetére
szia!
ez jó de nekem a tartományt valamiért nem veszi be =SZUMHA(A1:A3;FKERES(D5;A1:C3;1;0);B1:C3)Bámulatos hol tart már a tudomány!
Új hozzászólás Aktív témák
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Lemezes Retro PC Játékok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen