Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Автор Тема: Автоматическое выставление имени ПК в ячейке  (Прочитано 195 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Николай Ераскин

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

Есть файл с отчетностью по выполненной работе, в столбце А - название, в столбцах ВСD - каким образом, отмечается плюсом (+), в столбце J - Фамилия. Нужно чтобы сразу после выставления плюса (+) в столбце ВС или D вставлялось имя ПК в столбце H.
« Последнее редактирование: 14.08.2018, 10:22:39 от Николай Ераскин »
Записан

boa

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +32/-0
  • Оффлайн Оффлайн
  • Сообщений: 566
  • Доброта спасет мир...

а где пример-то?
но это возможно только через макрос
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Николай Ераскин

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

Пример добавил. Как раз макросом и нужно.
Записан

boa

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +32/-0
  • Оффлайн Оффлайн
  • Сообщений: 566
  • Доброта спасет мир...

В модуль листа:
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Value = "+" And .Column >= 2 And .Column <= 4 Then Cells(.Row, 8).Value = Environ("ComputerName")
    End With
End Sub
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра
 



Темы без ответов

07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 105
20.01.2019 12:38 Все варианты частичного суммирования 201
13.01.2019 12:24 Заполнение диапазона числами - в виде кластеров 156
30.09.2018 10:24 Расчет процентов за определенный период (месяц) с учетом изменений и платежей 629
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 1434
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 1437
23.01.2018 13:46 Найти вероятность повторной покупки 1316
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 1848
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 1604
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 2020





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.1 секунд. Запросов: 103.