-
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
-
lapa
veterán
üdv. van egy meglévő táblám egy ODBC queryvel, meg pár paraméterrel, amik korábban meg lettek adva.
én sose használtam a megoldást, de egyszer megmutatták hogy lehet hozzáadni paramétert, de valami kisebb jedi trükk kell hozzá.
a query toolbarban csak moddolni tudom a meglévő paramétereket, hozzáadni nem.
tekintve, hogy ez jópár éve volt, nem tudom már mit kell pontosan csinálni, megköszönnék egy lényegretörő eligazítást. köszönöm.
-
atesss
addikt
válasz Fire/SOUL/CD #8698 üzenetére
És a Sub mit csinál ?
Működik is a makró, Excelben már szépen néz ki, el is mentettem PRN-be (Formázott szöveg (szóközzel tagolt) ) - ez tűnt a legjobbnak.
De belinkelve a PH-ra összecsúszott: [link]
Van ötleted hogyan lehetne ezt pofásabban beírni hsz.-be ?
Persze kérdés hogyan férne el a rendelkezésre álló szélességben.A másik gond pedig a linkekkel van, mint kiderült (a próba topicban próbálgattam még: [link] ) a RIOS lecseréli a linkben lévő szóközöket "+"-ra.
Elejét vehetném a problémának, ha a linkekben lévő szóközöket lecserélném "%20"-ra.
De csak a linkekben lévőket, márpedig az Excel úgy tűnik még olyat sem tud a cserénél, hogy adott oszlopban lévő elemeken hajtsa csak végre a cserét.
Ráadásul a terméknevekben (ami szintén ebben a cellában van, csak már nem a [L":http://a] részben, ott is előfordul szóköz, azt nem kellene cserélni.
Bár ez ritka, ezt akár megoldom kézzel már. -
félisten
1. Sub vs. Function
Private Sub CommandButton1_Click()
Call My_SUB_Multiplication(5)
MsgBox (My_FUNC_Multiplication(5))
End Sub
Sub My_SUB_Multiplication(MyNumber As Integer)
Range("A1") = MyNumber * MyNumber
End Sub
Function My_FUNC_Multiplication(MyNumber As Integer) As Integer
My_FUNC_Multiplication = MyNumber * MyNumber
End FunctionDe belinkelve a PH-ra összecsúszott
Azért, mert a PH! törli a felesleges szóközöket(egynél több szóköz szavak közt vagy végén. (Ezen még egy kicsit agyalok, csak megint (még mindig) totálkáros a PH! ebben az időszakban, örülök, ha ez a HSZ elmegy (kb 6-7 perce próbálom küldeni)
márpedig az Excel úgy tűnik még olyat sem tud a cserénél, hogy adott oszlopban lévő elemeken hajtsa csak végre a cserét.
CTRL+H/Listába mind gomb, listából kijelölheted, hogy melyiken legyen a csere végrehajtva. [link]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
RoGGRR
csendes tag
Olyat tud valaki, hogy az Excelben az Oldalbeállításokat automatikusan át tudjam küldeni egy újonnan létrehozott munkalapra?
-
Sickboy25
addikt
sziasztok
excel 2007 -es verzió. Szükségem lenne az átmérő szimbólumára. Meg is leltem a szimbólumok között, viszont, hogy ne kelljen folyton belépni, beállítóttam az ascii decimális kódjára, de mikora táblázatba beütöm nem azt adja ki...
Hogy tudnám valahogy billentyűhöz rendelni? Köszi
"Az élet olyan, mint az ásás. Néha hátráltat egy- két gyökér, de annak jól odab*szol ásóval, azt’ haladsz tovább!"X360 gamertag: sickboyhun
-
Vizes Tomi
tag
Sziasztok!
Az lenne a kérdésem, hogy A Főnököm és én egy a szerveren található excel fájlt használunk/dolgozunk bele akár egyszerre. A munkafüzetet előtte közös használatúvá tettem. Most mégis azt tapasztalom, hogy a fejléc és lábléc amit kijavítottam az nálam jó. Míg a Főnöknél rossz. A szemlélődés előtt többször mentettünk mind a ketten. Ja és Excel 2007 ről van szó.
Ötlet?
-
félisten
válasz Sickboy25 #8711 üzenetére
Használd a vágólap megjelenítést és akkor korlátlan számban beillesztheted egy klikkel a szimbólumot.
(Mellesleg az "átmérő" szimbólum az unicode karakter, ezért nem fogod tudni ALT+NUMPAd segítségével megadni)Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Sickboy25
addikt
válasz Fire/SOUL/CD #8713 üzenetére
köszi
"Az élet olyan, mint az ásás. Néha hátráltat egy- két gyökér, de annak jól odab*szol ásóval, azt’ haladsz tovább!"X360 gamertag: sickboyhun
-
lazlo8
tag
van egy chart-om excel 2003-ban ami tartalmaz 4 oszlopat illetve egy trendvonalat. ezt így kaptam vkitől és szeretnék még 1 trendvonalat felvenni. odáig eljutottam hogy chart> add trend line és fel is vettem egy lineáris trendvonalat, ehez hogy tudok értéket hozzá rendelni?
-
atesz90
csendes tag
Sziasztok!
Tudna nekem valaki segíteni? Hogyan lehet azt megoldani, hogy adott egy tartomány A1:J100 tele számokkal 1-1000 között. Engem csak az első száz érdekel, hogy mennyi van belőle, ezt darabtelivel oldottam meg. Csak a gond az hogy azt egyenként kell beirni hogy:
=DARABTELI(A1:J100;1)
=DARABTELI(A1:J100;2)
=DARABTELI(A1:J100;3)
=DARABTELI(A1:J100;4) stbmert ha ezt "automatikusan kiegészíteném", akkor eltolódik a tartomány lefelé a szám pedig fix marad, így:
=DARABTELI(A1:J100;1)
=DARABTELI(A2:J101;1)
=DARABTELI(A3:J102;1)
=DARABTELI(A4:J103;1)De ez nekem így nem jó, tud valaki segíteni, hogy ne egyenként kelljen beírogatnom?
Előre is köszi! -
perfag
aktív tag
válasz atesz90 #8716 üzenetére
A képlet melletti oszlopba beírod 1, 2. Kijelölöd. A kijelölés bal alsó sarkára mozgatod az egérmutatót a kitöltő négyzetre itt, lenyomod, nyomva tartod, húzod lefelé, amikor 100-at mutat a kis súgó jel akkor felengeded.
A =DARABTELI(A1:J100;1)-ben az 1 helyébe a cella címét tedd, ahol az 1 van.
Ráállsz a szerkesztő lécen a kurzorral az A1:J100-ből előbb az A1-re és megnyomod az F4-et, majd a J100-ra és lenyomod az F4-et. Ezt kell kapnod:
=DARABTELI($A$1:$J$100;K1)
Ezt már lehúzhatod, csak a K1 fog változni.
Kép.
... majd mindezek után elolvasol egy kezdő felhasználóknak szóló könyvet. Mi is onnan tudjuk mindezt.[ Szerkesztve ]
-
Delila_1
Topikgazda
Még egyszerűbben, a K oszlop sorszámozását kihagyva:
valamelyik üres oszlop első sorába =darabteli($a$1:$j$100;sor())
Ezt kell lemásolni a 100. sorig.Bár nem baj, ha nem a sorazonosítóból kell kiolvasni az értéket.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz atesz90 #8716 üzenetére
Egy makrós megoldás, csak a "változatosság kedvéért"...
Private Sub CommandButton1_Click()
Dim MyFxs As WorksheetFunction
Dim Src_Range As Range
Dim Dest_Range As Range
Set MyFxs = Application.WorksheetFunction
'Melyik tartmányban számolja meg a számokat
Set Src_Range = Range("A1:B7")
'Eredménytáblázat kezdőcellája (bal-felső)
Set Dest_Range = Range("D1")
For i = 1 To 100
Dest_Range.Select
With ActiveCell
.Offset(i - 1, 0).Value = i
.Offset(i - 1, 1).Value = MyFxs.CountIf(Src_Range, i)
End With
Next i
Set MyFxs = Nothing
Set Src_Range = Nothing
Set Dest_Range = Nothing
End Sub[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
a.t.t.i.
senior tag
Tudtok abban segíteni hogy ecxelben lehet ugy keresni hogy a megjegyzésekben is megtegye?
sorry megtaláltam
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz a.t.t.i. #8721 üzenetére
A megjegyzésekben történő kereséshez itt egy makró.
A makró első sorában megadott területen megvizsgálja a megjegyzések tartalmát, megkeresi bennük a megadott szöveget (keres="alma"), majd az O oszlopban egymás alatt felsorolja a találatok címét, mellettük a P oszlopban a megjegyzés teljes tartalmát.Sub Megjegyz()
Columns("O:P").Select 'Itt változtass
Selection.ClearContents
Set ter = Range("A1:C10") 'itt változtass
keres = InputBox("Mit keresel?") 'itt változtass
sor = 1
For Each CV In ter
Set kom = Range(CV.Address).Comment 'aktuális cellához csatolt megjegyzés
If Not kom Is Nothing Then 'ha van megjegyzés
sz = kom.Text 'Megjegyzés szövege
If InStr(sz, keres) Then
Cells(sor, 15) = CV.Address 'itt változtass
Cells(sor, 16) = sz 'itt változtass
sor = sor + 1
End If
End If
Next
End Sub4 helyre írtam be, hogy "itt változtass".
A másodikhoz a saját területedet írd, a 3. és 4. az O, ill. a P oszlopot jelöli ki (15 és 16) a megjegyzés cellájának, és szövegének beírásához. Az első helyen az előző beírásokat törlöm az O:P oszlopokban, vagyis csak akkor írd át, ha a 15 és 16 értéket módosítottad.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mcll
senior tag
Sziasztok!
Nagyjából végignyálaztam az eddigi postokat (nem mind, mert rengeteg van) de nemigen találtam megoldást a problémámra. Kaptam egy feladatot amivel nem jutok dűlőre. Hozzáteszem a makrókkal még csak most ismerkedem, szóval nekem ez még nagyon új dolog.
A feladat amit meg kellene oldanom az az, hogy adott két különböző xls (pld. ex1.xls és ex2.xls), mindegyik három oszlopos. A makrónak mindkét fájlban a második oszlop tartalmát kellene összehasonlítania olyan módon, hogy ha az ex2 második oszlopában akárhol szereplő adatsor (ami egy számsor) NEM szerepel az ex1 második oszlopában, akkor az ex2 adott sorát egy külön fájlba (pl. result.xls) kiírja. Tehát CSAK azokat a sorokat kellene kiírnia a result.xls-be ami az ex2 második oszlopában valahol szerepel, de az ex1 második oszlopában sehol sem található. Remélem érthetően írtam le.
Itt egy példa:
ex1.xls:
1 342789443 béla
2 323457834 jános
3 123998645 béla
4 989342567 béla
5 221887547 gézaex2.xls:
1 221887547 géza
2 342789443 béla
3 989342567 béla
4 111222333 karcsi
5 323457834 jános
6 123998645 bélaÉs a fenti logika alapján a result.xls tartalma ez lesz:
4 111222333 karcsiTermészetesen valójában több ezer sorról van szó, ezért is kellene a makró hozzá. A két forrásfájlban az egyes sorok sorrendje eltérő, így a keresett adat bármelyik sorban lehet (ahogy az a fenti példában is látszik).
Nagyon megköszönném ha ebben tudna nekem valaki segíteni.
"Microsoft gives you Windows... Linux gives you the whole house."
-
Delila_1
Topikgazda
Sub hianyzok()
Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
Dim nev As Variant, adat As Variant
Windows("ex2.xls").Activate
Sheets(1).Select
usor = ActiveSheet.UsedRange.Rows.Count
sor_r = 1
For sor = 1 To usor
nev = Cells(sor, 2): adat = Cells(sor, 1)
Windows("ex1.xls").Activate
Sheets(1).Select
With Columns("B:B")
Set talal = .Find(nev, LookIn:=xlValues)
If talal Is Nothing Then
Workbooks("result.xls").Sheets(1).Cells(sor_r, 1) = adat
Workbooks("result.xls").Sheets(1).Cells(sor_r, 2) = nev
sor_r = sor_r + 1
End If
End With
Windows("ex2.xls").Activate
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Az első oszlopot sorszámnak néztem.
Sub Lel()
Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
Dim nev, adat1, adat2
Windows("ex2.xls").Activate
Sheets(1).Select
usor = ActiveSheet.UsedRange.Rows.Count
sor_r = 1
For sor = 1 To usor
nev = Cells(sor, 2): adat1 = Cells(sor, 1): adat2 = Cells(sor, 3)
Windows("ex1.xls").Activate
Sheets(1).Select
With Columns("B:B")
Set talal = .Find(nev, LookIn:=xlValues)
If talal Is Nothing Then
Workbooks("result.xls").Sheets(1).Cells(sor_r, 1) = adat1
Workbooks("result.xls").Sheets(1).Cells(sor_r, 2) = nev
Workbooks("result.xls").Sheets(1).Cells(sor_r, 3) = adat2
sor_r = sor_r + 1
End If
End With
Windows("ex2.xls").Activate
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Az If talal Is Nothing Then után lévő 3 sor helyett ezt írd be:
Workbooks("ex2.xls").Sheets(1).Rows(sor).Copy Workbooks("result.xls").Sheets(1).Rows(sor_r)
Remélem, ez 1 sorban látszik, a Copy után egy szóközzel következik a Workbooks.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mcll
senior tag
válasz Delila_1 #8734 üzenetére
Igen rendben van. Így egyszerűbb egy kicsit a script. Ráadásul ha több oszlop van akkor azok tartalmát is kiírja az új fájlba. Köszi.
Még egy kérdés. Van-e arra mód hogy a result.xls-t valamiképp előre formázzam? Értem ez alatt hogy adok neki fejlécet meg megadom az egyes oszlopok szélességét.
Vagy hol találhatok érthető leírást, segítséget a VB-hez, ahol ennek utána tudnék nézni (tehát egy kezdő számára).
[ Szerkesztve ]
"Microsoft gives you Windows... Linux gives you the whole house."
-
Delila_1
Topikgazda
Miért akarod makróval formázni a result.xls-t? Csináld meg gyalog, sokkal gyorsabb.
Ha fejléc is lesz benne, akkor a sor_r=1 helyett sor_r=2 kell, vagy ha a címek 2 sort foglalnak le, sor_r=3. A 3 sor helyett beírt 1 sor néhány változót is fölöslegessé tett, inkább megint beteszem a lecsökkent forráskódot újra.
Sub Lel()
Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
Dim nev
Windows("ex2.xls").Activate
Sheets(1).Select
usor = ActiveSheet.UsedRange.Rows.Count
sor_r = 2
For sor = 1 To usor
nev = Cells(sor, 2)
Windows("ex1.xls").Activate
Sheets(1).Select
With Columns("B:B")
Set talal = .Find(nev, LookIn:=xlValues)
If talal Is Nothing Then
Workbooks("ex2.xls").Sheets(1).Rows(sor).Copy Workbooks("result.xls").Sheets(1).Rows(sor_r)
sor_r = sor_r + 1
End If
End With
Windows("ex2.xls").Activate
Next
End SubHa az ex1.xls és az ex2.xls is tartalmaz címsort, a For sor=1 To usor is For sor=2 To usor-ra változik.
Az elmúlt héten (vagy előtte) többen több helyet ajánlottunk a VB megismeréséhez, lapozz kicsit vissza.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Livius
őstag
Hi!
Tudnátok adni linket, vagy írni valami rövid felvilágosítót a Solver használatához?Gigabyte GA-Z170-D3H, Intel Core i7-7700K, Corsair Vengeance 2x8GB DDR4-3600MHz, Intel 545s 256GB SSD, EVGA GeForce GTX 1060 GAMING 6GB
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
Nagy itt a csend, írok egy feladatot.
Az egyik iskolában szorobánnal tanulnak számolni a nebulók. Itt látható a leírása.
Meg kell oldani az otthoni gyakorlást, mégpedig Excelben.A lurkó beírja a számot az E1-be, bejelöli az A5:J11 tartományban a görgők helyét. Az alsó táblázatban (A15:J21) kell megjelennie a helyes kirakás képének.
Csakis függvényekkel történhet az alsó tábla kirakása, makróval esetleg ennek az elrejtése, felfedése.A felső tábla kitöltését ne nézzétek, nem érvényes.
Csak este érek rá megnézni a nagy halom megfejtést.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
biker
nagyúr
Delila!
Bocsi, hülye kérésem lenne.
Csináltuk azt a pc-árlistás sokfüles táblát veled, skypon. sok trükk volt benne.
Nos, frankón rajta felejtettem az eladott netbookon, amit persze jó gondosan leformáztam előtte
nincs meg nálad az a verzió, amit szerkesztettünk párhuzamosan nálad és nálam?Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
iwu
addikt
hali!
Láma kérdés:
Van egy excel file, megnyitom 2007excelben, és mindig egy adott cellára ugrik. Elmentettem úgy , hogy az a1en állok, ő akkor is ebbe a cellába ugrik bele megnyitás után. A köcsög .
Gondolom, ez valami bazi egyszerű dolog, de nem az én világom.
Valaki tudja a megoldást?
THX!
üdw,iwuajándék ló nem látja a fától a szódás a lovát...
-
félisten
Nincs makró? Mert alapban ahol áll a cellakurzor mentéskor, megnyitáskor is ott kellene lennie. Ha ez nem így van, akkor valaminek el kell mozdítania, az meg általában makró szokott lenni...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
iwu
addikt
válasz m.zmrzlina #8747 üzenetére
MAkró nincs, azt néztem.
a workbook open procedúrája hol van?ajándék ló nem látja a fától a szódás a lovát...
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eladó Steam kulcsok kedvező áron!
- Steames kulcsok jó áron eladóak!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz