- Samsung Galaxy S23 Ultra - non plus ultra
- Bármilyen lehet a Realme GT 8 Pro kamerapanelje
- Milyen okostelefont vegyek?
- EarFun Air Pro 4 - a cél a csúcs
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Azonnali mobilos kérdések órája
- Samsung Galaxy Watch7 - kötelező kör
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Sony Xperia 1 V - kizárólag igényeseknek
- Teljes harci díszben várhatók az Oppo csúcsmodelljei
-
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
-
HREH
senior tag
Biztos, hogy használ (.xlsm formátumú), de ha megnyitom a makró fület, akkor teljesen üres az ablak, egy makró sem látszódik... gondolom le van jelszavazva.
(#45046) Fferi50
Jó lenne, de a második kérdés akkor is fennáll, hogy hogyan kéne megoldani.
Azért kéne az én példámban lévő menü, mert ott szépen kategorizálva vannak a lehetőségek (ahogy látszik is), így Data Validation-nél csak egy listából lehet kiválasztani, ami eléggé zsúfolt. -
zsolti_20
senior tag
Próbáltam körül nézni találtam is valamit.
Sub TestCOMPortConst ForWriting = 2, TriStateFalse = 0Dim fso, fSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.OpenTextFile("COM1:", ForWriting, False, TriStateFalse)' Write data to the portf.Write Chr(26)f.Write Chr(32)f.Write Chr(27)f.CloseEnd Sub
Megadtam neki hogy COM6:9600, illetve f.Write Chr(49), felprogramoztam az arduinot hogy figyelje a serial portot és ha kap egy 1-est akkor kapcsolja fel a ledet de semmi nem történik. Amikor futtatom a kódot, akkor felvillan a led, de aztán nem tudok rá küldeni semmit sem. -
sajog159
aktív tag
Lehet, hogy nem egészen fogtam fel a teendőt.
Amit probáltam: callán jobb klikk/cellaformazás/itt a kategória oszlopban kiválasztom a Dátum sort és ott a 2012.08.14 opciót. De ettől nem változik semmi:
Lehet még az Adatok opciókban kiválasztani Szövegből adatok (feltehetően a dátum végén lévő pont miatt az Excel ezt szövegnek nézi) végül is lehet 2 oszlopba íratni az egészet és dátummal nincs is gond, de a jobbra lévő számokat felülírjí idővel (07:27:27)
-
paolinho
őstag
Sajnos nem tudok Excel sort beilleszteni, de az a lényeg, hogy minden sor az én újabb havi adataimmal van bővítve. Ergo a táblázat csak az én havi adataimat tartalmazza. Minden új változó tényezőt felviszek kézzel, de jó lenne, ha szorzásokra nem kellene elővennem mindig a számológépet, hanem azt követően, hogy beírtam, hogy pl. Hideg víz induló: 1, Hideg víz záró: 4, Fogyasztott mennyiség: 3, akkor a Fizetendő összeg alatt (lévén 1 m3=600 Ft) megjelenne az 1800 Ft. Szóval ezt az egység-szorzás dolgot nem tudom, hogy miként kell megadni.
-
mckay
aktív tag
Lappy,
köszönöm, és azt hiszem értem az ötletet.
Viszont azt nem írtam (ez az én hibám, bocsi), hogy a valós táblában több ezer különböző A érték van, tehát nem a-b-c változók vannak, hanem sokkal több.
Így nem tudok képleteteket gyártani ezzel az amúgy frappáns ötlettel.
Azért köszi! -
pentium4
senior tag
Beillesztettem, de nem működik: Az argumentumok száma nem megfelelő a(z) IF függvényhez. 2 és 3 közötti argumentumot várt, 1 érkezett.
valamint én értem hogy az első kettőt nézzük, de mi alapján fogja eldönteni a függvény ha hétfő és kedd pl d10, vagyis 1 p még lehet szerda és vasárnap között, pl csütörtökön, szombat és vasárnap is p, akkor a sorrendnek kellene döntenie, vagyis csüt p és szom és vas nP4
-
pentium4
senior tag
Nem teljesen, mivel a hét kezdődhet úgy is hogy szerdáig d10 és utána pl az összes p betű, akkor ugye csüt péntek p viszont a hétvégét már n-re kell tennie.
Az én ha függvényem így néz ki: =IF('Munkalap1'!I8="PÁRIZS";"p";0)
mindenképp az egész tartományt kell vizsgálni, a hét elejéről.P4
-
Fferi50
Topikgazda
Szia!
Mit jelent az, hogy nem működik? Hibát eredményez? Milyen hibát?
Talán meg kellene adni neki, hogy a Dátum függvénynél melyik munkalap celláit használja.
Mert ebben a formában az aktív munkalapról veszi az F5,G5 cellákat, s ha ott nincs érték vagy szöveg van, akkor ....
Üdv. -
Delila_1
veterán
A makró bekéri a kezdő évet, majd ennek megfelelően az első sorba beírja az éveket, a másodikba a hónapokat. Az évek a hozzájuk tartozó 12 hónap közepén látszanak, bár mindig az első hónap fölötti cellában vannak.
Sub Ev_Elrendezes()
Dim evek As Integer, honapok As Integer, ev As Integer, honap As Integer
Dim kezdoev As Integer, oszlop As Integer
kezdoev = Application.InputBox("Add meg a kezdő évet", "Év bekérése", , , , , , 2)
evek = Year(Date) - kezdoev + 1
oszlop = 1
For ev = 1 To evek
Cells(1, oszlop) = kezdoev
Range(Cells(1, oszlop), Cells(1, oszlop + 11)).HorizontalAlignment = xlCenterAcrossSelection
For honap = 1 To 12
Cells(2, oszlop) = honap
oszlop = oszlop + 1
Next
kezdoev = kezdoev + 1
Next
End Sub -
Fferi50
Topikgazda
Szia!
Némi ellentmondást érzek:
"De a megjelenítés csak a naptári év 12 hónapja legyen."
Később pedig:
" így a 3x12 hónap azaz 36 oszlopban látom januáról- decemberig a hónapokat."
Most akkor 12 hónapot vagy 3x12 hónapot (amiből a tárgyévi egy része még üres) szeretnél láthatónak?
Ha jól gondolom, akkor évente egyszer kell ehhez hozzányúlni, akkor, amikor évváltás van. Akkor pedig:
1. kijelölöd a "felesleges" 12 hónapot és elrejted.
2. az összegző oszlopod elé beszúrsz 12 új oszlopot és megcsinálod a fejlécét.
Ez kb. 5 perces munka.
Üdv. -
-
Delila_1
veterán
Remekül lehet formázni Excel lapot Weisz Tamás makrójával. Egy régi folyóiratban írta.
A két gomb makrója:
Private Sub cmdHeight_Click()
nHeight = Val(TextHeight.Value)
If nHeight <= 0 Then
MsgBox "A magasságnak nagyobbnak kell lennie nullánál!", vbExclamation, "Cellaméretek"
Exit Sub
End If
If nHeight > 144.2 Then
MsgBox "A legnagyobb sormagasság: 144,2 mm!", vbExclamation, "Cellaméretek"
Exit Sub
End If
For nArea = 1 To Selection.Areas.Count
For nRow = 0 To Selection.Areas(nArea).Rows.Count - 1
Rows(Selection.Areas(nArea).Row + nRow).RowHeight = _
Application.CentimetersToPoints(nHeight / 10)
Next nRow
Next nArea
End SubPrivate Sub cmdWidth_Click()
nWidth = Val(TextWidth.Value)
If nWidth <= 0 Then
MsgBox "A szélességnek nagyobbnak kell lennie nullánál!", vbExclamation, "Cellaméretek"
Exit Sub
End If
nPoints = Application.CentimetersToPoints(nWidth / 10)
If nWidth > 473.6 Then
MsgBox "A maximális szélesség: 473,6 mm", vbExclamation, "Cellaméretek"
Exit Sub
End If
Application.ScreenUpdating = False
For nArea = 1 To Selection.Areas.Count
For nCol = 0 To Selection.Areas(nArea).Columns.Count - 1
nColNo = Selection.Areas(nArea).Column + nCol
While Columns(nColNo + 1).Left - Columns(nColNo).Left - 0.1 > nPoints
Columns(nColNo).ColumnWidth = Columns(nColNo).ColumnWidth - 0.1
Wend
While Columns(nColNo + 1).Left - Columns(nColNo).Left + 0.1 < nPoints
Columns(nColNo).ColumnWidth = Columns(nColNo).ColumnWidth + 0.1
Wend
Next nCol
Next nArea
Application.ScreenUpdating = True
End Sub -
Fferi50
Topikgazda
Szia!
Talán érdemes lenne privire váltani. Ott olyan információkat is meg lehet osztani, amit egyébként nyilvánosan nem tennél.
Szerintem Excelben is lehet szép formázásokat csinálni, aztán sablonként elmenteni. Utána azt használni. Ha mutatnál mintákat (amiket Wordben gondoltál kivitelezni), megnéznénk, milyen lenne Excelben.
Üdv. -
Fferi50
Topikgazda
Szia!
Izgalmas... bár még az is lehet, hogy a neten valahol már van ilyen megoldás.
Nekem így első (na jó, második) olvasásra inkább az Excel -Word párosítás jön be, persze csak azért, mert az Excelt viszonylag jól tudom makrózni és abból (is) elérhető a Word, sőt programozható is belőle.
Továbbra sem hiszem viszont, hogy userform kellene.
Kíváncsian várom, mire jutottál eddig.
Üdv. -
Fferi50
Topikgazda
Szia!
Miért form és miért makró? Miért kell a formra új sort tenni?
Legördülő lista érvényesítéssel működik, képletek hozzá rendelhetők, lehet a munkalapot formázni, sőt sablonnak elmenteni.
Jó lenne, ha ahova eddig eljutottál közkinccsé tennéd. Továbbá elmondanád mi is a cél.
Üdv. -
Fferi50
Topikgazda
Szia!
"látható terület A4 méretű legyen csak"
No ez azért érdekes, mert az, hogy mi fér rá egy A4-es lapra....
De azért próbáld meg ezt:
Kijelölöd az összes munkalapot, aminél ezt szeretnéd.
Fájl menü - nyomtatásnál beállítod, hogy A4 lapra szeretnél nyomtatni.
A munkalap csoporthoz visszatérve - Nézet menü - oldaltörés megtekintése.
Ezután az 1. oldalon kívül eső teljes sorokat kijelölöd - jobb egérgomb - elrejtés.
Ugyanezt megcsinálod az oszlopokkal is.
Aztán visszatérsz a normál nézetbe és feloldod a csoportos kijelölést.
(De azért ne lepődj meg, ha a fájl mérete megnövekszik.)Üdv.
-
#43683
Véreshurka
senior tag
lappy
#43671
Véreshurka
senior tag
Köszönöm a segítséget!
Sajnos nem voltam elég kitartó a javaslataitokhoz 
Egyelőre úgy oldottam meg, hogy egy munkalapon rögzítettem egy makrót, majd azt a rögzítést végigvittem minden munkalapon. Mivel viszont ezek a diák úgyis állandóak lesznek, legközelebb már próbálkozni fogok az általatok ajánlottakkal. De látom már, hogy valamilyen formában el kellene kezdenem foglalkozni a makrózással... -
-
Delila_1
veterán
Sub Elrejt()
Dim usor As Long, sor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
For sor = usor To 1 Step -1
If Cells(sor, "C") = "" Then Rows(sor).EntireRow.Hidden = True
Next
End SubSub Felfed()
Dim usor As Long, sor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row + 1
For sor = 1 To usor
If Cells(sor, "C") = "" Then Rows(sor).EntireRow.Hidden = False
Next
End Sub -
RedHarlow
aktív tag
Mert napi szinten kell végigszummázni kb 30 tételre. Vagy ha egyszer elkészítem szumhatöbb függvénnyel a táblát akkor azt valahogy át tudom rakni a másnap érkezőbe? Próbáltam másolni de nem viszi át rendesen a függvényeket. Ezt kapom:
=SZUMHATÖBB(#HIV!;#HIV!;"Alma";#HIV!;"magán") -
-
HREH
senior tag
-
Fferi50
Topikgazda
Szia!
2 lehetőség is van:
a.) Kezdőlap - Feltételes formázás - cellakijelölési szabályok - egyenlő - ezt megcsinálod minden számra. Ha előtte kijelölted a területet, akkor arra lesz érvényes, ha nem, akkor a szabályok kezelése menüpontban állíthatod be a területet.
b.) Kezdőlap - Feltételes formázás - új szabály - csak az adott tartalmú cellák formázása - cellaérték - egyenlő utána területkijelölés:
Ezt is megcsinálod minden számra, azonos területre.
Üdv. -
Fferi50
Topikgazda
Szia!
Tehát: generálsz egy véletlen számot, színeznéd a cellát, de a szám nem kerül bele a cellába? Jól értem? Mivel generálod a számot? Képlettel v. makróval? Mi van a különböző fajta számokkal, azokról hogyan deríted ki, milyen szín kell?
Egyébként a feltételes formázás nyilván akkor tud működni, ha a szám valahol ott van a munkalapon. Mivel az új Excel verziókban sok feltételes formázás is megadható, nincs akadálya annak, hogy a számértéktől függően add meg a formázás színét mind a 10 számra.
A színezést a makróban simán meg tudod oldani a generálás során - akkor is ha belekerül a szám, akkor is ha nem, pl. select case utasítással.
Üdv. -
dm1970
aktív tag
Így már próbáltam, de nem megy.
=+HAHIBA(FKERES(A1;'C:\Users\dm1970\Desktop\[próba2.xlsx]Munka1'!$A$1:$B$3;2;HAMIS) ," ")
Az alapképletbe beleírva a HAHIBÁT, enter után feldob egy ablakot, ahol meg tudom mutatni, hol a fájl. Ezt mégse gombra kattintással át lehet ugrani, de a fájl újranyitásakor a frissít után csatolások szerkesztését dobja.
Egyelőre úgy oldottam meg, hogy egy munkalapon rögzítettem egy makrót, majd azt a rögzítést végigvittem minden munkalapon. Mivel viszont ezek a diák úgyis állandóak lesznek, legközelebb már próbálkozni fogok az általatok ajánlottakkal. De látom már, hogy valamilyen formában el kellene kezdenem foglalkozni a makrózással...
Új hozzászólás Aktív témák
Fferi50- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Assetto Corsa Rally
- Kormányok / autós szimulátorok topikja
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Emelkedik a korábbi generációs Intel CPU-k ára
- Óra topik
- Robotporszívók
- Milyen házat vegyek?
- One otthoni szolgáltatások (TV, internet, telefon)
- Napelem
- További aktív témák...
- DELL PowerEdge R730xd 16LFF 160TB+400GB 2U rack - 2xE5-2683v4 (16c/32t),256GB RAM,2x10G NET,HBA330
- BESZÁMÍTÁS! Intel Core i7 6700K 4mag 8szál processzor garanciával hibátlan működéssel
- Bomba ár! Lenovo ThinkPad T440s - i5-4GEN I 8GB I 128GB SSD I 14" HD+ I Cam I W10 I Garancia!
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3360
- Gamer PC-Számítógép! Csere-Beszámítás! I5 10400 / RTX 3060 12GB / 32GB DDR4 / 512GB SSD
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest