- 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
-
-
#40662
lappy
őstag
dellfanboy
#40660
lappy
őstag
válasz
dellfanboy
#40660
üzenetére
=ELTOLÁS(C5;0;HÓNAP(MA());1;1)
például -
#40526
lappy
őstag
szatocs1981
#40525
lappy
őstag
válasz
szatocs1981
#40525
üzenetére
=INDEX(HA($A$1:$A$5="x";HA(ÜRES($B$1:$B$5);$C$1:$C$5;$B$1:$B$5);" ");2)eddig jutottam, már csak a tömbből ki kell szedni amik igazak
-
lappy
őstag
Ki szeretném gyűjteni az első legmagasabb pontot elért személyeket (ez megvan)
majd a pontokhoz tartozó neveket is kigyűjtöm (ez is megvan)
viszont ha azonos a pontszám akkor mindig csak egy személy jeleneik meg pedig 3 különbözőnek kellene (nincs névazonosság, de ez mindegy is)
hogyan tudom ezt megoldani
köszönöm! -
#39881
lappy
őstag
szilvásbukta
#39880
lappy
őstag
válasz
szilvásbukta
#39880
üzenetére
Sajnos én sem tudok ilyen programot
-
-
lappy
őstag
Sziasztok
Nem éppen excel de hátha tudtok segíteni. Van egy ppt abban beillesztek egy swf fájlt. Ennek megadom a helyét akkor működik. De amikor máshol szeretném megnyitni akkor már nem ott lesz az swf file. Vba ban lehetséges hogy keresse meg és ha megtalálta akkor tegye ezt bele mint elérési útvonal. -
lappy
őstag
válasz
wednesday
#39624
üzenetére
itt van a fájlból a két makró
Private Sub CommandButton1_Click()
b = 1
For a = 9 To 15
If Worksheets("Munka1").Cells(a, 2).Value = TextBox1.Value And Worksheets("Munka1").Cells(a, 3).Value = ComboBox1.Value Then
Worksheets("Munka2").Cells(b, 2).Value = Worksheets("Munka1").Cells(a, 2).Value
Worksheets("Munka2").Cells(b, 3).Value = Worksheets("Munka1").Cells(a, 3).Value
Worksheets("Munka2").Cells(b, 4).Value = Worksheets("Munka1").Cells(a, 4).Value
Worksheets("Munka2").Cells(b, 5).Value = Worksheets("Munka1").Cells(a, 5).Value
Worksheets("Munka2").Cells(b, 6).Value = Worksheets("Munka1").Cells(a, 6).Value
Worksheets("Munka2").Cells(b, 7).Value = Worksheets("Munka1").Cells(a, 7).Value
b = b + 1
End If
Next a
End SubThisWorkbook
Private Sub Workbook_Open()
Munka1.ComboBox1.AddItem "készpénz"
Munka1.ComboBox1.AddItem "utalvány"
Munka1.ComboBox1.AddItem "kártya"
End Sub -
#39566
lappy
őstag
Hardstyler01
#39565
lappy
őstag
válasz
Hardstyler01
#39565
üzenetére
-
#39564
lappy
őstag
Hardstyler01
#39563
lappy
őstag
válasz
Hardstyler01
#39563
üzenetére
Én úgy szoktam, hogy mentem másként vagy kimásol beilleszt újba és akkor a te neved lesz.
-
#39514
lappy
őstag
marchello1
#39509
lappy
őstag
válasz
marchello1
#39509
üzenetére
Ha nem is tökéletes, de a következőt csináld meg:
egy oszlopban a Vél függvénnyel előállítasz annyi számot ahány név van.
a mellette lévő oszlopba beírsz egy számot (ez szintén annyi legyen ahány neved van)
majd ezzel a képlettel generálsz számokat a nevek mellé=HA(SOR()-SOR(A$1)+1>$D$1;"";SORSZÁM(ELTOLÁS($E$1;SOR()-SOR(A$1)+(OSZLOP()-OSZLOP($A1))*($D$1/2););$E$1:INDEX($E$1:$E$1000;$D$1)))
ezután pedig összerendeled őket
pl. 1-2; 3-4; 5-6; stb. -
lappy
őstag
-
#39384
lappy
őstag
Anonymusxx
#39383
lappy
őstag
válasz
Anonymusxx
#39383
üzenetére
Igen meg lehet csinálni
-
#39274
lappy
őstag
II.Démonlord
#39272
lappy
őstag
válasz
II.Démonlord
#39272
üzenetére
fkeres -el megoldható csak a két oszlopot cserél fel a second lapon
vagy az index hol.van fgv páros -
lappy
őstag
Private Sub CommandButton1_Click()
Dim objTargetWorksheet As Worksheet
If (TextBox1.Value = "John" And TextBox2.Value = "234") _
Or (TextBox1.Value = "Amy" And TextBox2.Value = "345") _
Or (TextBox1.Value = "Paul" And TextBox2.Value = "456") Then
Me.Hide: Application.Visible = True
For Each objTargetWorksheet In ActiveWorkbook.Worksheets
If objTargetWorksheet.Name = TextBox1.Value Then
objTargetWorksheet.Unprotect Password:=12345
Else
objTargetWorksheet.Protect Password:=12345, DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
Else
MsgBox "Please input the right user name and the right password"
End If
End Sub
Private Sub CommandButton2_Click()
ThisWorkbook.Application.Quit
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Application.Quit
End SubEz a kód már majdnem jó!
Csak annyi a probléma hogy itt munkalapokat enged, de nekem csak sor kellene
Pl.:
John csak a 1-2. sort látja
Amy csak 1-3. sort látja
Paul csak 1-4 sort látja
Admin az összes sort látja -
lappy
őstag
Sziasztok!
Olyan segítség kellene nekem hogy van egy munkalap. A munkalapon adatok szerepelnek. Azt szeretném, hogy amikor megnyitom a munkafüzetet akkor kér egy felhasználói nevet és kódot (ebből lenne vagy 30 db). Amikor beüti a kódját akkor az hozzárendeli egy adott sorhoz amiben a neve szerepel és az adatait tudja változtatni. De a többi felhasználó adatait nem látja!
Viszont van egy fejléc (1 sor) amit minden esetben lát. -
lappy
őstag
válasz
Reinhardt
#38932
üzenetére
egy saját függvénnyel lehet csak
pl.:Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End FunctionA színes cellák számlálása : = ColorFunction (A, B: C, FALSE)
A színes cellák összegzése : = ColorFunction (A, B: C, TRUE)
-
#38866
lappy
őstag
pero19910606
#38865
lappy
őstag
válasz
pero19910606
#38865
üzenetére
a pivot táblához rendelj egy frissít gombot és a probléma megoldva
-
lappy
őstag
-
#38762
lappy
őstag
molnarbalazs
#38761
lappy
őstag
válasz
molnarbalazs
#38761
üzenetére
Javítva!
-
Új hozzászólás Aktív témák
Hirdetés
- Bowers/Wilkins Px7 S2 fejhallgatók
- AKCIÓ! Gigabyte H510M i5 10400F 16GB DDR4 512GB SSD GTX 1070 8GB Rampage SHIVA Zalman 600W
- Újszerű Asus ExpertBook B1 B1500 - 15.6" FullHD IPS - i5-1235U - 16GB - 512GB SSD - Win11 - Garancia
- BESZÁMÍTÁS! MSI B450M R5 5500 32GB DDR4 512GB SSD RTX 3060 12GB Rampage SHIVA Chieftec 600W
- Bomba ár! HP Elitebook 8570W - i7-QM I 16GB I 750GB I 15,6" HD+/FHD I Nvidia I W10 I Garancia
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: Promenade Publishing House Kft.
Város: Budapest