Új hozzászólás Aktív témák

• #51005 Fferi50 Topikgazda TillaT #51004

  Új Válasz 2023-05-17 19:54:47 #51005

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TillaT #51004 üzenetére

  Szia!
  A feltételes formázás "viselkedése" külön tanulmányokat érdemelne, pl. amikor beszúrsz a formázott területre, akkor rögtön többszörözi a szabályokat, terület bontással.
  A 2. képen látható szabály "logikája" a hivatkozásban keresendő:
  $CQ7 - > a CQ rögzített oszlopból a 7. sorban levő cella. Mivel a formázás a 7-től 10-ig sorra vonatkozik, ezért minden sorban a CQ oszlop megfelelő - 7-től 10-ig - cellája lesz a kiindulási alap. A nem rögzített sor miatt a szabályban levő függvény "mozog" a formázott területtel együtt.
  Ugyanezt tapasztalhatod a normál Excel munkalapon is - a képletek a sor/oszlop rögzítésnek megfelelően "mozognak". Szerintem érdemes a hivatkozások magyarázatát átnézni az Excelben.
  Üdv.

• #51004 TillaT tag TillaT #51003

  Új Válasz 2023-05-17 18:52:23 #51004

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TillaT

  tag

  válasz TillaT #51003 üzenetére

  A logikáját nem értem.
  Számomra az lenne a logikus, hogy az 'A6' formátumának a többi cellába való bemásolása után a formázó képletek mindig az adott cellára vonatkoznának.
  Tehát az 'A7' cella formátumának beállítása -képlet szerint is- az 'AT7', 'CQ7', 'CL7' cellák tartalmától tartalmától függ. És így tovább az 'A' oszlopbelim cellák formázása mindig az azonos sorban lévő 'AT', 'CQ', 'CL' oszlopokban lévő cellák tartalmától.
  Tehát, ha a képletek a bemásolás után mindig az utolsó két kép szerint alakulnának.

  Azt nehéz felfognom, hogy a 2. kép szerinti bemásolás esetén minden cellában ugyanaz a képlet, és a hatást (formázást) az érvényesség kiterjesztésével éri el a program.
  Az is segítség nekem, ha ajánlotok a témában valami releváns szakirodalmat.
  Előre is köszönöm!

• #51001 Delila_1 veterán TillaT #51000

  Új Válasz 2023-05-17 09:07:42 #51001

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #51000 üzenetére

  Egy megoldás:

  Private Sub Worksheet_Change(ByVal Target As Range)
    If Len(Target.Value) = 3 Then
        Application.EnableEvents = False
        Target = Target & ""
        Range(Target.Address).Characters(2, 1).Font.ColorIndex = 3
        Application.EnableEvents = True
    End If
End Sub

  Szám esetén az Excel azonnal dátummá alakítja a beírt értéket, ezért kell szöveggé alakítani.

• #50999 Delila_1 veterán TillaT #50998

  Új Válasz 2023-05-17 07:50:42 #50999

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #50998 üzenetére

  Jól gondolod, egyes karakterek színét csak makróval lehet módosítani.
  

• #50988 Delila_1 veterán TillaT #50986

  Új Válasz 2023-05-16 06:59:13 #50988

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #50986 üzenetére

  Ez működik.
  A második feltétel =INDIREKT(CÍM(1;OSZLOP()))>=$CA$1
  Az első feltételnél jelöld be a leállítást.
  Ha üres a $CA$1, végrehajtja a formázást (nincs háttér, stb.), és leáll.
  Ha nem üres, akkor a második feltételt hajtja végre.
  

• #50987 TillaT tag TillaT #50986

  Új Válasz 2023-05-15 11:29:03 #50987

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TillaT

  tag

  válasz TillaT #50986 üzenetére

  Az előző kérdésemtől függetlenül más rejtély is van előttem.
  Mire való, mikor kell/érdemes használni a "Leállítás, ha igaz" jelölőnégyzeteket az egyes képleteknél? Hogyan működik a szabály, ha bejelölök egy négyzetet, és hogyan, amikor nem? Próbáltam tesztelgetni, de számomra nem világos a dolog.
  Köszönöm, ha ezzel kapcsolatban is helyre tesztek.

• #50947 Fferi50 Topikgazda TillaT #50946

  Új Válasz 2023-05-05 11:31:38 #50947

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TillaT #50946 üzenetére

  Szia!
  Ha úgyis van makród, akkor egy makróval beállíthatod a cellaformátumot, pl.:
  If Instr(Range("A1").Value,"X")> 0 Then
        Range("A1").NumberFormat="0;-0;"""";""X""" 
Else
        Range("A1").NumberFormat="General"
End If
  Üdv.

• #50941 Mutt senior tag TillaT #50934

  Új Válasz 2023-05-04 22:23:19 #50941

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz TillaT #50934 üzenetére

  Szia,

  Próbáld ki ezt az egyéni szamformátumot: 0;-0;"";"X"
  Ettől még a szerkesztő lécen látszik a kijelölt cella eredeti tartalma. Ha nem akarod ott sem mutatni, akkor a cella védelemnél a rejtett opciót és a lapvédelmet kell használnod.

  Egy másik megoldás, hogy az összefűzésben az X-en kívüli (neked fontos) részeket a T nevű függvénybe teszed. Vhogy így: ="X"&T(ÜRES("saját szöveg"))

  üdv

