Hirdetés
-
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
-
Delila_1
veterán
válasz
Bubu maci
#4099
üzenetére
A kérdésre:
Sub torl()
Rows("41:49").Select
Selection.EntireRow.Delete
End SubA makró, amit írtam, végigmegy a sorokon. Amelyik sor A oszlopában betűt talál, vagy üres stringet, azt a sort kitörli. Vagyis nem kell végignézned, hogy a 41:49, 81:89 sorok üresek-e. Ha már megnézed, egyből ki is törölhetnéd.
Ezt a gyalogos módszert küszöböli ki a makró. -
-
Delila_1
veterán
válasz
Bubu maci
#4095
üzenetére
Tegyél be egy autoszűrőt a címsorba (Adatok/Szűrő/Autoszűrő), és ott atokat szűrd ki az Egyéni kategóriában, amik nagyobbak vagy egyenlőek A-val. Ezeket aztán egyszerre törölheted.
Azért gondolom, hogy így ki tudod választani a törlésre szánt sorokat, mert a többi adatodat már számmá alakítottad, és ezek a sorok valószínűleg nem számok. -
Bubu maci
tag
Sziasztok!
Segitseget szeretnek kerni: Van egy tobb ezer soros listam, amit egy konyvelo prg. adott ki. A benne szereplo szamokat mar at tudtam alakitan a "bal" es az "ertek" fuggvenyek hasznalataval szam formatumma. Viszont minden oldal tetejere be van szurva egy kb. 10 soros azonosito resz /cegnev, oszlop megnevezes stb/, ami abbol adodhat, hogy .txt fajbol konvartalta at a prg. a kert excel listat.
Ezeket az ismetlodo sorokat hogy tudnam kiszurni, hogy egyben legyen a listam /szuresre, stb/. A "gyalog" torolgetes kicsit maceras lenne egy 16000 soros tablazatban...
Koszi! -
#4094
Fire/SOUL/CD
félisten
Gabcsika
#4093
-
Gabcsika
tag
válasz
Fire/SOUL/CD
#4070
üzenetére
Ez őrület! Nem találok szavakat! Eszméletlen!
Köszi!!! -
#4092
Fire/SOUL/CD
félisten
Oly
#4091
Hali!
Na így már tiszta, mit is szerettél volna elérni.
Munkafüzet1 - Munka1 (Code)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorhandling
xstr = LCase(Range("B2"))
Pos = InStr(1, xstr, ".jpg", vbTextCompare)
If (Pos > 0) Then
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(xstr)
End If
Exit Sub
errorhandling: MsgBox ("FileOpen ERROR!")
End SubNa, asszem ez lesz az
Ha nem a B2-ben lesz az adat akkor egyszerűen módosítsd a makróban, egy helyen kell.Fire.
-
#4091
Oly
őstag
Fire/SOUL/CD
#4090
Oly
őstag
válasz
Fire/SOUL/CD
#4090
üzenetére
Oks!
Akkor én is leírom még1x.
Nem az a célom, hogy az aktuális cellában szereplő elérési útvonal alapján betöltsön egy képet, hanem a dokumentum egy bizonyos pontján megadott (pl a B2) cellában szereplő (és ami fontos, hogy VÁLTOZÓ) elérési útvonal alapján betöltse a képet.Pl: A B2-ben van egy fkeres, ami az A2 alapján ad egy elérési útvonalat, ami mutat egy képre. Ez a kép jelenjen meg a vezérlőn. Ha változik A2, akkor a kép is frissüljön!
-
#4090
Fire/SOUL/CD
félisten
Oly
#4089
Hali!
Oks, akkor leírom. Szóval, ha megsasolod a képet, akkor látnod kell, hogy B20-B23 tartományban beírtam képek elérését(de bárhova írhattam volna). Ha ezekre a cellákra kattintasz vagy rámész a kurzormozgatókkal, akkor egyből betölti a képet. a B2 cella csak kiírja, hogy épp melyik képet látod.
Fire.
-
#4089
Oly
őstag
Fire/SOUL/CD
#4088
Oly
őstag
válasz
Fire/SOUL/CD
#4088
üzenetére
Lassan csak kiismerem...
Na most az a gond, hogy a makró adja meg az elérési útvonalat a B2 celllának.
Én ezt fordítva szeretném!Ha megadok egy elérési útvonalat a B2-be, akkor jelenjen meg az a kép.
Ha módosítom a B2 tartalmát, akkor módosuljon automatikusan a kép is. -
#4088
Fire/SOUL/CD
félisten
Oly
#4087
Hali!
Persze, de bent is van a kódban. Ha rálépsz az adott cellára, amiben a kép elérése van akkor egyből betölti(már ha valóban létező képről van szó). Próbáld ki. A gombos megoldást csak érdekességnek szántam. Ha nem kell akkor töröld ki a makróból a commandbutton1_Click() metódust, meg persze töröld a gombot is.
Pár módosítást eszközöltem, mert a korábbi verzió mindig megpróbál betölteni egy képet, ha az adott cella nem üres. Ez zavaró lehet hiszen ha egy cellában szám vagy szöveg van és az nem egy kép elérési útvonala, akkor hibát dob. Ez a javított kód.Private Sub CommandButton1_Click()
JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
If JPGFile <> False Then
Range("B2") = JPGFile
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(JPGFile)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errorhandling
xstr = LCase(Target)
Pos = InStr(1, xstr, ".jpg", vbTextCompare)
If (Target.Cells.Count = 1) And (Pos > 0) Then
Range("B2") = Target
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Target)
End If
Exit Sub
errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
End SubFire.
-
#4087
Oly
őstag
Fire/SOUL/CD
#4086
Oly
őstag
válasz
Fire/SOUL/CD
#4086
üzenetére
Gomb nélkül is meglehet ezt csinálni?
-
#4086
Fire/SOUL/CD
félisten
Oly
#4084
Hali!
Nos, a kért megoldáson kívűl még egy más módszert is beleraktam, érdekességként. A képet azért mellékeltem, nehogy más objektumot használj, hanem sima Image-t.
Munkafüzet1 - Munka1(Code)
Private Sub CommandButton1_Click()
JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
If JPGFile <> False Then
Range("B2") = JPGFile
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(JPGFile)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errorhandling
If (Target.Cells.Count = 1) And Target <> "" Then
Range("B2") = Target
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Target)
End If
Exit Sub
errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
End SubFire.
-
Delila_1
veterán
Beszúrás/Hiperhivatkozás.
A "Hivatkozott cím"-nél a "Létező fájl vagy weblap" legyen érvényes. A Fájl... gomb segítségével kikeresed a képedet - figyeld a kiterjesztést -, aminek az elérési útja és a neve bekerül a "Megjelenő szöveg"- és az "Írja be a fájl vagy weblap nevét:" rovatba.
Az előbbiben átírhatod egy rövidebb, jellemző névre.Formázhatod is a szöveget, de nem úgy, hogy a cellára kattintasz, mert akkor behívja a képet (ez volt a cél), hanem a kurzor billentyűkkel lépsz oda.
-
#4084
Oly
őstag
Fire/SOUL/CD
#4076
Oly
őstag
válasz
Fire/SOUL/CD
#4076
üzenetére
-
-
#4079
Delila_1
veterán
Fire/SOUL/CD
#4076
Delila_1
veterán
válasz
Fire/SOUL/CD
#4076
üzenetére
Nekem Calendar vezérlőm van, annál elég a
Private Sub Calendar1_Click()
Selection = Calendar1.Value
End SubEz az aktív cellába, és a kijelölt területre egyaránt beviszi a kiválaszott dátumot.
Az előző kérdésedre: magam tanulgatok, és egy ideje különböző fórumokon járva ismerkedem az Excel rejtelmeivel.
Jó, hogy most megjelentél, mert a régebbi "válaszadók" valahogy eltűntek. Pedig nem árt a kontroll, pl. hiányolom Lúzert, aki az én bonyolult válaszaimat sokkal egyszerűbbre konvertálta. -
#4076
Fire/SOUL/CD
félisten
Oly
#4075
Hali!
Remélem jól értelmezem a kérdésed, ha igen akkor pl így
Munkafüzet1 - Munka1 (Code)
Private Sub DTPicker1_Change()
Range("C10:C20").Value = DTPicker1.Value
Selection = DTPicker1.Value
End SubDTPicker1 - MS Date and Time objektum
DTPicker1_Change() - akkor hajtódik végre amikor kiválasztasz egy dátumot
Range("C10":"C20").Value = DTPicker1.Value - egy tartományt tölt fel a kiválasztott dátummal(azért tettem idézőjelek közé a kettőspontot, mert különben egy tapsikoló smiley lenne ott)
Selection = DTPicker1.Value - az épp kiválasztott a cellát vagy cellákat tölti fel a kiválasztott dátummalRemélem erre gondoltál
Fire.
-
#4074
Fire/SOUL/CD
félisten
Delila_1
#4073
válasz
Delila_1
#4073
üzenetére
Hali!
Tudtam, hogy nem tudod megállni, hogy meg ne írd a színátmenetet.
Természetesen kifogástalanul működik, csak hát ugye valóban semmi értelme.
(Mármint a villogosdinak). Ez olyan mint a 12 kőmíves meg a Déva vára, végül is megoldották ott is a feladatot, csak azért nem kellene embereket a malterba keverni.Annyi értelme azonban van a makrónak , hogy így megoldható ha ütemezett feladatokat kell elvégezni, azaz pl óránként el kell menteni a táblát, átszámolni, összetetteb esetben (pl a tábla egy adatbázishoz van kapcsolva) akkor óránként beolvasni stb.
Fire.
UI: Visszaolvasva látom, hogy többnyire Te segítesz a legtöbbet az érdeklődőknek, értehtően, tisztán, és türelmesen magyarázod el a dolgokat.
Megkérdezhetném, hogy honnan van ez a hozzáértés?(suli, magadtól, szülők révén, stb) -
#4073
Delila_1
veterán
Fire/SOUL/CD
#4070
Delila_1
veterán
válasz
Fire/SOUL/CD
#4070
üzenetére
Megihletett a makród, írtam egy egyszerű színátmenetet. Persze semmi értelme, mert lefogja a memóriát. A Szincsere makrón változtattam egy keveset.
Sub Szincsere()
If Range("A1") = "ok" Then
For a = 235 To 50 Step -1
Range("A1").Interior.Color = RGB(a, 0, 0)
Range("A1").Font.Color = RGB(a + 20, a + 20, a + 20)
Next
End If
Idozites = Now + TimeSerial(0, 0, 1)
Application.OnTime Idozites, "Szincsere", , True
End Sub -
-
#4071
Delila_1
veterán
Fire/SOUL/CD
#4070
Delila_1
veterán
válasz
Fire/SOUL/CD
#4070
üzenetére
Klassz!
-
#4070
Fire/SOUL/CD
félisten
Gabcsika
#4069
válasz
Gabcsika
#4069
üzenetére
Hali!
Tudom, hogy régen volt, de volt egy érdekes kérdésed a "villogó cella" témakörben.
Munkafüzet1 - Munka1 (Code)
Public Most_villog As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") = "ok" And Most_villog = False Then
Call Szincsere
Most_villog = True
ElseIf Range("A1") <> "ok" And Most_villog = True Then
Call Villogas_ki
Most_villog = False
End If
End SubMunkafüzet1 - Module1 (Code)
Public Idozites As Double
Sub Villogas_ki()
Range("A1").Interior.ColorIndex = xlAutomatic
Range("A1").Font.Color = RGB(0, 0, 0)
Application.OnTime Idozites, "Szincsere", , False
End Sub
Sub Szincsere()
If Range("A1").Interior.Color = RGB(255, 0, 0) Then
Range("A1").Interior.Color = RGB(0, 255, 0)
Range("A1").Font.Color = RGB(255, 0, 0)
Else
Range("A1").Interior.Color = RGB(255, 0, 0)
Range("A1").Font.Color = RGB(0, 255, 0)
End If
Idozites = Now + TimeSerial(0, 0, 1)
Application.OnTime Idozites, "Szincsere", , True
End SubHa az A1 cellába beírod hogy "ok" akkor villog a cella háttere, meg a betűszín, egyéb esetben meg nem. Bár a VB nem az erősségem, de ez olyan jó feladat volt, hogy nem bírtam ellenállni, hogy egy kis kitérőt tegyek
Nyílván ha szép elhalványodó, színátmenetes villogást szeretnél, akkor azért ennél több kell. Azonban egyetértek Delila_1-el, miszerint felesleges, jobb a hagyományos módszer.(ne villogjon, csak legyen más színe).Fire.
-
Ősember
őstag
hello
van egy táblázatom, milyen meglepö
amiben tök primitiv számolások vannak, olyan mint =A1*200 és társai....nem titok, árlista, csak hogy elkerüljük a kérdéseket, hogy ez miért is kell nekem 
naszoval, ugye vannak ezek az egyszerü számitások, végén végeredménnyel, de mivel a végeredmény is számolás, ezért azt nem tudom másolni, mert lényegében nem a kapott végeredményt másolja az excel, hanem a képletet, amivel a végeredményt kaptam
tehát amit szeretnék:
1. végeredményeket (egymás alatt sok értelemszerüen) szeretném másolni másik excel dokumantumba, vagy
2. a számolást "kikapcsolni" ugy, hogy a már kiszámolt értékek bent maradjanak / ne nullázodjon le minden. (azért, hogy akinek mutatom az excel dokumentumot ne lássa, hogyan jött ki ami kijött)
remélem érthetö a probléma elöre is köszönöm a válaszokat Delila, a te válaszod két pontot ér nálam kapásbol
-
Gabcsika
tag
válasz
Delila_1
#4064
üzenetére
Köszi, de én inkább olyan megoldásra gondoltam, hogy mondjuk:
A B
12345678 123456789xxés itt láthatóan a B oszlop a 9xx-ben tér el. Ez most csak egy példa. Mondjuk arra gondoltam, hogy valahogy "kivonnám" B oszlopból A oszlopot és a maradék a különbség.
Ez megoldható?Köszi!
-
Delila_1
veterán
válasz
Gabcsika
#4062
üzenetére
Az, hogy miben tér el a két oszlop, a tartalmuktól függ. A Ha függvénnyel kérheted az egyenlőség, ill. a NEM egyenlőség megmutatását.
=HA(A1=B1;"Azonosak";"Eltérnek")
Ha összegek vannak a két oszlopban, akkor
=Ha(A1>B1;"'A' nagyobb";ha(B1>A1;"'B' nagyobb";"Egyenlőek"))
Ez tulajdonképpen szövegek összehasonlítására is jó, ott a "nagyobb" azt jelenti, hogy az ABC rendben később szerepel.
-
Delila_1
veterán
Még a szűrés előtt a taretományod alá beírod
=részösszeg(2;tartomány)
A 2 egy függvényszám, ami azt mondja meg a függvénynek, hogy a kijelölt tartomány darabszámát kéred. Ez azután mindig a szűrésnek megfelelő tartomány darabszámát adja.
Nézd meg a súgóban a részösszeg leírását, más függvényszámokkal más adatokat ad meg a ugyanarról a tartományról. -
Delila_1
veterán
A $-os adatoknál egy üres oszlopba beviszed a lenti képletet, és lemásolod az adataid mellé:
=ÉRTÉK(JOBB(A1;HOSSZ(A1)-1))
Ezt már tudod összegezni, és irányítottan, értékként rá is illesztheted az eredeti, $ jeleket tartalmazó oszlopodra.Az 1,804.00 típusú adatokat 3 lépésben, cserékkel állíthatod magyar formátumúra.
1. Mit cserélhez pont, mire cserélihez pl. &
2. Mit cserélhez vessző, a mire cseréli rubrikát üresen hagyod.
3. Mit cserélhez &, mire cserélihez vessző -
-
Delila_1
veterán
Szia!
Beállíthatod a nyomtatási képnél, a Beállítások Oldal fülén, hogy x oldal széles, és y oldal magas legyen, azt valószínűleg a másik printer is respektálja.
Szintén a nyomtatási képnél bekapcsolhatod a margókat, ahol az egyes oszlopok szélességén is könnyen állíthatsz.
-
Jumbo
tag
válasz
Delila_1
#4055
üzenetére
Először is köszönöm a válaszod!
Próbálkoztam az oldaltöréssel is, de ha ott manuálisan elhúzom a szaggatott vonalat, az excel az oldal 100%al játszik, hogy ráférjen..., így van hogy más méretű, ha viszont itt is sorokat szúrok/tölrlök, más gépen szintén elcsúszik
Most úgy állok, hogy mindig összetördelem, pdf be nyomtatom, de ez nem végleges megoldás, mert van mikor excelben kell küldenem, én nem feltétlen olyan személynek, akinek ha azt mondom, hogy nézze át és esetleg tördelje újra, fogja tudni mit jelent, hanem csak a nyomtatásra kattint és szid hogy sz@rt küldtem... -
Delila_1
veterán
Másik printerhez más beállítások lehetnek szükségesek (pl. a fej nem egyforma mértékben tud oldalra mozdulni).
A szaggatott vonalakat akkor is megkapod, ha a Nézet menüben az Oldaltörés megtekintését választod, nem kell előbb a Nyomtatási kép menübe sétálnod. Ebben a nézetben még feltűnőbbek is az oldal határok, vastag kék szaggatott vonallal vannak jelölve. Ezeket az egérrel áthúzhatod máshova, akkor folyamatosak lesznek, jelölve, hogy kézzel beállított törésvonalak. A Beszúrás/Oldaltörés menüponttal is tudsz új törésvonalat bevinni.
A kézi törést úgy tudod megszüntetni, hogy alá (vagy függőlegesnél mögé) állsz, és a Beszúrás menüből az Oldaltörés eltávolítását választod.
-
Jumbo
tag
Hali!
A következő lenne a problémám:
Készítettem egy excel táblázatot (költségvetés), hogy nyomtatáskor normális formátumba nézzen ki, nyomtam egy nyomtatási képet, majd visszamentem a táblázatra, ekkor beszaggatta az A4-es lapok kontúrját, ennek megfelelően sorokat töröltem ki és szúrtam be, hogy szépen essenek a dolgok az A4-es lapra, eddig rendben is volt, csak ha elküldöm másik gépre, és ott megnyitom elmászik a tördelés, máshogy szaggatja az A4-es oldalakat és formázhatom újra...
Próbáltam az oldaltörésnél is, a kék vonalhoz tördelni (sor törléssel és beszúrással), de így is elmászik..
Kérdésem: hogyan lehetne rögzíteni a tördelést, hogy bárhol megnyitva ugyanez a tördelés maradjon?
Előre is köszönöm! -
Rixman
tag
Sziasztok!
Segítségre lenne szükségem! Van egy nagy táblám ami így néz ki nagyjából:
Át kellene alakítanom, hogy így nézzen ki:
Van erre valami függvény? Esetleg ötlet a megvalósításhoz? A táblák csak példaként szerepelnek, jóval nagyobb az eredeti.
Még ma tudna valaki segíteni?! Fontos lenne!
Előre is köszönöm szépen!
-
Imy
veterán
Sziasztok!
Lenne egy táblázatom, oszloponként sok olyan adat van ami megegyezik egy oszlopban. Tehát hogyan tudom beállítani, hogy pl az egyiket, például hogy a cella címe év, és az összes 23 éves kiszűrje? Láttam olyat, hogy egy gördülöből kiválasztom, (ahol ott van hiogy az összes, 23 év, 24 év, 100 év stb...), és amelyiket kiválasztom, akkor csak azokat a neveket jeleniti meg.
Köszi előre is! -
glutamin
őstag
válasz
Delila_1
#4040
üzenetére
Ez így van. SAP-ban is tudtam nekik újat mutatni (pl modusról még csak nem is hallottak - több ablak párhuzamos használata). SAP Query-t meg ne is említsem. Sajnos ahhoz már nem kaptam hozzáférést, de az maga egy orgazmus lett volna nekik ami utána jön.
Kreativitásuk sajnos az nulla. Precízek, viszonylag szorgalmasak, de nagyon ragaszkodnak a jól bejárt ösvényekhez.
-
glutamin
őstag
válasz
Delila_1
#4038
üzenetére
Kezdjük ott, hogy sok helyen azért kell mondjuk Access helyett Excel-t használnom, mert Access-be adatot bevini más kollégák már nem nagyon tudnak vagy nem akarják megtanulni. Noha a lekérdezés oldalon ott már lehetne sql-t használni. (ez utóbbi részét persze szeretnék Excel alatt is
)Excel-en belül pedig szintén az egyszerűség dominál. Ahol már lehetne és érdemes is lenne bedobni kicsit bonyolultabb eszközöket is (hosszabb ideig használt, relatív ritkán változó struktúrájú táblázatok), ott se nagyon kérik/engedik a dolgot. (német kollégákról van szó).
Sajnos nem nagyon ismerik az Excel adta lehetőségeket és ezért nem számolnak velük. Amikor meg bedobok valami praktikus újdonságok akkor meg csodálkozás van
-
-
Delila_1
veterán
válasz
glutamin
#4035
üzenetére
Más lapra úgy vihettél fel listát, hogy nevet adtál neki a Beszúrás/Név/Név megadása párbeszéd ablakban. Ugyanitt módosíthatod a tartományt.
Törölni az érvényesítést legkönnyebben az Adatok/Érvényesítésnél teheted meg a bal alsó sarokban található "Törli mind" gombbal. -
glutamin
őstag
Sziasztok!
Data/Validation vagy magyarul Adat/Érvényesítés-hez kapcsolódó kérdésem lenne.
Excel 2003-at használok és már többször is hoztam létre így listákat, amiket más lapokon rendeltem hozzá egy-egy cellához lenyíló list aformájában. A kérdés a következő lenne:
Lehet-e utólag törülni, módosítani egy ilyen kiejlölt listát. Valamint meg tudom-e vahol tekinteni, hogy milyen listáim vannak jelenleg.Eddig csak úgy tudtam megszabadulni a régiektől, hogy töröltem az adott fület és létrehoztam újra az adatok bemásolásával majd újbóli kijelölés. De ez nem valami jó megoldás, meg gyakran elég hosszadalmas is.
-
Delila_1
veterán
Azt már értem, hogy az I és T megváltozott N-re és D-re. A többi viszont kissé zavaros. A csatolt képen nem látszanak a képletek, a felső szövegdobozban pedig szerepel egy KV oszlop, ami valószínűleg K:V akart lenni.
Legjobb lesz, ha elküldöd a fájlt az email címemre, persze csak ha valaki nem válaszol a fórumon. -
vagamo
őstag
válasz
Delila_1
#4025
üzenetére
Köszi szépen, nem is tudtam, hogy ilyet is tud az excel!
De most nagyon röstellem magam! Tegnap este, már nagyon fáradt és kavart voltam, amit képet felmásoltam abban is elszúrtam a nyilazást
Igazából így kéne kinéznie, Bocsi:
Most akkor pontosan le is írom, hogy mit szeretnék elérni ezzel a táblázattal /a betűk is helyesek lesznek, mert tegnap este arra gondoltam, hogy majd behelyetesítem a nekem szükséges betűket./
Bocsi +1X a tegnap este elkövetett hibámért.Az meglehet csinálni, hogy a kitöltetlen táblázatban, azokat a cellákat zárolni, amiben jelen pillanatban bármiféle szám, betű /gondolok én : #érték, 0,25%,0,15%, 0,-FT, +,-,/ ezekben a cellákban ne lehessen megváltoztatni változtatni a függvényt, vagy az éppen aktuális jelölés, ne lehessen véletlenül beleírni a cellába! Ha egy kicsit zavaros, bocsi, de remélem érthető.
+1: R oszlopban található "#ÉRTÉK!" Szummázása, nem megy a az oszlopban nem csak számok vannak, hanem közben van az "#ÉRTÉK!" kifejezés, nem ír összeget! A szummázás helyén is csak az #ÉRTÉK! kifejezés jelenik meg!Köszi a segítséget, bocsi, ha ez így kicsit sok így hétvége elején!
-
Delila_1
veterán
A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe. Jobb oldalon kaptál 1 üres lapot, oda másold be a makrót.
Az I, vagy T betűt a Q oszlopba írd. Jó az i és a t is.Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 17 And (Target.Value = "I" Or Target.Value = "i") Then
Cells(Target.Row, 16) = Cells(Target.Row, 6)
Cells(Target.Row, Target.Column) = ""
End If
If Target.Column = 17 And (Target.Value = "T" Or Target.Value = "t") Then _
Cells(Target.Row, 17) = Cells(Target.Row + 1, 6)
End SubHa lenne egy külön oszlop, amibe beviszed a két betűd valamelyikét, akkor az ssrobi által említett HA függvénnyel simán meg lehetne oldani.
-
vagamo
őstag
Sziasztok!
Van olyan függvény, hogy egy cellába I, vagy T betűt ütök és a két betűhöz hozzá van rendelve 2 különböző cellában található érték. És a cellában a betűhöz tartozó cella értéke jelenjen meg! A lényeg az, hogy ne keljen írogatni
remélem érthető voltam, hogy mit szeretnék
-
jobbi
csendes tag
válasz
Delila_1
#4018
üzenetére
Ezzel a kiegészítéssel működik (feltéve, h a C3-as cellát nem használjuk semmire, de ha igen, akkor helyette lehet akár az IV65536 is):
Private Sub Worksheet_Change(ByVal Target As Range)
SOR = Target.Row
OSZLOP = Target.Column
If OSZLOP = 2 And Range("C3").Value <> "X" Then
Range("C1").Value = "X"
Range("B" & SOR) = Range("B" & SOR) / 24 / 60 + Range("A" & SOR)
End If
If OSZLOP = 2 Then
Range("C1").Value = ""
End If
End SubCsak azért írom, be hátha vki szintén akar hasonlót.
-
Oly
őstag
Sziasztok!
Mindig azt hiszem, amikor elakadok, hogy sokat akarok az exceltől...
aztán kiderül, hogy teljesen egyszerű a megoldás, csak már annyit görcsöltem rajta, hogy nem találom...Ismét lenne egy kis feladat.
Szeretnék egy (vagy több) interaktív képet beszúrni egy munkalapba.
Úgy értem az interaktivitást, hogy egy adott cellában szereplő adatok alapján tölse be a képet.
Valahogy úgy, hogy a kép elérési útvonala egy adott cellában lenne (ami természetesen vááltozhat).Várom a kreatív ötleteket...
-
Delila_1
veterán
Meg kell alkudnod a körülményekkel, más (pl. C) oszlopba kell beíratnod az összeget. A targetnek az a dolga, hogy új számítással reagáljon a hivatkozott oszlopban történő változásra.
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column = 2) Then
sor = Target.Row
Cells(sor, 3) = Cells(sor, 1) + Cells(sor, 2) / 60 / 24
End If
End Sub -
jobbi
csendes tag
Heló újra!
Azóta megtaláltam a választ, így a kérdés már nem aktuális. Viszont van helyette másik
"A" oszlopban sorban szerepelnek az alábbi értékek:
6:00:00
7:00:00
8:00:00
...
tehát óra:perc:másodperc! "B" oszlopba szeretnék időértékeket bevinni. Azt szeretném, h ha a "B" oszlopba beírom, h pl 14, akkor a cellába ne 14 kerüljön, hanem a tőle balra lévő cella ("A" oszlop) értéke, plussz a beírt érték percben. Tehát, ha "A"oszlop adott sorában az van, h 6:00:00, akkor ha a mellette lévő cellába beírom, h 14, akkor oda 6:14:00 kerüljön, ha 8:00:00 van mellette, akkor 8:14:00. Remélem érthető. Eddig annyira jutottam, h jobb gomb a sheetre, aztán view code, oda beír, h:Private Sub Worksheet_Change(ByVal Target As Range)
SOR = Target.Row
OSZLOP = Target.Column
If OSZLOP = 2 Then
Range("B" & SOR) = Range("B" & SOR) / 24 / 60 + Range("A" & SOR)
End If
End SubEz viszont nem működik. gondolom amiatt, h mikor beírok a cellába vmilyen értéket, elkezd futni ez a makró. ami aztán szintén megváltoztatja a cella értékét: leosztja 24-gyel majd 60-nal, h percet kapjon, aztán hozzáadja ezt az értéket pl a 6:00:00-hoz, így megkapja a 6:14.00-et, viszont azzal, h ezt beírja, újra meghívódik a makró, és most már ezt az értéket osztja 24-gyel, 60-al, majd adja hozzá újra a 6:00:00-t. és ez így megy elvileg a végtelenségig. gyakorlatilag, akármit írok be, mindig 6:00:15-öt kapok egy rövidke homokóra után. Valakinek vmi ötlet erre?
előre is köszi -
jobbi
csendes tag
Sziasztok!
Azt szeretném kérdezni, h a Visual Basic-nek van-e olyan függvénye, amely megnézi, h egy adott mappában milyen nevű fájlok szerepelnek, és ezt visszatérési értékként adja (pl egy tömbben). Olyat már találtam, ami eldönti, h adott nevű fájl létezik-e. Ez a FileExist. Ennek visszatérési értéke értelem szerűen TRUE vagy FALSE lehet. Viszont sajnonos ez nem oldja meg a gondom. Előre is köszi a választ.
-
-
Delila_1
veterán
válasz
Hosssszu
#3997
üzenetére
Vigyázz! a makró írásánál feltételeztem, hogy a D oszlopod üres. Ideiglenesen oda helyezek adatokat.
Ha nem szabad az oszlop, két helyen kell átírni a makrót. A
Selection.Cut Destination:=Cells(sor_a, 4) sorban a 4-et mondjuk 30-ra,
és ennek megfelelően a
Range("D2: D" & usor).Select sort Range("AD2:AD" & usor).Select-re.Mód.: ez a fránya átírta. A fenti sor elején a kettőspont után a D elé be kellett tennem egy szóközt, hogy ne egy vigyori fej
(ilyen) jelenjen meg.
Ezt a gyalogos módszert küszöböli ki a makró.
Meg fogom probalni /melohelyen/, csak kernek egy pici hasznalati utmutatot, mert meg nem hasznaltam makrot.Hogy kell beallitani, h. mondjuk a 1-9-ig; 41-49-ig; 81-89-ig...Stb. sorokat szedje ki a 16000-bol?
amiben tök primitiv számolások vannak, olyan mint =A1*200 és társai....nem titok, árlista, csak hogy elkerüljük a kérdéseket, hogy ez miért is kell nekem 
tehát amit szeretnék:
)
Új hozzászólás Aktív témák
Hirdetés
Fferi50- EAFC 25
- One otthoni szolgáltatások (TV, internet, telefon)
- Autós topik
- Fogyjunk le!
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- gban: Ingyen kellene, de tegnapra
- VR topik (Oculus Rift, stb.)
- Béta iOS-t használók topikja
- BestBuy topik
- Kormányok / autós szimulátorok topikja
- További aktív témák...
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Assassin's Creed Shadows Collector's Edition PC
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- PC Game Pass előfizetés
- Eladó karcmentes Xiaomi Redmi Pad SE 11 8/256GB / 12 hó jótállással
- Apple iPhone 11 Pro 64GB, Kártyafüggetlen, 1 Év Garanciával
- Új Dell 14 Inspiron 5435 FHD+ Ryzen7 7730U 4.5Ghz 16GB 512GB SSD Radeon RX Vega 8 Win11 Garancia
- Lenovo V130-15IGM laptop (Pentium Silver N5000/8GB/256GB SSD
- Eladó Lenovo ThinkCentre M910q i7 16GB / 12 hó jótállás
Állásajánlatok
Cég: FOTC
Város: Budapest