Упрощение - замена 2 ячеек сразу - PullRequest
Новая
       63

Упрощение - замена 2 ячеек сразу

0 голосов
/ 26 мая 2020
• 1000 в ячейке 35 отображается дата - в ячейке 36 отображается имя пользователя 2. Если ячейка пуста, содержимое очищается

Есть ли у вас какие-либо советы / вы можете мне помочь?

Большое спасибо много.

Это код, который у меня есть: 

'show date
   If Target.Column = 34 Then
      Select Case Target
         Case "ja", "Ja":    Target.Offset(0, 1) = Date
      End Select
'show username
   If Target.Column = 34 Then
      Select Case Target
         Case "ja", "Ja":    Target.Offset(0, 2) = Application.UserName
      End Select
End If
End If

' clear contents
    Dim n As Long

    If Target.Column = 34 Then
        If IsEmpty(Cells(Target.Row, 34)) Then
               Range("AI" & Target.Row & ":AJ" & Target.Row).ClearContents
        End If
    End If
End Sub

1 Ответ

0 голосов
/ 26 мая 2020

Думаю, это подойдет: 

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 34 Then
        Select Case Target
            Case "ja", "Ja"
                Target.Offset(0, 1) = Date 'show date
                Target.Offset(0, 2) = Application.UserName 'show username
            Case vbNullString 'Clear contents
                Range("AI" & Target.Row & ":AJ" & Target.Row).ClearContents

        End Select
    End If

End Sub
...