• #50938 Delila_1 veterán TillaT #50934

  Új Válasz 2023-05-04 17:44:49 #50938

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #50934 üzenetére

  Ha már úgyis van makród, ezt javaslom:

  sor=2
Do While Cells(sor, 1) <> ""
If InStr(Cells(sor, 1), "X") > 0 Then
Cells(sor, 1).Characters(Start:=7, Length:=20).Font.ThemeColor = xlThemeColorDark1
End If
sor = sor + 1
Loop

• #50937 Fferi50 Topikgazda TillaT #50934

  Új Válasz 2023-05-04 17:29:21 #50937

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TillaT #50934 üzenetére

  Szia!
  Ez így képlettel, de még makróval sem megoldható. Képletet tartalmazó cellának az eredményét nem tudod színezni. Ha nem képlet van benne, de csak akkor a Characters(a,b).Font.Color utasítással láthatatlanná tudod tenni a szöveg egy részét is.
  Ezért sem jó, ha egy cellában többféle információt szeretnénk bezsúfolni. Bele kell törődnöd, hogy mások is látják az információt, vagy két oszlopba kell az eredményt szétszedned.
  Üdv.

• #50936 Delila_1 veterán TillaT #50934

  Új Válasz 2023-05-04 16:07:36 #50936

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #50934 üzenetére

  Vegyél fel egy új oszlopot. A képlet
  =KÖZÉP(A1;6;1)
  Az eredeti oszlopot elrejtheted.

• #50935 lappy őstag TillaT #50934

  Új Válasz 2023-05-04 15:56:28 #50935

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz TillaT #50934 üzenetére

  feltételes formázással kiemelni azokat amik tartalmaznak X-et?

• #50933 Delila_1 veterán TillaT #50931

  Új Válasz 2023-05-04 11:02:39 #50933

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #50931 üzenetére

  Közben kicsit átírtad.

  =HA(HIBÁS(SZÖVEG.TALÁL("X";A1));"Nincs";"Van")

• #50932 Delila_1 veterán TillaT #50931

  Új Válasz 2023-05-04 10:44:08 #50932

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #50931 üzenetére

  Szia!

  =HA(HIBÁS(SZÖVEG.TALÁL("X";A1));"";KÖZÉP(A1;6;1) & KÖZÉP(A1;9;20))

• #50767 Delila_1 veterán TillaT #50766

  Új Válasz 2023-03-28 19:17:35 #50767

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #50766 üzenetére

  Gondolom, adatokat viszel fel a UserForm kitöltése után. Játszadoztam vele. A felvitel gomb Click eseménye figyeli, hogy a ComboBox adata megfelelő-e (a BackColor alapján).
  Ha nem, a felvitel helyett visszaállítja rá a fókuszt.

• #50763 Delila_1 veterán TillaT #50761

  Új Válasz 2023-03-28 07:38:08 #50763

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz TillaT #50761 üzenetére

  MI lenne, ha a többivel harmonizáló színeket választanál?

• #50754 Fferi50 Topikgazda TillaT #50753

  Új Válasz 2023-03-27 09:27:59 #50754

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TillaT #50753 üzenetére

  Szia!
  Úgy látom, egy módon érhető el:
  Combobox BackColor > System fülről a Highlight
  ForeColor > Sytem fülről a Higlight Text
  
  Eredmény:
  
  Tudom csúnya... A rendszer színek megváltoztatása lehet a járható út még szerintem.
  Üdv.

• #50730 Fferi50 Topikgazda TillaT #50729

  Új Válasz 2023-03-18 17:48:57 #50730

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TillaT #50729 üzenetére

  Szia!
  Próbáld meg az AutoSize és WordWrap tulajdonságot True-ra állítani. Azt gondolom, hogy a sortöréseket neked kell beletenni, hogy megfelelő helyen legyen az új sor.
  Üdv.

• #50595 zoombiee csendes tag TillaT #50588

  Új Válasz 2023-02-28 19:19:41 #50595

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zoombiee

  csendes tag

  válasz TillaT #50588 üzenetére

  Szia,
  Ha a userformban zoom paraméternél 100 helyett nagyobbat írsz be, akkor megnő a checkbox is és az optionbutton is és gondolom az összes vezérlő elemre vonatkozik, gondolom a láthatóság lenne a lényeg.

• #50533 ny.janos tag TillaT #50532

  Új Válasz 2023-02-17 20:30:23 #50533

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ny.janos

  tag

  válasz TillaT #50532 üzenetére

  Ha a feltételes formázásban írod meg a képletet és kijelöléssel hivatkozol a cellára, akkor a DÁTUM függvény 3. paramétere abszolút hivatkozás ($A$5) lesz. Azt kézzel át kell írni vegyes hivatkozásra, hogy mindig az adott sort vizsgálja, de minden esetben az A oszlopot.

