Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 19.04.2018, 09:12   #1
Baxton
Новичок
Джуниор
 
Регистрация: 18.04.2018
Сообщений: 3
По умолчанию Привязка числа в столбце, к комментариям

Подскажите пожалуйста...
Необходимо привязать числа от 1-го до 20 которые будут располагаться в столбце "А" к комментариям которые будут располагаться в столбце "С" в этой же строке. Каждый комментарий будет соответствовать определённому числу из столбца "А". Например: 1-Запуск, 2-Профилактика, 3-Остановка, 4-Сбой системы и т.д.
В столбце "В" будет указываться время время действия. Время обязательно нужно. Как вариант указание времени можно перенести в столбец "А".
Загрузить образец Только в архивчике получилось
Ну и по ссылке можно посмотреть.
Время прикрутил так:
Цитата:
Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Target
If Not Intersect(cell, Range("A2:A10000"))
With cell.Offset(0, 1)
.Value = Now
.EntireColumn.AutoFit
End With
End If
Next cell
End Sub
Вложения
Тип файла: zip Образец.zip (32.5 Кб, 9 просмотров)

Последний раз редактировалось Baxton; 19.04.2018 в 09:36.
Baxton вне форума Ответить с цитированием
Старый 19.04.2018, 10:13   #2
vefer
Форумчанин
 
Регистрация: 11.10.2010
Сообщений: 121
По умолчанию

Ничего не понятно, чего к чему привязать, и что должно происходить. Если надо чтобы при вставке числа в первый столбец вставлялся комментарий, то просто ВПР не прокатит?
vefer вне форума Ответить с цитированием
Старый 19.04.2018, 10:40   #3
Baxton
Новичок
Джуниор
 
Регистрация: 18.04.2018
Сообщений: 3
По умолчанию

Цитата:
Сообщение от vefer Посмотреть сообщение
Ничего не понятно, чего к чему привязать, и что должно происходить. Если надо чтобы при вставке числа в первый столбец вставлялся комментарий, то просто ВПР не прокатит?
Не получается с ВПР.
Что то типа этого должно быть:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, 2) = Now
Select Case Target.Value
Case 1: Cells(Target.Row, 3) = "Запуск"
Case 2: Cells(Target.Row, 3) = "Профилактика"
Case 3: Cells(Target.Row, 3) = "Остановка"
End Select
End If
End Sub

Но у меня на первой строке кода ошибку выдаёт.
Baxton вне форума Ответить с цитированием
Старый 19.04.2018, 11:17   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

Сделал на ВПР. проверяйте:
Образец2.zip

p.s. справочник находится на отдельном листе. Лист скрыт (дабы не пугать пользователя).

p.p.s. можно и через макросы сделать, если нужно.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.04.2018, 11:41   #5
Baxton
Новичок
Джуниор
 
Регистрация: 18.04.2018
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Сделал на ВПР. проверяйте:
Вложение 92701

p.s. справочник находится на отдельном листе. Лист скрыт (дабы не пугать пользователя).

p.p.s. можно и через макросы сделать, если нужно.
Супер!!!
Спасибо огромное. Как подредактировать уже разобрался ))
Baxton вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как вычесть массивом числа в столбце друг от друга RedAlertYurii Microsoft Office Excel 4 01.04.2017 20:40
Найти одинаковые числа в столбце ksavrn Microsoft Office Excel 1 26.09.2014 18:33
как округлить числа во всём столбце(2500 ячеек)? Danatos Microsoft Office Excel 13 15.02.2011 07:08
Вопрос по комментариям Alex Cones Общие вопросы Delphi 5 02.09.2009 11:14
2 столбец для того, чтобы автоматически создавались числа, которые позволяли уравнивать числа в 3 столбце ppv Microsoft Office Excel 37 05.08.2009 21:19