-
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
-
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
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- magyar bill. - Lenovo ThinkPad Z13 G1 - AMD Ryzen R7 Pro 6850U, 13.3" 2.8K OGS érintőkijelző
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RX 7700 XT 12GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i3 10105F 16/32/64GB RAM RX 6600 8GB GAMER PC termékbeszámítással
- Dell és HP szerver HDD caddy keretek, adapterek. Több száz darab készleten, szállítás akár másnapra
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest