2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #19573 Delila_1 veterán apeelme #19570
    Új Válasz #19573
    Ú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 apeelme #19570 üzenetére

    Jobb klikkel rákattintva megnézed, a kettő közül melyik a Calendar1. Azt meghagyod, a másikat törlöd.

    A makrók:

    Private Sub Calendar1_Click()
    If Selection.Column = 2 Then Cells(Selection.Row, 2) = Me.Calendar1.Value
    If Selection.Column = 3 Then Cells(Selection.Row, 3) = Me.Calendar1.Value
    End Sub

    Private Sub CommandButton1_Click()
    Me.Calendar1.Today
    Cells(Selection.Row, 2) = Me.Calendar1.Value
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column
    Case 2
    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 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

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