• #50530 ny.janos tag TillaT #50529

  Új Válasz 2023-02-17 18:37:32 #50530

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ny.janos

  tag

  válasz TillaT #50529 üzenetére

  Szia!

  Módosítsd a képletedet az alábbira:
  =HÉT.NAPJA(DÁTUM($A$1;$B$1;$A5);2)>=6

• #50466 Fferi50 Topikgazda TillaT #50465

  Új Válasz 2023-02-13 08:52:59 #50466

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TillaT #50465 üzenetére

  Szia!
  Kicsit bonyolult a dolog, de megoldható:
  Sub mentesm()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs "Próba.xlsx", xlOpenXMLWorkbook
ActiveWorkbook.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
  Üdv.

• #50405 Fferi50 Topikgazda TillaT #50404

  Új Válasz 2023-02-06 15:55:26 #50405

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TillaT #50404 üzenetére

  Szia!
  Sajnos az nem műxik így. A Ribbon szerkesztéssel tudod meghatározni, mi legyen a menüszalagon.
  [itt találhatsz segítséget hozzá]
  Üdv-

• #50388 lappy őstag TillaT #50386

  Új Válasz 2023-02-03 08:44:08 #50388

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz TillaT #50386 üzenetére

  tedd fel az eszköztárba ott létrehozhatsz saját menüt így könnyű megtalálni

• #50387 Pá addikt TillaT #50386

  Új Válasz 2023-02-03 08:43:59 #50387

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pá

  addikt

  válasz TillaT #50386 üzenetére

  A fenti menüsorban a személyre szabással el tudsz helyezni új menüpontokat és azon belül mindenféle parancsot. Én még nem csináltam, de több fileból is dolgozom, ahol így van megoldva, szóval biztos lehetséges, ha ez neked megfelel.
  Szóval ide új menüpont és abba a vezérlők.
  

• #50369 Fferi50 Topikgazda TillaT #50368

  Új Válasz 2023-02-01 09:09:49 #50369

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TillaT #50368 üzenetére

  Szia!
  "nem értem a "Miért"-jét, hogy miért működik így."
  Amikor lekorlátozod a görgethető sorok/oszlopok tartományát, akkor azon a tartományon kívülre nem viheted a cursort (aktív cellát) - hiszen az eredeti szándékod is ez volt.
  Egész sort/oszlopot azért nem jelölhetsz ki, mert a kijelölés túl lógna az "engedélyezett" tartományon.
  Üdv.

• #50366 TheSaint aktív tag TillaT #50365

  Új Válasz 2023-01-31 20:42:33 #50366

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TheSaint

  aktív tag

  válasz TillaT #50365 üzenetére

  "Arra még nem sikerült rájönnöm, hogy a kód hatása alatt miért nem engedi a sorok és/vagy oszlopok kijelölésével az egész sorok/oszlopok beszúrását/törlését; hogy miért csak a táblázaton belüli cellák kijelölésével enged beszúrni és törölni egész sorokat/oszlopokat"

  Egy próba erejéig:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then
Application.CutCopyMode = False
Application.OnKey "^+{INSERT}", "InsertEntireRowOrColumn"
Application.OnKey "^+{DELETE}", "DeleteEntireRowOrColumn"
Else
Application.OnKey "^+{INSERT}"
Application.OnKey "^+{DELETE}"
End If
End Sub
Sub InsertEntireRowOrColumn()
If Selection.Rows.Count > 1 Then
Selection.EntireRow.Insert
ElseIf Selection.Columns.Count > 1 Then
Selection.EntireColumn.Insert
End If
End Sub
Sub DeleteEntireRowOrColumn()
If Selection.Rows.Count > 1 Then
Selection.EntireRow.Delete
ElseIf Selection.Columns.Count > 1 Then
Selection.EntireColumn.Delete
End If
End Sub

• #50363 TheSaint aktív tag TillaT #50362

  Új Válasz 2023-01-31 16:29:14 #50363

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TheSaint

  aktív tag

  válasz TillaT #50362 üzenetére

  "Esetleg létezhet olyan metódus, amivel a háttérben, a felhasználó által érzékelhetetlen pillanatig aktívvá tehetnék egy másik munkalapot, majd egyből visszatérnék az adott munkalapra?"

  Jó ötlet, erre van is megoldás elvileg:

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim currentSheet As Worksheet
Set currentSheet = ActiveSheet
vbnet
Copy code
ThisWorkbook.Sheets(1).Activate
Application.OnTime Now + TimeValue("00:00:01"), _
                 "GoBackToCurrentSheet"
                 
Sub GoBackToCurrentSheet()
    currentSheet.Activate
    Call ScrollAreaInterpret
End Sub
End Sub

• #50361 TheSaint aktív tag TillaT #50360

  Új Válasz 2023-01-31 16:00:39 #50361

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TheSaint

  aktív tag

  válasz TillaT #50360 üzenetére

  Worksheet_Change mellett az Application.SheetChange is rámehet szerintem, de ez csak egy gyors ötlet:

  Private Sub Application_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = ActiveSheet.Name Then
Call ScrollAreaInterpret
End If
End Sub

Új hozzászólás Aktív témák