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

  • Delila_1

    Topikgazda

    válasz apeelme #19605 üzenetére

    Ezen sajnos nem tudok változtatni, de ha már rákérdeztél, a lentebbi makrót leegyszerűsítheted. A 2. és 3. oszlophoz együttesen is meg lehet adni a naptár helyzetét.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column
    Case 2, 3
    Me.Calendar1.Left = ActiveCell.Left + ActiveCell.Width + 2
    Me.Calendar1.Top = ActiveCell.Top + ActiveCell.Height
    Me.Calendar1.Visible = True
    Me.CommandButton1.Left = Me.Calendar1.Left
    Me.CommandButton1.Top = Me.Calendar1.Top + Me.Calendar1.Height
    Me.CommandButton1.Visible = True
    Case Else
    Me.Calendar1.Visible = False
    Me.CommandButton1.Visible = False
    End Select
    End Sub

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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