- iPhone topik
- One mobilszolgáltatások
- Vivo X200 Pro - a kétszázát!
- Telekom mobilszolgáltatások
- Mobil flották
- Okosóra és okoskiegészítő topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Milyen GPS-t vegyek?
- Megjelent a Poco F7, eurós ára is van már
- CMF Buds Pro 2 - feltekerheted a hangerőt
-
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
-
lappy
őstag
válasz
kangool
#27152
üzenetére
Ha meg van a szöveg akkor meg így lehet minden kombinációt legyártani
Alt+F11 VBA mód,
Insert ► Module (Alt+I,M). beilleszt Book1 - Module1 (Code),
Sub name_by_name()
Dim i As Long, j As Long, lr As Long
With ActiveSheet
lr = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
For j = i + 1 To lr
.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = _
.Cells(i, 1).Value & ", " & .Cells(j, 1).Value
Next j
Next i
End With
End Sub -
#26572
lappy
őstag
PindurAnna
#26570
lappy
őstag
válasz
PindurAnna
#26570
üzenetére
Hasonlóan mint a az előbb írták egy összefűz függvénnyel egy segédoszlopba majd kivágás és bemásol az adott oszlopba
Vagy egyéni formátum az adott celláknak! "36"0000
-
-
#25170
lappy
őstag
gaborlajos
#25168
lappy
őstag
válasz
gaborlajos
#25168
üzenetére
http://prohardver.hu/tema/excel/hsz_10160-10160.html
Itt is van egy leírás -
#25021
lappy
őstag
agyhalottak
#25015
lappy
őstag
válasz
agyhalottak
#25015
üzenetére
Szia!
érvényesítéssel meg lehet oldani, az első 2 hétben nem kell vizsgálni csak a 3. héttől
a képlet meg csak arra a hétre színez ahol a 3. hét van visszamenőleg nem!
=HA(ÉS(ÜRES(F7);ÜRES(G7);ÜRES(H7));1;0) -
lappy
őstag
Dim iRow
Sub ListFiles()
iRow = 11
Call ListMyFiles(Range("C7"), Range("C8"))
End Sub
Sub ListMyFiles(mySourcePath, IncludeSubfolders)
Set MyObject = New Scripting.FileSystemObject
Set mySource = MyObject.GetFolder(mySourcePath)
On Error Resume Next
For Each myFile In mySource.Files
iCol = 2
Cells(iRow, iCol).Value = myFile.Path
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Name
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Size
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.DateLastModified
iRow = iRow + 1
Next
If IncludeSubfolders Then
For Each mySubFolder In mySource.SubFolders
Call ListMyFiles(mySubFolder.Path, True)
Next
End If
End Sub
Na ez már jó!! -
lappy
őstag
Private Sub CommandButton1_Click()
Dim directory As String, fileName As String, sheet As Worksheet, i As Integer, j As Integer
Application.ScreenUpdating = False
directory = "c:\test\"
fileName = Dir(directory & "*.xl??")
Do While fileName <> ""
i = i + 1
j = 2
Cells(i, 1) = fileName
Workbooks.Open (directory & fileName)
For Each sheet In Workbooks(fileName).Worksheets
Workbooks("files-in-a-directory.xls").Worksheets(1).Cells(i, j).Value = sheet.Name
j = j + 1
Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop
Application.ScreenUpdating = True
End SubEz nem teljesen jó,de ha egy szakértő itt ránéz akkor alapnak jó lesz.
Amúgy ez csak az adott könyvtárban lévő xl?? kiterjesztésű fájlokat gyűjti a hozzájuk tartozó munkalapok neveivel együtt. -
#23444
lappy
őstag
m.zmrzlina
#23442
lappy
őstag
válasz
m.zmrzlina
#23442
üzenetére
Minden naphoz más-más terem illetve időpont tartozhat.
A táblázatban nincs egyesített cella csak a képen nem jól látszik. -
lappy
őstag
Sziasztok!
Van egy táblázatom amiben ügyeleti beosztás van. Több név ami többször előfordulhat.
A következőt szeretném:
- amikor megnyitom a fájlt akkor kérje be a nevet (Ok gomb ha megadta- addig szürke legyen)
- ha nincs ilyen név akkor írja ki hogy " Nincs beosztva"
- ha van találat akkor azoknak a celláknak a háttér színét emelje ki vmilyen színnel vagy olyat lehet hogy csak azok a nevek maradjanak amit éppen beírtak ( a többi eltűnik) ? (de gondolom az első megoldás könnyebb)
- olyat lehet-e hogy kiírja a megadott név melyik nap melyik teremben ill. mettől - meddig ügyel??Köszönöm aki tanácsot vagy megoldást tud adni!
-
#23310
lappy
őstag
littleNorbi
#23309
lappy
őstag
válasz
littleNorbi
#23309
üzenetére
Szia!
Hát ha jól van megírva a függvényed és persze nem olyan sok munkalap van akkor inkább manuálisan old meg. Másik módja a macro, de szerintem az nem túl egyszerű -
#23218
lappy
őstag
PindurAnna
#23215
lappy
őstag
válasz
PindurAnna
#23215
üzenetére
Inkább a forrást kellene felrakni vagy azt a fáljt amibe már lementetted, de a legjobb ha mindkettő meg van könnyebb vmit kitalálni rá.
-
lappy
őstag
Sub nyomtat()
b = Worksheets("névsor").Cells(1, 2).Value
b = b + 1
For a = 2 To b
Sheets("névsor").Select
Range(Cells(a, 2), Cells(a, 2)).Select
Selection.Copy
Sheets("Sima").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next a
MsgBox "A nyomtatás kész, ügyes vagy!!!"
Sheets("Sima").Select
Range("C3").Select
Selection.ClearContents
Range("A2").Select
End Sub -
lappy
őstag
válasz
Thrawnad
#23073
üzenetére
Sub FINDSAL()
On Error GoTo MyErrorHandler:
Dim E_name As String
E_name = InputBox("Enter the Employee Name :")
If Len(E_name) > 0 Then
Sal = Application.WorksheetFunction.VLookup(E_name, Sheet1.Range("B3:D13"), 3, False)
MsgBox "Salary is : $ " & Sal
Else
MsgBox ("You entered an invalid value")
End If
Exit Sub
MyErrorHandler:
If Err.Number = 1004 Then
MsgBox "Employee Not Present in the table."
End If
End Sub -
#22717
lappy
őstag
littleNorbi
#22714
lappy
őstag
válasz
littleNorbi
#22714
üzenetére
-
-
lappy
őstag
válasz
tgumis
#22180
üzenetére
Nagy M betűvel írja, hogy megkülönböztesse a perctől (m).
M: Ez a formátumelem számjeggyel jeleníti meg a hónapokat, egyszámjegyű hónapok esetén kezdő 0 (nulla) nélkül. Július esetében például: 7.
MM: Ez a formátumelem számjeggyel jeleníti meg a hónapokat, egyszámjegyű hónapok esetén kezdő 0-val. Július esetében például: 07.
MMM: Ez a formátumelem rövidítésként jeleníti meg a hónapneveket, július esetében például: júl.
MMMM: Ez a formátumelem teljes névvel jeleníti meg a hónapokat. -
#22162
lappy
őstag
atillaahun
#22161
lappy
őstag
válasz
atillaahun
#22161
üzenetére
Szia!
Nézd meg ezt! -
#22056
lappy
őstag
dellfanboy
#22052
lappy
őstag
válasz
dellfanboy
#22052
üzenetére
Ha ppt is megengedett akkor teszel be két képet és animálod őket hol az egyik állapot hol a másik állapot jön elő és a lejátszást végteleníted.
Excelben is meg lehet oldani de sokkal nehezebb dolgod lenne vele. -
lappy
őstag
Szia!
Az első részre a megoldás:
Sub Open_My_Files()
Dim MyFile As String
MyPath = " M:\Access Files\ "
MyFile = Dir(MyPath)
Do While MyFile <> ""
If MyFile Like "*.xls" Then
Workbooks.Open MyPath & MyFile
Sheets(1).Select
Range("C3") = 6
ActiveWorkbook.Close True
End If
MyFile = Dir
Loop
End SubA második részre meg szerintem találsz itt is a fórumon leírást, a kettőt már csak össze kell tenni és kész.
-
#21661
lappy
őstag
marchello1
#21658
lappy
őstag
válasz
marchello1
#21658
üzenetére
Szerintem link alapján nem fogunk rájönni a hibára ott vmit be kell állítani hogy ne dobalja egymásra
-
#21598
lappy
őstag
anonymus89
#21597
lappy
őstag
válasz
anonymus89
#21597
üzenetére
itt nézz utána
-
#21462
lappy
őstag
kőbaltazár
#21461
lappy
őstag
válasz
kőbaltazár
#21461
üzenetére
Szia!
Nem lehet tudomásom szerint szegélyt rakni.
Az élőfejet meg úgy tudod hogy a munkalap nevét be lehet állítani hogy azt kiírja. -
lappy
őstag
Idézet "Google":
"A SZUMHATÖBB függvényTeljes tartalomTeljes tartalom
Ez a témakör a Microsoft Office Excel SZUMHATÖBB függvényének képletszintaxisát és használatát mutatja be.Leírás
Egy adott tartomány több feltételnek is eleget tevő celláit adja meg. Ha például az A1:A20 cellatartománybeli számokat szeretné összeadni, de csak abban az esetben, ha a nekik a B1
20 tartományban megfelelő számok nullánál (0) nagyobbak, a C1
20 tartományban lévő megfelelő számok pedig 10-nél kisebbek, a következő képletet használhatja" -
#21416
lappy
őstag
stairmaster
#21409
lappy
őstag
válasz
stairmaster
#21409
üzenetére
Az elsőre a válasz: a?
4;D4)>1;DARABTELI(E$1:E4;E4)>1;DARABTELI(E$1:E4;E4)>1;DARABTELI(G$1:G4;G4)>1);"x";"")
20 tartományban megfelelő számok nullánál (0) nagyobbak, a C1
Új hozzászólás Aktív témák
Hirdetés
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Vírusirtó, Antivirus, VPN kulcsok
- AKCIÓ! HP Victus 16-R1002NF Gamer notebook - i7 14700HX 16GB RAM 1TB SSD RTX 4070 8GB WIN11
- Xiaomi Redmi 13128GB Kártyafüggetlen 1Év Garanciával
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Samsung Galaxy A54 128GB, Kártyafüggetlen, 1 Év Garanciával
- Azonnali készpénzes nVidia RTX 2000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest