Hirdetés
- Nvidia GPU-k jövője - amit tudni vélünk
- Fejhallgató erősítő és DAC topik
- Házimozi belépő szinten
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- Vezetékes FÜLhallgatók
- Amlogic S905, S912 processzoros készülékek
- E-book olvasók
- MSI notebookok
- Milyen billentyűzetet vegyek?
-
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
-
#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!
-
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
-
#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] -
#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
-
#14593
Fire/SOUL/CD
félisten
akyyy
#14591
-
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 -
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
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?
-
#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)
-
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 Sub -
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!
-
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.
-
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.
-
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...
-
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 !
-
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 ]
-
-
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.
-
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.
-
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 ]
-
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.
-
#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!
-
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.
-
#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?
-
#14556
Delila_1
veterán
Bocimaster
#14555
Delila_1
veterán
válasz
Bocimaster
#14555
üzenetére
-
#14554
Delila_1
veterán
Bocimaster
#14553
Delila_1
veterán
válasz
Bocimaster
#14553
üzenetére
Nem kell neki a kiterjesztés.
-
#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
.
.
.
Új hozzászólás Aktív témák
Fferi50- Nvidia GPU-k jövője - amit tudni vélünk
- Fejhallgató erősítő és DAC topik
- eBay
- PlayStation 5
- Ukrajnai háború
- Házimozi belépő szinten
- Új design és okosabb AI: megjött a Galaxy S25 készülékcsalád
- PROHARDVER! feedback: bugok, problémák, ötletek
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Digitális Állampolgárság Program DÁP
- További aktív témák...
