- Mindennél kisebb és gyorsabb chipeket hoznak az ASML új gépei
- Hódít az AI, közben a Microsoft emberek százait küldi el a felhős részlegétől
- Felfordul a windowsos piac: az Arm megszerezné a PC-s piac 50 százalékát
- Ömlenek a fiatalok a Facebookra
- Ezúttal bennfentes kereskedelemmel vádolják Elon Muskot
- Otthoni hálózat és internet megosztás
- Ezúttal bennfentes kereskedelemmel vádolják Elon Muskot
- XPEnology
- Milyen switch-et vegyek?
- Mindennél kisebb és gyorsabb chipeket hoznak az ASML új gépei
- Felfordul a windowsos piac: az Arm megszerezné a PC-s piac 50 százalékát
- Opera böngésző
- Linux - haladóknak
- Mobilinternet
- Python programozás
-
IT café
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
-
bteebi
veterán
Ahhoz a laphoz rendeld a makrót, amelyiken a legördülő lista van, a $A$1 helyére pedig a legördülő listát tartalmazó cellát írd.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Worksheets(Range("B3").Value).Activate
ActiveSheet.PrintOut
End If
End Sub[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
mexel
veterán
Azt hogyan kell pontosan? Akkor 2 szumha függvényt is össze tudok adni? Mert a szumhatöbb éppen arra lenne, legalábbis azt hittem.
Szerk: igazad volt. Simán összeadtam a függvényeket, és úgy jó. A sima SZUMHA függvényt. ( de akkor minek a SZUMHATÖBB?)
Köszi[ Szerkesztve ]
-
-
Attas
aktív tag
Szia!
Köszönöm a válaszod! Én is csak a VÉL függvényt találtam véletlen szám generálásra, de bármely cella módosítása esetén újraszámol.
Inkább kellene egy megbízható makró mely egy klikkre lefut... meg amúgy is lesz makró a projektben."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
pigster
senior tag
Köszi.
Ez eddig ok is lenne, de csak akkor működik, ha ténylegesen ott van a szám is, tehát pl:
1,234
12,34
123,4Ezeket szépen tizedesre igazítaná
De az én problémám az lenne, hogy hogyan lehetne ezt úgy megoldani, hogy ebben az esetben is tizedesre igazodjon, az elsó szám az az előzőekben megfejtett feltételes formátum miatt nézzen így ki, tehát egész számnál ne 00-t írjon ki a tizedesekhez, hanem "--". Ennek a formátumkódja meg "# ##0,--". Ezt meg sehogy sem sikerült összehozni a kérdőjellel.:123,--
1,23
12,30
Na, szóval ilyesmi kéne, de úgy, hogy ne kelljen monospace karaktert beállítani Excelben (Lucida Console, Courier New stb)
illetve:
Ha egész szám van megadva, akkor még sikerült megoldanom, hogy semmit se írjon kia tizedesekhez, de a nyamvadt tizedesvesszőt ekkor is kiteszi. El lehet tüntetni vhogy, hogy egész értékeknél ne jelenjen meg a tizedesveszző, de mégis ahhoz igazodjon így?123
1,23
12,30[ Szerkesztve ]
FIGYELEM! A többszázezres Samsung okostévék kéretlen reklámokat tolnak az arcodba.
-
slashing
senior tag
detto ugyan az
Szer.:
De jó ötletet adtál mert így kiderült hogy nem azzal van gond ahonnan veszi az adatot hanem azzal hogy amelyikbe belekerül annak is idő a cellaformátuma. De itt már nem számít hogy szöveg vagy idő így átállítom szövegra és akkor csak egy 0-át ír ki amire meg már tudok egy feltételes formázást csinálni
[ Szerkesztve ]
-
-
őstag
-
madrol
csendes tag
-
bepken
veterán
-
mdk01
addikt
A kötjelek és az alsóvonás azonos, de van olyan cella ahol a 2-es helyett 0,4 van így nem tudom neki azt mondani általánosságban hogy a 2. értéktől vegyen ki egyet, mert ezt a kettessel meglehet csinálni, de ahol a 0,4 van ott ugye az kell hogy a 2. értéktől vegyen ki hármat.
Szóval a tuti az lenne ha azt megtudnám adni neki hogy pl. a 2. és 3. kötjel között vegyen ki mindent és ugyanígy a 3. 4. kötjel között. Azért nem jó az érték mert ugye az mindig máshol van mivel vhol 2-es szám vhol 0,4-es szám szerepel. -
vamzi
őstag
Szia,
Elhiszem, viszont nem valami kifinomult a PH keresője és lövésem sincs hogy keressek rá, hogy értékelhető találatot kapjak. A hsz-eket pedig kézzel nem szeretném áttúrni.
Jelenleg amúgy ott tartok, hogy kigugliztam egy olyan VBA kódot, ami minden táblázat első sheetjét összemásolja nekem. De mivel nem ismerem a nyelvet, így nem tudom kiegészíteni, hogy a többi sheetet is másolja át.
[link]
Sub MergeAllWorkbooks()
Dim MyPath As String, FilesInPath As String
Dim MyFiles() 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
' Change this to the path\folder location of your files.
MyPath = "C:\Users\Ron\test"
' Add a slash at the end of the path if needed.
If Right(MyPath, 1) <> "\" Then
MyPath = MyPath & "\"
End If
' If there are no Excel files in the folder, exit.
FilesInPath = Dir(MyPath & "*.xl*")
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If
' Fill the myFiles array with the list of Excel files
' in the search folder.
FNum = 0
Do While FilesInPath <> ""
FNum = FNum + 1
ReDim Preserve MyFiles(1 To FNum)
MyFiles(FNum) = FilesInPath
FilesInPath = Dir()
Loop
' Set various application properties.
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
' Add a new workbook with one sheet.
Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
rnum = 1
' Loop through all files in the myFiles array.
If FNum > 0 Then
For FNum = LBound(MyFiles) To UBound(MyFiles)
Set mybook = Nothing
On Error Resume Next
Set mybook = Workbooks.Open(MyPath & MyFiles(FNum))
On Error GoTo 0
If Not mybook Is Nothing Then
On Error Resume Next
' Change this range to fit your own needs.
With mybook.Worksheets(1)
Set sourceRange = .Range("A1:C1")
End With
If Err.Number > 0 Then
Err.Clear
Set sourceRange = Nothing
Else
' If source range uses all columns then
' skip this file.
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 "There are not enough rows in the target worksheet."
BaseWks.Columns.AutoFit
mybook.Close savechanges:=False
GoTo ExitTheSub
Else
' Copy the file name in column A.
With sourceRange
BaseWks.Cells(rnum, "A"). _
Resize(.Rows.Count).Value = MyFiles(FNum)
End With
' Set the destination range.
Set destrange = BaseWks.Range("B" & rnum)
' Copy the values from the source range
' to the destination range.
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:
' Restore the application properties.
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
End Sub -
Delila_1
Topikgazda
Nem lehet, a 2003-asban max 3 feltétel adható meg.
Helyette egy, a laphoz rendelt makróval megoldható.
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case "K"
Range(Target.Address).Interior.Color = vbBlue
Case "P"
Range(Target.Address).Interior.Color = vbRed
Case "S"
Range(Target.Address).Interior.Color = vbYellow
Case "Z"
Range(Target.Address).Interior.Color = vbGreen
End Select
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.
-
tgumis
tag
Egyszer úgy használom hogy:
Csatolva:.............valami...............valami................valami
Szóval a pontokon kívül minden. A "valami"-k az mindegyik egy külön cellából vett érték.
És van egy màsik eset ahol egy nagyobb szövegbe kerül beillesztésre ugyanezen cellák értéke. Azért van erre szükség mert egy sablonos szövegbe cserélődnek az értékek és ki kell legyenek emelve összegek és dátumok. -
bteebi
veterán
- 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"Szerintem jobb lenne, ha begépelés helyett inkább egy legördülő lista lenne, ahol mindenki kiválaszthatja a saját nevét. Ha be kell gépelni, akkor hibázni fognak, ráadásul kevésbé kényelmes. A begépeléshez egy mezei InputBoxra lenne szükséged, a legördülő lista viszont valamelyest macerásabb, ahhoz UserForm kell ComboBoxszal.
Cancel all my meetings. Someone is wrong on the Internet.
-
Fferi50
őstag
Szia!
Csinálsz egy un. "belépő" lapot. Amikor belép a felhasználó, csak ezt látja.
Egy cellát "kinevezel" felhasználónak ezen a munkalapon. Ehhez rendeled adatérvényesítéssel (adatok - érvényesítés - lista) a lehetséges belépők listáját - amit tehetsz egy elrejtett munkalapra, vagy az adott munkalap nem látható/elrejtett oszlopába.
Amikor belép,csak ez a "belépő" munkalap látszik, a legördülő listából kiválasztja magát. Ha ez megtörtént, megmutatod neki az ügyeleti beosztást. Ha nem választ a listából, akkor csak a "belépő" lapot látja továbbra is. (A nem választást úgy figyelheted, hogy adsz egy "semleges" értéket a lista elejére (pl. Válassz), ami megjelenik belépéskor. Ha a cella értéke ez, akkor még "nem lépett be".Üdv.
-
m.zmrzlina
senior tag
Két kérdés:
A munkalapon közös keretben lévő cellák egyesítve vannak vagy külön cellák csak a keretük közös? (gyanítom külön cellák) Ha van köztük egyesített, melyek azok?
A különböző napokhoz tartozó űrlap részletek nyilván nem véletlenül különböznek. Van rá lehetőség, hogy egységes fejlécet kapjanak?
Új hozzászólás Aktív témák
- Mass Effect 1 PC
- Miasma Chronicles - Bundle maradék - Keresem
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs