- Apple iPhone 17 - alap
- iPhone topik
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Honor 400 Pro - Gép a képben
- Így néz ki az újratervezett S Pen
- Samsung Galaxy A54 - türelemjáték
- Honor 200 - kétszázért pont jó lenne
- Apple Watch
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
-
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
-
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.Hu - Motorola Razr 40 Ultra Glacier Blue 8 GB RAM / 256 GB tárhely Használt, karcmentes
- iKing.Hu - Apple iPhone 14 Stílusos megjelenés, megbízható teljesítmény
- Xiaomi Redmi Note 10 Pro 128GB // Számla+Garancia //
- Xiaomi Redmi Note 14 Pro 5G / 8/256GB / Kártyafüggetlen / 12Hó Garancia
- HIBÁTLAN iPhone 12 Pro Max 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3106, 100% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest