-
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
-
Delila_1
Topikgazda
válasz DopeBob #9220 üzenetére
Akkor működik, ha eleve dátum formátumú cellákba töltötted fel a dátum értékeket. Ha utólag adtad meg ezt a formátumot, akkor nem tudod dátum szerint szűrni az adatokat.
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 DopeBob #9252 üzenetére
Nincs szükség a folytonos zárolásra, felszabadításra, ha a lap védelmének beállításakor nem engeded meg a zárolt cellák kijelölését, ami alapérték szerint engedélyezve van.
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 DopeBob #9255 üzenetére
A makró elejére beírt
ActiveSheet.Protect UserInterfaceOnly:=True
sor csak a makróból engedélyezi a zárolt cellák módosítását.
Amúgy nincs baj a csiki-csukival sem.
[ 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.
-
-
Delila_1
Topikgazda
Mit szólsz ahhoz, hogy dinamikus legyen a diagramod?
MintaA 4 féle megoldás mindegyike az ábrázolandó területek névadásával, az ofszet függvény felhasználásával készült.
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
A felsővezetők kezébe kerülő diagramok értelmezéséről nekem is van egy kedvenc történetem.
Kollégám készített nekik egy hasábdiagramot a tényleges energia költségekről. A vezér visszadobta azzal, hogy túl magasak az értékek. Igen, de ezek már megtörténtek. A kolléga magasabbra állította az Y tengely maximumát, így a hasábok ehhez képest alacsonyabbak lettek.
Az új diagramot elfogadták...[ 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.
-
Delila_1
Topikgazda
A sub és end sub közé:
lapnev = Sheets(1).Name
For lap = 1 To 9
Sheets.Add
Sheets(1).Name = Sheets(lapnev).Cells(lap, 1)
NextHa nem a füzetben lévő első lapon vannak az adatok az új lapok nevéhez, akkor a lapnev=sheets(1).name sorban írd át az (1)-et.
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
Az aktuális lap adatait használja. Ha nem az aktuális lapról akarod a nev(ek)et venni, a
Sheets("Munka2").Name = Cells(1, 1)sor így nézne ki:
Sheets("Munka2").Name = Sheets("Másik lap").Cells(1, 1)Ha az aktív lapot akarod átnevezni,
ActiveSheet.Name = "mmm"[ 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.
-
Delila_1
Topikgazda
válasz m.zmrzlina #9282 üzenetére
Tudni kell hozzá a karakter ASCII kódját. Pl. a 0128 az € karakter kódja, a 128 pedig Ç-é.
Bal Alt billentyűt nyomva tartva a számbillentyűzeten beviszed a a kódot, utána felereszted az Alt-ot.
A gugliban számos találat jön fel az ASCII kereső szóra, karaktertáblákkal.Magad is készíthetsz karaktertáblát, akár Excelben. Egy oszlopba felviszed a számokat, egy másikban a KARAKTER függvénnyel hivatkozol rá. A nullával kezdődő kódokhoz a cellát szöveg formátumúra kell állítani.
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 m.zmrzlina #9284 üzenetére
Arról nem tudok, de egy apró segítség, hogy a karaktertáblából át is húzhatod a kiválasztott karaktert a fogd és vidd módszerrel.
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 m.zmrzlina #9286 üzenetére
Eddig nem néztem bele a karaktertábla súgójába.
Most kiderült, hogy nem kell kivaksizni pl. a felső indexes karaktereket. A speciális nézet csoportosításánál az 'Unicode alosztály' kiválasztása után kapsz egy választási lehetőséget, ahol bejelölheted a 'Felső és alsó indexek' menüpontot, és máris csak a keresett karakterek jelennek meg. A 'Számformák' kiválasztásával a törteket kapod meg, de kérheted a nyilak-, vagy a matematikai műveleti jelek-, valutaszimbólumok megjelenítését is.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 m.zmrzlina #9282 üzenetére
CSAK a lényegre nem figyeltem.
A Beszúrás/Szimbólum menüpont közvetlenül adja a karaktertáblát.
Ki is teheted az ikonját, ha sűrűn használod. A Testreszabás menüben a Parancsok fülön a Beszúrás kategóriát választod, a Parancsok között megtalálod a Szimbólumot, azt felhúzod az Eszköztárra az ikonjaid közé.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
A lapon, ahol a nevek szerepelnek, jelöld ki az oszlopot, és nevezd el úgy, hogy szerkesztőléc bal oldalán lévő cellába beírod a Dolgozók nevet és leenterezed.
A másik lapon jelöld ki a területet, ahova majd be akarod vinni a neveket. Adatok/Érvényesítés. A Beállítások fülön a Megengedve kategóriában a Listát jelöld be, a Forráshoz írd be: =Dolgozók.
Ezután ennek az oszlopnak bármelyik cellájára állva egy legördülő listából választhatod ki a megfelelő nevet.
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 Salvador20 #9320 üzenetére
Az =trim(a1) kiszedi az A1 cella elejéről és végéről a szóközöket, a közbülsőket meghagyja.
A trimes adatokat utána irányítottan, értékként beilleszted az eredeti helyükre.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 Salvador20 #9322 üzenetére
Bocsi.
Ha a szóközös adatod pl. az A1 cellában van, akkor egy üres cellába beírod a függvényt -> =TRIM(A1)
Ebben a cellában már a 'szóköztelenített' név látszik.
Ha egymás alatt, vagy mellett vannak a nevek, másolod a trimes függvényt (azt biztosan tudod, hogy kell).Kijelölöd, és másolod a függvényeket tartalmazó cellákat, ráállsz az első, szóközös cellára, jobb klikk, irányított beillesztés, 'Értéket' opció. A függvényeket tartalmazó cellákat törölheted.
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 Salvador20 #9324 üzenetére
Szivi.
Tetszik a jelmondatod.
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 Vizes Tomi #9329 üzenetére
A tagolásra gondolsz?
Ha igen, a teljes sorokat jelöld ki, Ctrl+c, másik lapon Ctrl+v.
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 Vizes Tomi #9332 üzenetére
Szívesen.
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 m.zmrzlina #9346 üzenetére
A feltételhez ezt írd annak lekérdezéséhez, hogy az aktív sor páros-e?
If ActiveCell.Row Mod 2 <> 0 Then
A sorszám 2-vel történő osztásának a maradékát vizsgálja. Páros sorszámnál ez 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.
-
Delila_1
Topikgazda
válasz m.zmrzlina #9348 üzenetére
Szokásomhoz híven félreértettem a dolgot, azt hittem, csak a páros sorokban kell keresni.
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 Fire/SOUL/CD #9360 üzenetére
Szerintem elég ennyi, mivel 1 név csak 1× szerepel a C2:CX2 tartományban:
Sub Keres()
Range("C2:CX2").Select
amitkeres = InputBox("Add meg a keresni kívánt nevet!", "Keresés")
On Error GoTo Nincs
Selection.Find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Selection.Font.Bold = True
Exit Sub
Nincs:
MsgBox ("A keresett név nincs a listában.")
End SubA lényeg, hogy kijelölöm a tartományt, és NEM Cells.Find, hanem Selection.Find legyen a kereső sor.
[ 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.
-
Delila_1
Topikgazda
Az eredeti képleted =HA('XY'!D9;'XY'!D9-'XY'!D8;" ").
Üres D9 cella esetén a képletet tartalmazó cellába egy szóközt vittél be, nem üres stringet, a szóköz szöveges elem (az üres string is).Üreset így vihetsz be:
=HA('XY'!D9;'XY'!D9-'XY'!D8;"")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
Nem kifejezetten ehhez a feladatodhoz írtam, csak az eredeti kérdésedben ez szerepelt:
Ha pedig nincs, akkor üresen hagyja a cellát.
Azért írtam ezt a javaslatot, hogy legközelebb kerüld el a szóköz beírását, sok galibát okozhat, mivel üresnek néz ki a cella.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 Fire/SOUL/CD #9377 üzenetére
Lehet, hogy nekem is...
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
Az a baj, hogy a két csatolt kép nem teljesen arról szól, amit kérdeztél.
Az elsőt felülírtad a másodikkal.
A másodikon színnel jelölöd a hiányzó feltételeket, és a leszámlázási időt, de nincs olyan oszlopod, ami ezeknek az időpontját megadná.Egyébként nagyon összetett feladat, ezt Fire is írta, pedig a 2007-es verzió az ő reszortja.
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
Csinálsz egy "ál" diagramot az ábra szerint.
A képletet látod a szerkesztő sorban.
A karaktereket fehérre állítod be. Kijelölöd a képleteket tartalmazó területet, és feltételes formázást adsz rá.Az eredmény:
Szer.: A felt. formázásnál a betűk színe legyen azonos a háttér színével.
[ 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.
-
Delila_1
Topikgazda
A munkalapra nem is kellenek a függvények. Elég a feltételes formázáshoz ez a képlet:
=ÉS(E$1>=$A3;E$1<=$B3)
Csak most a formátum megadásánál nem "A cella értéke", hanem "A képlet értéke" opciót kell választanod.
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
Csináld meg a másodikat (#9430), és ha előre adsz a celláknak egy pl. fehér szegélyt, még jobban mutat.
Megadod a teljes területnek a formázást. Kijelölöd a második sort, felt. formázás, csak a színt módosítod. A következő sornál megint csak a színt módosítod.
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
Úgy látszik, közben m.zmrzlinának más dolga akadt. Az ő példájából a templomi nagyharangot – ahol az első táblázatban csupán nagyharang szerepel – nem találja meg a lenti makró. Ahol az első táblában elől szerepel a második tábla termékneve (pl. első: lorem ipsum-dolor, második: lorem ipsum), ott rátalál.
Sub mm()
Dim talál As Integer, sor As Integer, usor As Integer
usor = Range("H1000").End(xlUp).Row
For sor = 3 To usor
talál = 1
On Error Resume Next
talál = Range("A:A").Find(Cells(sor, 8)).Row
Cells(sor, 11) = Cells(talál, 2)
Next
End SubAz adatokat úgy helyeztem el 1 lapon, ahogy m.zmrzlina.
[ 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.
-
Delila_1
Topikgazda
Képletek:
H3 -> =D3
I3 -> =E3
J3 -> =F3Makró:
Sub mm()
Dim talál As Integer, sor As Integer
Dim usor As Integer, usor_1 As Integer
usor = Range("A1000").End(xlUp).Row
usor_1 = Range("H1000").End(xlUp).Row
For sor = 3 To usor_1
talál = 1
On Error Resume Next
talál = Range("A:A").Find(Cells(sor, 8)).Row
Cells(sor, 11) = Cells(talál, 2)
Next
For sor = 3 To usor
talál = 1
On Error Resume Next
talál = Range("H:H").Find(Cells(sor, 1)).Row
If Cells(sor, 11) = "" Then Cells(sor, 11) = Cells(talál, 2)
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
Sub Áthelyezés()
Dim usor As Integer, sor As Integer, sor_1 As Integer
usor = Range("A50000").End(xlUp).Row
sor_1 = 1
For sor = 1 To usor Step 5
Range(Cells(sor, 1), Cells(sor + 4, 1)).Copy
Cells(sor_1, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
sor_1 = sor_1 + 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.
-
Delila_1
Topikgazda
A lapfülek bal oldalán lévő nyilakon jobb klikkre függőlegesen megjelenik a lapok neve, onnan könnyebben kiválaszthatod a szükségeset.
Tehetsz ki gombokat is az első lapra, a gombokhoz tartozó makró ennyi:
sub ElsőLap()
sheets("ElsőLap").select
end subA makrók második sorában megadhatod a cellát, amelyikre szeretnéd, hogy ugorjon a kijelölé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.
Új hozzászólás Aktív témák
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Eladó Steam kulcsok kedvező áron!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs