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

• #30478 Delila_1 veterán Fferi50 #30477

  Új Válasz 2016-02-09 08:46:16 #30478

  Ú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 Fferi50 #30477 üzenetére

  FFeri ötlete alapján a bevitelkor szövegdoboz kerül az aktuális cella fölé, ami a bevitt érték 0,95-szörösét mutatja. Ezután simán hivatkozhatsz a cellára, mert a textbox alatt a bevitt érték marad meg.
  Ennek az a hátránya, hogy sok textbox esetén szépen meghízik a fájl.

  Azért nem megjegyzést szúrtam be, mert annak az árnyékolását nem lehet (vagy csak én nem tudom) megszüntetni.

  A laphoz rendelt makró, ami a 3. oszlopba bevitt adatok fölé szúrja be a textboxot:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim l As Single, t As Single, w As Single, h As Single
  If Target.Column = 3 Then
  With Range(Target.Address)
  w = .Width - 1: t = .Top + 0.5: h = .Height - 1: l = .Left + 0.5
  End With
  
  ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, w, h).Select
  With Selection
  .Characters.Text = Target * 0.95 & ""
  .HorizontalAlignment = xlRight
  .VerticalAlignment = xlCenter
  End With
  
  Selection.ShapeRange.Line.Visible = msoFalse
  Range(Target.Address).Offset(1).Select
  End If
  End Sub

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