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

• #46295 Delila_1 veterán paatrick #46294

  Új Válasz 2021-03-19 17:49:27 #46295

  Ú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 paatrick #46294 üzenetére

  Szívesen.
  Megy az újabb változat.
  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column >= 3 And Target.Column <= 5 Or Target.Column = 11 Or _
        Target.Column = 12 Then
        Select Case Target
            Case 0 To 10: Range(Target.Address).Interior.ColorIndex = 43
            Case 11 To 20: Range(Target.Address).Interior.ColorIndex = 45
            Case 21 To 30: Range(Target.Address).Interior.ColorIndex = 3
        End Select
    End If
End Sub

• #46293 Delila_1 veterán paatrick #46292

  Új Válasz 2021-03-19 13:36:53 #46293

  Ú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 paatrick #46292 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column >= 3 And Target.Column <= 5 Or Target.Column = 11 Or _
        Target.Column = 12 Then
        Select Case Target
            Case "F": Range(Target.Address).Interior.ColorIndex = 43
            Case "K": Range(Target.Address).Interior.ColorIndex = 45
            Case "I": Range(Target.Address).Interior.ColorIndex = 3
        End Select
    End If
End Sub

• #22680 Delila_1 veterán paatrick #22670

  Új Válasz 2014-07-29 18:04:05 #22680

  Ú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 paatrick #22670 üzenetére

  A sorbeszúrásra nem tudok jó választ, legfeljebb azt, hogy ne laphoz rendelt makrót alkalmazz, hanem gombnyomásra változzanak a színek.

  Az egyes színeket az RGB kódjukkal is megadhatjuk. Pl.
  Range("A1").Interior.Color = RGB(0, 204, 255) Ez egy vil. kék.
  RGB(255, 0, 0) piros
  RGB(255, 255, 0) sárga
  RGB(0, 255, 0) vil. zöld
  RGB(255, 0, 255) lila
  RGB(128, 0, 0) barna

  Bármilyen színt kikeverhetsz a 3 összetevőből, 0 és 255 között.

  Makró, ami a C oszlopban lévő adatokat vizsgálja, és színezi a tartalmuknak megfelelően:

  Sub Szinezes()
  Dim ter As Range, CV As Object
  
  Set ter = Range("C1:C" & Range("C1").End(xlDown).Row) 'Itt kell átírni a 3 C betűt
  
  For Each CV In ter
  Select Case CV
  Case "K"
  Range(CV.Address).Interior.Color = RGB(0, 204, 255)
  Case "P"
  Range(CV.Address).Interior.Color = RGB(255, 0, 0)
  Case "Z"
  Range(CV.Address).Interior.Color = RGB(0, 255, 0)
  Case "S"
  Range(CV.Address).Interior.Color = RGB(255, 255, 0)
  Case "B"
  Range(CV.Address).Interior.Color = RGB(128, 0, 0)
  Case "L"
  Range(CV.Address).Interior.Color = RGB(255, 0, 255)
  End Select
  Next
  End Sub

  Alt +F11-gyel bemész a VB szerkesztőbe. Bal oldalon kiválasztod a füzeted nevét. Insert menü, Module.
  Jobb oldalon nagy üres felületet kapsz, oda másold be, az előző, laphoz rendelt makrót töröld ki.

  Lépj vissza a füzetedbe. Legegyszerűbb, ha pl. egy lekerekített téglalapot szúrsz be. Jobb klikk, makró hozzárendelése, Szinezes.

• #22664 Delila_1 veterán paatrick #22658

  Új Válasz 2014-07-29 11:42:12 #22664

  Ú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 paatrick #22658 üzenetére

  Így add meg:

  Range(Target.Address).Interior.ColorIndex = 43

• #22646 slashing senior tag paatrick #22645

  Új Válasz 2014-07-28 16:09:31 #22646

  Ú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

  

  slashing

  senior tag

  válasz paatrick #22645 üzenetére

  Legegyszerűbben: a lapfülön jobb klikk Kód megjelenítése és oda kell beszúrni a makrót.

• #22637 lappy őstag paatrick #22633

  Új Válasz 2014-07-28 12:42:02 #22637

  Ú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 paatrick #22633 üzenetére

  Feltételes formázással megoldható
  Kell egy ha függvény ami vizsgálja a betűket

• #18646 Delila_1 veterán paatrick #18644

  Új Válasz 2013-07-27 14:16:18 #18646

  Ú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 paatrick #18644 üzenetére

  Szívesen.

• #18642 Delila_1 veterán paatrick #18638

  Új Válasz 2013-07-27 14:02:55 #18642

  Ú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 paatrick #18638 üzenetére

  A makróban a ciklust 1-től 5-ig add meg, mert a kritérium1 ... kritérium5 értékeket akarod megszüntetni.

• #18637 Delila_1 veterán paatrick #18635

  Új Válasz 2013-07-27 08:34:04 #18637

  Ú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 paatrick #18635 üzenetére

  Más verzióval dolgozol, mint Mutt. A HIBA.E helyett a HIBÁS függvénynevet írd be.

  Szívesen a makrót.

• #18632 Mutt senior tag paatrick #18627

  Új Válasz 2013-07-26 22:36:40 #18632

  Ú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 paatrick #18627 üzenetére

  Hello,

  1. Hogy lehet megadni azt hogy egy cellaoszlopba csak nagybetűvel írjon?

  Adatérvényesítéssel megoldható, használd ezt a képletet:

  =NEM(HIBA.E(SZÖVEG.TALÁL(A1;NAGYBETŰS(A1))))
  

  üdv

• #18628 Delila_1 veterán paatrick #18627

  Új Válasz 2013-07-26 13:45:01 #18628

  Ú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 paatrick #18627 üzenetére

  1. Másik oszlopba írj, ebbe meg írd be a Nagybetűs(...) függvényt, ami a beírt szövegre hivatkozzon..

  2. Rendeld egy gombhoz a makrót

  Sub AutoSzuro()
  Dim krit As Integer
  For krit = 1 To 18
  Selection.AutoFilter Field:=krit
  Next
  End Sub

  3. A 2013-at nem ismerem, de ha válogathatsz, a 2007-et hagyd ki.

• #17648 wjani tag paatrick #17647

  Új Válasz 2013-04-07 18:27:54 #17648

  Ú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

  

  wjani

  tag

  válasz paatrick #17647 üzenetére

  Még annyit kérdeznék, hogy a jobb sarkát nem lehet megfogni egérrel és lejebb hűzni?

  Üdv.

  Wjani

• #17646 wjani tag paatrick #17645

  Új Válasz 2013-04-07 14:15:11 #17646

  Ú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

  

  wjani

  tag

  válasz paatrick #17645 üzenetére

  Szia!

  Lehet, hogy most hülyeség, amit írok neked, de a képen is ott látható a csökkenő és növekvő szöveg.
  Ha a keresett adat nagyobb, akkor csak meg kell nyomni a csökkenő módot és akkor közelebb kerül a láthatósági határhoz. A 2007 és a 2010-ben már keresési lehetőség is van.

  Üdv.
  Wjani

• #12433 Delila_1 veterán paatrick #12432

  Új Válasz 2012-01-03 12:53:47 #12433

  Ú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 paatrick #12432 üzenetére

  Sub ved()
  Dim lap%
  
  For lap% = 1 To Sheets.Count
  Sheets(lap%).Select
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="SzuperTitok"
  ActiveSheet.EnableSelection = xlNoSelection
  Next
  End Sub

  A Password-nél add meg a saját jelszavadat, vagy ha nem akarod jelszavazni, akkor el is hagyhatod. Ebben az esetben a Scenarios:=True utáni vesszőt is töröld ki.
  Az ActiveSheet.EnableSelection = xlNoSelection sor letiltja a zárolt cellák kijelölését, ezt is elhagyhatod.

• #12151 Fire/SOUL/CD félisten paatrick #12150

  Új Válasz 2011-11-27 12:09:32 #12151

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz paatrick #12150 üzenetére

  # Jobb egér a képen/Makró hozzárendelése
  # Makró helye lenyíló -> Ebben a munkafüzetben és katt az Újat gombon
  # a megjelenő ablakban a megjelenő kódblokk közé másold be az alábbi kódot.

  Range("B1").Value = Range("B1").Value + 1

  Ha ezt megcsináltad, akkor a teljes kódnak így kell kinéznie

  Sub Kép1_Kattintás()
  Range("B1").Value = Range("B1").Value + 1
  End Sub

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