Hirdetés
- AMD GPU-k jövője - amit tudni vélünk
- Steam Deck
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- TCL LCD és LED TV-k
- Milyen széket vegyek?
- Milyen hangkártyát vegyek?
- Megérkezett a hardverszállítmány
- Házimozi belépő szinten
- Milyen TV-t vegyek?
- Telekom TV SmartBox: szolgáltatói set-top box alacsony korlátokkal
-
PROHARDVER!
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
-
Delila_1
veterán
válasz
zsolti_20
#43094
üzenetére
Makró nélküli megoldás a képek megjelenítéséhez.
Két lapod van. A képeket tartalmazó neve Terméklista, a másiké Megjelenítés.
A Terméklistára viszed fel a képeket a csatolt kép szerint. Az A oszlopba írod a megnevezést. Közvetlenül alatta bekeretezel egy (a példa szerint 10×4-es, de lehet más) területet, ide szúrod be a képet középre.
A kép nevét beírod a G oszlopba, jöhet a következő kép. Mikor mindet felvitted, mehetünk a másik lapra.
A B1 cellában érvényesítést adsz meg, ami a Terméklista G oszlopára mutat. Kiválasztasz egy képet.
A Képletek | Névkezelőben létrehozol egy újat. A neve legyen Kep_mutatasa, a képlet=ELTOLÁS(Terméklista!$A$1;HOL.VAN(Megjelenítés!$B$1;Terméklista!$A:$A;0);0;10;4)
ahol a 10 a másik lapon egy-egy kép magassága, a 4 pedig a szélessége.
Beszúrsz egy akármilyen képet az érvényesítés alá. Ráállsz a képre, és a szerkesztőlécen megadod a hivatkozást:=Kep_mutatasa
Ezzel kész. Mindig az a kép jelenik meg a Megjelenítés lapon, amit a B1 cella érvényesítésében kiválasztasz. -
Delila_1
veterán
válasz
zsolti_20
#43077
üzenetére
A számokat sorold fel valahol egymás alatt, és hozz létre az A1 cellában egy érvényesítést ezekből. Feltételezem, hogy a számok egy-egy kép nevével megegyeznek.
Rajzolj egy négyzetet (beszúrás, ábrák, alakzatok), aminek a Kép nevet adod.
Private Sub Worksheet_Change(ByVal Target As Range)
Const utvonal As String = "F:\Jpg\"
If Target.Address = "$A$1" Then
ActiveSheet.Shapes.Range("Kép").Select
Selection.ShapeRange.Fill.UserPicture utvonal & Target.Value & ".jpg"
Cells(1).Select
End If
End SubRendeld a makrót a lapodhoz. Írd át az utvonal változót a saját útvonaladra, a végén legyen "\".
Ha nem jpg kiterjesztésűek a képeid, aSelection.ShapeRange.Fill.UserPicture utvonal & Target.Value & ".jpg"
sor végén írd át. -
-
Delila_1
veterán
válasz
zsolti_20
#42982
üzenetére
Óhajod parancs.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WF As WorksheetFunction
Application.EnableEvents = False
Set WF = Application.WorksheetFunction
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then Rows(Target.Row + 1).Locked = False
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 0 Then
Range("A" & Target.Row + 1 & ":E" & Target.Row + 1) = ""
Rows(Target.Row + 1).Locked = True
End If
Application.EnableEvents = True
End Sub -
Delila_1
veterán
válasz
zsolti_20
#42970
üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WF As WorksheetFunction
Set WF = Application.WorksheetFunction
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then Rows(Target.Row + 1).Locked = False
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 0 Then Rows(Target.Row + 1).Locked = True
End SubEz azt csinálja, hogy ha pl. a 4. sor adatait törlöd, az 5. sor celláit zárolja. A 4. sor újra kitöltése után ismét írható lesz az ötödik.
Erre gondoltál? -
Delila_1
veterán
válasz
zsolti_20
#42952
üzenetére
A teljes lapon zárolod a cellákat, majd levéded a lapot. Érdemes kivenni a pipát a Zárolt cellák kijelölése elől, ne is tudjon rálépni a következő sorra.
Rendeld a lenti makrót a lapodhoz (lásd a Téma összefoglalót).Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If Application.WorksheetFunction.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then
Rows(Target.Row + 1).Locked = False
End If
End SubEz a makró csak akkor szünteti meg a zárolást a KÖVETKEZŐ soron, mikor már minden adat megvan az A: E tartományban,
-
Mutt
senior tag
válasz
zsolti_20
#42820
üzenetére
Szia,
A1 cellában található szöveget/számot ezzel a tömbképlettel tudsz megfordítani:
=FŰZ(KÖZÉP(A1;HOSSZ(A1)-SOR(INDIREKT("$A$1:$A"&HOSSZ(A1)))+1;1))Dátumot szöveggé kell alakítani a SZÖVEG függvénnyel.
=FŰZ(KÖZÉP(SZÖVEG(A1;"ééééhhnn");HOSSZ(SZÖVEG(A1;"ééééhhnn"))-SOR(INDIREKT("$A$1:$A"&HOSSZ(SZÖVEG(A1;"ééééhhnn"))))+1;1))üdv
-
Fferi50
Topikgazda
válasz
zsolti_20
#42817
üzenetére
Szia!
Szerintem csak makróval (felhasználói függvénnyel) lehet.
Pl:Function fordit(hol As Range) As StringDim ch As Integer, sz As StringFor ch = Len(hol) To 1 Step -1sz = sz & Mid(hol, ch, 1)Nextfordit = szEnd FunctionEzt ugyanúgy használhatod, mint a beépített függvényeket.
Üdv.
-
Pakliman
tag
válasz
zsolti_20
#42658
üzenetére
Addig is az A és/vagy B ismétlődéseire gyógyír:
Csak a C oszlop változott (most):=HA(DARABTELI($A$2:A2;A2)=1;HA(DARABTELI(B:B;A2)>0;1;0);0)
A képlet első része (első HA(DARABTELI(...)):
az A oszlopban csak azokkal foglalkozunk, amelyik számból csak 1 db van illetve azokkal, melyekből több
van, DE CSAK AZ ELSŐ előfordulásnál!Második HA(DARABTELI(...):
a B oszlopban nem érdekel hánydarab van egy számból, ha nem 0, akkor mindenképpen 1.
Új hozzászólás Aktív témák
Fferi50
- iKing - Xiaomi 14T Pro Titan Gray Vékony, prémium kivitel, nagy kijelző 12/512
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Fotó állvány eladó
- IKEA (HAVREHOJ) tablet tartó
- Azonnali készpénzes nVidia RTX 2000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest