-
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
-
zsotesz81
senior tag
Nincs valami step by step mód?
-
félisten
válasz zsotesz81 #6750 üzenetére
Hali!
Ez a kód mindig kilép a legelső "All in"-t tartalmazó cellánál és bezáródik a form. Végig kell szaladni az adott cellatartományon és letárolni, hogy melyik cellákban van All in.
Ehhez alkalmazz tömböt.[link]
Egy megoldási(több elven megoldható) eljárás: A tömböt az elején kinullázod, a for ciklusban meg a megadott indexet eltárolod a tömben. a döntetlenallin szubrutinban meg ezen tömb alapján dolgozol.
(ami nem nulla, ott allin van, ha csak 1 nem nulla van, akkor nyilván senki nem fogadta el az allin-t, ha 2 vagy több akkor meg igen.)Fire.
UI: ma már ennek a gyakorlati kivitelezésében nem biztos hogy tudok segíteni konkrétan(csak este vagy holnap), de más egész biztosan.
[ Szerkesztve ]
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)
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6752 üzenetére
ÁÁÁÁ saját magam szivattam. Nem kell az else ág, az a rész külön kell a next után
-
Forza_JUVE
aktív tag
Sziasztok!
1 kis segítséget szeretnék kérni függvényekkel kapcsolatban.
Van 1 ilyen egyszerű tábla:
Milyen képlettel tudom megmondani neki, hogy adja össze az 1. oszlop azon értékeit, ahol pl. A adatot talál a 2. oszlopban. (jelen esetben 22-t szeretnék eredményül kapni)
Egyesével végigkattintgatva közéjük + jel .. ezt vágom, csak a tábla ahol kéne a képlet, ennél sokkal nagyobb.Köszi előre is.
Üdv!
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Forza_JUVE #6754 üzenetére
A B13 képlete:
=SZUMHA(B1:B10;A13;A1:A10)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mr.nagy
tag
Sziasztok!
Excel 2003-ban azt meglehet e csinálni, hogy egy internet linken található kép megjelenjen kép ként a táblázatban?
Táhát azt szeretném ha egy cellába beírom az URL-t akkor egy mellette található cellába jelenítse meg az URL-en található képet.
Előre is köszönöm!
HMNote10Pro
-
félisten
válasz mr.nagy #6756 üzenetére
Hali!
Ez az elv, ha egy adott cellában lévő linkre hivatkozol, akkor alakíts a makrón(nem nehéz). Ebben a példában azt tanulhatod meg, hogy hogy kell netről megnyitni egy (ebben az esetben) képet és azt hogy kell pozicionálni(itt A1 cellához van igazítva)
Private Sub CommandButton1_Click()
Dim myPic As Object
Set myPic = ActiveSheet.Pictures.Insert("http://www.prohardver.hu/dl/faces/c14.gif")
myPic.Left = ActiveSheet.Range("A1").Left
myPic.Top = ActiveSheet.Range("A1").Top
End SubFire.
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)
-
mr.nagy
tag
-
mr.nagy
tag
válasz Fire/SOUL/CD #6757 üzenetére
Szia!
Kipróbáltam, ahogy leírtad úgy működik is. Azonban ha cellából akarom a hivatkozást hozzáadni akkor nem. Mit rontok el? Így próbáltam:
Private Sub CommandButton1_Click()
Dim myPic As Object
Set myPic = ActiveSheet.Pictures.Insert("A1")
myPic.Left = ActiveSheet.Range("C5").Left
myPic.Top = ActiveSheet.Range("C5").Top
End SubEgyébként azt meglehet oldani, hogy ha mondjuk az A oszlopban több URL található akkor automatikusan mindhez jelenítse meg a képet?
[ Szerkesztve ]
HMNote10Pro
-
félisten
válasz mr.nagy #6760 üzenetére
Hali!
Private Sub CommandButton1_Click()
Dim myPic As Object
Set myPic = ActiveSheet.Pictures.Insert(Range("A1"))
myPic.Left = ActiveSheet.Range("B1").Left
myPic.Top = ActiveSheet.Range("B1").Top
End SubFire.
[ Szerkesztve ]
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)
-
mr.nagy
tag
válasz Fire/SOUL/CD #6761 üzenetére
Hú, nagyon hálás vagyok!
Még annyit segíts, hogyan tudom a cella közepére pozícionálni a képet. Tehát az adott cellának ne a bal felső sarkáhozigazodjon, hanem a cella kőzépontjához igazodjon a kép közepe.
HMNote10Pro
-
félisten
válasz mr.nagy #6762 üzenetére
Hali!
Private Sub CommandButton1_Click()
Dim myPic As Object
Set myPic = ActiveSheet.Pictures.Insert(Range("A1"))
myPic.Left = ActiveSheet.Range("F1").Left + ((ActiveSheet.Range("F1").Width - myPic.Width) / 2)
myPic.Top = ActiveSheet.Range("F1").Top
MsgBox (ActiveSheet.Range("F1").Width)
End SubEbből adódóan házi feladat, hogy hogy lehet függőlegesen is középre igazítani. (A példa alapján nem jelenthet gondot)
Fire.
[ Szerkesztve ]
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)
-
mr.nagy
tag
válasz Fire/SOUL/CD #6763 üzenetére
Szia!
Nagyon köszönöm!
A házi feladatot így oldottam meg:
Private Sub CommandButton1_Click()
Sheets("tábla").Activate
Dim myPic As Object
Set myPic = Sheets("tábla").Pictures.Insert(Sheets("adatok").Range("C1"))
myPic.Left = Sheets("tábla").Range("C5").Left + ((Sheets("tábla").Range("C5").Width - myPic.Width) / 2)
myPic.Top = Sheets("tábla").Range("C5").Top + ((Sheets("tábla").Range("C5").Width - myPic.Width) / 2)
End SubHMNote10Pro
-
félisten
válasz mr.nagy #6764 üzenetére
Hali!
Majdnem...
Függőleges igazításnál a cella ill. kép magasságával kell számolni, ami mindkét esetben a Height nem pedig a Width.Persze ha a kép szélessége és magassága azonos, akkor nem jön ki a hiba.
(meg akkor sem, ha a cella magassága(sormagasság) kisebb, mint a kép magassága)Fire.
[ Szerkesztve ]
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)
-
mr.nagy
tag
válasz Fire/SOUL/CD #6765 üzenetére
Szia!
Valóban négyzet alakú képekkel dolgoztam, így nem jött elő. Kipróbáltam téglalap alakú képpel is, úgy már látszott. Így módosítottam is a kódot!
Köszönöm, hogy segítettél!
HMNote10Pro
-
zsotesz81
senior tag
Két kérdésem lenne:
1.: excel függvényekre hogy lehet hivatkozni makróval?
Pl. ezt hogy lehet leírni: A2-es cella legyen egyenlő MAX(D$5$14).
2. cellákra lehet valami érvényességi szabályt adni? Pl. beírok a cellába egy értéket és ha az nagyobb mint egy másik cellában lévő érték akkor mondjuk adjon egy hibaüzenetet -
Delila_1
Topikgazda
válasz zsotesz81 #6767 üzenetére
1.
Sub maksz()
Cells(2, 1) = Application.Max(Range("D5:D14"))
End Sub2. Ezt ahhoz a laphoz kell rendelned, ahol a bevitt adatot akarod figyeltetni. Vagy a lapfülön jobb klikk, és kód megjelenítésére, vagy a VBE-ben a munkalapon duplaklikkre jön elő a szerkesztő felület.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" And Target.Value > Cells(2, 1) Then
MsgBox "Hibás adat"
Cells(1, 6).Select 'itt visszaállítom az F1-re a bevitel helyét
End If
End SubAz F1-be bevitt adatot ellenőrzi, és az A2 értékével hasonlítja össze.
Ha nem egyetlen cellába történő bevitelt, hanem mondjuk az F oszlop bármelyik celláját kell figyeltetni, akkor a feltételif target.column=6 and ...
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Badb0y
addikt
válasz Fire/SOUL/CD #6749 üzenetére
Köszönöm, sikerült
Viszont még egy kérdésem vetődött fel.Azt kellene valahogy megoldani, hogy van egy karaktert tartalmazó cellám, és valami HA függvény kellene, amivel:
ha a cella = valami karakter, akkor másolja bele egy másik cella tartalmát.
Létezik ilyen?
Minőségi laptopok https://notebookokhu.business.site/
-
Badb0y
addikt
válasz zsotesz81 #6772 üzenetére
Ezaz
És több ha fv-t hogy lehet megadni egymás után, mert azt akarom, hogy ha pl amit írtál, akkor c2, de ha nem teljesül akkor már más, és nem csak 2 argumentum, hanem több.
Valami ilyesmire gondolok, =HA(B1="karakter";C2) vagy =HA(B1="karakter3";C21) vagy ....
Vaggyal kellene tagolni, vagy valami más módon ?
Minőségi laptopok https://notebookokhu.business.site/
-
rdi
veterán
Üdv,
van egy ilyen csúnya egymásba ágyazott ha fv -em:
=HA(I3>19;25000;HA(I3>9;15000;HA(I3>0;10000;5000))))kiváltható ez valahogyan?
Mi van, ha nagyon sok intervallum van és ezért rengeteg ha?
Fkeres és segédtábla segítségév el persze megoldottam, de érzésem szerint az gány megoldás.Fej! Tor! Potroh!
-
félisten
Hali!
Ha tényleg sok intervallum van, akkor készíts saját függvényt és pl a Case nagy segítségedre lehet. Ennek annyii "hátránya" lehet, hogy makrót kell futtatni, tehát azt engedélyezni kell.
Fire.
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)
-
Badb0y
addikt
válasz zsotesz81 #6775 üzenetére
Basszus, nem lehet számomra elég HA-t használni. Olyan 50 db kellene egymásban, de nem engedi excel
Mit lehet tenni ?
Amit akarok egyébként, hogy vannak megnevezések, és ha egy megnevezés megegyezik az általam megadottal, akkor egy másik cellában levő képlinket másolja be abba a cellába, ahol a fv-t írom. Ezt szeretném elérni, de úgy nézem HA olyan 20 után már kiakad, de lehet alatta.
Vagy az mégjobban megkönnyítené a dolgom, ha egy tartományban tudna keresni, mert a kép neve szinte ugyanaz mint a megadott minta neve, csak kisbetű és - -val van elválasztva. De ha a trtományban hasonlót találna, akkor 100% jó lenne.
[ Szerkesztve ]
Minőségi laptopok https://notebookokhu.business.site/
-
félisten
Hali!
Csak a legutolsó 2 HSZ-t kellett volna elolvasnod, abban pont arról van szó, hogy mit lehet tenni, ha túl sok feltételt kell egybeágyazni, ezáltal "kilométeres" a cellában lévő kód.
Szerk
Nagy valószínűséggel kivitelezhető lenne úgy is...Csak ahhoz pontosan kell tudni, mit szeretnél megvalósítani...Fire.
[ Szerkesztve ]
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)
-
Badb0y
addikt
Ok, konkrétumot írok, mert valszínű ezt nem fogom tudni megcsinálni.
name_hu image képlinkeket_tartalmazó_oszlop
dell adamo 13 laptop ide kell megtalálja a képet innen kell megtalálja a képet
inspiron laptop ----||--------- ----------||----------------az innen kell megtalálja a képet, az kb ez 160 soros tartomány. ja és a link
maga a link így néz ki: www..../dell-adamo-13-laptop.jpgnagyjából érthető, ha nem leírom máshogy.
Minőségi laptopok https://notebookokhu.business.site/
-
félisten
Hali!
Hát én kíváncsian várom Delila_1 válaszát(vagy másét), hogy ki mit értett meg ebből, bevallom tippem/elképzelésem van a dologgal kapcsolatban, de ezzel nem tudok megbirkózni: "inspiron laptop ----||--------- ----------||----------------"
Mi ez? "...paróka, szobafestő pemzli, egyujjas kifordított bundakesztyű vagy papucs orrán pamutbojt"...Meditáltam rajta, de nem tudom az mi az...Már kínomban "elpusztítottam" 2 csokinyulat, de nem segített...
Fire.
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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #6782 üzenetére
Azt hittem,csak nekem lila.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #6783 üzenetére
Hali!
Jól van, akkor ha Te sem érted "kristálytisztán", akkor nem csak az én "készülékemben" van a hiba.
Szóval Badb0y, egy kép sokat segítene...Fire.
[ Szerkesztve ]
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)
-
Badb0y
addikt
Az macskaköröm volt szimbolizálva
Itten a példa.
Minőségi laptopok https://notebookokhu.business.site/
-
félisten
Hali!
Macskaköröm? LOL, na Te jó adattitkosító lennél, mert ebből szerintem senki ebben az életben nem jött volna rá, hogy az macskaköröm.
Nem írom le a megoldást a kereséssel, mert szerintem, mire ezt a HSZ-t befejezem, Delila_1 vagy Ulrik19 vagy ha benéz "hirtelen" Fehér Mancs akkor addigra már meglesz.
Egy elvet ecsetelnék röviden, ami nem a kereső fx-re épül, de talán ebből is lehet tanulni valamit. Szóval egy saját függvényt kellene készíteni, ami a laptopok nevéből legyártaná, a linket(URL-t). Pl úgy, hogy a laposok nevéből a szóközöket _ karakterrel helyettesíti, illetve (mivel szerveren vagyunk) ezért kisbetűsre alakítja és ugyanazon sor megfelelő oszlopába beírja. Így ha módosítod a laptop nevét, akkor automatikusan generálódik a letöltési link.
Persze ennek ez is a hátránya egyben, mert ha módosítani kell a laptop nevén, akkor egyből új fájlnévvel azt fel is kell tölteni a szerverre, a korábbi néven szereplő képet meg törölni(ne foglalja feleslegesen a helyet)Persze ez csak egy elv, és csak azért írtam, hogy több szempont alapján és más-más módszerekkel is megoldható egy feladat, mindig mérlegelni kell,(és pontosan tudni), hogy mit akar megvalósítani az ember.
Na de visszatérve a feladathoz. Ebben a formában a "hagyományos" kereső szolgáltatások "nehézkesen" (vagy talán nem is) alkalmazhatóak, hisz semmi nem utal a laptopok nevére a linkben, még rész sztringet sem lehet keresni, ezért nincs mit megtalálni ebben a formában. (Szerintem)
Fire.
[ Szerkesztve ]
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)
-
félisten
Hali!
Azt hittem jön megoldás, ezért kivártam, de hiába, azért Húsvét van.
Na akkor ahogy én oldanám meg ezt a feladatot(csak javaslat, nem kötelező betartani)
Két munkalapom van, Lista és DB névvel.
# Lista munkalap: "A" oszlopban minden cellán, lenyíló listából választható az adott termék. "B" oszlop üres, de csak azért, hogy a lenyíló menü nyilacskája ne zavarjon be(vizuálisan) "C" oszlopba. "C" oszlopban jelenik meg, a kiválasztott termékhez tartozó link.
# DB munkalap: "A" oszlopban a termékek, "B" oszlopban a hozzá tartozó link
Megoldás lépésről-lépésre
1. DB munkalapon "A" és "B" oszlopok feltöltése adatokkal
2. DB munkalapon "A" oszlop kijelöl és Tartományként elnevez, esetünkben LAPTOPOK néven: [link]
3. DB munkalapon "A" és "B" oszlop kijelöl és Tartományként elnevez, esetünkben LAPTOPOK_ES_URL néven(Eljárás ugyanaz mint a 2. pontban)
4. Lista munkalapon "A" oszlop kijelöl, Adatok csoport/Érvényesítés LENYÍLÓ/Érvényesítés..., többi a képen: [link]
5. Lista munkalapon C1 cellába beírni a következő képletet
=HIPERHIVATKOZÁS(FKERES(A1;LAPTOPOK_ES_URL;2;HAMIS);"Kép a termékről")És ennyi lenne. (Excel 2007-ben készült)
Fire.
[ Szerkesztve ]
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)
-
Delila_1
Topikgazda
Nagyon jó, amit Fire írt, de ahhoz, hogy minden laptophoz a saját képe jöjjön be, előbb le kell futtatni az alábbi makrót:
Sub tipus()
Dim sor As Integer
Dim b As Integer
Dim szoveg As String
Sheets("DB").Select
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
szoveg = Left(Cells(sor, 2), Len(Cells(sor, 2)) - 4)
For b = Len(szoveg) To 1 Step -1
If Mid(szoveg, b, 1) = "/" Then
Cells(sor, 1) = Mid(szoveg, b + 1)
Exit For
End If
Next
Next
End SubEz a DB lap B oszlopából (URL címekből) előállítja az A oszlopban az egyenként választható típusokat. Igaz, csupa kisbetűs név lesz, nem az eredeti mutatós Dell Adamo 13, hanem dell-adamo-13-laptop.
Biztosan ki lehetne csicsázni, kérdés, hogy megéri-e. Sok sornál jó hosszú időbe telik.[ 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
Itt van nagybetűsen, és szóközökkel az előbbi.
Sub tipus_1()
Dim sor As Integer
Dim b As Integer
Dim szoveg As String
Sheets("DB").Select
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
szoveg = Left(Cells(sor, 2), Len(Cells(sor, 2)) - 4)
For b = Len(szoveg) To 1 Step -1
If Mid(szoveg, b, 1) = "/" Then
Cells(sor, 3) = Mid(szoveg, b + 1)
Cells(sor, 1).FormulaR1C1 = "=UPPER(SUBSTITUTE(RC[2],""-"","" ""))"
Exit For
End If
Next
Next
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Columns("C:C").Select
Selection.ClearContents
Application.CutCopyMode = False
Cells(1).Select
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.
-
DJ.Gróf
aktív tag
Sziasztok!
Segítségre lenne szükségem.
Van lehetőség az excelbe úgy képet rakni egy cellába, hogy ott legyen kicsiben, de ha pl ráállok az egérrel vagy rákattintok akkor adja ki nagyban is a képet.
Köszönöm!
-
Badb0y
addikt
No, amint meló vége kipróbálom ezt a rengeteg haszbos infót.
Köszönöm előre isMinőségi laptopok https://notebookokhu.business.site/
-
sanyixXx
senior tag
hali!
van nekem egy névsorom és a nevekhez tartozik mindenféle adat. ez mind külön oszlopokban van. hogyan tudom megcsinálni, hogy az neveket abc rendbe rendezzem úgy, hogy velük együtt az adataik is rendeződnek a megfelelő sorrendbe?
köszi előre is!
Rumot minden pohárba! | https://rumnagykovet.hu/
-
Delila_1
Topikgazda
válasz DJ.Gróf #6790 üzenetére
Ha jobb ötlet nem jön, a celláidhoz rendelj képet a megjegyzésbe. Így
A beállításoknál a Megjelenítés fülön megadhatod, hogy a megjegyzések csak jelezve legyenek. Mikor fölé állsz a kurzorral, látszani fog a kép.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zsotesz81
senior tag
Olyat lehet csinálni, hogy egy msgbox-ba clipart vagy saját képet beszúrni? Vagy ehhez külön form kell?
-
félisten
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6798 üzenetére
Clipart képet hogy lehet formba beszúrni? Az image vezérlővel próbáltam de az nem tudja a png-t kezelni.
-
félisten
Új hozzászólás Aktív témák
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- World of Tanks - MMO
- Otthoni hálózat és internet megosztás
- Ukrajnai háború
- Stellar Blade
- AMD off topik: VGA, CPU, APU és minden, ami AMD
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Így építsd a billentyűzeted!
- Linux felhasználók OFF topikja
- Bemutatkozott a Moto G32 4G
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen