Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Копирование данных из таблицы в разные листы другой книги
 
Добрый день. Подскажите как реализовать  копирование данных из таблицы в листы другой книги, имена листов которой совпадают с содержимым ячейки в книге "Исходнике". (к примеру ячейка A3=Вост-Правд, а в книге назначения имеется лист с таким именем.) В книге назначения также есть листы которые не указаны в столбце А книги источника.
Форма таблиц различная( т.е. в исходнике мы имеем параметр a, b, c которые расположены вертикально подряд; листах другой книги данные располагаются в разных строках (9, 48, 50 строки).
Заранее благодарю.
Изменено: Pavel Picasso - 07.07.2017 22:01:27 (Исправил файлы согласно правилам форума)
Макрос округления значений в таблице
 
Добрый день!
Имеется код макроса который в указанном листе округляет значения в каждой ячейке до 3х знаков после запятой при условии что в ячейке нет формулы и ячейка не является пустой. Диапазон для округления задан значениями S(строка) и С(столбец) в листе "ц-1"
Подскажите как сделать чтоб этот диапазон определялся при выделении ячеек: т.е. выделяем мышкой диапазон (таблицу) и при нажатии хот-кея(либо вытащить кнопку на панель или ленту) запускался макрос и обрабатывал данный диапазон.
И ещё можно ли как ни будь оптимизировать код. Что то мне кажется подход грубоват, в моём случае :( Макрос реально долго работает. табличка приложена в файле Пример

Код
Sub Округление()
Dim wb As Workbook
    Dim c As Integer
    Dim S As Integer
    Dim a As Range
    
    Set wb = ThisWorkbook
    Set ws1 = wb.Worksheets("Ц-1")
 For S = 49 To 79
 For c = 2 To 61
    If Cells(S, c).HasFormula Then
        Cells(S, c).Value = Cells(S, c).Formula
 Else
    If Cells(S, c).Value = "" Then
        Cells(S, c).Value = ""
 Else
       Cells(S, c).Value = Round(Cells(S, c), 3)
 End If
    End If
 Next
    Next
End Sub

Изменено: Pavel Picasso - 19.08.2016 15:32:18
Защита определённого диапазона листа
 
Доброе время суток уважаемые обитатели форума!
Задача такова ! Есть таблица ,в строку которой ,пользователь может внести  значения только один раз.После чего  строка ( диапазон) должен быть заблокирован от изменений. Предпоследняя ячейка(Контроль) должна содержать дату и время ввода данных. Последняя же ячейка(примечание) остаётся доступна для редактирования. Файл с таблицей прилагаю. Заранее спасибо.
SQL запрос из нескольких таблиц
 
Огромное спасибо ! Всё работает.
SQL запрос из нескольких таблиц
 
Доброе время суток уважаемые обитатели форума ! Появилась необходимость  перерыть код запроса SQL. Собственно вот что имеем:
Скрытый текст

собственно как видно из выше представленного то что,  запрос собственно одинаков для каждой из 5-ти таблиц. Можно ли как нибудь сократить этот код. Также необходимо чтоб все данные выгружались  одним массивом( имеется в виду что переменная "с", которая в приведённом запросе разграничена строками 2, 50, 120, 210, 260, определялась по окончанию запроса из 1-й таблицы  2-й таблицы , ну и т.д.

Простыня под спойлер. Изменил[МОДЕРАТОР]
Доработка функции формата даты/времени VBA
 
Спасибо большое ! первый вариант от Sanja Работает ! сейчас ещё и этот проверю !
Изменено: Pavel Picasso - 15.04.2014 12:39:31
Доработка функции формата даты/времени VBA
 
Дело в том что  база данных значений пополняется чаждые 2 часа по времени 2,4,6,8,10,12,14,16,18,20,22,0(24).Собственно както так.
Доработка функции формата даты/времени VBA
 
Доброе время суток уважаемые форумчане! Есть маленькая функция для задания формата  даты и времени в SQL запросе которую хотелось бы подкрутить:
Код
Function sqlFormatDate2(d As Date) As String    Dim s As String        s = "'" & Format(Year(d), "0000") & _        Format(Month(d), "00") & _        Format(Day(d), "00") & " 03:00:00'"    sqlFormatDate2 = sEnd Function

При формировании  необходимо чтоб время(в приведённой выше функции оно стоит постоянным и равным 03:00:00), определялось и корректировалось относительно текущего системного времени в меньшее чётное значение:
к примеру если текущее время 11:15:36 то необходимо подставлять значение 10:00:00 или же если текущее время 08:15:00 то необходимое значение 08:00:00 и т.д.
Заранее благодарен за помошь
Работа с 2 и более копиями Excel
 
Уважаемые форумчане ! подскажите пожалуйста. Как  открыть файл .xls во второй копии(в отдельном приложении) EXCEL средствами VBA и запустить из него  макрос, произвести сохранение после выполнения макроса в  обеих копиях и закрыть  копию. Интересует  варианты как с с видимым окном так и в скрытом режиме
Страницы: 1
Наверх