- Samsung Galaxy Watch7 - kötelező kör
- Redmi Watch 5 - formás, de egyszerű
- Yettel topik
- Xiaomi 14 - párátlanul jó lehetne
- Android alkalmazások - szoftver kibeszélő topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- OnePlus Nord 5 - lehűti a kedélyeket
- Poco F7
- Hatalmas kedvezménnyel nyit az Ulefone új csúcsmodellje
- Telekom mobilszolgáltatások
Hirdetés
-
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
-
VGYke
addikt
Ez nagyszerű fórum! Sok helyen vagyok jelen, de ez lett a kedvencem! Itt nincs cseszegetés: "hülye vagy, tudni kellene, olvass vissza, ..." Itt igazi segítség van
Aki autodidakta módon mint én, kb. hobbiból excel makrókkal kisérletezik, ez után a fórum után másodiknak ajánlom ezt az oldalt. Igaz a linkben már egy konkrét kulcsszóra történő keresés szerepel, de így jobb a példa. Bocs az offért. -
Delila_1
veterán
Egy kicsit egyszerűsítettem a 2. adatnál. Kevesebb változó, kevesebb számolás.
El tudod küldeni? Megnézném, mi lassítja.
A változók nevét érdemes úgy meghatározni, hogy utaljanak a tartalmukra.Sub Kitolt_1()
Dim WS As Worksheet
Dim sor%, usor%
Set WS = Sheets("Lekérdezés")
usor% = WS.UsedRange.Rows.Count
For sor% = 1 To usor% - 1
Cells(sor% + 1, 1) = WS.Cells(sor%, 1)
szla = WS.Cells(sor%, 2)
Cells(sor% + 1, 2) = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
'......hasonló 8. oszlopig
Next sor%
End Sub -
VGYke
addikt
válasz
Delila_1
#12973
üzenetére
Ismét köszönöm!
Most olyan "problémába" ütköztem, hogy írtam egy primitív makrót, ami nem csinál mást, mint a Lap nevű munkalapról, a makró indításának helyén lévő munkalapra másol adatokat. Na jó, van benne minimális képletezés is, itt, ott.
Sub Kitolt()
Lap = "Lekérdezés"
smax = Sheets(Lap).UsedRange.Rows.Count
For L = 1 To smax - 1
Cells(L + 1, 1) = Sheets(Lap).Cells(L, 1)
szla = Sheets(Lap).Cells(L, 2)
b = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
Cells(L + 1, 2) = b
'......hasonló 8. oszlopig
Next L
End Sub
Van 8 kitöltendő oszlop és jelenleg 850 sor. A makró kb. 4-5 perc alatt fut le, 50% proci terhelés mellett, pedig nem annyira gagyi a gép. Ez így normális és ilyen feladatot ne makróval, hanem excel képletekkel oldjak meg? -
Delila_1
veterán
válasz
ro_bert17
#12982
üzenetére
Igen.
Egy füzet minden lapján add meg ezt a formátumot. Azt is beállíthatod, hogy a cellák függőleges igazítása középen legyen, meg minden mást, amit még szeretnél.
A mentés másként menüpontban Munkafüzet.xlt (sablon) nevet adj neki.
Ekkor a
C:\Documents and Settings\Felhasználó\Application Data\Microsoft\Excel\XLSTART
könyvtárba menti el, és minden újonnan megnyitott füzetednek ez lesz a formátuma. -
ro_bert17
őstag
Sziasztok!
Lehet oltári butaságot fogok kérdezni, szóval előre is bocsi ha így van.
Excel 2003 esetében be lehet azt állítani, hogy alapértelmezésében a cellaformázás szám értéke ne 2 tizedesjeggyel szerpeljen (konkrátan ne legyen tizedesjegy), és egyből ezres csoportra formázza a számokat?
Olyanra gondolok, mintha pl. a normal.dot word sablont személyesebbre szabod. -
WGW
csendes tag
válasz
Delila_1
#12980
üzenetére
Sajnos bonyolultabb...
Mindig más és más szűrési feladatot kell elvégezni. Az egyik munkalapon kellene pl. legördülő választéklistákból beállítani a szempontokat és majd eszerint kellene, hogy önállóan létrehozza az adott munkalapon a szűrést.
(Plusz ugye új beállításoknál felül kell írnia az előző szűrést is maradéktalanul.) -
Delila_1
veterán
Lehet, hogy félreértem, mert túl egyszerűnek tűnik a feladat.
Tehát a Munka1 lapodon vannak az adataid 12 oszlopban (A:L).
Ezeket szűrd kedved szerint, majd indítsd aSub másol()
Sheets("Munka2").Columns("A:L").Delete
Sheets("Munka1").Select
Dim ter As Range
Set ter = Range(Range("A1"), Range("L" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
ter.Copy Sheets("Munka2").Cells(1, 1)
End Submakrót. Ez a Munka2 lapra másolja az aktuális szűrésnek megfelelő adatokat, amiket már rendezhetsz pl. a dátumok szerint.
-
#12979
WGW
csendes tag
Apollo17hu
#12978
WGW
csendes tag
válasz
Apollo17hu
#12978
üzenetére
Nagyon féltem ettől a választól.
Excelben elboldogulok egy darabig, de az Access már kínai. De lehet, hogy ezek szerint nem fogom megúszni, hogy beletanuljak.
Azért köszi!
-
#12978
Apollo17hu
őstag
WGW
#12977
Apollo17hu
őstag
Szia!
Amit te szeretnél, az szerintem már adatbáziskezelés témakör. Sokkal gyorsabban és egyszerűbben megoldható lenne a problémád, ha az adataidat nem Excel-ben, hanem egy adattáblában tárolnád, amit egy adatbáziskezelővel (akár MS Access) vizsgálnál. A többtízsoros makró helyett néhány soros SQL-lekérdezéseket lehetne írni a problémádra, a listázott eredményt pedig akár exportálhatnád is Excelbe.
-
WGW
csendes tag
Most egy (számomra) komplex makró-megoldáshoz szeretném a segítségeteket (egész délután bújtam a fórumot és egyéb oldalakat, bocsánat, ha elkerülte a figyelmemet).
Egy 12xtöbb10ezres adathalmazom van, amit mindig más szempont alapján szeretnék leválogattatni adott munkalapra egy makróval. A szempontokat beviteli listákon lehetne kiválasztani, amelyeknek az elemei adott oszlopok elemeivel megegyeznek.
Pl: A-oszlopban dátumok, B-gyümölcsnevek, C-származási ország, D-minőség, E-ár stb.
A beviteli listán pl. szeretném kiválasztani a kiváló minőségű Urdu dinnyéket (tehát 3 külön lista). A lefuttatás után az adott munkalapon jelenjen meg ezután hogy mikor és mennyiért érkezett az árú.Extraszuperbónusz volna, ha pl. havi átlagárban mutatná.
Előre is köszönöm a segítséget! -
WGW
csendes tag
-
Delila_1
veterán
Az ActiveSheet.UsedRange.Rows.Count az aktív lap utolsó kitöltött sorának a számát adja, az ActiveSheet.UsedRange.Columns.Count pedig az oszlopét.
Ebből következik, hogy a ter nevű változónak az A1 cellától az utolsó használatban lévő oszlopig és sorig tartó területet adjuk meg. Ebben a tartományban keressük a meghatározott szöveget.
Én is autodidakta módon tanulok.
-
Delila_1
veterán
Az ActiveSheet.UsedRange.Rows.Count az aktív lap utolsó kitöltött sorának a számát adja, az ActiveSheet.UsedRange.Columns.Count pedig az oszlopét.
Ebből következik, hogy a ter nevű változónak az A1 cellától az utolsó használatban lévő oszlopig és sorig tartó területet adjuk meg. Ebben a tartományban keressük a meghatározott szöveget.
Én is autodidakta módon tanulok.
-
-
bazsi83vp
senior tag
-
bazsi83vp
senior tag
Az lenne a kérdés:
kell csinálnom x cellából álló tömböt 0-40 közti véletlen számokkal ez ugye a =VÉL()*40 képlet, na ezt lehúzom mondjuk 10 sorra, kész is az adatoszlopom... De ezeket hogyan tudom növekvő sorrendbe tenni? Mert ha hozzányúlok újragenerálja és megint összevissza lesz mind. ( $ nem segített) -
WGW
csendes tag
válasz
cousin333
#12955
üzenetére
Nagyon köszönöm, fellelkesített a lehetőség. De valahogy nem működik.
Nos az egyik oszlopban dátumok vannak, a másikban pedig az ehhez tartozó értékek. Ha ebből pontgrafikont készítek, akkor ráhúzhatom a polinom trendvonalat, amire szükségem van a későbbiekben.
Megcsináltam, amit írtál, de azt írja, h. a beírt képlet hibás.
-
Delila_1
veterán
A makró kiírja a Blabla szöveget tartalmazó cella címét, és beteszi a sor és az oszlop változókba a címnek ezt a két adatát, további felhasználás céljára.
Sub keres()
Dim ter As Range, CV As Variant, sor As Long, oszlop As Long
Set ter = Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, _
ActiveSheet.UsedRange.Columns.Count))
For Each CV In ter
If CV = "Blabla" Then
sor = CV.Row: oszlop = CV.Column
MsgBox CV.Address
Exit For
End If
Next
'A sor és oszlop változó további felhasználása
'...
'...
End Sub -
VGYke
addikt
válasz
poffsoft
#12959
üzenetére
Köszönöm válaszod!
Most, újabb problémám adódott, amit pár (szor 2-3) baráti sör után hazaérve, nem tudok megoldani makróval, (konkrétan Do-Lop feltételes ciklussal) egy feladatot és nagyon idegesít!
Keresek az egész munkalaopon egy adott szöveget, legyen az "Blabla". Ahol megtalálja, annak az oszlop, sor számára vagyok kíváncsi.
Sikerült olyan ciklust írnom, hogy csak a CTR-alt-del segített
-
aisten
csendes tag
Újabb probléma adódott, addig működött a rendszerbeállítás szerinti , és . amíg csak 1 frissülő adatbázis volt.
Viszont két helyről is importálja az adatokat, az egyiknél . a másiknál , használnak, így minden frissítés után az egyik adat nem értelmezhető. És át kell állítgatni hogy újra jó legyen.
Valami megoldás esetleg? -
poffsoft
veterán
nem lehetne elnevezned a tartományokat mondjuk H : H ="forrás" és G : G ="cél"?
és cells helyett a range("forrás").range("A" & I) -vel hivatkozni a cellákra?Vagy másik megoldás a lapodhoz rendelni egy subot, ami minden változáskor megkeresi, hogy hová került a H oszlop fejléce. De ezt nem mondanám elegánsnak...
-
VGYke
addikt
Lejárt az időm, bocs... a fentiekhez annyit, hogy egy megoldást tudok:
Do - Loop feltételes ciklussal megkeresem mi van a "H1"-be mint oszlop elnevezésbe írva és ha az ami, oda kell beírni az adatokat (példámban ahol vége a ciklusnak, 8, ha törlünk, hozzáadunk oszlopokat, akkor más).
De nincs erre valami elegánsabb, rövidebb megoldás? -
VGYke
addikt
Sziasztok! Írtam egy rövid makrót. A lényege, a G oszlop celláiban "balba szöveg, számok, blabla szöveg" van és ennek minden variációja és ebből kell kibányászni csak a számokat, átalakítva bizonyos formátumra, majd beírni H oszlop adott sorába.
Kb. így néz ki a magró (rendesen végzi a dolgát):
Do
C = ""
Szam = ""
I = I + 1
C = Cells(I, 7)
For J = 1 To 60
Nev = Mid(C, J, 1)
If Not IsNumeric(Nev) Then
Nev = ""
End If
Szam = Szam + Nev
Nev = ""
Next J
Aszam = Left(Szam, 8) + "-" + Mid(Szam, 9, 1) + "-" + Mid(Szam, 10, 2)
Cells(I, 8) = Aszam
Loop Until Cells(I + 1, 7) = Empty
Viszont ez a makró, csak G-ből olvas (Cells(...,7)) és H-ba ír (Cells(...8).
Na de ha az eredeti táblából valaki kitöröl, vagy hozzáad egy oszlopot, rossz helyről fog olvasni és írni.
Van erre valami megoldás? Tehát 7 és 8 oszlop érték egy változó legyen, és ha törölnek egy oszlopot, ez az érték 6,7, stb. -
#12956
cousin333
addikt
Gabriel_86
#12934
cousin333
addikt
válasz
Gabriel_86
#12934
üzenetére
Üdv!
Neked is mondanám, hogy szerintem rosszul közelíted meg a kérdést. Nem a grafikonból kellene kibogarászni a függvényt, hanem az eredeti adatokból, amin a grafikon is alapszik.
Ennek megfelelően az alábbi képletet kell egymás melletti 3 cellába, egyszerre(!) beírni, majd Ctrl + Shift + Enter:
=LIN.ILL(Y; X^{1\2})
ahol X és Y az értékpárok megfelelő (és egyenlő elemszámú) függőleges tömbjei.
Ha csak az egyik együttható kell, akkor az mehet így is egy tetszőleges cellába, sima Enterrel nyugtázva. (ez a négyzetes tagé):
=INDEX(LIN.ILL(Y; X^{1\2});1)
Ez meg a sima, első hatványhoz tartozó:
=INDEX(LIN.ILL(Y; X^{1\2});2)
-
cousin333
addikt
Mindenképpen makróban kellene, vagy jó lesz függvénnyel is? Utóbbi esetben jelölj ki 6 egymás melletti cellát (ahova az értékeket akarod), majd írd be ezt a függvényt:
=LIN.ILL(Y;X^{1\2\3\4\5})
ahol X és Y értelemszerűen a függvény X és Y adatai, mindkettő függőlegesen, oszlopba rendezve. Ha beírtad, akkor Ctrl+Shift+Enter (tömbképletet hoz létre), és egymás mellett láthatod az ötödik, negyedik... nulladik hatvány együtthatóját.
-
erich85T
csendes tag
Sziasztok!
Ismét egy makró kérdéssel fordulok hozzátok. Olyan programra lenne szükségem ami egy adott oszlop adatai alapján sorokat szúr be az azonos adatok után.
Elvárás, hogy belehessen állítani, hogy melyik oszlop adatai szerint szúrja be a sorokat a táblázatba.
pl.: legyen egy A, B és C oszlopból álló táblázatunk, ez
A - B - C
1 - a - 32
2 - a - 43
3 - a - 32
4 - d - 12
5 - d - 21
6 - v - 45
7 - v - 5
8 - b - 333ebből a táblázatból ezt szeretném makróval kapni:
A - B - C
1 - a - 32
2 - a - 43
3 - a - 324 - d - 12
5 - d - 216 - v - 45
7 - v - 58 - b - 333
Valakinek erre van megoldás, programja?
Köszönöm,
Erik
-
#12948
WGW
csendes tag
Fire/SOUL/CD
#12942
WGW
csendes tag
válasz
Fire/SOUL/CD
#12942
üzenetére
Zseniálisak vagytok, épp nekem is jól jön ez a megfejtés.
Kicsit tovább kellene lépnem: A polinom függvény változóit külön cellába kellene pakoltatnom (5-ös polinom, az 6 cella ugye...), mert számolnom kell velük. -
#12947
Fire/SOUL/CD
félisten
aisten
#12946
-
aisten
csendes tag
Sziasztok!
Olyan problémára keresnék megoldást, hogy adatot importálok egy oldalról
ahol a százalékos érték ponttal van írva, és ahhoz hogy az excel tudja formázni, vesszőre
kellene cserélni. Például az importált adat 1.030% és amire kellene cserélni az 1,030%
megköszönném ha valaki tudna rá megoldást -
#12943
Fire/SOUL/CD
félisten
Gabriel_86
#12941
válasz
Gabriel_86
#12941
üzenetére
Ja és még annyit, hogy ezt eseményhez is rendelheted, azaz nem kell külön gomb, hogy lefusson a makró.
Nyomsz egy jobb egeret a Chart-ot tartalmazó lapfülön(ami az esetedben Munka1 nevű) , majd Kód megjelenítése és jobb oldalra meg bemásolod ezt
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then Lekerekítetttéglalap_Kattintás
End Sub -
#12942
Fire/SOUL/CD
félisten
Gabriel_86
#12940
válasz
Gabriel_86
#12940
üzenetére
Így érthető, kösz.
Az fontos, hogy bizonyos esetekben elkerülhetetlen, hogy objektumokkal dolgozz, azaz a set segítségével, megfelelő objektum típust hozz létre, mert csak akkor érhető el számos tulajdonság. Másrészről túlbonyolítottad ezt a kérdést, én leegyszerűsítettem.
Sub Lekerekítetttéglalap_Kattintás()
Dim MyChart As Chart
Dim MyTrendLine As Trendline
Set MyChart = ActiveSheet.ChartObjects("Diagram 1").Chart
Set MyTrendLine = MyChart.SeriesCollection(1).Trendlines(1)
Range("C1") = MyTrendLine.DataLabel.Text
Set MyTrendLine = Nothing
Set MyChart = Nothing
End Sub -
#12940
Gabriel_86
csendes tag
Fire/SOUL/CD
#12935
Gabriel_86
csendes tag
válasz
Fire/SOUL/CD
#12935
üzenetére
Ez a programkód és ide fel is raktam: [link]
A probléma még mindig az, hogy a makró direktbe beírja a rögzítéskori trendvonal képletét és mindig ugyanazt illeszti be, függetlenül attól, hogy a grafikon adatai változnak és így a trendvonal képlete is.
Lekerekítetttéglalap_Kattintás Makró
'
Range("C1").Select
ActiveCell.FormulaR1C1 = ""
Range("C2").Select
ActiveSheet.ChartObjects("Diagram 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).Select
ActiveChart.SetElement (msoElementTrendlineNone)
ActiveChart.SeriesCollection(1).Trendlines.Add
ActiveSheet.ChartObjects("Diagram 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).Select
With Selection
.Type = xlPolynomial
.Order = 2
End With
Selection.DisplayEquation = True
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "y = 0,0421x2 - 3,4177x + 203,38"
Range("C2").Select
End SubVmi megoldás?
-
poffsoft
veterán
válasz
Faterkam
#12932
üzenetére
Igen, én konkrétan az excel alapbeállításait gyanúsítottam meg, hogy ott állítódott el valami.
De most hogy mondod, lehet, hogy a linkeket akarja automatikusan frissíteni, és mivel nincsen net, ezek a folyamatok (a net válaszra várás) zárolják a táblát...
Vagy nálad sincsen net, amikor excelezel? -
#12936
poffsoft
veterán
Fire/SOUL/CD
#12935
poffsoft
veterán
válasz
Fire/SOUL/CD
#12935
üzenetére
Mondjuk az engem is érdekelne, egy grafikonból hogyan tudod kiszedni a polinom képletét.
Ha jól értem, olyan makrót keres, ami magától lefut a grafikon adatainak változ(tat)ásakor, és az új adatokra illesztett polinom képletét mindjárt ki is másolja egy adott cellába... -
#12935
Fire/SOUL/CD
félisten
Gabriel_86
#12934
válasz
Gabriel_86
#12934
üzenetére
"mert fix értékként szerepel a kódban."
Betennéd a kódot, mert ezt valahogy nem tudom magam elé képzelni...
(Ha kódot illesztesz be, akkor a hsz írásakor majd használd a programkód gombot) -
#12934
Gabriel_86
csendes tag
Gabriel_86
csendes tag
Kedves Profik!
Van egy komoly problémám, amiben a segítségeteket kérem:
Egy grafikonról szeretném a trendvonal (másodfokú polinom) képletét kimásolni és felhasználni a cellákban, mint függvényvt. Nagy nehezen rájöttem, hogy makróval meg lehet csinálni, de az a baj, hogyha a grafikon változik a makró által kimásolt trendvonal képlete a régi marad, mert fix értékként szerepel a kódban.
Sürgős válaszra lenne szükségem, mert 2 napja ezzel szívok és holnapra kész kell lennem.Előre is köszönöm!
-
#12933
Apollo17hu
őstag
Apollo17hu
őstag
Sziasztok!
Próbálgatom az adatok érvényesítése funkciót, de nem tudom úgy beállítani, ahogy szükségem lenne rá.
Konkrétan egy cellatartományra szeretném beállítani, hogy kizárólag háromféle értéket vehessen fel:
- "W" szöveges értéket,
- "L" szöveges értéket,
- vagy bármilyen egész számot.A "W" vagy "L" beállítása listából sikerült, az egész szám beállítása is, de a kettő együtt már nem megy. Sőt, a "W" és "L" beállításakor azt sem tudom megoldani, hogy kisbetűket ("w", "l") se fogadjon el.
A fentebb vázolt problémáimra milyen megoldást tudtok javasolni?
köszimod: Excel 2010
-
Faterkam
addikt
válasz
poffsoft
#12929
üzenetére
Ez egy egyszerű táblázat, partner neve, címe, elérhetőségei és a weboldal linkje, megjegyzés. Ezeken ellenőrzi hogy a cég kitette e a bannerünket. A megjegyzésbe meg beírja igen vagy nem. Pár rekordonként menteni. és ekkor dobja ezt a hibát. A gépén lehet valami gond, mert nekem átküldte a táblát, és én nem tudtam előhozni a hibát...
-
Zenebohoc
tag
válasz
Delila_1
#12927
üzenetére
Szia!
Nagyon szépen köszönöm gyors válaszod és segítséged.
A Tartalomjegyzéket létrehozó rutin problémamentesen működik.
Az elrejtő esetében csak a a fájlhoz tudtam a rutint rendelni (Excel 2003).
Annak egy lapjához nem.
Bemásoltam rutinodat.
A tanácsot Rem mögé rejtettem
Sub Megjelenit()
Rem A következő makrót a Tartalomjegyzék laphoz rendeld, ez figyeli a G1 cella változását.
Futtatáskor ebbe a sorba kér egy End Sub-t
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then Rejt Target.Value
End Sub
Persze a 3. rutint is bemásoltamIsmét hála és köszönet.
-
-
Delila_1
veterán
válasz
Zenebohoc
#12924
üzenetére
A Tartalomjegyzék legyen az első lap. Ezen az első makró létrehozza a tartalomjegyzéket.
Sub Tartalom()
Dim lap%, nev$, sor%
Cells(2, 2) = "TARTALOMJEGYZÉK"
sor% = 4
For lap% = 2 To Worksheets.Count
nev$ = Worksheets(lap%).Name
Cells(sor%, 2).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & nev$ & "'!A1", TextToDisplay:=nev$ & " A1 cella"
sor% = sor% + 1
Next
Cells(2, 2).Select
End SubA következő makrót a Tartalomjegyzék laphoz rendeld, ez figyeli a G1 cella változását.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then Rejt Target.Value
End SubA 3. makró modulba kerül, mint az első.
A Tartalomjegyzék lap G1 cellájába írd a karaktert, amit ha tartalmaz a felsorolás valamelyik tagja, az annak megfelelő fül elérhető-, a többi lap rejtett lesz. Az összes lap felfedéséhez töröld a G1 tartalmát.Sub Rejt(keres)
Dim lap%, lel, sor%
If Cells(1, 7) = "" Then
For lap% = 2 To Worksheets.Count
Sheets(lap%).Visible = True
Next
Else
keres = "*" & keres & "*"
For sor% = 4 To Cells(Rows.Count, "B").End(xlUp).Row
With Cells(sor%, 2)
Set lel = .Find(keres, LookIn:=xlValues)
If Not lel Is Nothing Then
Sheets(sor% - 2).Visible = True
Else
Sheets(sor% - 2).Visible = False
End If
lel = False
End With
Next
End If
End Sub -
Zenebohoc
tag
Sziasztok!
Egy makroban kérném segítségeteket. A fájlom rengeteg füllel rendelkezik melyben navigálni egyre nehézkesebb.
Van-e olyan makrótok, mely egy adott fájl pl. "Tartalom" fülébe úgy listázza az összes többi fül nevét, hogy azokra kattintva elérhető a kívánt lap (fül).
Ez lenne a minimál verzió.
Lehetne-e fokozni úgy hogy a kilistázott csapatból megadnék karaktereket és utána csak azok a fülek lennének láthatóak, melyekben szerepel a karakter?
Előre is kösz. -
poffsoft
veterán
válasz
Faterkam
#12902
üzenetére
Csak ennél a fájlnál van probléma?
Nincsen közös használatúvá téve? (office xp pl: Korrektúra/munkafüzet közössé tétele és védelme ).
Ezt azért szokták bekapcsolni, hogy ha több felhasználó módosítgatja a táblát, akkor visszakereshető benne, ki, mikor és mit módosítottt....Meg persze ha közösen használnak egy munkafüzetet.Ahhoz a gépnek nem kell hálózaton lennie, hogy az excel érvényesítse a megosztás szabályait/korlátozásait...
Esetleg egy új munkafüzetet kellene létrehozni, és abba laponként bemásolni ezt a táblát, laponként, ha másképp nem megy...
-
alfa20
senior tag
Sziasztok,
lehet lehetetlent kérek, de én egy olyan védelmet szeretnék Excel táblába hogy bizonyos oszlopok csak bizonyos felhasználok láthassanak, de ne keljen jelszót használni.
pl:
elkészítem egy táblázatot, "I" és "J" oszlopokban értékek szerepelnének, ezt a két oszlopot csak én láthassam és Béla, de ha Józsi megnyitja akkor ő ne láthassa a ezt a két oszlopot.erre van mód, vagy csak ha a megnyitáshoz jelszót állítók be?
segítséget előre is köszönöm!
-
Faterkam
addikt
-
DjSteve85
csendes tag
Üdv Kedves Urak/Hölgyek!
Egy képlet összeállításának segítségére kérnék egy ügyes illetékest!
Amire kellene: Egy adott összeg(ek) lecímletezéséhez. HUF pénznemben. A legkevesebb címletet használva.
OpenO.-t használok (-nék)
Válaszotokat előre is köszönöm!
Üdv: Isti -
#12912
Fire/SOUL/CD
félisten
föccer
#12909
válasz
föccer
#12909
üzenetére
Ez meg egy makrós megoldás.
Function CountOfDistinctValues(MyTypeSrcRange As Range) As Long
Dim MyCollection As New Collection
Dim MyCell As Range
Dim MyTypeSrcRange As Range
Application.Volatile
For Each MyCell In MyTypeSrcRange
On Error Resume Next
MyCollection.Add MyCell.Value, CStr(MyCell.Value)
Next MyCell
On Error GoTo 0
CountOfDistinctValues = MyCollection.Values.Count
End FunctionSajnos most nem tudom tesztelni(nincs Office a gépen), csak megírtam, remélhetőleg így is működik...
-
föccer
nagyúr
Üdv!
Van olyan függvény, amivel egy tömbben szereplő értékek (szám, vagy szöveg), összeszámolja, hogy mennyi különböző elem van?
Tehát ha van 100 elemet tartalmazó táblám, amiben 25 db "A" 25 db "B" 25 db "C" 25 db "D" elem van, akkor a függvpny eredménye a 4 lesz, mert 4 különböző elem van a tömbben.
Súgó nam segített, Office online szintén zsákutca..
Köszi,
üdv, föccer
-
#12908
Delila_1
veterán
exceltanulo
#12907
Delila_1
veterán
válasz
exceltanulo
#12907
üzenetére
Nem biztos, hogy jól értem a feladatot.
Az A1-be tettem a Most() függvényt, a C1-be az érvényesítést, ahol az egyik kiválasztható elem a "konvertálás szöveggé". Mikor ezt a lehetőséget választod, az A1 pillanatnyi értékét a kért formában bemásolja a B2 cellába. A makrót a laphoz kell rendelned.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" And Target = "konvertálás szöveggé" Then
Range("B2") = Format(Cells(1,1), "yymmdd-hh-mm-ss")
End If
End Sub -
#12907
exceltanulo
csendes tag
exceltanulo
csendes tag
Köszönöm az eddigi segítséget. Ismét lenne egy újabb kérdésem:
Termék kódot generálok a =Most() függvénnyel az alábbi formátumban: 120217-10-39-31 (tehát, ééhhnn-ó-pp-mm)
Hogy ne változzon folyamatosan úgy oldottam meg, hogy a rendeltetési helyén egy legördülő menüből lehet kiválasztani az éppen aktuális kódot, ami hivatkozik a kód generálás cellájára. (így ez már nem változik tovább, ellentétben a =most() függvénnyel)
Kérdésem az lenne, hogy tudom ezt az adatot szöveggé alakítani? Tehát a cél az lenne, hogy amit látok a cellában, valóban azt is tartalmazza, jelen esetben:120217-10-39-31Esetleg makróval meg lehet oldani, ha én a B2-es cellába szeretném a kódot, hogy rakok egy gombot mellé és arra kattintva valahogy szövegként beillesztené nekem ennek a függvénynek a tartalmát ilyen módon? De ebben az esetben az lenne az ideális ha a makró megvizsgálná, hogy üres-e a cella, ha igen létrehozza a kódot benne, ha nem akkor mondjuk rákérdezne, hogy valóban újat akarsz generálni? Igen - Nem
Előre is köszönöm a segítséget ismételten!
-
Zomb€€
őstag
Sziasztok!
2 Pivot tábla értékeit szeretném egy 3. munkalapra összemásolni, meg is írtam rá a makrót, és F8-al szépen végigfut, viszont ha nem lépésenként akarom futtatni, akkor kifagy :S Mi lehet a gond? A Pivotok egy külső adatbázisból szedik az adatokat, de ha be van frissítve elvileg nem is nyúl a kapcsolathoz.
-
Faterkam
addikt
Sziasztok!
A kolléganőmnek állandóan ezt írja ki az excell. otthon dolgozik, egyedül, nincs hálózatban. nem értem...
közös használat miatt nem lehetett menteni 'összevontpptfeb16.xls' módosításait. Az Excel 7793D000 néven egy ideiglenes fáljt hozott létre a módosítások megörzésére. Vagy más néven menti a fáljt, vagy elveszti a módosításokat.
Ideiglenes fálj mentése Módosítások elvesztése.
ötlet?
-
#12901
m.zmrzlina
senior tag
DopeBob
#12900
m.zmrzlina
senior tag
válasz
DopeBob
#12900
üzenetére
Nem tudom milyen Excel verziót használsz de a 2007 előttieknél ez a módszer működik. Valójában arról szól, hogy beállítod a kérdéses lap visible tulajdonságát xlSheetVeryHidden-re majd egy jelszóval levéded a projektet. Excel97-tel kipróbáltam, működik.
2007-nél kicsit más a helyzet ott ez az út makrómentes (*.xlsx) fájllal nem járható. Vagy csak én csinálok valamit rosszul.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Kazy Computers - Fehérvár - Megbízható?
- Samsung Galaxy Watch7 - kötelező kör
- Mibe tegyem a megtakarításaimat?
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Lexus, Toyota topik
- 3D nyomtatás
- gban: Ingyen kellene, de tegnapra
- Redmi Watch 5 - formás, de egyszerű
- Microsoft Excel topic
- Kuponkunyeráló
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Path of Exile 2 early access kulcs
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Samsung Galaxy A23 128GB Kártyafüggetlen 1 év Garanciával
- HIBÁTLAN iPhone 13 Pro 128GB Alphine Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3024, 91% Akkumulátor
- Designer 4K Monitor - BenQ PD-3200-U
- 35" ASUS ROG Swift PG35VQ curved GAMER monitor
- AKCIÓ! Dell Latitude 5550 notebook - Intel Ultra 7 165U 16GB DDR5 RAM 1TB SSD Intel Graphics WIN11
Állásajánlatok
Cég: FOTC
Város: Budapest