-
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
-
ALbeeeee
csendes tag
válasz
Delila_1
#7288
üzenetére
Hello,
Gyakorolgattam, módosítottam a kódokat, hogy jobban megértsem miről is van szó...
Elküldtem a végeredményt e-mailben, hogy megmutassam ma meddig jutottam vele... így te is jobban látod mit - miért kérdeztem
Próbáld ki, a gombokat .. stb. Az opció választás (F11) egyelőre még manuálisan megy, nem működik legördülő menüvel!
Köszi! Van mit tanulni tőletek...
-
ALbeeeee
csendes tag
válasz
Delila_1
#7286
üzenetére
Szia,
pont most sikerült így megoldanom:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.TextBox1.Visible = True
Else
Munka1.TextBox1.Visible = False
End IfIf Sheets("Munka1").Range("F11") = 1 Then
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
Else
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
End IfEnd Sub
Amit írtál azt is próbáltam, de valamiért nem csinálta meg...de még próbálkozom azzal a verzióval is!
Lenyíló: Fejlesztőeszközök > Beszúrás > Beviteli lista (űrlap vezérlőelem)
Ismerem az adatérvényesítést is, csak ott az nem tetszik a listánál, hogy egyszer rá kell kattintani és csak utána látható a lista(fül).
-
ALbeeeee
csendes tag
A ma tanultak alapján csináltam egy ilyet is:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
Else
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
End If
End Sub--------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.TextBox1.Visible = True
Else
Munka1.TextBox1.Visible = False
End If
End Sub
--------------------------------A lényeg, amikor a TextBox1 látható ez az alakzat nem és fordítva. A gond az, hogy külön-külön működnek. Miként tudom egyesíteni a két feltételt?
Egy másik szép dolog, hogy az F11-ben szereplő szám egy legördülő menü adataiból érkezik. (Ez a Lenyíló 1) Valamiért ezt nem kezeli le automatikusan változásnak, mert ha változik is a szám nem tűnik elő vagy el, csak ha én írom át a számot. Ezzel mit tudok kezdeni?
-
#7282
ALbeeeee
csendes tag
Fire/SOUL/CD
#7280
ALbeeeee
csendes tag
válasz
Fire/SOUL/CD
#7280
üzenetére
Hello,
szuper ez a része TÖKÉLETESEN működik!
Köszönöm!
Egy kérdés:Private Sub Worksheet_Change(ByVal Target As Range)
Ez arra vonatkozik, ha változás történik az adott sheeten és olyankor fut le?
Csak, hogy kicsit a dolgok mögé lássak.Üdv,
ALbee -
ALbeeeee
csendes tag
Na szép kis küzdelmeken vagyok túl
Automatikusan nem jelenik meg indításkor, de ha futtatom a makrók közül elindul és át is rakja az adatokat. Arra viszont megint nem reagál, hogy mi van az F11-ben.
Ha tudnátok segíteni abban amerre elindultam, (apránként) akkor talán könnyebb lenne megértenem.
Van a Munka1 sheet:
( Fejlesztőeszközök > Beszúrás > ActiveX vezérlők > Szövegmező )
Ez lesz a TextBox1 (a szerkesztőlécben ezt írja: =BEÁGYAZ("Forms.TextBox.1",""))Azt szeretném, hogy ez a motyó, akkor jelenjen meg, ha F11=2 (egyéb esetben ne legyen látható.)
Ha megjelenik, írok bele és rákattintok a gombra ( ez egy alakzat lenne - Lekerekített téglalap 9 - ) akkor beviszi a Munka2 sheet első üres cellájába(ahogyan azt már beszéltük).
Nagyon szépen köszönöm az eddigi segítséget, remélem nem akasztalak ki benneteket ezekkel a feladatokkal, de szeretném megismerni és használni is ezeket a dolgokat.
KÖSZÖNÖM!
-
ALbeeeee
csendes tag
-
ALbeeeee
csendes tag
válasz
Delila_1
#7266
üzenetére
Nos átírtam és teszteltem magyar / angol 2007-es excelben és egyelőre semmi:
Private Sub Lekerekítetttéglalap9_Click()
Dim usor
usor = Range("D1048576").End(xlUp).Row + 1
If usor >= 1048576 Then
TextBox1.Value = ""
Else
Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
End If
End SubHiba üzenet: Cannot run the macro .... The macro may not be available in this workbook or all macros may be disabled.
? -
ALbeeeee
csendes tag
válasz
Delila_1
#7257
üzenetére
Szia Delila_1,
Nálam ez valahogy, így néz ki és nem mukodik: (Excel 2007, magyar)
Private Sub Lekerekítetttéglalap9_Kattintás()
Dim usor
usor = Range("D1048576").End(xlUp).Row + 1
If usor >= 1048576 Then
TextBox1.Value = ""
Else
Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
End If
End Sub____________________________
Kérdés: Probléma ez az angol magyar keverés?Egyébként jó így, hogy az utolsó helyre pakol elvileg nem lesz közben üres cella.
Köszönöm a segítséget...
-
#7262
ALbeeeee
csendes tag
Fire/SOUL/CD
#7258
ALbeeeee
csendes tag
válasz
Fire/SOUL/CD
#7258
üzenetére
Hello Fire,
köszi a gyors választ. Hozzárendelem a kódot a sheet kódjához, de mégse működik. Mindig rejtett marad, csak tervező nézetben látom a Textboxot.
>> Most nézem a másodikat!
>> Egyébként űrlap szerkesztésen fáradozom!
(Excel 2007) -
ALbeeeee
csendes tag
Sziasztok,
lenne egy-két makrós kérdésem, gondolom ti tapasztalt VB mesterek könnyedén tudtok nekem segíteni!
1. Beviteli mező feltételhez kötött megjelenítése
> Ha F11=2 akkor TextBox1 Visible=True / Ha viszont más érték szerepel ott akkor ne jelenjen meg.2. Beviteli mező tartalmának cellába másolása gombnyomásra (szöveg - név)
> Textbox1 tartalmának 'Munka2' Sheet D oszlop első üres cellába történő másolása (ha nincs már ilyen az oszlopban) + Textbox ürítéseElőre is köszönöm a segítséget...még biztosan lesz kérdésem, mivel most próbálom bővíteni az ilyen irányú ismereteimet!
Üdv,
ALbee -
ALbeeeee
csendes tag
Hello,
ez lett a jó!
LEN = megszámoljuk a karakterek számát
LEN(SUBSTITUTE) = MEGSZÁMOLJUK A CSERÉLT KARAKTEREK SZÁMÁT
kivonjuk egymásból a két eredményt és meg is van!Köszi!
________
Kedves Delila_1,
annyi vessző van amennyi név.( név, beosztás ) > az adatok adatbázisból jönnek
KÖSZÖNÖM A MAKRÓT!
_________
Nagyon kedvesek vagytok! A dolog megoldva, sikerült automatizálnom, amit akartam!
További szép napot nektek!
Üdv,
ALbee -
ALbeeeee
csendes tag
Sziasztok,
lenne ötletetek egy adott cellában, hogyan tudom megszámoltatni bizonyos karakterek számát? A lényeg az lenne, hogy adott cellákban nevek és beosztások vannak felsorolva, vesszővel ( , ) elválasztva és a nevek számát szeretném visszanyerni. Ez a logika alapján 1 név egy vessző, és ezért gondoltam arra, hogy talán ez lenne a legegyszerűbb megoldás a számszerűsítésre. A kérdés már csak a hogyan! Valakinek ötlete esetleg? Köszönöm szépen!
Üdv,
ALbee -
ALbeeeee
csendes tag
válasz
Delila_1
#5566
üzenetére
Szia Delila_1,
az általad leírtaknak megfelelően meg tudtam oldani maradéktalanul a problémát. A kommentek megjeleítését az adott cellára való kattintáshoz kötöttem az elrejtését pedig egy "X" alakzathoz (az összes elrejtését). Jól működik, kis helyet foglal és nem zavaró.
Nagyon hálás vagyok a tanácsokért! Köszönöm!
Üdv,
ALbeeeee -
ALbeeeee
csendes tag
válasz
Delila_1
#5552
üzenetére
Találtam én is egy megoldást (részben) a problémára.
Adott cellához bárhová helyezhető megjegyzés:
ADATOK > ÉRVÉNYESÍTÉS > FIGYELMEZTETŐ ÜZENET > (PIPA) A cella kijelölésekor figyelmeztetés jelenjen meg > Alatta pedig kitölthető a figyelmeztetés tetszés szerint-----------------------
A végeredmény bárhol elhelyezhető, és a megadott cellát kijelölve automatikusan megjelenik
-----------------------
Nem méretezhető______________________
>> Delila_1 << Használni viszont a te megoldásodat fogom. Bevált! -
ALbeeeee
csendes tag
válasz
Delila_1
#5556
üzenetére
Igen, próbálkoztam én is többféle megoldással. Most azon agyalok, hogy készítek két gombot (két ellipszis - zöld, piros)
És az egyik bekapcsol a másik ki. (De nem tudom a kattintáshoz rendelni.) Ez, hogy néz ki?------------------
Tudtok ajánlani valami ebookot, vagy könyvet ami által kicsit fejleszthetem a VB "tudásomat" ? Nagyon jó lenne az alapokat jobban átvenni, hogy ezek a dolgok ne okozzanak problémát. Nagyon szépen köszönöm!
-
ALbeeeee
csendes tag
válasz
Delila_1
#5552
üzenetére
HUHH! EZ NEM SEMMI!
TÖKÉLETESEN MŰKÖDIK! BIZTOSAN SOK DICSÉRŐ SZÓ HANGZOTT MÁR EL EZEN A FÓRUMON, DE AZT KELL, HOGY MONDJAM KÖSZÖNÖM! 1000 hála neked! --- Na, de még egy kérdést engedj meg. VB-ben van olyan opció ami azt figyeli, hogy fölé húzom az egeret? Tehát a segítségeddel létrehozott téglalap nem kattintásra jelenik meg és tűnik el, hanem a fölé húzással? Ez természetesen csak hab a tortára. Az eddigi segítségedet tényleg nagyon köszönöm! Üdv, ALbee -
#5551
ALbeeeee
csendes tag
Fire/SOUL/CD
#5547
ALbeeeee
csendes tag
válasz
Fire/SOUL/CD
#5547
üzenetére
Köszönöm válaszod! Bocsi, hogy kicsit értetlenül fogalmaztam.
Nem kell másik munkalapra vinni, sőt még 2 m se kell.
Vegyük az előző példát:
b2 - komment
A komment (mondjuk) jelenjen meg a monitor közepén. Amikor elhúzom a kurzort a B2 fölött (vagy rákattintok) a monitor közepén jelenjen meg a megjegyzés.
Valami ilyesmi
Az a probléma, hogy nem tudom rögzíteni. Az lenne a vágyam, hogy megmondom neki, hogy ITT jelenj meg és azt csinálja
-
ALbeeeee
csendes tag
válasz
Delila_1
#5545
üzenetére
Köszönöm! A problémám az elrejtésnél jön ki, azt el felejtettem leírni. Ahogy írtad tényleg el tudom húzni, és át is tudom méretezni, de ezután amikor az adott cellára húzom, hogy megjelenjen automatikusan a jobb felső sarkához igazítja. Nem is a nyíllal lenne gondom hanem, hogy nem ott jelenik meg ahol én akarom. Szövegdobozt tudok úgy használni mint megjegyzést? Adott cellát akár kattintással kijelölve kis KOMMENT jelenjen meg AZ ÁLTALAM MEGHATÁROZOTT HELYEN? Előre is köszönöm! Üdv, ALbee
-
ALbeeeee
csendes tag
Sziasztok, a kérdésem az lenne, hogy a MEGJEGYZÉSEKET tudom e valamilyen formában rögzíteni. Azt szeretném, ha mondjuk megjegyzést fűzök a B1-es cellához az NE KÖZVETLEN MELLETTE jelenjen meg, HANEM EGY ÁLTALAM MEGHATÁROZOTT HELYEN. Kíváncsian várom van e valakinek megoldása az alábbi helyzetre. Köszönettel, ALbee
Nem méretezhetőÚj hozzászólás Aktív témák
Fferi50- Assassin's Creed Shadows Collector's Edition PC
- Árváltozás + játék DVD: Watch Dogs Deadsec Edititon
- Árváltozás + játék DVD: Splinter Cell Blacklist the 5th Freedom Edition
- Calman Home for LG licenc (PGenerator támogatással) ÚJ ára 66.000 Ft.
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Lenovo ThinkPad X13 Gen 2 i5-1145G7 16GB 512GB FHD+ 100% sRGB - 1 év garancia
- FELVÁSÁRLÁS A GYŐRÚJBARÁTI BOLTUNKBAN!
- Lenovo Legion Go Z1 Extreme + kiegészítők 6 hónap Garancia Beszámítás Házhozszállítás
- ÁRGARANCIA! Épített KomPhone i5 10400F 16/32GB/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 12 Pro Max 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3376, 100% Akkumulátor
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest