Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Отсортировать таблицу со смешанными данными, таблица с цифрами, буквами и смешанным содержанием
 
Спасибо, помогло.
[ Закрыто] Помогите с макросом
 
Проблема в трансформации большой таблицы.
И с другими темами эта не связана.
[ Закрыто] Помогите с макросом
 
Спасибо за замечания.
Это не цирк, нужен макрос на выделенное - вырезать С-J - вставить в А-H со сдвигом вниз.
Убрать объединение сразу по всем ячейкам можно и одной кнопкой без макроса.
Название темы можно заменить на "Трансформация таблицы".
Изменено: vitaboyarsh - 9 Фев 2019 16:24:55
[ Закрыто] Помогите с макросом
 
Нашёл макрос, который позволяет объединить ячейки с одинаковыми значениями в выделенном диапазоне в одном или нескольких столбцах.
Код
Sub JoinDoubles()
Dim i As Long
Dim j As Long
Application.DisplayAlerts = False
For j = 1 To Selection.Columns.Count
  For i = Selection.Rows.Count To 2 Step -1
    If Selection.Cells(i - 1, j) = Selection.Cells(i, j) Then
    Range(Selection.Cells(i - 1, j), Selection.Cells(i, j)).Merge
    End If
  Next
Next
Selection.VerticalAlignment = xlVAlignCenter
Application.DisplayAlerts = True
End Sub

После работы такого макроса, к примеру множество одинаковых значений в ячейках столбца А объединяются, после чего можно снять объединение ячеек в ручную, остаётся одно значение, к примеру в ячейке А3.
А затем нужна следующая автоматизация: выделенные значения в нескольких строках столбцах С-J вырезаются и вставляются в столбец А ниже ячейки А3 со сдвигом вниз других ячеек.
Изменено: vitaboyarsh - 9 Фев 2019 16:08:49
Поиск на сайте в файле excel
 
Нужно на странице сайта создать поисковые блоки, в которых пользователь будет вводит значения, по которым должен осуществляться поиск в отдельном файле excel (через фильтры) с выгрузкой данных на той же странице в отдельном поле. Вероятно, через PHPExcel. При этом сам файл целиком пользователю не доступен ни для просмотра, ни для скачивания. То есть Excel Online не подходит.
Дополню: пользователи должны ещё ввести имя пользователя (без пароля) и где-то должен быть лог со списком пользователей, которые обращались к файлу.
С Вас: пример сайта с поисковыми полями и файлом excel с любыми данными.
С меня: 1000 р.
Изменено: vitaboyarsh - 12 Дек 2018 20:14:54
Замена листа при закрытии/открытии книги
 
спасибо за помощь

Нет, лист ААА я уже удалил.
Сейчас при открытии файла удаляется интерфейс, заполняется лог, отображается главный лист и рабочая копия базы, скрывается лог.
А при закрытии файла удаляется рабочая копия, из архивной базы копируется новая рабочая копия (для следующего сеанса), пишется лог, скрываются все листы, восстанавливается интерфейс и сохраняется файл.

Конечно, можно ещё улучшать защиту (например, делать проверку на соответствие заданного пути к файлу и самого имени файла) (из другой темы).
Изменено: vitaboyarsh - 30 Июн 2016 19:04:51
Замена листа при закрытии/открытии книги
 
Цитата
Бахтиёр написал:
Прилагаю файл где вышеописанный код работает нормально.
Спасибо, я наверно перенапряг Эту книгу разными кодами, поэтому кричит "Метод Copy из класса Worksheet завершен неверно"
У меня Эта книга полностью так выглядит (см. пример).
На листах ААА и BBB я тренируюсь, чтобы потом BBB заменить на Data.
Замена листа при закрытии/открытии книги
 
он же должен был скопироваться и стать BBB(2), а BBB(2) переименоваться в ААА
Замена листа при закрытии/открытии книги
 
Метод Copy из класса Worksheet завершен неверно
Замена листа при закрытии/открытии книги
 
я уже поменял.
Однако Метод Copy из класса Worksheet завершен неверно.
Как быть?
Замена листа при закрытии/открытии книги
 
Помогите разобраться.
Перед закрытием книги необходимо удалить лист AAA.
Это работает.
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = 0
    Worksheets("AAA").Delete
    Application.DisplayAlerts = 1
End Sub
А после открытия той же книги необходимо лист BBB переименовать в ААА.
Но почему-то не работает.
Код
Private Sub Workbook_Open()
    Sheets("BBB").Select
    Sheets("BBB").Copy After:=Sheets(2)
    Sheets("BBB (2)").Select
    Sheets("BBB (2)").Name = "AAA"
End Sub
Таким образом, лист BBB является архивным (постоянным), а лист AAA - временным и рабочим на время одного сеанса.
Изменено: vitaboyarsh - 30 Июн 2016 13:29:07
Доступ к книге по соответствию заданного пути, Зашита данных
 
спасибо, разобрался, я в путь писал ещё заголовок файла, а надо только путь до папки
Доступ к книге по соответствию заданного пути, Зашита данных
 
Я понял так, что в код
Код
Private Sub Workbook_Open()
    If ThisWorkbook.Path <> "C:\Мои документы" Then
        MsgBox "Книга ворованная!", 64, "Фиг вам!"
        ThisWorkbook.Close
    End If
End Sub

вместо "C:\Мои документы" необходимо ввести свой путь к файлу.
Затем сохраниться и выйти.

Потом если НЕ менять расположение файла, то при его открытии должна появиться книга.
Однако, по макросу появляется сообщение и далее ОК - закрывается файл.

а должно быть так только если файл поменяет расположение.
Доступ к книге по соответствию заданного пути, Зашита данных
 
Не помогло оба варианта.
Даже если путь верен, то всё равно или появляется сообщение, или закрывается приложение.
Изменено: vitaboyarsh - 29 Июн 2016 13:50:59
Доступ к книге по соответствию заданного пути, Зашита данных
 
спасибо.
Не, не смогут, т.к. листы скрыты, а на VBA пароль
Доступ к книге по соответствию заданного пути, Зашита данных
 
Здравствуйте!
Подскажите, как с целью защиты книги, ограничить доступ к ней по соответствию заданного пути к файлу?.
Т.е., если файл лежал на диске C:\\Мои документы, а его переместили на D:\\Сворованное, то макрос должен проверить полный путь к файлу и запретить доступ к книге.
Спасибо.
Отсортировать таблицу со смешанными данными, таблица с цифрами, буквами и смешанным содержанием
 
как применить автоматическую сортировку по столбцам в "Исходной", чтобы получился результат "Как надо"???
Отсортировать таблицу со смешанными данными, таблица с цифрами, буквами и смешанным содержанием
 
Есть у меня таблица "Исходная" с цифрами, буквами и смешанным содержанием.
Помогите автоматически отсортировать как в примере "Как надо".
Обычная сортировка уже применена в "Исходной", а конечный результат нужен в "Как надо".
Спасибо.
Изменено: vitaboyarsh - 30 Май 2016 20:45:45
Динамические каскадные списки на основе сводных таблиц для одной БД
 
Цитата
CrazyRabbit написал:
Насколько важно, что расчет через сводные таблицы, а не через формулы например?
главное - результат...
Динамические каскадные списки на основе сводных таблиц для одной БД
 
Прошу помощи в адаптировании примера с динамическими каскадными списками на основе сводных таблиц для своей БД.
1-й лист для поиска, 2-й для результатов, 3-й - скрытая база
 
нужен пример, как на 1-м листе реализовать форму поиска с выбором из списка, который (поиск) будет производиться в столбцах на другом (скрытом) листе, а результаты поиска выдаваться на 2-м листе для последующего распечата.
1-й лист для поиска, 2-й для результатов, 3-й - скрытая база
 
Подскажите, пожалуйста, шаблон или пример, как реализовать следующую таблицу:
база данных на скрытом листе
открыты только 1-й лист и 2-й:
1-й для поисковых строк по столбцам в скрытой базе,
2-й для отображения результатов поиска и распечатывания.
Чтобы при заданном поиске на 1-м листе, производился поиск на скрытом листе, далее открывался бы 2-й лист с результатами поиска.
Новичок.
Спасибо.
Изменено: vitaboyarsh - 13 Янв 2016 06:43:26
Отображение значения ячейки активной строки в другой ячейке другой строки
 
огромное спасибо!!!
Отображение значения ячейки активной строки в другой ячейке другой строки
 
спасибо
а как без выделения строки и F9
а просто указанием на любую ячейку в строках 10-99?
Отображение значения ячейки активной строки в другой ячейке другой строки
 
Помогите решить пример:
Есть ячейка в 3-й строке: H3
Есть заполненные ячейки в столбцах и строках: A-Z 10-99

Как в H3 отобразить (макрос или формула) значение ячейки столбца M в активной строке, т.е. любой между 10-99?
Страницы: 1
Наверх