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

• #2949 Delila_1 veterán Djatus #2947

  Új Válasz 2008-01-10 08:20:29 #2949

  Ú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 Djatus #2947 üzenetére

  Én az eszköztárra tettem egy ikont, ami a kérdéses színeket megadja.

  Sub Szín_lekérdezés()
  If Selection.Font.ColorIndex = -4105 Then
  MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " (automatikus)"
  Else
  MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " "
  End If
  If Selection.Interior.ColorIndex = -4142 Then
  MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " (átlátszó)"
  Else
  MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " "
  End If
  End Sub

  A subrutint a personal.xls-be tettem.
  A két feltételt nem is kell belevenni, azok csak arra jók, hogy a -4105 és -4142-es színkódot könnyebben lehessen értelmezni.
  Neked kétfelé kell vágnod a userformon ezt a rutint.

• #2079 matekmatika tag Djatus #2076

  Új Válasz 2007-03-07 09:19:53 #2079

  Ú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

  

  matekmatika

  tag

  válasz Djatus #2076 üzenetére

  Na mindegy, A-B-C oszlopra nézve a képlet:
  =HA(HIBÁS(HOL.VAN(F2;A:A;0));HA(HIBÁS(HOL.VAN(F2;B;0));HA(HIBÁS(HOL.VAN(F2;C;0));''Nincs ilyen'';''C'');''B'');''A'')
  
  ahol az F2-be van a keresett érték.
  Ha több oszlopra is ki kell terjeszteni a keresést akkor ez alapján már menni fog.
  
  Valóságban:
  [link]

• #2077 matekmatika tag Djatus #2076

  Új Válasz 2007-03-07 08:12:52 #2077

  Ú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

  

  matekmatika

  tag

  válasz Djatus #2076 üzenetére

  Hány oszlop van össz.?

• #1946 matekmatika tag Djatus #1943

  Új Válasz 2007-02-01 00:07:03 #1946

  Ú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

  

  matekmatika

  tag

  válasz Djatus #1943 üzenetére

  Application.DisplayAlerts = False
  Worksheets(''MUNKALAP NEVE'').Delete
  Application.DisplayAlerts = True
  

• #1813 matekmatika tag Djatus #1797

  Új Válasz 2006-12-01 12:23:07 #1813

  Ú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

  

  matekmatika

  tag

  válasz Djatus #1797 üzenetére

  Esetleg így?:
  
  Private Sub Break()
  i = 1
  Range(''B : B'').Select
  Selection.Find(What:=''aaa'', After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Rows.Select
  Do While Cells(i, 2) <> Empty
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
  Cells.FindNext(After:=ActiveCell).Activate
  i = i + 1
  Loop
  End Sub
  
  Bár lehet nem a legtökéletesebb de nálam működik.
  
  [Szerkesztve]
  
  [Szerkesztve]

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