Hirdetés
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Konzolokra is megjelenik a The Glass Staircase
gp Alig néhány nap múlva PlayStationre, Xbox-ra és Nintendo Switch-re is elérhető lesz a program.
-
One UI 6.1 frissítésekkel túlórázik a Samsung
ma Középkategóriás telefon és ütésálló tablet is részesült belőle a hétvége előtt.
-
Mobilarena
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
-
bteebi
veterán
válasz Delila_1 #21100 üzenetére
Együtt lehet élni ezzel, csak ismerni kell . Valószínűleg egyébként jobb, hogy így van (kisebb rá az esély, hogy véletlenül hibázzon az ember), de persze nem logikus.
Amúgy azért se lett gyanús, hogy ez egy cellaformátum miatti hiba lenne, mert láttam már hasonlót: képlet másolása után (akár "lehúzás", akár copy/paste) a másolt cellában a képletet szövegként jelenítette meg, pedig a forrás cellában még jól működött. Erre van esetleg ötleted? Bár még csak elvétve jött elő ez a hiba, de egyébként nagyon idegesítő tud lenni, és sehogy se jöttem rá, hogy hogy lehet következetesen megoldani. Előbb-utóbb megoldódott, de nem logikusan (pontosan már nem is emlékszem rá, hogy hogyan/mitől).
Cancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
-
Mr. Erikszon
senior tag
Valaki tudna segíteni az infó háziban?
A táblázat bármiről szólhat.[ Szerkesztve ]
-
Apollo17hu
őstag
Lusta vagyok megkeresni, és lehet, hogy sokáig is tartana: hol lehet beállítani, hogy adatbevitelnél az Excel ne másolja automatikusan a kijelölt cella feletti cella formátumát? (Pl. beviszek vmit A2-be, erre A2 megkapja az A1-es cella sárga hátterét.)
Szerk.: A formátummásolás akkor automatikus, ha a cellák tartalma egyezik.
[ Szerkesztve ]
-
Louro
őstag
Sziasztok!
Gyakorolgatok és belefutottam egy furcsa hibába:
Sub ProcessFiles()
Dim Filename, Pathname As String
Dim WB As Workbook
Dim SelectedArray As StringPathname = ActiveWorkbook.Path & "\Files\"
Filename = Dir(Pathname & "*.xlsx")
Do While Filename <> ""
Set WB = Workbooks.Open(Pathname & Filename)
SelectedArray = Range(Cells(1, 1), Cells(2, 3)).Select
Appender Filename, WB, SelectedArray
WB.Close SaveChanges:=True
Filename = Dir()
Loop
End SubSub Appender(Filename As String.......
Futáskor folyamatosan a Filename-re panaszkodik: ByRef argument type mismatch. Azért furcsa nekem, mert a fő szubrutinban is string és a hivatkozottban is string. Goglizok én ezerrel, de eddig semmi. 2 napja nem találok megoldást. Pls help.
Mess with the best / Die like the rest
-
nimmy001
csendes tag
Sziasztok,
Lehet, hogy pofonegyszerű a megoldás, de most nem jut eszembe, hogy lehetne.
Egy ilyen képletet meg lehet oldani egyszerűbben makró nélkül képlettel?=A1*C1+A2*C2+A3*C3+A4*C4+A5*C5+A6*C6
Nem használhatunk makrót abban a fájlban, amibe kellene, és néha több, néha kevesebb sor adatait kell összegezni azoknak, akik használják, így viszont ha elcsúsznak véletlenül valahol, mert mondjuk emberből vannak ők is, elfáradnak, csörög a telefon, elterelik a figyelmüket, félrekattintanak, az már hibás eredményt ad, szóval erre lenne jó valami egyszerűsített képlet. Nem használhatunk még egy oszlopot a sorok külön eredményeinek se, csak egy cellát, amiben az eredményt kell feltüntetni.
-
gyertya.zoli
újonc
Sziasztok!
Nem tudja valaki, hogy lehet megoldani, hogy a függvény lehúzásával ne a sor számát növelje, hanem az oszlop számát?
Pl.:
1. sor: =SZUMHA(A : A;1;$ZZ:$ZZ)
2. sor: =SZUMHA(B : B;1;$ZZ:$ZZ)
3. sor: =SZUMHA(C : C;1;$ZZ:$ZZ)
...Irányított beillesztés - érték - transzponálás nem működik, mert függvénynek kell maradnia.
Köszönettel!
[ Szerkesztve ]
-
alfa20
senior tag
Sziasztok,
Most kicsit ismerkednék a 'Select Case'-el, a feltételnél a képletet, hogy kell megadnom?
egy egyszerű példa:
Ha "A1" cella páros, akkor legyen "B2" szövege "Páros".
Ha "A1" cella páratlan, akkor legyen "B2" szövege "Páratlan".sub paros_paratlan
Select Case Cells(1, 1)
Case Is = IsEven(" & Cells(1, 1) & ")
Cells(1, 2) = "Páros"
Case Else
Cells(1, 2) = "Páratlan"
End Select
end sub"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
válasz alfa20 #21112 üzenetére
Sub mm()
Select Case Cells(1) Mod 2
Case 0
Cells(1, 2) = "Páros"
Case Else
Cells(1, 2) = "Páratlan"
End Select
End SubA Mod 2 a maradékot adja cellának 2-vel történő osztásakor.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
alfa20
senior tag
válasz Delila_1 #21113 üzenetére
köszönet!
azért kérdeztem a képletet, mert van egy táblám amiben van három érték oszlop amiből az elsőt meg kellene színezni, az alábbiak szerint:
Zöld ha: B1*1,03 > A1, vagy A1 < C1*1,03
Piros ha: B1 < A1, vagy A1 > C1"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Louro
őstag
Azt hogyan tudnám megoldani, hogy van egy fájl. Abból kifilterezem a szükséges adatot. Kijelölöm a range-t, majd megnyitok egy másik fájlt, megnézem, hogy hol vna az első üres sor és onnan kezdve betöltöm a kifilterezett adatot?
Több excelből (ugyanazokkal a filterekkel) nyernék ki adatot és végül egy excelben összesíteném. (Röviden
A megnyitás, filterezés megvan, de az átmásolás nincs. Csak ciklussal tömböt feltöltve menne? (Bár lehet ez noob megoldás, de így biztos menne
Rávezetés, egy-két kulcsszó elég lehet. Elég sokat tanultam, a topiknak hála.
Mess with the best / Die like the rest
-
alfa20
senior tag
válasz Delila_1 #21116 üzenetére
úgy csináltam de ha A-ban van érték nélküli, akkor zöld illetve ha A-ban van érték B-ben vagy C-ben nincs akkor meg piros,
egyébként így néz ki:zöld: =VAGY(A2*1,03<B2;A2*1,03<C2)
piros: =VAGY(ÉS(A2>B2;SZÁM(B2));ÉS(A2>C2;SZÁM(C2)))"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
Lrow= ...(másik füzet lapján az első üres sor)
filterezés
terület kijelölése
selection.copy
Workbooks("Másikfüzet.xlsx").Sheets("AhovaMásolsz").range("A" & Lrow.).PasteSpecial xlPasteValuesHa nincsenek a táblázatban képletek, akkor elég így:
selection.copy Workbooks("Másikfüzet.xlsx").Sheets("AhovaMásolsz").range("A" & Lrow.)
Képleteknél inkább utólag add meg azokat az új füzetben, mert ha másolod, a hivatkozások az eredeti füzetre mutatnak majd.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kőbaltazár
tag
Sziasztok!
Hogy kéne ezt megoldani?
A1 cellában: =A3
A2 cellában: beírok egy dátumot.
A3 cellában: =A2+10
Mind a három cella dátumként van formázva.
Ha lehúzom a képletmásolóval akkor amelyik cella a B oszlopban üres, oda A; és C; oszlopba beírja,
hogy 1900-01-10.
Miként kellene formázni, hogy ahol a B cella üres, ott a mellette levő cellák is üresek maradjanak?Valamint ezt a könyvet keresem ha valakinek megvolna és eldná megvenném.
Baksa-Haskó Gabriella - Lévayné Lakner Mária "Excel 2003 táblázatkezelés és programozás a gyakorlatban 120 feladattal CD melléklettel.Üdv, és előre is köszi!
[ Szerkesztve ]
Üdv: Kőbaltazár
-
alfa20
senior tag
válasz kőbaltazár #21125 üzenetére
Egy kicsit eltér a táblád a leírtaktól, de a lényed.
Az Excel alapesetben (ha nem lett át állítva), akkor az első dátum 1900.01.01. ennek az értéke 1.
Egy üres vagy kitöltetlen cella értéke 0. ami a nulladik nap 1900.01.00.
Ha a nullához 10-et adsz akkor a 10. napot kapod ami 1900.01.10. ezért is ezt a dátumot írja minden hova.
Ha nem szeretnéd ezt a dátumot, akkor az alábbi képletet írd a C1-es cellába:
=HA(B1<1;"";B1+10)[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
pentium4
senior tag
Sziasztok!
Excel guruktól kérdeznék, mert én nem jöttem rá hogy miként is kéne megcsinálni, tehát a feladat:
adott 5 cella egymás alatt, mind1ik cellában ilyen formátum van: 0,1 - 10, 10,1 - 20, és igy tovább, a cellák melletti cellákban van egy érték, pl első 100, 2. ba 200, stb.
van 1 beviteli cella ahova be kell írni egy számot, majd a logikai függvény az alatt lévő cellába kiirja az eredményt, tehát:A1-be: 0,1 - 10 | B1-be: 100
A2-be: 10,1 - 20 | B2-be: 200
A3-be: 20,1 - 30 | B3-be: 300
A4-be: 30,1 - 40 | B4-be: 400
A5-be: 40,1 - 50 | B5-be: 500
A6: Beviteli mező pl beirok 28-at, ekkor
B6: kiirja az eredmény! ami jelen esetben 300, mert 20,1 - 30 között van.ha nullát irok be akkor nullát kell visszaadnia, jelen esetben ha pedig 50 nél nagyobb számot irok be akkor kiirja hogy "túl nagy a szám"!
arra már rájöttem hogy HA függvénnyel kell csinálni, bár lehet nem csak azzal, remélem tudtok segiteni.
Köszönöm!P4
-
Delila_1
Topikgazda
válasz pentium4 #21127 üzenetére
Az A1:A6 tartományba csak a "tól" értéket (0,1 ... 50,1) írd be, akkor az FKERES függvényt tudod alkalmazni.
A B8 cella képlete =HA(A8>=0,1;FKERES(A8;A1:B6;2;1);0)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Louro
őstag
van a lenti makróm. Lefut, de valamiért csak az első forrásfájlból menti ki az adatot és illeszti az újba. (Filterezésből csak egy egyszerű feltételt adtam meg, hogy ne most számolgasson.) Miért nem húzhatja be a többi fájlt? Van ötletetek?
Sub ProcessFiles()
Dim Filename, Pathname As String
Dim SourceWorkbook As Workbook
'Hol vannak a fájlok
Pathname = ActiveWorkbook.Path & "\Files\"
Filename = Dir(Pathname & "*.xlsx")
'Célfájl létének ellenőrzése, létrehozása, megnyitása
Dim TargetFile As String
Dim TargetWorkbook As Workbook
TargetFile = "c:\Users\User\Desktop\temp.xlsx"
If Len(Dir(TargetFile)) = 0 Then
Workbooks.Add
ActiveWorkbook.SaveAs TargetFile
Else
Set TargetWorkbook = Workbooks.Open(TargetFile)
End If
ActiveSheet.Name = "Yes"
'Menjen végig minden fájlon
Do While Filename <> ""
Set SourceWorkbook = Workbooks.Open(Pathname & Filename)
'Forrásfájlból a szükséges adatok kinyerése és vágólapra másolása
'
'Sorok megszámlálása
Dim CountOfRowsSourceTable, CountOfRowsTargetTable As Long
CountOfRowsSourceTable = Range("A" & Rows.Count).End(xlUp).Row
'Filterezés és a találatok kijelölése, vágólapra másolása
Range(Cells(1, 1), Cells(CountOfRowsSourceTable, 5)).Select
Selection.Copy
'Célfájlra átváltás
Workbooks("temp.xlsx").Activate
'Célfájl utolsó, adatot tartalmazó sorának azonosítása
CountOfRowsTargetTable = Range("A" & Rows.Count).End(xlUp).Row
'Vágólap célfáljba másolása
Range("A" & CountOfRowsTargetTable).Select
ActiveSheet.Paste
'Ezt csak azért, hogy a vágólapot kiürítsem.
Range("A1").Copy
'Forrásfájl bezárása
SourceWorkbook.Close SaveChanges:=True
Filename = Dir()
Loop
'Célfálj mentése és bezárása
TargetWorkbook.Close SaveChanges:=True
End SubMess with the best / Die like the rest
-
detroitrw
addikt
Sziasztok!
Lenne egy olyan problémám hogy bizonyos cellák amiknek a tartalma pl.:
12345/6789
ebből ha leveszem a / előtti és utáni számot akkor az "" közé kerül, így nem tudok vele számolni
klikknem jövök rá miként lehetne számmá alakítani!
Előre is köszi!
-
Delila_1
Topikgazda
válasz detroitrw #21130 üzenetére
A képlet végére írj egy szorzást, ami számmá alakítja a függvénnyel leválasztott szöveg típusú részt. Természetesen a szorzó 1 legyen, hogy az érték ne változzon.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
*Frenszisz*
újonc
Sziasztok!
Makró gondom támadt
Van két munkalapom: Munka1 adatokat kap 0,2 másodpercenként egy programtól.
Munka2-höz hozzárendeltem egy ilyesmit:Private Sub Worksheet_Change(ByVal Target As Range)
If updating Then Exit Sub
updating = True
If Range("A1") = 1 Then Range("B1") = 999
updating = False
End SubA probléma az ha a Munka2 A1 mező a Munka1 A1-re hivatkozik ( =Munka1!A1) akkor a makróm nem reagál rá, de bezzeg ha kézzel írok egy egyest az A1 mezőbe az már teccik neki! Hogy is van ez, mit is ezt ??
-
djembito
csendes tag
Sziasztok!
Hogy kéne ezt megoldani?1.Elő kell állítani a hallgató kódját (A oszlop)! A kód, a nevének első három betűje plusz a neme legyen!
2. "A J oszlopban határozza meg a jegy meghatározásához szükséges pontszámok összegét!
A meghatározás alapja a következő. Ki kell választani a hatból a legjobb öt zh-t és ennek az összege kell, hogy a J oszlopba kerüljön. Az üres cella azt jelzi, hogy azt a zh-t az illető nem írta meg. Amennyiben, valaki nem írt meg legalább 5 zh-t akkor abban a sorban üresen kell hagyni a J oszlopbeli cellát!"3. Az K oszlopban, a J oszlop alapján határozza meg ki, hányas osztályzatot kapott! A ponthatárok a "határok" munkalapon van! Aki nem írt legalább öt Zh-t, az nem kap jegyet, az osztályzat helyett legyen "nincs jegy" szöveg!
4."Milyen jegyátlagot értek el a férfiak, akiknek az elért osztályzatuk jobb volt közepesnél? Az eredmény kijelzése 1 tizedes legyen!
Az eredményt írja az adatok lap Q oszlopában, a kérdés mellé!"Segítséget előre is köszönöm!
-
Delila_1
Topikgazda
válasz djembito #21137 üzenetére
A2 -> =BAL(B2;3)&C2
J2 -> =HA(DARAB2(D2:I2)>=5;SZUM(D2:I2)-MIN(D2:I2);"")
K2 -> =HA(DARAB2(D2:I2)<5;"nincs jegy";FKERES(J2;határok!$A$1:$B$5;2))
Itt a keresési tartományt át kell írnod a határok lap valós tartományára!Q5 -> =KEREKÍTÉS(ÁTLAGHATÖBB(K:K;C:C;"F";K:K;">3");1)
[ 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.
-
*Frenszisz*
újonc
Lehet nem volt elég érthető a problémám, leírom egyszerűen:
Tehát beírok az A1 mezőbe egy 1-est, ekkor B1-ben megjelenik pl. 500, mivel:
If Range("A1") = 1 Then Range("B1") = 500De! Ha az A1 mezőbe beírom hogy =Munka1!A1 ahol szintén egy 1-est írok és meg is jelenik Munka2 A1-ben, akkor azt már nem veszi figyelembe.
Hogy lehet ezt megoldani? -
Delila_1
Topikgazda
válasz *Frenszisz* #21141 üzenetére
A laphoz rendelt eseménykezelő csakis a saját lapján tud módosítani, de meghívhatsz vele egy nem eseménykezelő makrót.
Megoldás: a Munka2 laphoz rendelj eseménykezelőt, ami az A1 cella változása esetén meghív egy makrót, amivel a Munka1!A1-be beíratod hivatkozást.
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 *Frenszisz* #21141 üzenetére
Munka2 laphoz
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Képlet Target 'átadjuk a változót
End SubModulba
Sub Képlet(Target) 'átvesszük a változót
Dim updating As Boolean
Sheets("Munka1").Range("A1") = Target
If updating Then Exit Sub
updating = True
If Sheets("Munka1").Range("A1") = 1 Then
Sheets("Munka1").Range("B1") = 500
Else: Sheets("Munka1").Range("B1") = ""
End If
updating = False
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 djembito #21143 üzenetére
Nem figyelsz! Az FKERES tartományát nem jól írod.
Nézd meg jobban a 21140-ben írt képletet.
Az is megeshet, hogy az adataid a határok lapon nem az A:B oszlopok tetején vannak.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
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Lemezes Retro PC Játékok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs