- Yettel topik
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Magisk
- Mobil flották
- Egy szenzor, két zoomkamera: újraírta a Huawei a mobilfotózás történetét
- Bemutatkozott a Poco X7 és X7 Pro
- Xiaomi 11 Lite 5G NE (lisa)
- Samsung Galaxy A56 - megbízható középszerűség
- Google Pixel topik
- Samsung Galaxy A55 - új év, régi stratégia
-
Mobilarena
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
-
Attas
aktív tag
Sziasztok! Egy formátumos problémába szaladtam bele és valahogy nem lelem a jó megoldást.
A1 cella tartalma: 06H125125L
Ezt az amit én adok meg.
B1 cellát szeretném ez alapján automatikusan kitöltetni úgy, hogy ez legyen a végeredmény:
*P06H125125L*
Próbálozásaim:
1.) B1 = A1
Egyéni formátum "*P"Normál"*"
Ez akkor jól működik ha A1 cellában csak szám van. De ha betű a vége már nem jó.2.) B1 = A1
Egyéni formátum "*P"@"*"Ez jól működik, de a végén az L és a * között szóköz lesz.
Összefűzés sem jó mivel a végén a *-ot ne fűzi hozzá. A végeredményben nem lehet szóköz.
Amúgy a B1 vonalkód leszVárom ötleteiteket. Köszönöm előre is!!!
-
Mutt
senior tag
válasz
Gandalf80
#16176
üzenetére
Hello,
...egy legördülő listából válassza ki a megfelelő települést a felhasználó?
Megoldható az ELTOLÁS (OFFSET) függvénnyel.
Ha C2-ben van a kiválasztandó irányítószám és A és B oszlopokban az irányítószám és a település, akkor ezt a függvényt használd az érvényesítés (validation) forrásának:=ELTOLÁS($B$1;HOL.VAN(C2;$A:$A;0)-1;0;DARABTELI($A:$A;C2))
Ennek a megoldásnak az a hátránya, hogy az igénylőnek akkor is ki kell választania az értéket a legördülő listából, amikor csak 1 találat van.
Ezért csináltam 2 makrót használó megoldást is neked, amely ezeket ki tudja küszöbölni.
Az egyszerűbb megoldásnál (F2 és G2-es mező) a fenti megoldás van makróval kiegészítve, ami ha
- nincs találat kiírja azt vagy
- egyértelmű találatnál a keresett értéket és
- ha több találat van akkor pedig kírja hogy válasszanak.Ennek a program kódja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F2").Address Then
'megszámoljuk hány találatunk van
Select Case WorksheetFunction.CountIf(Range("A:A"), Range("F2"))
Case 0
'F2-es cellától jobbra kiírjuk a választ
Range("F2").Offset(, 1).Value = "Nem található település"
Case 1
Range("F2").Offset(, 1).Value = WorksheetFunction.VLookup(Range("F2"), Range("A:B"), 2, False)
Case Is > 1
Range("F2").Offset(, 1).Value = "Válassz a listából!"
End Select
End If
End SubA másik megoldás (F10 és G10-ben), annyival több hogy több találat esetén fel dob egy ablakot, amiből választhat a felhasználó.
Feltettem ide a mintát.
üdv.
-
#16191
Delila_1
veterán
Töki bácsi
#16189
Delila_1
veterán
válasz
Töki bácsi
#16189
üzenetére
Több kép válogatásához feltettem ide egy fájlt. A rar-ban lévő képeket tedd a C meghajtón a Képek mappába a próbához, utána a Munka2 lapon írd át az útvonalakat és fájlneveket a saját képeidhez.
-
#16190
lappy
őstag
Töki bácsi
#16189
lappy
őstag
válasz
Töki bácsi
#16189
üzenetére
A laphoz kell rendelned ezt a rövid makrót: lapfülön jobb klikk, kód megjelenítése, a jobb oldalon kapott üres lapra másold be.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = 1 Then
ActiveSheet.Shapes("Picture 1").Visible = True
ActiveSheet.Shapes("Picture 2").Visible = False
End If
If Target = 2 Then
ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 2").Visible = True
End If
End If
End SubA "Picture 1" és "Picture 2" nevében a számot írd át a saját képeid sorszámára.
-
#16189
Töki bácsi
aktív tag
Töki bácsi
aktív tag
Sziasztok!
Képet szeretnék egy területen megjeleníteni attól függően, hogy mi egy cella értéke. Teszem azt a cella értéke 1 akkor jelenjen meg egy ló, ha 2 akkor egy szamár, ha 3 akkor meg egy nyúl.
Tudtok ebben segíteni? -
#16187
Mr.Csizmás
titán
Mr.Csizmás
titán
üdv,
adott 12 db űrlap officeben (excel vagy word formában is okés), mindegyiken van 2-3 db "beikszelhető" rész. szeretnék olyat csinálni, hogy paraméterek kitöltésével a program beikszeli, illetve választással kijelölve, hogy melyik számúakat szeretném kinyomtatni a 12-ből, és akár egy all-in, vagy adott darabokat nyomtatva.
ezt mivel tudnám megvalósítani? excel? office?
-
pecze
aktív tag
Sziasztok
Táblázatkezelési problémám van, nem Excel hanem Google Docs beli táblázatkezelő, de hátha tudtok megoldást.Van egy form, ami egy táblázatba gyűjti az adatokat, Sheet1 munkalapra, ezek alapadatok. Ezeket felhasználva készítettem egy másik Sheetet (Sheet2), hivatkozva a Sheet1 adataira, ami ugyanúgy működik, mint Excelben: pl. Sheet1!A1.
A Sheet1-be folyamatosan jönnek be az adatok és minden rendben is működik, de a Sheet2-ben lévő cellahivatkozások változnak, ha egy új adat jelenik meg a Sheet1-ben, mégpedig a sorszám valamiért eggyel növekszik.A folyamat:
a Sheet2 A51-es cellában ez van =left(Sheet1!A453;10), tartalmaz adatot a Sheet1!a453-as cella, jól működika Sheet2 A52-es cellában ez =left(Sheet1!A454;10), a Sheet1!A454 még nem tartalmaz adatot, majd ha formról bejön valamilyen adat, akkor beleíródik, így most az Sheet2 A52-es cella látszólag üres
bejön a várt adat a Sheet1 A454-be, erre a Sheet2 A52-es cella értéke megváltozik és a következő lesz:
=left(Sheet1!A455;10), tehát a sorérték megváltozik és nem veszi figyelembe a bejött értéket, hanem átlépiés így tovább, ha jön a következő rekord a formról szintén nem jelenik meg, mert megint növeli a sorértéket és =left(Sheet1!A456;10) lesz belőle
ha újra lemásolom a képleteket húzással, akkor persze megjavul, mindaddig, amíg nem jön egy újabb rekord a Sheet1 lapra, mivel húznám a képletet, így dollározni vagy indirectezni nem tudom, van e valami megoldás?
-
poffsoft
veterán
válasz
klambi
#16179
üzenetére
igen, itt a válasz lentebb..
Még annyi kiegészítés, hogy esetleg a mostani dátumot a
=ÉV(MA())
használatával alkalmazhatod.
Amúgy szövegből dátumot is lehet csinálni:
=DÁTUMÉRTÉK(A1 & "." & B1 & "." & C1)vagy a te esetedben pl számokból is lehet dátumot csinálni:
=DÁTUM(A1;1;1)így a képleted:
=CSONK(YEARFRAC(DÁTUM(A1;1;1);MA();3);0)Ha egyéb megoldásokra is vágysz:[link]
-
#16183
klambi
addikt
Excelbarat
#16182
klambi
addikt
válasz
Excelbarat
#16182
üzenetére
feladatom szerint valami függvénnyel kéne... tipp ötlet?
-
-
Geryson
addikt
Ez a képlet így egyáltalán működőképes (a második részre gondolok)
(SZUMHATÖBB(Forrás!L:L;Forrás!A:A;B11;Forrás!H:H;"EUR";Forrás!F:F;"<>AB";Forrás!F:F;"<>CD";Forrás!F:F;"<>EF";Forrás!F:F;"<>GH")*1,27)+(SZUMHATÖBB(Forrás!L:L;Forrás!A:A;B11;Forrás!H:H;"EUR";Forrás!F:F;"=AB";Forrás!F:F;"=CD";Forrás!F:F;"=EF";Forrás!F:F;"=GH")))
Tehát azt szeretném, hogy az első kritériumnak megfelelően (AB, CD, EF, GH kizárva) szummázzon ÉS bruttósítson (*1,27) fel és a második kritériumnak megfelelően is szummázzon (csak AB, CD, EF, GH) és adja a kettő összeget össze.
Sajnos hiába van az "AB" benne a forrásanyagban, felbruttósítja (tehát nem a második feltétel szerint jár el).
-
Gandalf80
csendes tag
Postai irányítószámok!
A megoldandó probléma:
A következő problémával állok szemben, amiben szeretnék segítséget kérni.
Létrehoztam egy táblázatot, ahol a települések nevei automatikusan megjelennek, ha valaki az előző cellába beírja az irányítószámot. Tehát a C oszlop cellájába beírja valaki az irányítószámot és a D oszlop cellájában megjelenik a település.
A probléma lényege, hogy egy irányítószámhoz több település is tartozhat.
Pl.:
8354 Karmacs
8354 Vindornyafok
8354 Zalaköveskút(Az FKERES függvény és HA függvény kombinációját és a Posta letölthető irányítószámokat tartalmazó Excelt használtam fel).
Kérdés
Megoldható-e, hogy ilyen helyzetekben egy legördülő listából válassza ki a megfelelő települést a felhasználó?
Az INDIREKT függvény alkalmazására is gondoltam, de csak azokra az esetekre szeretném alkalmazni, amikor a fenti példa áll elő.Bármilyen ötletet, javaslatot szívesen fogadok.
Köszönöm.
-
poffsoft
veterán
-
Mutt
senior tag
válasz
csferke
#16166
üzenetére
Hello,
...viszont olyan cella is amelyben legördülő listából kellene kiválasztani...
Az alap INPUTBOX-al nem tudod ezt megoldani, de készíthetsz egy sajátot is. Ehhez kell egy Userform amire egy ComboBox-ot kell tened. Ez képes legördülő listákat kezelni.A minta fájlomat feltettem ide.
A makró lényege lent látható:
Private Sub UserForm_Initialize()
Dim vErvenyesitesTipusa
Me.Caption = Title
Me.lPrompt = Prompt
On Error Resume Next
'az érvényesítés 0 és 7 közötti értéket vagy hibát vehet fel
vErvenyesitesTipusa = ActiveCell.Validation.Type
'attól függően hogy melyik érvényesítés van kicsivel másabb lesz a beviteli lap
Select Case vErvenyesitesTipusa
Case 3 'xlValidateList = legördülő lista
Me.cbBevitel.RowSource = ActiveCell.Validation.Formula1 'a combobox-nak megadjuk az érvényesítés tartományát
Me.cbBevitel = ActiveCell.Value 'kitesszük a korábbi értéket
Case Else
Me.cbBevitel.ShowDropButtonWhen = fmShowDropButtonWhenNever 'letiltjuk a legördülő nyilat
Me.cbBevitel = ActiveCell.Value 'kitesszük a korábbi értéket
End Select
End SubRemélem a minta segít a megoldásban.
üdv.
-
Bee2013
csendes tag
Kedves Fórumozók!
Szeretnék egy kis segítséget kérni excel-lel kapcsolatban!
A kérdésem: a gmail-ből kiexportált (csv) névjegyeket szeretném excelben úgy megnyitni, hogy az egyes infokat külön cellákban kapjam meg, ne ömlesztve (vesszővel elválasztva) az első cellákban.
Kérlek írjátok le a megnyitás helyes menetét! (angol nyelvű MS Excel 2010-t használok)
Előre is köszönöm, ha tud valaki segíteni! -
-
csferke
senior tag
Sziasztok!
Az alábbi kóddal adatot rendelek egy cellához. A Subrutinban több ilyen van, több cellába viszek be adatot és az egész egy gomb-hoz van rendelve.
Dim Prompt, Title, Default, MyValue
Prompt = "Prompt"
Title = "Title"
xpos = 1200
ypos = 4500
Range("E15").Select
Default = ActiveCell.Value
Prompt = "Faktura broj"
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
ActiveCell = MyValueVan viszont olyan cella is amelyben legördülő listából kellene kiválasztani a megfelelőt. Tehát a Range rááll a cellára és az InputBox helyett kellene, hogy megnyíljon a lista amelyből ki kell választani a megfelelőt. Enter vagy egér-klikk-re lépés a következő programsorra amely az aktív cellába teszi a kiválasztott adatot.
Ezt hogyan lehet kivitelezni?
köszi
-
BenJoe80
senior tag
Várjál - megtaláltam.
Ráment majdnem két napom, de megy Excel 2003-ban is! A következőképen működik:Amikor kész volt a táblázat akkor az Adatok\Lista\Lista létrehozása... menüvel létrehoztam egy listát, ahol a megjelenő ablakban ki lehet pipálni a "Lista rovatfejekkel" menüt, majd <OK>.
Ekkor a rovatfejeknél megjelennek legördülő menüpontok, de azokat el lehet tüntetni az Adatok\Lista\Átalakítás tartománnyá menüvel, majd <Igen>.
Innentől kezdve nincsenek a legördülő menüpontok a rovatfejeknél és az oszlop rovatfejére (vagy bárhova), majd a "Rendezés - növekvő" vagy "Rendezés - csökkenő" ikonokra kattintva lehet tetszés szerint rendezni a táblázat adatait.
Hát ennyi. Nem bonyolult, csak addig, amíg rájön az ember.
Mindegy - megérte!
-
#16159
lappy
őstag
Sixkiller6
#16157
lappy
őstag
válasz
Sixkiller6
#16157
üzenetére
http://office.microsoft.com/hu-hu/excel-help/kor-kor-es-kor-sav-diagram-letrehozasa-HA001117937.aspx
szia!
itt talalod meg -
rukh
senior tag
Kedves Szakértők!
Két kérdésben szeretném kezdőként kérni a segítségeteket:
1. Az A oszlop celláiban egymás alá személyek nevei kerülnek, a B oszlop celláiban kinyitható/legördíthető menüből az adott személyekhez tartozó cégek neve választható ki - idáig eljutottam. Hogyan valósítható meg, hogy a C oszlopban a munkahelyek mellett automatikusan megjelenjen azok címe (kb. 50 munkahely van, ezért a HA függvény macerásnak tűnik)?
2. Hogyan lehetne azt elérni, hogy ha egy cellába beírok egy, a mainál későbbi dátumot, akkor a tőle jobbra lévő cella színe automatikusan legyen egy adott szín (pl. piros), ha pedig elérjük az adott dátumot, változzon meg a színe egy másikra (pl. zöld)?
Előre is kösz a segítséget,
Rukh -
Mutt
senior tag
Hello,
A logaritmikus ábrázolás mellett van pár egyéb megoldás is azon esetekre amikor a számok között túl nagy eltérés van.
.
Mintaként feltöltöttem ide egy ilyet.Ezeken az oldalakon be is mutatják, hogyan műkődnek:
http://peltiertech.com/WordPress/broken-y-axis-in-excel-chart/http://tushar-mehta.com/excel/newsgroups/broken_y_axis/tutorial/index.html
http://www.andypope.info/charts/brokencolumn.htmüdv.
-
#16149
lappy
őstag
Bocimaster
#16119
lappy
őstag
válasz
Bocimaster
#16119
üzenetére
[link]
Szia!
Bocs a késésért, de nem volt egyszerű rájönni hogyan is működik.
Annyi a változás hogy a feladat napló munkalapon nem lehet automatikusan a táblázatot színezni (sötétebb világosabb cella színezés), csak manuálisan. -
#16139
Delila_1
veterán
Sixkiller6
#16137
Delila_1
veterán
válasz
Sixkiller6
#16137
üzenetére
A radír hasznos dolog.
-
#16137
Sixkiller6
őstag
Delila_1
#16134
-
#16134
Delila_1
veterán
Sixkiller6
#16129
Delila_1
veterán
válasz
Sixkiller6
#16129
üzenetére
2003-asnál magasabb verzióban az & ".xls" helyére ".xlsm"-et írj.
Sub Ment()
Dim nev$
nev$ = Left(ActiveWorkbook.Name, Application.WorksheetFunction.Search(".", ActiveWorkbook.Name) - 1)
nev$ = nev$ & "_" & Sheets(1).Range("A1") & ".xls"
ActiveWorkbook.SaveAs Filename:=nev$
End Sub -
#16132
bozsozso
őstag
Sixkiller6
#16130
bozsozso
őstag
válasz
Sixkiller6
#16130
üzenetére
Nem jó úgy sem ha hozzáteszem a 000-t. Bár látszólag a formátum nem változik ami feltünő az az, hogy ahogy elveszem vagy hozzáteszem a 000-t akkor a cella jobb oldala helyett a bal oldalra rendeződik.
-
#16130
Sixkiller6
őstag
bozsozso
#16128
Sixkiller6
őstag
válasz
bozsozso
#16128
üzenetére
próbáld visszafelé, csapj hozzá 3 nullát és countif-fel
mondjuk sheet2!B1.be: =countif(sheet1!A:A;"A1&"000")
vagy hogy a 0-kat elrejtse: =if(countif(sheet1!A:A;"A1&"000")>0;countif(sheet1!A:A;"A1&"000");"")fkeres másra való, ott a megtalálás után, az adott sor egy másik oszlopából venne ki egy értéket.
-
#16129
Sixkiller6
őstag
Sixkiller6
őstag
Macro segítség kéne
milyen scripttel tudom egy adott néven lementeni a workbookot, ha a használandó név mondjuk Sheet!A1-ben van. pontosabban a filenévnek lenne egy fix része, és hozzá kéne csapni a Sheet!A1-et stringként, és ilyen néven kéne menteni. -
bozsozso
őstag
Sziasztok,
Kis segítségre lenne szükségem.
Adott egy táblázat 2 munkalappal.
Mind a két munkalap A oszlopában cikkszámok szerepelnek annyi különbséggel, hogy az egyik munkalapon a cikkszámok 000-val vannak kiegészítve(pl.:1234567 megfelelője 1234567000). A 000 nélküli cikkszámok B oszlopába szeretnék valami jelölést tenni (x,ok,talált teljesen mindegy mi), hogy a másik munkalapon megtalálta a 000-val kiegészített megfelelőjét. Ha nem talált akkor valami eltérő jelölés kerüljön oda.
Létezik erre valami függvény? Az FKERES-el próbálkoztam, de nem sikerült. Próbálam a bal függvénnyel levágni az első 7 karaktert, de akkor viszont megváltozott a formátum és nem tudtam olyan formátumba állítani, hogy megtalálja. Ha pedig kézzel berögzítettem vagy kitöröltem a 000-kat úgy rendben volt minden. Igaz itt nem szöveget írtam az adott cellába hanem kiemeletem egy adott oszlopot és azt írtam be. Ez is jó megoldás számomra, mert az adott oszlopot is tudom használni. Tehát megfelelne a fenti függvény is csak nem tudom hogyan tudnám ilyen módon megkerestetni a másik munkalapon az adatokat.
Előre is köszönöm a segítséget.
-
BenJoe80
senior tag
válasz
Delila_1
#16096
üzenetére
Az 1. kérdésre: Bocsi, de be kellett fejeznem időre.
A 2. kérdésere: Alkalmaztam, csak utólag.Különben meg nem értem mi bajod? Az, hogy nem ültem tűkön, amíg valaki nem válaszol? Amit írtatok most már tudom és a későbbiekben tudom hasznosítani. Ezért hagy ne kérjek már elnézést!
-
BenJoe80
senior tag
Ezt nem hiszem el! Ilyen hülye nem lehetek! Lenne szíves valaki elmagyarázni, hogy hogy a sunyiba lehet azt megoldani, hogy a sorba rendezéskor a táblázat fejléceit ne rendezze? Nem bírok rájönni, pedig biztos valami egyszerű dolog a megoldás. A vicc, hogy van olyan táblázatom, ahol ez nem így működik, csak nem emlékszem, hogy mit csináltam.
A segítséget előre is köszönöm!
-
-
#16118
lappy
őstag
Bocimaster
#16117
lappy
őstag
válasz
Bocimaster
#16117
üzenetére
Nem látszol annak csak nem igazán értem hogy ez mi így nem tudok segíteni!
És mi a feladat??! -
#16117
Bocimaster
csendes tag
lappy
#16116
Bocimaster
csendes tag
-
#16116
lappy
őstag
Bocimaster
#16115
lappy
őstag
válasz
Bocimaster
#16115
üzenetére
Ezt milyen függvény?!
Angolul vagy magyarul még egyszer leírnád! -
#16115
Bocimaster
csendes tag
Delila_1
#16113
Bocimaster
csendes tag
válasz
Delila_1
#16113
üzenetére
nagyon köszi
BUT
=ZVOLIT(POZVYHLEDAT(Kiadásoktbl[@kategória];táblázatKategóriák[kategória neve];0);táblázatKategória1[Ügyiratok, megkeresések];táblázatKategória2[Adatbázisok];táblázatKategória3[Egyeztetések, tárgyalások];táblázatKategória4[Munkacsoportok, projektek, Képzés, előadások];táblázatKategória5[Nem kategorizált];táblázatKategória6[6. kategória];táblázatKategória7[7. kategória])
A kiemelt résznél hibát ír, és még nem jöttem rá miért...
-
#16114
lappy
őstag
Bocimaster
#16112
lappy
őstag
válasz
Bocimaster
#16112
üzenetére
Delila1 megelőzött!!
-
#16113
Delila_1
veterán
Bocimaster
#16112
Delila_1
veterán
válasz
Bocimaster
#16112
üzenetére
Látogass el ide!
-
#16112
Bocimaster
csendes tag
Bocimaster
csendes tag
Sziasztok!
Egy kérdésem lenne:
Legördülő listába lehet -e függvényt tenni?
leírás:
főkategória: 5 elem
alkategória: amik a fő kategória alá tartozik mondjuk 3 elemmel alkategóriánként.
- ha a főkat.ból kiválasztom az elsőt, akkor mellette lévő oszlopban - a hozzá tartozó alkat. 3 eleméből válasszak!
válaszokat előre is köszönöm
U.I.: - ha véletlenül lenne valakinek egy pöpec feladatlist (munkahelyre- vagy feladat tükörnek is hívják)
nagyon szívesen megnézném.....
-
Delila_1
veterán
Ebben az esetben a 2. tartományba csak 1 db X-et ír.
Két makróval:Sub X_ek()
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%
sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
Beiras sorF%, sorA%, oszlopE%, oszlopU%
sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
Beiras sorF%, sorA%, oszlopE%, oszlopU%
End SubSub Beiras(sorF%, sorA%, oszlopE%, oszlopU%)
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
End Sub -
lappy
őstag
válasz
baderoli
#16101
üzenetére
Ha kipróbálod az általad alkotott makrót akkor rájössz a hibákra. Mondjuk én sem értek nagyon hozzá, de kevés próbálgatással rá lehet jönni a hibára!
Érdemes előtte próbálgatni!
De itt van egy működő progi!Sub X_ek()
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%
sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
End Sub -
Delila_1
veterán
válasz
baderoli
#16101
üzenetére
Csak a Dim kezdetű sort nem kell újra beírni.
Meg lehetne úgy is oldani, hogy az első makróban van az értékadás, és onnan hívjuk meg a másodikat, az értékek átadásával, akkor nem kellene ismételni a for-next ciklust. Ez egy olyan egyszerű makró, hogy nem érdemes külön bajlódni vele.
-
baderoli
tag
válasz
Delila_1
#16100
üzenetére
Köszönöm! Ha két különböző területet szeretnék megjelölni egy makrón belül,akkor elég csak megismételnem a lezáráson belül? Pl:
Sub X_ek()
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
End SubHa jó a logikám akkor a D42:H71 és J42:L71 területre írja be. De szerintem a Dim sor nem is kell kétszer és talán a Next sem. Amúgy ez milyen nyelven van ? Visual Basic?
Megoldottam. A képletet ahogy írtam azt jelenti, hogy mind a 4 paraméternek meg kell felelnie, nekem meg vagy, vagy, vagy, vagy. 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- SD-kártyát vennél? Ezért ne csak a GB-ot nézd! – Tech Percek #9
- A fociról könnyedén, egy baráti társaságban
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Macron betiltatná az EU-ban a közösségi médiát a 15 év alattiaknak
- Gaming notebook topik
- Atomenergiával dübörögnek tovább az Amazon adatközpontok, SMR-ek is jöhetnek
- Luck Dragon: Asszociációs játék. :)
- Plazma TV topic
- Háztartási gépek
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- További aktív témák...
- Epson Workforce DS-530II Dokumentum szkenner
- Bomba ár! Lenovo ThinkPad X390: i5-G8 I 16GB I 256GB SSD I 13,3" FHD Touch I Cam I W11 I Gari!
- Bomba ár! Lenovo ThinkPad T490s - i7-8GEN I 16GB I 256SSD I 14" WQHD HDR I Cam I W11 I Gari!
- Bomba ár! Lenovo X1 Yoga 2nd - i7-7G I 8GB I 256SSD I 14" WQHD Sérült I W11 I CAM I Garancia!
- AKCIÓ! Google Pixel 9 Pro 5G 128GB 16GB mobiltelefon garanciával hibátlan működéssel
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest