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

• #4238 Delila_1 veterán Chili7 #4237

  Új Válasz 2008-12-22 12:11:47 #4238

  Ú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 Chili7 #4237 üzenetére

  Akkor ezt a makrót másold be:

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  sor = Target.Row: oszlop = Target.Column
  If oszlop = 2 Or oszlop > 4 Then
  Cells(Target.Row, 1).Select
  Selection.Formula = "=TODAY()"
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Application.CutCopyMode = False
  Exit Sub
  End If
  
  If oszlop = 3 Or oszlop = 4 Then
  Range(Cells(sor, 1), Cells(sor, 13)).Select
  If Target.Value = "alma" Then Selection.Font.ColorIndex = 3
  If Target.Value = "körte" Then Selection.Font.ColorIndex = 5
  End If
  Cells(sor, oszlop).Select
  End Sub

  Nem tudom, le vannak-e írva a színkódok, viszont van egy kis makróm, ami kiírja az aktuális cella karakter- és háttér színét:

  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

  Ezt nem a laphoz kell rendelni, hanem a VBA szerkesztőben az Insert/Module menüponttal új modult kell létrehozni, és erre az új lapra másolni.

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