-
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
-
#27571
lappy
őstag
kacsaesokos
#27568
lappy
őstag
válasz
kacsaesokos
#27568
üzenetére
De mi lenne ha elnevezed az adott lista tartomanyat akkor is igy viselkedne? Az elnevezett tartomanynevet könnyebb lehet kezelni
-
#27427
lappy
őstag
m.zmrzlina
#27426
lappy
őstag
válasz
m.zmrzlina
#27426
üzenetére
Szia!
Nézd meg ezt hátha segít -
#27383
lappy
őstag
coldfirexx
#27381
lappy
őstag
válasz
coldfirexx
#27381
üzenetére
A 2007-es excelben a következőképpen oldható meg:
Kezdőlap- Stílusok-Feltételes formázás-Új szabály
itt kiválasztod a formázandó cella kijelölése képlettel, majd a képletet beírod és alul van hogy formátum, itt lehet megadni hogy a cellát vagy a szegély milyen színűre tegye ha igaz. De csak vékony vonal van vastag nincs! -
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.
4;D4)>1;DARABTELI(E$1:E4;E4)>1;DARABTELI(E$1:E4;E4)>1;DARABTELI(G$1:G4;G4)>1);"x";"")
Új hozzászólás Aktív témák
- Keresünk iPhone 16/16e/16 Plus/16 Pro/16 Pro Max
- GYÖNYÖRŰ iPhone 13 256GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4659, 100% Akksi
- Új Acer Nitro V15 FHD IPS 144Hz i9-13900H 14mag 16GB 512GB SSD Nvidia RTX 4060 8GB Win11 Garancia
- Apple iPhone 13 128GB,Átlagos,Adatkabel,12 hónap garanciával
- Apple iPad Air 2 (A1567) 32GB Wi-Fi + Cellular Arany
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest