-
IT café
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
-
varsam
őstag
üdv
Olyat lehet csinálni akár képlettel, akár makróval, és ha igen akkor hogyan, hogy ha egy cella felvesz egy bizonyos értéket, akkor oda beszúrjon egy képet fájlból, vagy akár egy már másik meglévő képet copy/paste-eljen oda?
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz cortez25 #11099 üzenetére
Azt hiszem, megértettem, de közel sem biztos.
A RANDBETWEEN(x;y) függvény adja az x és y értékek közötti véletlen egész számokat.
Ezt cellákra hivatkozással is megadhatod: =randbetween($a$1;$b$1), és másolhatod.Ha nem találsz a függvényeid között ilyent, az Eszközök - Bővítménykezelő menüben a két Analyzis kezdetűt jelöld be.
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 varsam #11104 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Target.Address = "$B$2" Then 'ehelyett írd azt a cellát, amibe adatot viszel a kép
'megjelenítéséhez
Dim utvonal As String
Dim FN As String
utvonal = "D:\valami\valami_más\" 'ide írd a saját útvonaladat
FN = "képneve.jpg" 'ide írd a beszúrandó kép nevét kiterjesztéssel
Range("D2").Select 'a D2 bal felső sarkához illeszti a képet, írd át
ActiveSheet.Pictures.Insert(utvonal & FN).Select
End If
End SubHa a B2 cellába írsz valamit, a D2-be beilleszti a képet, aminek az útvonalát és a nevét a kiterjesztéssel együtt megadod a jelölt sorokban.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zhari
csendes tag
Üdv.
Az lehetséges, hogy egy cella értékétől vagy egy fgv. eredményétől függjön egy cella megjegyzésének a tartalma? ( magyar Excel 2007) Dátumként kéne szerepelnie a következőnek cella megjegyzésként =HA(HÉT.NAPJA(MA();2)=1;MA()-3;MA()-1) -
perfag
aktív tag
válasz varsam #11101 üzenetére
Nem egészen világos a problémád.
Egy lehetséges változat: van mondjuk 5 képed, melyekből egy cella értékétől függően egy látszik. A megoldás ebben az esetben az 5 képet beilleszteni, egymásra igazítani, ebből négyet elrejteni, majd egy makróval megoldani a cella figyelést ill. kép elrejtést/megjelenítést vezérelni. -
Delila_1
Topikgazda
válasz varsam #11109 üzenetére
Azt elmulasztottam megírni, hogy a makrót ahhoz a laphoz kell rendelned, amelyiken elő akarod csalni a képet.
Ennek a módjáról már sokszor volt szó, legutóbb itt.[ 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.
-
Oly
senior tag
Sziasztok
Excel makróban szeretnék egy kijelölés (2 cella egymás mellett) celláíra külön hivatkozni.
Valami ilyesmi:
var1$=Selected.Cells Bal oldali cella
var2$=Selected.Cells Jobb oldali cellaHogyan tudom ezt megcsinálni?
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Delila_1
Topikgazda
-
Oly
senior tag
válasz Delila_1 #11113 üzenetére
Szia
Az a baj, hogy nem a D4-hez viszonytova.
A táblában kijelölök 2 cellát, amit felhasználnék egy makróban.
Aztán kijelölök egy másik cellapárt és akkor azt használnám a makróban...SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Delila_1
Topikgazda
Ha erre gondoltál,
ez a makró állítja elő:
Sub megj()
For Each CV In Range("A2:A11")
név = CV
If Weekday(név, 2) = 1 Then m = Date - 3 Else m = Date - 1
név = Year(m) & "." & Right("0" & Month(m), 2) & "." & Right("0" & Day(m), 2)
On Error Resume Next
CV.AddComment
CV.Comment.Text Text:=név
CV.Select
ActiveCell.Comment.Visible = True
CV.Comment.Shape.Select True
With Selection.ShapeRange
.ScaleWidth 0.48, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.23, msoFalse, msoScaleFromTopLeft
End With
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.
-
zoli1962
csendes tag
Sziasztok !
Program :Excel 97A3=HA(VAGY(SZÁM(H3);SZÁM(D3));MOST();"")
A4=HA(VAGY(SZÁM(H4);SZÁM(D4));MOST();"") és így tovább. Tehát,ha számot írok H vagy D sorba akkor az A sorba beírja a dátumot (éppen most).
A problémám csak annyi,hogy amikor írok egy új sort az összes dátumot átcseréli és nem tudok rájönni miért.
VBA makrót nem írtam csak Excel függvényt
A tippeket köszönettel veszem[ Szerkesztve ]
-
föccer
nagyúr
válasz zoli1962 #11119 üzenetére
Mert amikor beírod az új adatot, akkor újraszámolja az egész táblát, és a most() függvény mindig az aktuális időpontot adja eredményül. Kapcsold ki az automatikus újraszámolást a beállítások között, és akkor nem fogja átírni.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
perfag
aktív tag
válasz zoli1962 #11119 üzenetére
Hát, a Most() az mindig az éppen most-ot adja ha be van kapcsolva a tábla automatikus újraszámolása.
Ha az a problémád, hogy rögzíteni szeretnéd a dátumot amikor egy számot bevittél, akkor vagy makrót kell használnod, vagy a celláidat ki kell venned az újraszámolásból. Erről volt is már szó itt. Egy fapados módszer: kijelölöd a dátumos celláidat, Másolás, majd irányított beillesztés, csak adattal. Ettől eltűnnek a képletek.
Ha nem ez a problémád, akkor nem értettelek meg. -
zoli1962
csendes tag
válasz perfag #11121 üzenetére
Köszönöm mindkettőtöknek.Föccer ötletét végigpróbáltam,de a leírt képlettel ez nem működik ,mert ha kiveszem az újraszámolást akkor az utolsó sorba se teszi be a dátumot.Ha meg mentéskor kérem az újra számolást akkor átírja mindet (Ez várható volt.)
Perfag ötletét is kipróbáltam a fapados részt .Végig csináltam igazad van csinálok egy új oszlopot és átmásolom-irányított beillesztés-csak érték.Ezután írnék egy új adatot az új dátum(oszlop) nem változik a régi igen (az egész) .Csak egy baj van az új oszlopba nem írja be az új dátumot (utolsó rekord).Remélem érthető voltam előbb is megértetted a problémámat -
föccer
nagyúr
válasz zoli1962 #11124 üzenetére
Kijelölöd az összes dátumot tartalmazó cellát. Nyomsz egy ctrl+c (másolás), majd a kijelölést meghagyva jobb klikk a területen-> irányított beillesztés, ahol kiválasztod az értéket, és leokézod. Ekkor a kimásold adatokból az értékeket beszúrja az aktuális területre, felül írva ezzel az ott lévő =most() képletet. Így amikor legközelebb beírsz egy új adatot, ezek a cellák nem fognak változni, hiszen nem képlet van benne, hanem csak egy dátum/idő.
Üdv, föccer
Építésztechnikus. Építőmérnök.
-
m.zmrzlina
senior tag
válasz zoli1962 #11124 üzenetére
Vess egy pillantást Kornl23 #10954-es hsz-ban lévő kérdésre és a rá adott válaszra. Ha az a módszer jó neked akkor tudjuk pontosítani és a te munkafüzetedhez illeszteni a makrót.
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz zoli1962 #11119 üzenetére
Ilyen logika mentén is el lehet indulni:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 8 Then
Range("A" & ActiveCell.Row).Select
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Save
End If
End SubHa vagy a D vagy a H oszlopban változik valami akkor a változtatott cella sorának és az A oszlop metszéspontjában lévő cella tartalmát értékként magára másolja.
Ez az A oszlop megfelelő cellájából kitörli a benne lévő képletet így az a cella többet nem fog újraszámolódni.
-
akos_1
csendes tag
Sziasztok!
Excel makróírásban kérném a segítségeteket. (office 2007)
Szóval a feladat az volna, hogy van egy munkalapom, amin sok szám van. Ezek közül kijelölnék valamennyit (mindíg változó), amikről szeretném megmondani mondjuk h melyik a legkisebb szám a kijelöltek közül.
A gond ott van, hogy a kijelölt tartományomat nem tudom beolvastatni.
pl activecell.currentregion vagy usedrange parancsokkal az egész blokkomat kijelöli, de nekem csak egy része kéne. Hiába kerestem az excel súgóba nem találtam olyan utasítást ami "Range" -t jelölne ki.Amikor kész függvényket használok, akkor ugye gyakran van, hogy ki kell jelölni tartományokat, az is jó lenne ha ezt az ablakot meg tudnám hívni, amivel be lehet olvastatni a tartományt. Akkor futás közben jelölném ki a cellákat amikből később dolgozna a programom. (mondanom se kell, hogy ezt az ablakot se tudom hogyan kell meghívni)
Hát egy kicsit hosszú lett, de remélem átjön a lényeg. Előre is köszi aki válaszol.
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz akos_1 #11129 üzenetére
Én így keresnék legkisebb értéket:
Sub kikeres()
Dim legkisebb As Double
Dim hely_sora As Double, hely_oszlopa As Double
Dim cella As Range
legkisebb = ActiveCell.Value
For Each cella In Selection.Cells
If cella.Value < legkisebb Then
legkisebb = cella.Value
hely_sora = cella.Row
hely_oszlopa = cella.Column
End If
Next
Cells(hely_sora, hely_oszlopa).Interior.ColorIndex = 3
End SubMivel változik a tartomány én a felhasználóra bíznám a kijelölést (ha meg lehet oldani). A makrót a kijelölés elvégzése után kell indítani.
Ha nem megoldható, hogy a felhasználó jelöljön ki akkor megoldható makróból is de jobban írd körül, hogy mi alapján kell a kijelölést elvégezni!
-
félisten
válasz akos_1 #11129 üzenetére
Private Sub CommandButton1_Click()
Dim MyRange As Range
Dim MyFxs As WorksheetFunction
Set MyFxs = Application.WorksheetFunction
Set MyRange = Application.InputBox(prompt:="Jelöljön ki egy tartományt", Type:=8)
MsgBox MyFxs.Min(MyRange)
Set MyFxs = Nothing
End SubMindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
akos_1
csendes tag
válasz m.zmrzlina #11130 üzenetére
Köszi, működik.
A Selection.Cells kifejezést nem ismertem, igazából ez volt a kérdés lényege. (Próbálkoztam sok mindennel de pont ezzel nem )(kezdő vagyok)
A makróból való kijelölést úgy gondoltam, hogy elindítom a makrót, aztán feljön egy ablak, ami arra kéri a felhasználót, hogy jelöljön ki egy tartományt, kijelöli és lefut utána ugyan ez.
Az ablaknál olyanra gondoltam, mint ami a függvényvarázslónál is sok helyen van. (Tehát itt is a felhasználó választaná ki a tartományt)Szerkesztés:
Közben megkaptam a választ erre is, úgyhogy köszönöm.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz m.zmrzlina #11128 üzenetére
A kérdés így szólt:
"ha számot írok H vagy D sorba akkor az A sorba beírja a dátumot (éppen most)"Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Or Target.Column = 8 Then
If IsNumeric(Target) Then Cells(Target.Row, 1) = Now()
End If
Application.EnableEvents = 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.
-
Delila_1
Topikgazda
válasz m.zmrzlina #11135 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Varga Csaba
aktív tag
Üdv,
A segítségeteket szeretném kérni, adva van egy excel táblázat amiben az útvonalnyilvántartásomat csinálom, cégtől kaptam a szerzője nem fellelhető...
A munkafüzet bizonyos celláit jelszavas védelemmel látták el ezért nem tudom az üzemanyagnormát a régi 9 literről az aktuális 8,6 literre módosítani, mert ha megpróbálnám átírni az alábbi üzenet fogad:
"a módosítani kívánt cella védett ezért nem módosítható"A lapvédelem feloldásához pedig nincs jelszavam...
Tud valaki esetleg segíteni?
''Egy haver mondta: ''szerintem a linux egy nagyon szar windows'' by Mefistofeles''
-
Delila_1
Topikgazda
válasz zoli1962 #11141 üzenetére
A helyes formázás megszünteti a nullákat. . Úgy formázd a cellá(ka)t, hogy csakis a dátumot mutassa.
Szerk. ha jobb dátummal és idővel, akkor OK a now(). Az előbb figyelmetlenül olvastam.
[ 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.
-
m.zmrzlina
senior tag
válasz Varga Csaba #11142 üzenetére
Itt egy link ahol jó segítség található ahhoz, hogy meghatározd vajon milyen is a védelem valójában.
Ha szerencséd van akkor egy sima lapvédelemről van szó és akkor tudsz VBA kódot illeszteni a munkafüzetbe. Ez egy kipróbált kód, nekem eddig mindig működött ha sima jelszavas lapvédelmet kellett feloldani.
-
gyros3
csendes tag
Sziasztok,
az lenne a kérsdésem, hogy a 2007-es excelben, amikor pivot táblát hozok létre, hogyan tudom megoldani, hogy az "Adat" mezőben lévő értékeknél minden oszlonál alapból az összeg jelenjen meg és ne kelljen egyenként módosítanom, hogy az éppen darabot, összeget vagy átlagot szeretnék látni.
Példa:
Szeretném látni a sorokban a vevőket, oszloban a hónapokat, az adat részben pedig az teljes havi értékesítést. Amikor egymás után behúzom a hónapokat, akkor van, amelyiknél az összeget írja ki és van, amelyiknél darabszámot, pedig a cellák formázása az alaptáblában megegyezik. -
-
bozsozso
őstag
Sziasztok!
Azt meg tudom csinálni valahogyan, hogy egy cella tartalma alapján hivatkozzak egy munkafüzet egy munkalapjára.
Pl.:vannak január,február,március stb. nevű munkalapjaim valamint egy összesen. Ha az összesen munkalap A1 cella tartalma január és a b1 cellában úgy szeretnék megjeleníteni adatokat, hogy a tartalma =darabteli(Január!A1:M45;"találat")
Azt szeretném elkerülni, hogy a képletben található Január!-t az A1 cellából vegye
-
félisten
válasz bozsozso #11148 üzenetére
Remélem erre gondolsz, azaz pl adott egy képlet, ami a Munka3 A1/A2/A3 celláit összeadja, ez így néz ki:
=SZUM(Munka3!A1:A3)Most pl B1-ből kellene, hogy a Munka3-at vegye, akkor az meg így néz ki:
=SZUM(INDIREKT("'"&B1&"'!A1:A3"))Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
bozsozso
őstag
válasz Fire/SOUL/CD #11149 üzenetére
Hát nem konkrétan erre gondoltam, de már ebből megkaptam amit szerettem volna. Az INDIREKT függvény volt amire nekem szükségem volt csak eddig még nem ismertem.
Köszönöm a segítséget.
Új hozzászólás Aktív témák
- Proxmox VE
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- BestBuy topik
- Új HMD modell bukant fel
- Az otthoni irodákba költözne be az AOC 100 Hz-es monitora
- Ukrajnai háború
- Luck Dragon: Asszociációs játék. :)
- Call of Duty: Black Ops 6 címmel jön a sorozat idei része
- Nem indul és mi a baja a gépemnek topik
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steam kulcsok - UTALÁS/REVOLUT
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Canva Pro előfizetés - 1 éves
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen