-
PROHARDVER!
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
-
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. -
wwhy
veterán
Ez az egyik, amit szeretnék, de ezt megoldottam úgy, hogy újra beírom az 1...2-őt, lehúzom, kész.
Ami fontosabb: hogy kitörlöm pl. az 5. sort, akkor a 6. sorszáma automatikusan legyen 6. Vagy ctrl-el kijelölök X sort, összevissza, törlöm és ami marad, az automatikusan számozódjon újra.
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- Friss előzetesen az Anno 117: Pax Romana
- sh4d0w: Vigyázz a háttértáradra...
- A fociról könnyedén, egy baráti társaságban
- Netflix
- Amlogic S905, S912 processzoros készülékek
- Elektromos cigaretta 🔞
- Honor Magic5 Pro - kamerák bűvöletében
- Futás, futópályák
- S.T.A.L.K.E.R. 2: Heart of Chornobyl
- Synology NAS
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- PC Game Pass előfizetés
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Játékkulcsok a legjobb áron: Steam
- Lenovo ThinkPad 40AF docking station (DisplayLink)
- Xbox Game Pass Ultimate előfizetések kedvező áron
- BESZÁMÍTÁS! Asus H310M i3 9100F 16GB DDR4 120GB SSD 500GB HDD GTX 970 4GB Zalman ZM-T7 FSP 400W
- Új Lenovo 16 Ideapad Slim3 WUXGA IPS Ryzen5 7530U 4.5Ghz 16GB 512GB Radeon RX Vega7 Win11 Garancia
- HIBÁTLAN iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3304
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest