По мотивам данной темы хотел найти простой скрипт шифровки/дешифровки данных, но не удалось нагуглить ничего полезного. Есть вариант найти что-то простое для среднего пользователя?
Можно ли разделить выбранный диапазон на отдельные ячейки, для извлечения данных в разные переменные? Диапазон может быть выбран на соседних ячейках (А1, А2) или через Ctrl (A1, B3).
В результате хочу иметь переменные: х = значение из А1 y = значение из А2 (или В3 по второму варианту)
Есть один пользователь с правом редактирования книги, остальным нужен только просмотр. Иногда этот файл открывают одновременно, хочу сделать, чтоб не мешали друг другу, не сохраняли копии, не видели лишних предлложений сохранить файл и т.д. Можно ли открыть книгу в режиме "только для чтения" по условию? Что-то типа:
Код
Private Sub Workbook_Open()
If Environ("USERNAME") <> "admin" Then (открыть только для чтения)
End Sub
Добрый день. Если открыть файл-пример, выполнить сортировку, сохранить и закрыть - при следующем открытии отображается ошибка и предложение восстановить файл. Сохранить его тоже не получается (поскольку файл восстановлен), а только "Сохранить как..." В чем может быть причина? Офис 2010.
Код
Sub sort()
'Сортировка по убыванию столбца J
iLastrowI = Cells(Rows.Count, 9).End(xlUp).Row
ActiveWorkbook.Worksheets(1).sort.SortFields.Add Key:=Range("J3"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 'Order:=xlAscending - по возрастанию
With ActiveWorkbook.Worksheets(1).sort
.SetRange Range("I3:M" & iLastrowI)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Добрый день. Есть позиции на складе в виде первой таблицы. Как просуммировать их (макросом, без формул) по трем критериям (название, наличие сертификата и плотность) и вывести сокращенную таблицу (где просуммированы штуки и масса одинаковых позиций)?
Есть таблица товаров с указанием количества, возможно ли формулой сделать выборку строк во вторую таблицу, где количество больше нуля, без пустых строк? Пример с желаемым результатом приложил.
Добрый день! Как отслеживать изменение значения в ячейке? Нашел на форуме такой ответ, но он отслеживает ручное изменение, а на формулу не реагирует. Как отслеживать изменение полученного результата?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
MsgBox "B2 изменилось"
End Sub
В продолжение "спортивной" темы В модуле Userform моего "боевого" макроса не работает Application.ScreenUpdating = False. Вот где настоящие тормоза. Не связано ли это с Userform?
Добрый день! Есть файл с данными в сетевой папке и локальный файл с формулами. 1. Как открыть занятый сетевой файл (для копирования диапазона), автоматически подтверждая сообщение "Открыть только для чтения"? 2. Как его закрыть, пропуская сообщение о сохранении и "В буфере обмена содержатся данные..." Макрорекордер ничего не выдал.
Добрый день! Я уже задавал похожий вопрос, к сожалению, наиболее подходящий вариант не работает (копия вставляется на первый лист). Как скопировать его на второй лист или удалить его на втором листе по условию?
Код
Sub Макрос3()
If Range("A2") = "Да" Then
Sheets("Лист1").Shapes("Рисунок 1").Copy
Sheets("Лист2").Paste Destination:=Range("D10") 'Почему вставляется на первый лист?
Else
Sheets("Лист2").Shapes("Рисунок 1").Delete
End If
End Sub
Добрый день! Хочу создать регулярное выражение для проверки текста типа 125х250,3. Числа могут быть целые и дробные (с одним знаком после запятой), между ними "икс" или "х" (рус). По теме RegExp написал такое:
Код
\d+[,]?\d?[xх]\d+[,]?\d+
Если в первом числе после запятой знаков больше одного - до запятой все отсекает. И вообще, хочу, чтоб больше одного знака после запятой считалось ошибкой.
Добрый день! Помогите придумать подходящую формулу. Есть список названий (всего 4). Они могут быть выбраны выпадающим списком в двух желтых таблицах случайным образом. Желаемый результат - вывести неповторяющийся список в голубую таблицу (порядок не важен) и просуммировать повторяющиеся названия.
В ячейке А1 - выпадающий список, который берется из столбца D В ячейке В1 хочу найти соответствие элемента списка и номера формулой ВПР. Выдает непредсказуемый результат. Пример приложил.
Добрый день! Подскажите команду установки положения выбранной кнопки на листе. Файл открывается на разных компьютерах, на некоторых кнопки разьезжаются в разные стороны, хотя в настройках выбрано "Не перемещеть и не изменять размеры". Почему так происходит - непонятно. Есть идея ровнять их макросом при открытии.
Файл с макросами создан в Офис 2010, при попытке открыть на ноутбуке Win10 английская версия и Офис 365 Ентерпрайз английская відает сообщение: "Макрос поврежден, мы его удалили."
"The visual basic for application (VBA) macros in this workbook are corrupted and have been deleted. The macro corruption most likely exist in the current file. To recover the macro open a backup copy of this file if you have one."
Если оба макроса находятся на Листе, то все работает, если вызывающий макрос находится в Модулях - не работает. Можно ли вызвать из модуля макрос с листа?