Время заявки по столбцу / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Время заявки по столбцу

4 сообщений из 4, страница 1 из 1

Время заявки по столбцу

#39364680

Ser Artur

Участник

Откуда: Armenia

Сообщения: 1 304

Рейтинг: 0 / 0

Добрый день господа форумчане. Возник такой "проблемка" В столбце А:А вписываются данные о заявках и нужно чтоб в яйчейках столбцы В:В вписывались время получения зачвки Написал такой код но он все яйчейки меняет

Код: vbnet

1.
2.
3.
4.
5.

For n=1 To 10
if Range("A" & n)="" Then
Range("B" & n).FormulaR1C1="=now()"
End if
Next n

...

Рейтинг:

0 / 0

12.12.2016, 09:53

| Ответить | Цитировать | Написать

Время заявки по столбцу

#39364682

Ser Artur

Участник

Откуда: Armenia

Сообщения: 1 304

Рейтинг: 0 / 0

UPS

Код: vbnet

1.
2.
3.
4.
5.

For n=1 To 10
if Range("A" & n)<>"" Then
Range("B" & n).FormulaR1C1="=now()"
End if
Next n

...

Рейтинг:

0 / 0

12.12.2016, 09:54

| Ответить | Цитировать | Написать

Время заявки по столбцу

#39365312

Казанский

Гость

Ser Artur,
в модуль листа (правый клик по ярлычку листа - Исходный текст). Можно менять сразу несколько ячеек в ст. А (удаление, вставка, автозаполнение...)

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
  On Error GoTo 1
  Application.EnableEvents = False
  For Each c In Intersect(Target, Columns(1))
    If IsEmpty(c.Value) Then
      c.Offset(, 1).ClearContents
    Else
      c.Offset(, 1) = Now
    End If
  Next
1 Application.EnableEvents = True
End Sub

...

Рейтинг:

0 / 0

12.12.2016, 23:33

| Ответить | Цитировать | Написать

Время заявки по столбцу

#39365563

Ser Artur

Участник

Откуда: Armenia

Сообщения: 1 304

Рейтинг: 0 / 0

Большое спасибо. я здесь откопал код маленький, но Ваш лучше

Код: vbnet

1.
2.
3.
4.
5.
6.

For Each cell In Target
If cell.Column = 5 _
And cell.Value <> "" _
And IsEmpty(cell.Offset(0, 1)) _
Then cell.Offset(0, 1).Value = Format(Now(), "DD.MM.YYYY.HH.MM.SS")
Next cell

...

Рейтинг:

0 / 0

13.12.2016, 11:28

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Время заявки по столбцу

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&gotonew=1&tid=2172835]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	40ms
get topic data:	10ms
get first new msg:	8ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	285ms

total:	428ms