Hirdetés
-
GAMEPOD.hu
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
-
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[ Szerkesztve ]
-
#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?
[ Szerkesztve ]
-
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
[ Szerkesztve ]
-
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...
[ Szerkesztve ]
-
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[ Szerkesztve ]
-
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...
[ Szerkesztve ]
-
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.
[ Szerkesztve ]
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Formula-1
- Vezeték nélküli fülhallgatók
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Mikrotik routerek
- Apple iPhone 16 Pro - rutinvizsga
- Sütés, főzés és konyhai praktikák
- Digitális Állampolgárság Program DÁP
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- PlayStation 5
- Garmin Instinct – küldetés teljesítve
- További aktív témák...
