Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Имя пользователя в ячейке
 
#1
21.09.2017 00:05:53
Добрый вечер.

Необходим макрос который бы записывал имя логина windows в ячейку в зависимости от заполненной ячейке в столбце A
я нашел много тем но не могу их реализовать у себя :-(
 
 
 
#2
21.09.2017 00:17:17
Homavi,
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = 0
    Target.Offset(0, 11) = Environ("UserName")
    Application.EnableEvents = 1
End Sub
 
 
 
#3
21.09.2017 00:55:12
Jungl, по какой то причине он заполняет логины по всей таблицы в право :-(

и еще доработать чтобы при очистке таблицы логин пропадал :-(
 
 
 
#4
21.09.2017 04:03:28
Можно создать пользовательскую функцию
Код
Public Function ИМЯПОЛЬЗОВАТЕЛЯ() As String
ИМЯПОЛЬЗОВАТЕЛЯ = Environ("UserName")
End Function
Ну а потом ввести в ячейке
Код
=ИМЯПОЛЬЗОВАТЕЛЯ()
и растягиваем в любую сторону

P.S. Правда я не до конца понял, какую роль играет столбец А в вопросе?
Изменено: serjloskut - 21.09.2017 04:08:48
 
 
 
#5
21.09.2017 05:29:09
serjloskut, заполнять строчку логином если ячейки стообца А заполнены
 
 
 
#6
21.09.2017 08:03:53
Homavi, Посмотри вот так. Выделяем любые ячейки в пределах одного столбца и запускаем
Код
Sub Login()
Dim cl As Range
With Selection
    For Each cl In .Cells
        If Cells(cl.Cells.Row, "A") <> "" Then
        cl = Environ("UserName")
        End If
    Next
End With
End Sub
Изменено: serjloskut - 21.09.2017 08:05:56
 
 
 
#7
21.09.2017 08:57:32
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = 0
    On Error Resume Next
    If Target = Empty Then
        Target.Offset(, 11) = Empty
    Else
        Target.Offset(0, 11) = Environ("UserName")
    End If
End If
Application.EnableEvents = 1
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
21.09.2017 09:00:05
Код
Application.UserName
 
 
 
#9
21.09.2017 20:48:49
Sanja, спасибо все работает :-)
 
 
 
Страницы: 1
Читают тему
Наверх