-
PROHARDVER!
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
-
#14553
Bocimaster
csendes tag
Bocimaster
csendes tag
Egy kis segítség kéne, lehet nem veszek valamit észre---
mért nem adja át - a fájl meg van nyitva ?
fuzet = "Járólista.xlsx"
ido1 = "2011.01"
ido2 = "2011.12"Windows("GigaStat.xlsm").Activate - itt leáll
Sheets("param").Visible = True
Sheets("param").Cells(3, 2) = ido1
Sheets("param").Cells(3, 3) = ido2
m = 1
Application.DisplayAlerts = FalseFor n = 41 To 835
Sheets("param").Cells(81, 3) = n
If n > 99 Then
s = Left(n, 1)
fuzet = "Járólista" + s + ".xlsx"
End If
.
.
.Az ösztön mindig többet ér az észnél.
-
#14554
Delila_1
veterán
Bocimaster
#14553
Delila_1
veterán
válasz
Bocimaster
#14553
üzenetére
Nem kell neki a kiterjesztés.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#14556
Delila_1
veterán
Bocimaster
#14555
Delila_1
veterán
válasz
Bocimaster
#14555
üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#14557
Bocimaster
csendes tag
Bocimaster
#14555
Bocimaster
csendes tag
válasz
Bocimaster
#14555
üzenetére
valaki nem tudja mivel lehetne bináris fájl-t valamilyen adatbázis formátumra hozni?
Az ösztön mindig többet ér az észnél.
-
fjani
tag
Sziasztok. Egy kis segítség kellene. A Szrt. honlapjáról letölthető a kenó játék eddig kihúzott összes nyerőszáma excel táblázatban. Azt hogyan tudnám megnézni hogy egy általam kiválasztott tetszőleges 10 nyerőszámot vagy pl 1-10-ig bármennyit, hányszor húztak, vagy mennyi jött ki ebből az általam kiválasztott 10-es halmazból a legtöbbször. Remélem érthető voltam, az excelt nagyon kezdő szinten tudom kezelni, magyarul statisztikákat akarok megnézni.
-
#14560
lappy
őstag
Bocimaster
#14557
lappy
őstag
válasz
Bocimaster
#14557
üzenetére
Az attól függ milyen az adathalmaz, de a BIN2DEC fgv próbálkozz!
Bámulatos hol tart már a tudomány!
-
Pá
addikt
Sziasztok!
Van egy oszlopom sok-sok számmal. Jellemzően 2-4 számjegy + minden esetben 2 tizedesjegy. Szóval valahogy így néz ki az oszlop.
22.04
345.06
24.50
1234.00
567.45
etcAzt szeretném, ha ez olyan formátumban jelenne meg, hogy minden esetben 5+2 számjegyből álljon a táblázat. Szóval a fenti példa így nézne ki:
00022.04
00345.06
00024.50
01234.00
00567.45Jó lenne makro nélkül megoldani, de végső esetben az is jöhet.
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
csferke
senior tag
Szia Delila,
nemrégen volt téma, hogy hogyan tüntessem el a Pivot táblából a nem szükséges sorokat. Ezzel a kóddal működik is.
Sub Elrejt()
Dim sor%, usor%
usor% = Cells(Rows.Count, "A").End(xlUp).Row
sor% = usor%
For sor% = usor% To 5 Step -1
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
Next
End SubFelmerült azonban egy új eset is. Ha az aktuális sor D oszlopában lévő szám negatív előjelű ez a sor meg kellene, hogy maradjon, látszódjon a Pivot-ban.
[ Szerkesztve ]
-
Bsony
tag
Sziasztok!
Olyan megoldást keresek, ami egy File-on belüli excel táblázatokból kikeresi az értéket,és vissza adja annak valamelyik oszlopában található értékét.
Tök ugyan úgy működne mint az fkeres, csak ez egy mappába keresi ki az excel fileokban lévő értéket, és úgy adja vissza annak az oszlopnak a sorában lévő értéket. na.
Remélem kb érthető mire gondolok.
-
Delila_1
veterán
válasz
csferke
#14569
üzenetére
Szia!
Meg is kell jelenítenie, hiszen csak a D=0 sorokat rejti el a makró, a negatívakat nem. Kipróbáltam, bár a makrót nézve is látszott, hogy negatív D értéknél nem rejti el a sorokat.
A kimutatásban a D oszlopban vannak az értékek? Ha nem, az
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
sorban írd át a "D"-t a megfelelő oszlop betűjelére.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
poffsoft
veterán
Üdv!
A következő problémám lenne:
van egy lekérdezésem, ami képletben így néz ki:
=PIArcVal(param1;param2; param3)a PIArcVal fv természtetesen egy automatikusan induló bővítményből jön, nem beépített fv.
Ennek az eredménye egy kétcellás "tömb", az elsőben egy dátum, a másodikban pedig egy szám az eredmény.
Nos, ha én ezt a függvényt szeretném közvetlenül egy makróban használni, hogy megkapjam mindkét eredményt, azt hogyan lehet? A VBA compile természetesen nem ismeri fel , a tömbös eredmény szerint meg szerintem nem fog menni a
myvar=PIArcVal(param1;param2; param3)
sem...elég zavarosnak tűnik, de remélem érthető voltam
(#14575) bugizozi: Viszont csak 95% körüli a kompatibilitás, excellel és worddel is. A "bonyolultabb", objektumokat, spéci formázásokat használó doksikon akad el, a többivel viszont megbirkózik az openoffice.
[ Szerkesztve ]
[ Szerkesztve ]
-
pirit28
csendes tag
Sziasztok !
Szeretnék a 14510-es kérdésemre visszatérni,amire Delila_1 megadta a tökéletes választ.
Viszont lenne ezzel kapcsolatban egy olyan kérdésem is,hogy mi van ha az A1-es cellában egy SUM függvény van amely egy összesítést végez el.Ebben az esetben mi lenne a megoldás ?Köszöntem !
-
Oly
őstag
Sziasztok
Adott néhány száz Excel munkafüzet, amiben X oszlop n sor van.
Szereném az összes fájlban lévő adatot egy Munkalapra másolni, hogy ne külön fájlokban legyenek, hanem egyben tudjam kezelni.
Van erre valami beépített lehetőség az Excelben, vagy makrózni kellene?A fájlnevek dátum szerint változnak... a Munkalapok is...
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Delila_1
veterán
válasz
pirit28
#14578
üzenetére
A makróban a $A$1 helyére azt a cellacímet írd, amitől megváltozik a SUM értéke, mert a makró a billentyűzetről történő bevitelt figyeli.
Ha egy tartománytól függ az A1 értéke, akkor ilyen legyen a makród:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:C20")) Is Nothing Then Then Range("C1") = Format(Now(), "hh:mm:ss")
End SubEz a B1:C20 tartományban történt változás következtében írja be a C1-be az időt. Ehelyett add meg a saját összegzendő tartományodat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
pirit28
csendes tag
válasz
Delila_1
#14580
üzenetére
Hú !!!
Köszönöm szépen,a megadott tartományos megoldás a legmegfelelőbb. Igaz 10 percembe telt míg rájöttem hogyan tudok még egy tartományt hozzáadni,de sikerült ,meg kitöröltem egy then-t.Viszon ha megőszültem volna se jöttem volna rá arra amit megoldottál nekem.
Kössz a fáradságot.
-
BenJoe80
senior tag
Sziasztok!
Táblázatban a következő képletet írtam be: =SZUM(C3/((C4/100)/*(C4/100))) és amikor a C3 ill. C4 rubrikában nincsenek adatok akkor ez jelenik meg: #######, a "Hiba, zéró osztó!" okolással.
Hogyan tudom ezt vagy láthatatlanná tenni esetleg javítani?
Tulajdonképpen a következő képlet kellene: x/(y/100)² de úgy, hogy a kitöltetlen x és y értékek ne okozzanak hibajelzést.
A segítséget előre is köszönöm!
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
BenJoe80
senior tag
válasz
poffsoft
#14583
üzenetére
Esetleg ezt eltudnád magyarázni? Ebből nem értettem semmit... kezdő vagyok ám...
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
lappy
őstag
Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long
Sub ChDirNet(szPath As String)
SetCurrentDirectoryA szPath
End Sub
Sub Combine_Workbooks_Select_Files()
Dim MyPath As String
Dim SourceRcount As Long, Fnum As Long
Dim mybook As Workbook, BaseWks As Worksheet
Dim sourceRange As Range, destrange As Range
Dim rnum As Long, CalcMode As Long
Dim SaveDriveDir As String
Dim FName As Variant
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
SaveDriveDir = CurDir
ChDirNet "C:\"
FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*), *.xl*", _
MultiSelect:=True)
If IsArray(FName) Then
Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
rnum = 1
For Fnum = LBound(FName) To UBound(FName)
Set mybook = Nothing
On Error Resume Next
Set mybook = Workbooks.Open(FName(Fnum))
On Error GoTo 0
If Not mybook Is Nothing Then
On Error Resume Next
With mybook.Worksheets(1)
Set sourceRange = .Range("A1:A25")
End With
If Err.Number > 0 Then
Err.Clear
Set sourceRange = Nothing
Else
If sourceRange.Columns.Count >= BaseWks.Columns.Count Then
Set sourceRange = Nothing
End If
End If
On Error GoTo 0
If Not sourceRange Is Nothing Then
SourceRcount = sourceRange.Rows.Count
If rnum + SourceRcount >= BaseWks.Rows.Count Then
MsgBox "Not enough rows in the sheet. "
BaseWks.Columns.AutoFit
mybook.Close savechanges:=False
GoTo ExitTheSub
Else
Set destrange = BaseWks.Range("A" & rnum)
With sourceRange
Set destrange = destrange. _
Resize(.Rows.Count, .Columns.Count)
End With
destrange.Value = sourceRange.Value
rnum = rnum + SourceRcount
End If
End If
mybook.Close savechanges:=False
End If
Next Fnum
BaseWks.Columns.AutoFit
End If
ExitTheSub:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
ChDirNet SaveDriveDir
End SubBámulatos hol tart már a tudomány!
-
#14589
Bocimaster
csendes tag
Bocimaster
csendes tag
Sziasztok!
- Több adat akarnék egy diagramban megjeleníteni.
- érthetőbben
- több diagramban egyben -
- egy menüből lehetne kiválasztani melyik adatra van szűkség...- lehetne ennek valahol utána járni? (megtanulnám)
Az ösztön mindig többet ér az észnél.
-
akyyy
senior tag
az első munkalapon vannak adatok. a második munkafülön az elsőn lévő adatokra hivatkozok, valahogy igy:
=Munka1!A2A harmadikra szeretném másolni a második tartalmát, úgy, hogy a cellákba ne mint hivatkozás, hanem ugy legyen, mintha én gépeltem volna be.
lehet ilyet csinálni excelbe?
-
akyyy
senior tag
asszem rájöttem, irányitott beillesztés, csak az értékeket másolom.
a másik gondom, hogy ha az első lapon ilyen érték szerepel pl.:
B-1234 VALAMIEzt úgy szeretném a második lapra hivatkozással betenni, hogy az A oszlopban legyen a B-1234 a B oszlopban pedig cask a valami. természetesen egy sorba.
-
akyyy
senior tag
Nem akartam még egy hozzászólást írni de nem találok rá megoldást
Van vagy 4 darab szó, és azt szeretném hogy csak az első szó legyen nagy betűvel kezdődve, a többi szó maradjon kisbetű
mert ugye van olyan képet hogy minden egyes szó. de nekem csak az első szó kell hogy
így legyen -
#14593
Fire/SOUL/CD
félisten
akyyy
#14591
Szövegből oszlopok opciót használd
akyyy #14592
=NAGYBETŰS(BAL(C6;1))&KISBETŰ(JOBB(C6;HOSSZ(C6)-1))
C6 helyére meg a megfelelő cellát helyettesíted be.
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)
-
#14594
akyyy
senior tag
Fire/SOUL/CD
#14593
akyyy
senior tag
válasz
Fire/SOUL/CD
#14593
üzenetére
így oldottam meg, mert vannak benne olyan részek is, ami valami miatt nagybetű, az maradjon is az.
=ÖSSZEFŰZ(NAGYBETŰS(BAL((KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;50));1));KÖZÉP((KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;50));2;50))
Ezzel minden egybe van és működik. de azért át kell nézni ittott
-
#14595
lappy
őstag
Bocimaster
#14589
lappy
őstag
válasz
Bocimaster
#14589
üzenetére
Szia!
Ha jól gondolom akkor ilyet szeretnél!
Minden le van írva, hogy hogyan kell!
[link]Bámulatos hol tart már a tudomány!
-
akyyy
senior tag
az miért van, hogy le akarom húzni a cellát, kitöltvén automatikusan a hivatkozásokat, cask annyi baj van hogy az egyik cella köztesen üres.
kb igy néz ki:
=(Munka2!K5)
üres
=(Munka2!K6)
üresha ezt folytatva lehúzom, akkor igy fog kinézni
=(Munka2!K8)
üres
=(Munka2!K10)
üres -
#14600
lappy
őstag
Bocimaster
#14596
lappy
őstag
válasz
Bocimaster
#14596
üzenetére
Az elején létrehozod a diagramot és utána kellenek azok a lépések!
Bámulatos hol tart már a tudomány!
Új hozzászólás Aktív témák
Hirdetés
Fferi50- BestBuy topik
- Mesterséges intelligencia topik
- Milyen billentyűzetet vegyek?
- Projektor topic
- Máris elérhetőek a WarCraft sorozat első két részének remaster kiadásai
- Konkrét moderációval kapcsolatos kérdések
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Külpolitika
- Azonnali alaplapos kérdések órája
- Rap, Hip-hop 90'
- További aktív témák...
Állásajánlatok
Cég: HC Pointer Kft.
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest