Hirdetés
- Luck Dragon: Asszociációs játék. :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- GoodSpeed: Márkaváltás sok-sok év után
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Fűzzük össze a szavakat :)
- ldave: New Game Blitz - 2025
- Real Racing 3 - Freemium csoda
- Gurulunk, WAZE?!
- Brogyi: CTEK akkumulátor töltő és másolatai
-
LOGOUT
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
- 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.
-
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. -
Delila_1
veterán
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 Sub -
vamzi
senior tag
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 -
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. -
madrol
csendes tag
-
-
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
-
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 -
-
-
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 -
bandi0000
nagyúr
az a lényeg, hogy vannak korkedvezmények, meg van minden embernek a kora, és van egy táblázat, azt tudom hogy felveszek egy segédtáblát, ott leírom a határokat hogy 0-100%;6-33%;26-0%;65-100% és a megoldásban erre valami hivatkozást csinálhatott, vagy valami, mert így néz ki a képlete: =FKERES(C27;kor_kedvezmény;2)
és ezt a bizonyos kor_kedvezményt nem tudom hova rakni
-
#20912
dellfanboy
őstag
lappy
#20911
dellfanboy
őstag
köszi a szumha-s segítség sokat segített.
más tudtok abban segíteni, hogy kell létrehozni lenyíló nyilakat/opcionális választást?
az alábbit akarom a1cellában 5 értéket lehet kiválasztani (szöveg) ami mellé dedikáltan van x érték mögöttepl. ha pirosat választja ki akkor 5 az érték ha kéket akkor 22 stb.
mind konstans 5 választható érték van csak.előre is köszi
-
#20056
PindurAnna
Közösségépítő
lappy
#20017
PindurAnna
Közösségépítő
Nem érthetően magyaráztam el akkor..de már próbálom újraírni a cellákat teljesen új táblázatba.
Most olyan kérdésem van, hogy van két fáljban táblázatom, össze lehet valahogy hasonlítani őket, hogy melyik cellába lett más írva? Tehát volt egy táblázat azt elmentettem mondjuk egy névvel. Aztán azt később bővítettem itt ott és azt elmentettem kettő névvel. Most arra lennék kíváncsi mit változtattam meg a kettőbe.
Nagyon szépen köszönöm az eddigi segítségeteket.
-
vigyori78
őstag
2077-et használok abban is ott van de az a gondom ha olvasásra is jelszavazom akkor egyből az olvasás jelszavát kéri én azt szeretném elérni ha megnyitom az excel-t akkor ha az olvasásra nyomok akkor kérje a jelszót tehát egyből lehessen választani hogy mire akarom megnyitni ,lent a képen például ha az olvasásra nyomok akkor kérje az olvasás jelszavát.
-
ngabor2
nagyúr
A valódi probléma az, hogy a cellaformázások egyszercsak eltűnnek. 1500 soros táblázatokról van szó, amiben a színek és a cellán belüli igazítások és formázások nagyon fontos szerephez jutnak. Néha egy-egy sor beszúrásakor gondol egyet a program, átalakítja a stílus részt a szalagon, és onnantól kezdve bármilyen formátumban mentjük el, azt újra megnyitva minden formázás megszűnik. Ennek az okára, vagy a kiderítésének módjára nem bírtunk rájönni.
-
Simba86
senior tag
NAGYON köszönöm lappy! tökéletes!!!
még egy kérdésem lenne, de az gondolom már tényleg lehetetlen: ha két oszlopba írok (mondjuk egy számlán van kétféle áfával rendelkező tétel is), akkor szerinted lehetséges, hogy összeadja a két alapot vagy a két áfát? (mert ugye a pénztárgykönyvben a különböző áfás tételek alapjai is összevonandók)
(pl: 1000 az egyik, 1000 a másik oszlopba, az egyiknek az alapja így 847, míg a másiké 952, így az alaphoz tartozó cellába ennek a kettőnek az összege kerülne)
(mondjuk erre van megoldás, két külön sorba írom a két tételt, csak érdekel a dolog
)Delila! köszönöm a segítséged, de sajnos ez bonyolultabb ennél. 27%-os áfánál az alapot úgy kell kiszámolni, hogy a bruttót szorzom 0,7874-gyel, míg 18%-osnál 0,8475-tel, mert a bruttó tartalmazza az áfát, azaz a bruttó nem 100%, hanem 127,118, ill. 105. De mindenképpen köszönöm a segítőkészséged, értékelem!
-
Delila_1
veterán
-
-
slashing
senior tag
Nem is igazából a képlet láthatósága a fontos mert azt elvileg lapvédelemmel is el lehet tüntetni csak jó lenne egy olyan változat amibe bele írhatnak az emberek ha éppen szükséges mert valami váratlan történt(havi szinten kerül kiadásra a tábla). Szerkeszthetőre nem rakhatom mert ha valaki elkezd beleírogatni akkor 1 héten beleül borul az egész, mert nem sok olyan adat van benne ami nem számított érték.
Még van egy verzió ami működőképes lehet, mégpedig a másol/beilleszt és egy makró megformázza az eredeti külsőre.
-
#19214
the radish
senior tag
lappy
#19212
the radish
senior tag
Tulajdonképpen az lényegtelen, de nem titok, gps track állománnyal munkálkodok.
De más csv-t is ha megnyitok "kézzel", akkor pl. az A1 cellába ";", ",", vagy szóközzel, vagy bármi mással elválasztva, de egy cellában jelennek meg az adatok. Ha azonban makróval nyittatom meg, akkor már külön oszlopokban jelennek meg az előbb említett módon tagolt adatok.
Ez nagyon jónak néz ki! Köszönöm 
Új hozzászólás Aktív témák
Fferi50- ESET NOD32 Antivirus / Smart Security
- Azonnali informatikai kérdések órája
- Milyen routert?
- CADA, Polymobil, és más építőkockák
- Anglia - élmények, tapasztalatok
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- Kínai és egyéb olcsó órák topikja
- Cyberpunk 2077
- Xiaomi 12X – kicsi a bors és hűvös
- További aktív témák...
- Telefon felvásárlás!! Xiaomi Redmi 9, Xiaomi Redmi 9AT, Xiaomi Redmi 10, Xiaomi Redmi 10 2022
- ÚJ Acer Nitro V ANV15 - 15.6"FHD IPS 165Hz - i5-13420H - 16GB - 512GB - RTX 4060 -Win11 - 3 év gari
- Eladó Samsung Galaxy S22 Ultra 12/256GB / 12 hó jótállás
- GYÖNYÖRŰ iPhone 12 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3438, 100% Akkumulátor
- AKCIÓ! HP Victus Gaming 16-S0017NH 16 notebook - R5 7640HS 32GB DDR5 1TB SSD RTX 4050 6GB WIN1
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi