- Nintendo Switch 2 vagy amit akartok (találgatós topik most még)
- DOOM: The Dark Ages címmel jön a sorozat új része?
- Konzolokról KULTURÁLT módon
- Forza sorozat (Horizon/Motorsport)
- Skull and Bones - Egy hétig ingyen játszhatunk vele
- Elite: Dangerous
- PlayStation 5
- Arena Breakout: Infinite
- Alkoholista nevelde
- League of Legends
-
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
-
BullZeye
veterán
10kb excel, nem csodálom ha percekig tart nekik, de itt egy alternatív link
szerk.:
Érdekes, google szerkesztője automatikusan amerikaivá teszi a dátumot, töltsétek le az a tuti[ Szerkesztve ]
-
Fferi50
őstag
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. -
Fferi50
őstag
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. -
HREH
senior tag
dede, kell a pirosak első ugrásainak összege, a kékeké, stbstb.
csak nem egyértelmű, hogy az első ugrásba az érvénytelen is beleszámít, és akkor 0-val kell számolni (így), vagy csak az első érvényes ugrást kéne számolni (így)
Bár feltételezem, hogy inkább az első...
ezt kéne függvénnyel megoldani"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."
-
HREH
senior tag
Köszönöm, tökéletesen megy!
Akkor már csak 1 dologban kellene segítség:
Itt az Excel tábla letölthető/szerkeszthető formátumban, F47-től, illetve G47-től lefelé kellene a helyes függvényképlet.
Biztos nem annyira bonyolult, de más kiestem a gyakorlatból[ Szerkesztve ]
"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."
-
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") -
Delila_1
Topikgazda
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 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
Az If Cells(sor, "C") = "" sor helyett legyen
If Cells(sor, "C") = "" or cells(sor,"c")=0 then ...Szerk.: igen, most látom, hogy nem üres, hanem nulla érték volt a feltétel.
Akkor elég az If Cells(sor, "C") = 0[ 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.
-
-
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...
El Psy Kongroo
-
Fferi50
őstag
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.
-
Fferi50
őstag
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.[ Szerkesztve ]
-
Fferi50
őstag
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
őstag
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. -
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Fferi50
őstag
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
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
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.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen