-
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
-
lappy
őstag
válasz
Fferi50
#43847
üzenetére
Igazad van nem kell nagyon túlgondolni
viszont egy másik kérdés van.
Van egy táblázat ami tartalmazza az autók tankolási dátumait. ezt kellene havi szinten összegezni egy másik táblázatba, mert többször is tankolhat egy hónapban. így többszörös feltétel alapján lehet csak összegezni. A dátum formája pl.: 2019.05.22 21:21:00
rendszám első oszlop
második oszlop a dátum
harmadik oszlop tankolt mennyiség -
lappy
őstag
Sziasztok!
Adott egy táblázat amiben az oszlopokban az év hónapjai lennének évenkénti megjelöléssel. (év alatta pedig a hónapok). A sorokban pedig bevitt adatok. Amit szeretnék az az, hogy ha az adott év szerint annyiszor legyen 12 hónap ahány év eltelt egy adott dátumtól. De a megjelenítés csak a naptári év 12 hónapja legyen.
Példa:
Legyen a kiinduló év 2018 és most 2020 van, így a 3x12 hónap azaz 36 oszlopban látom januáról- decemberig a hónapokat. A utolsó oszlop utáni oszlopot mindig tolja el 12 oszloppal mert ott egy összegzés lenne.
Valószínű hogy vba kell hozzá, igen de hogyan? -
lappy
őstag
Van egy userform amin adatokat veszek fel és a megfelelő cellákba helyezem, de szeretném azt is hogy ezeket egy data nevű munkalapra mentse egymás után sorba. Majd ha újat viszek be akkor azt a következő sorba. Az első adat mindig a munka szám, amit később behívhatok egy dinamikus lista segítségével. Hogyan lehet ezt megoldani
-
lappy
őstag
válasz
Fferi50
#43720
üzenetére
Akkor szerinted mivel lehetne megoldanom
Ha csak excel lenne akkor nem lenne olyan nagy gond. Mert sima függvényekkel megoldhato lenne, de itt nehezebb a formázás (kevésbé hasonlít a wordre) a Word el meg ugyanez a probléma nehéz a számolás. Szóval nem tudom mi a jobb erre.
HTML meg nem ismerem semmennyire sem -
lappy
őstag
válasz
Fferi50
#43717
üzenetére
Szia!
Amit szeretnék az valójában word-be kellene nekem.
egy jegyzőkönyvet szeretnék csinálni amiben az adatokat userform formában viszem fel.
Itt megadásra kerül a hely, ki, hol stb.
Lenne egy másik fül ahol a mérési adatokat adom be és automatikusan kiszámolja nekem, hogy mennyi a megengedett és ezeket egy táblázatba rögzíti egymás után. Annyi sora lesz a táblázatnak ahány új sort veszek fel ezen a felületen.
Sokat gondolkodtam azon, hogy milyen formában legyen. A word- excel párosítás, csak word, csak excel (ezzel az a baj hogy sokat el kell szöszmötölni, hogy hasonlítson egy word dokumentumra). de ha erre van megoldás akkor sokkal könnyebb az egész.
A wordnél már megvan a userform, de még vannak programbeli akadályok. Majd felrakom, hogy mi van kész eddig.
-
lappy
őstag
Sziasztok!
Az alábbi dolgot kellene megoldani makróval (sajnos csak ez jöhet szóba).
Adott ez a táblázat:
ezt szeretném egy userform-on keresztül használni:
a form az alábbi pár label-t tartalmazza:
- típusa ( lehet akár lista is - ezt meg tudom csinálni)
- értéke ( szintén lehet listából választani - meg tudom csinálni)
- összefűzve
- eredmény
- plusz
- mínuszösszefűzésre példa
B (a típusa) -------- 16A (az értéke) ------------ B16A (összefűzve)ezután kellene egy számítást végezni egy cellába (eredmény) a következő matematikai képlet alapján:
230/("alfa"*In) ahol az alfa a fenti táblázatból jönne és az érték pedig az előbb beadott érték labelből jön.
A táblázatból az utolsó 3 oszlop ami számítana: ide egy választót tennék és csak egy választható ki, ami meghatározza, hogy milyen típust választottam, ahhoz az alfa értéket:
példa
B16A akkor kismegszakító B sor (legyen végáramkör ) így az alfa 5 lesz
és ezután kiszámolja egy labelbe az adott értéket ami 2,875Ohm (eredmény)A 2. rész szintén ehhez kapcsolódik:
mégpedig az lenne a kérdés, hogy ezt a form-ot lehet-e dinamikussá tenni. Azaz lenne egy plusz gomb amivel újabb sort adok hozzá (típus, érték, eredmény)
és lenne egy negatív amivel az utolsót törli
amennyiben könnyebb akkor az is jó nekem ha a bevitt és kapott eredményeket egy sorba elmenti, majd újra van lehetőség bevinni egy másik típust+ értéket -
#43693
lappy
őstag
szricsi_0917
#43692
lappy
őstag
válasz
szricsi_0917
#43692
üzenetére
-
#43671
lappy
őstag
Véreshurka
#43670
lappy
őstag
válasz
Véreshurka
#43670
üzenetére
Sub ChangingTheNumberFormat()ActiveChart.Axes(xlValue).TickLabels.NumberFormat = "$#,##0.00"End Subez igaz vba de talán használható -
-
lappy
őstag
válasz
gepesz13
#43437
üzenetére
Beirod a keresőbe hogy munkaszüneti napok 2019 és lesz egy pár találat. Ezeket sajnos be kell vinni az Excelbe manuálisan akár másik munkalapra vagy a b sorba. Ezután feltételes formázással képlet alapján lehet pirosra váltani. Később megirom a képletet ha addig nem érkezne válasz.
-
#43372
lappy
őstag
dellfanboy
#43371
lappy
őstag
válasz
dellfanboy
#43371
üzenetére
Valaszt(véletlen.kozott(1:3);a1;a2;a3)
-
lappy
őstag
válasz
Fferi50
#43315
üzenetére
Igen a generált szám fog látszani a cellában. véletlen.között függvénnyel generálok közvetlen a cellában 1-9 egy számot az egyik oszlopban a másik oszlopban a 0,01-1000000 ig és a harmadik oszlopban is a megadott számokkal.
Ez valójában 4 oszlop az egyikben a színek vannak a másik háromban pedig a számok. Ha a második oszlopból generálok egy számot akkor a hozzá tartozó színű lesz a cella. És így tovább a harmadik-első és a negyedik-első oszlopok között.ezt hol találom? "számértéktől függően add meg a formázás színét mind a 10 számra"
-
lappy
őstag
Szeretnék egy olyan cella színezést ami egy véletlen szám generálás után törénik.
A táblázat így néz ki:
[kép]
amit szeretnék hogy egy véletlen számot generálok, majd amilyen értéket felvesz annak megfelelően a cella színe megváltozik a mellékelt színűre (adat nem lesz benne).
feltételes formázással meg lehetne, de sok ilyen cella van így vmi makró kellene amivel ezt meg tudom tenni, viszont nem egybefüggő tartományról van szó. A másik hogy több fajta véletlen szám is lehet, de ezek nem keverednek egymással. Minden ötletet szívesen fogadok.
-
lappy
őstag
válasz
elistvan
#43164
üzenetére
Szia!
Ha jól értem akkor neked a 9 feladatban meg kellett számoltatni egy függvénnyel hogy megyénként hány önkormányzat van "hogy megyénként adja meg az önkormányzatok számát" , illetve hogy összesen hány lakás van a megyében "egyes önkormányzati hivatalokhoz hány lakás tartozik".
amúgy a forrásban lévő linken található pdf-ben minden adat benne van onnan tudod ellenőrizni 18-19 oldalon -
#43137
lappy
őstag
szricsi_0917
#43136
lappy
őstag
válasz
szricsi_0917
#43136
üzenetére
mivel nincs benne szabályszerűség úgy elég nehéz rá függvényt alkotni
-
#43088
lappy
őstag
pero19910606
#43087
lappy
őstag
válasz
pero19910606
#43087
üzenetére
{=HA(SZÖVEG.KERES("akció";C3:C5;HOSSZ(C3:C5)-5);SZÖVEGÖSSZEFŰZÉS(" ";;C3:C5);" ")}Így meg lehet oldani ha van szövegösszefűz függvényed -
-
#42109
lappy
őstag
balazsbence
#42107
lappy
őstag
válasz
balazsbence
#42107
üzenetére
Minta nélkül elég nehéz lesz megoldani. Hogy van e benne szabályszerűseg az abból látszik csak.
-
-
lappy
őstag
válasz
Delila_1
#41743
üzenetére
Igazad van!
Közben találtam egy jót át is raktam az én fájlomba, de amikor futtatom hibát jelez.
innen lett leszedve multiple selections, and also has a combo box a letöltésből
strDVList = strList ennél a sornál jelez hibát -
lappy
őstag
Egy legördülő listából szeretnék egyszerre több elemet kiválasztani majd ezeket egymás után bárkája az adott cellába. Minden cellánál azonos a lista, de más - más elemeket szeretnék egy egy cellába berakni.
Pl.
Lista elemei: alma banán citrom dinnye füge eper stb.
A1 cellába kerülne pl alma eper
A2 cella banán füge eper
A3 cella alma banán citrom füge eper
Remélem érhető
Biztos hogy vba kell hozzá de hogyan
Köszönöm a segítséget. -
#41595
lappy
őstag
Nagyzoli27
#41594
lappy
őstag
válasz
Nagyzoli27
#41594
üzenetére
saját függvénnyel
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby20140924
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then Remove= Join(.keys, delim)
End With
End Function -
lappy
őstag
válasz
modflow
#41486
üzenetére
de még mindig nem tudom mikor mennyi a 100% ez a gond
a példádat teljesen értem, de mi van ha Géza 40 almája lesz a 100% és itt jön a gond hogy egyszer 30 majd 40 el kell számolni így nehéz rá képletet alkotni
a példát tekintve meg egy ha függvénnyel ki tudom számolni de kell egy segédoszlop -
lappy
őstag
válasz
Doki16
#41477
üzenetére
egy vba
Sub ColorCompanyDuplicates()
'Updateby Extendoffice 20160704
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub
Új hozzászólás Aktív témák
- Milyen okostelefont vegyek?
- World of Tanks - MMO
- Azonnali alaplapos kérdések órája
- Trollok komolyan
- Jövedelem
- Anime filmek és sorozatok
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- OLED monitor topic
- A fociról könnyedén, egy baráti társaságban
- Mit tehetsz jogilag, ha átvertek, megkárosítottak a Hardveraprón?
- További aktív témák...
- Microsoft és egyéb dobozos retro szoftverek
- The Elder Scrolls Online Imperial Collector s Edition
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- AKCIÓ! Apple Mac Studio M1 MAX 2022 32GB 512GB számítógép garanciával, hibátlan működéssel
- HP Pavilion 15 - 15,6" Full HD - Intel Pentium N3710 - 4GB - 500GB HDD - Win10 PRO - MAGYAR - DWD R
- Apple iPad Air 2 (A1567) 16GB Wi-Fi + Cellular Asztroszürke
- Eladó 1db Nokia steel hr hibrid okos óra dobozával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest