-
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
-
Fferi50
Topikgazda
válasz
zoombiee
#50774
üzenetére
Szia!
Ezt próbáltad már:
Beállítások Adatvédelmi központ - Az adatvédelmi központ beállításai - Makróbeállítások - Az összes makró engedélyezése
Másrészt nézd meg a VBA nézetben a Tools - References menüben, hogy be vannak e pipálva a szükséges könyvtárak, legalább ezek:
(Egyáltalán, makróbarátként (vagy binárisként) van mentve a fájl?)
Üdv. -
TillaT
tag
válasz
zoombiee
#50595
üzenetére
Szia!
- Köszönöm a javaslatot. Ezzel már próbálkoztam. Reméltem, hogy az OptionButton és CheckBox elemekhez is lehet saját zoom tulajdonságot rendelni, amivel az űrlap zoom tulajdonságától függetlenül egyénileg is állít(gat)hatók, de sajnos makróban is csak olyan lehetőségeket ismerek, amik nekem nem hozzák, amit szeretnék.
- Igen, a láthatóság lenne a lényeg.
Ezeknek a vezérlőknek a Caption tulajdonságát korrekten lehet változtatni és testre szabni, de a grafikájukat nem. Legalábbis az én ismereteim korlátozottak ezen a téren (is). Trükköznöm kell így egy kicsit velük. -
Pakliman
tag
válasz
zoombiee
#48814
üzenetére
Szia!
Egy "lista összevonási" lehetőség:
Munka1 munkalap A oszlopban értékek
Munka2 munkalap A oszlopban értékek
Munka3 munkalap az "összesítő":
A1 -> =DARABTELI(Munka1!A:A;"<>")-1 Munka1-en az értékek száma
B1 -> =DARABTELI(Munka2!A:A;"<>")-1 Munka2-n az értékek száma
C2-től -> =HA(SOR()-1<=$A$1;Munka1!A2;HA((SOR()-1)-$A$1<=$B$1;INDIREKT("Munka2!" & CÍM((SOR()-$A$1);1;;1));""))Az A1-ben és B1-ben lévő képletek beépíthetők a C2-be.
-
#48817
Fire/SOUL/CD
félisten
zoombiee
#48814
válasz
zoombiee
#48814
üzenetére
Olyan legördülő lista kellene, amiben több oszlop van, szóval pl. ilyen?
Ha az adatoknak mindenképpen külön munkalapon kell lenniük, akkor kell hozzá makró, ha megoldható, hogy egy munkalapra kerüljenek az adatoszlopok/tartományok(mint a képen), akkor makró sem kell feltétlenül."Ezzel az a gond, hogy mindkét oszlop bővül, ha az első után kihagyok x sort, akkor egy idő után mindig el kell csúsztatnom a 2. munkalap hivatkozásait"
Ezt sajnos nem értem... Ha a 2 oszlopban/tartományban nem azonos számú kitöltött cella van, akkor a legördülő listának nincs értelme... -
Fferi50
Topikgazda
válasz
zoombiee
#47049
üzenetére
Szia!
Az a probléma, hogy a szövegben levő idézőjelek megszakítják a szöveget, az utána következő részt (és az előtte levőt is persze) nem tudja értelmezni.
Ha idézőjeleket szeretnél a szövegben elhelyezni, akkor meg kell duplázni azokat:"ThisWorkbook.Sheets(""Munka1"").Range(""K5"") = 5"
minden olyan helyen, ahol idézőjelet akarsz.
Üdv. -
Mutt
senior tag
válasz
zoombiee
#44797
üzenetére
Szia,
Látom Bobrooney már küldött jó megoldást.
Google Sheets App Script-et használ, a megadott VBA kódod ennek felel ott meg:
function CommandButton1_Click() {
var sheet = SpreadsheetApp;
var teszt1 = sheet.getActiveSpreadsheet().getSheetByName("Teszt1");
var teszt2 = sheet.getActiveSpreadsheet().getSheetByName("Teszt2");
var start_x = teszt1.getRange("C17").getValue();
var start_y = teszt1.getRange("D17").getValue();
teszt2.getRange(start_x, 3).setValue(start_y);
};Gombot pedig rajzolással tudsz létrehozni.
üdv
-
Bobrooney
senior tag
válasz
zoombiee
#44797
üzenetére
function myFunction() {var app = SpreadsheetApp;var activeSheet = app.getActiveSpreadsheet().getSheetByName("Teszt1");var Start_X = activeSheet.getRange("C17").getValue();var Start_Y = activeSheet.getRange("D17").getValue();var targetSheet = app.getActiveSpreadsheet().getSheetByName("Teszt2");targetSheet.getRange(Start_X , 3).setValue(Start_Y);} -
Fferi50
Topikgazda
válasz
zoombiee
#44162
üzenetére
Szia!
Nézd meg az Application.OnKey parancs lehetőséget. Itt elfogadja az ékezetes karaktereket is. Nem kell mást tenned, mint a munkafüzet megnyitásakor futtatni a billentyűzet hozzárendeléseket, bezáráskor pedig azok megszüntetését.
Pl Application.OnKey "é", "Makró1"
az é billentyű lenyomásakor futtatja a Makró1-t.
Érdemes a parancs helpjét megnézegetni kicsit: [itt]
Üdv.
Új hozzászólás Aktív témák
Fferi50- Luck Dragon: Asszociációs játék. :)
- Macska topik
- sziku69: Fűzzük össze a szavakat :)
- Xbox Series X|S
- Akciófigyelő: 25 000 forintos ajándék jár a Xiaomi Pad 8 tabletek mellé
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Kés topik
- 5.1, 7.1 és gamer fejhallgatók
- Samsung kuponkunyeráló
- Befutott a régóta várt, sok P-maggal kitömött, LGA1700-as Core sorozat
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Apple iPhone 15 Pro Max 256GB,Újszerű,Dobozaval,12 hónap garanciával
- Apple iPad 7 32GB (3 hó Garancia)
- ÁRGARANCIA!Épített KomPhone Ryzen 9 5900X 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Apple Watch Series 8 41mm GPS, Újszerű, 1 Év Garanciával
- HIBÁTLAN iPhone 13 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS4621
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest