Добрый день. Есть файлик с заполнением времени из одной ячейки (добрые люди с кодом помогли, спасибо). Теперь в этой ячейке выпадающий список, проблема в том, чтобы при выборе из выпадающего списка значение так-же помещались в столбец на последнею пустую ячейку. Потом, я так понимаю, можно записать на каждое значение макрос и присвоить соответствующей кнопке. нужно подкорректировть сам код или как то еще...
Добрый день. Есть файлик с заполнением времени из одной ячейки (добрые люди с кодом помогли, спасибо). Теперь в этой ячейке выпадающий список, проблема в том, чтобы при выборе из выпадающего списка значение так-же помещались в столбец на последнею пустую ячейку. Потом, я так понимаю, можно записать на каждое значение макрос и присвоить соответствующей кнопке. нужно подкорректировть сам код или как то еще...SergejSor
Private Sub Worksheet_Change(ByVal Target As Range) Dim i& i = Cells(Rows.Count, 3).End(xlUp).Row If Target.Address <> "$D$3" Then Exit Sub Cells(i + 1, 3).Value = Target.Value Exit Sub End Sub
[/vba]
так хотели? [vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range) Dim i& i = Cells(Rows.Count, 3).End(xlUp).Row If Target.Address <> "$D$3" Then Exit Sub Cells(i + 1, 3).Value = Target.Value Exit Sub End Sub
Дата: Воскресенье, 02.09.2012, 14:56 |
Сообщение № 3
Группа: Гости
Спасибо, то что надо. Вопрос а как теперь сделать 12 кнопок, при нажатии на 1 в столбец приходило "Вариант 1", на вторую "Вариант 2" и т. д. Запись макроса не помогла...(
Спасибо, то что надо. Вопрос а как теперь сделать 12 кнопок, при нажатии на 1 в столбец приходило "Вариант 1", на вторую "Вариант 2" и т. д. Запись макроса не помогла...(SergejSor
Разобрался... Спасибо.. Возможно ли сделать форму, например при выделении любой ячейки столбца появлялась форма с 12 кнопками и при нажатии на любую из них, значение помещалось в последнюю пустую ячейку? Форма после выбора должна закрыться...
Разобрался... Спасибо.. Возможно ли сделать форму, например при выделении любой ячейки столбца появлялась форма с 12 кнопками и при нажатии на любую из них, значение помещалось в последнюю пустую ячейку? Форма после выбора должна закрыться...SergejSor
Не совсем... Вот примерно как должно выглядеть... Только в другом файле еще есть кнопка времени, то что раньше делали, и оба макроса вместе работать не хотят.
Не совсем... Вот примерно как должно выглядеть... Только в другом файле еще есть кнопка времени, то что раньше делали, и оба макроса вместе работать не хотят.SergejSor
Вот два макроса: один на время, второй на вставку значений. Работать не хотят, может чего не правильно... В К2 время в R2 значения...
[vba]
Code
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) Dim i& i = Cells(Rows.Count, 11).End(xlUp).Row If Target.Address <> "$K$2" Then Exit Sub Cells(i + 1, 11).NumberFormat = "h:mm" Cells(i + 1, 11).Value = Now - Date Exit Sub End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim i& i = Cells(Rows.Count, 9).End(xlUp).Row If Target.Address <> "$R$1" Then Exit Sub Cells(i + 1, 9).Value = Target.Value Exit Sub End Sub
[/vba]
Вот два макроса: один на время, второй на вставку значений. Работать не хотят, может чего не правильно... В К2 время в R2 значения...
[vba]
Code
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) Dim i& i = Cells(Rows.Count, 11).End(xlUp).Row If Target.Address <> "$K$2" Then Exit Sub Cells(i + 1, 11).NumberFormat = "h:mm" Cells(i + 1, 11).Value = Now - Date Exit Sub End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim i& i = Cells(Rows.Count, 9).End(xlUp).Row If Target.Address <> "$R$1" Then Exit Sub Cells(i + 1, 9).Value = Target.Value Exit Sub End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$K$2" Then: Cells(Cells(Rows.Count, 11).End(xlUp).Row + 1, 11).Value = Now - Date If Target.Address = "$R$1" Then: Cells(Cells(Rows.Count, 9).End(xlUp).Row + 1, 9).Value = Target.Value End Sub
[/vba]
[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$K$2" Then: Cells(Cells(Rows.Count, 11).End(xlUp).Row + 1, 11).Value = Now - Date If Target.Address = "$R$1" Then: Cells(Cells(Rows.Count, 9).End(xlUp).Row + 1, 9).Value = Target.Value End Sub
Вот два макроса: один на время, второй на вставку значений. Работать не хотят, может чего не правильно...
SergejSor, уж извините - чушь несусветная (один Exit Sub перед End Sub чего стоит). Вам надо притормозиться и почитать немножко теории. В Библиотеке форума есть книги по VBA: http://www.excelworld.ru/index/vba/0-12
Private Sub Worksheet_Change - это обработчик события, который для одного листа предполагается в единственном числе. Т.е. ветвиться надо внутри этой одной процедуры. Это базовые понятия, и если Вы их пока не знаете, остальным знающим очень сложно что-либо объяснять.
Quote (SergejSor)
Вот два макроса: один на время, второй на вставку значений. Работать не хотят, может чего не правильно...
SergejSor, уж извините - чушь несусветная (один Exit Sub перед End Sub чего стоит). Вам надо притормозиться и почитать немножко теории. В Библиотеке форума есть книги по VBA: http://www.excelworld.ru/index/vba/0-12
Private Sub Worksheet_Change - это обработчик события, который для одного листа предполагается в единственном числе. Т.е. ветвиться надо внутри этой одной процедуры. Это базовые понятия, и если Вы их пока не знаете, остальным знающим очень сложно что-либо объяснять.Gustav
Вопрос : Есть три книги, одна основная куда заносятся все данные и две в которых связями берутся данные из основной книги и один столбец который возвращает данные в основную книгу. Проблема в том, что если вставить строку в основной книге в связанных естественно эта строка не появляется и данные сдвигаются на одну ячейку вверх. Возможно ли решение чтобы можно было добавлять строки и связанных файлах тоже происходили изменения?
Огромное спасибо! Все работает.
Вопрос : Есть три книги, одна основная куда заносятся все данные и две в которых связями берутся данные из основной книги и один столбец который возвращает данные в основную книгу. Проблема в том, что если вставить строку в основной книге в связанных естественно эта строка не появляется и данные сдвигаются на одну ячейку вверх. Возможно ли решение чтобы можно было добавлять строки и связанных файлах тоже происходили изменения?SergejSor
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
