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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 198 След.
Как изменить макрос, чтобы он при удалении строк в таблице - не трогал форматирование ячеек
 
Макрос не удаляет форматирование, он удаляет ячейки. А нет ячейки - и форматировать нечего. Помимо удаления, в Excel имеется несколько способов очистки ячеек, в т.ч. и очистка содержимого.
[ Закрыто] Макрос выполнять на листе, соответствующем нажатой кнопке
 
Код
Private Sub CommandButton1_Click()
N = CommandButton1.Caption
Start N
End Sub
Sub Start(N)
MsgBox N
End Sub
Практика или самообучение, упражняемся в софистике )
 
Началось... :D
Буквы все знакомые, а что пишет??? :cry:
VBA. Объявление большого числа переменных с одинаковым типом, Укоротить строки с объявлением однотипных переменных
 
Цитата
tolikt написал:
И переменные используются, чтоб не менять номера столбцов по всему коду, а просто менять один раз значение переменной номера столбца.
Не правильно ты, дядя Федор, бутерброд ешь.
Вариант 1 - сделать умную таблицу, и работать с ней, используя ее наименования столбцов.
Вариант 2 - эмулировать аналогичное макросом, например через коллекцию.
При этом руководство само сможет таскать столбцы в угодное им место, не нарушая при этом работу макроса.
Сохранение значений функции Propis при копировании макросом в отдельный файл
 
Код
Sub СохранениеВАрхивДоговор()
    Dim SavedName
    SavedName = Application.GetSaveAsFilename(InitialFileName:="№" & №пр & " " & Опр & ".xlsx", _
                                              FileFilter:="Рабочие книги (*.xlsx),*.xlsx")
    If SavedName = False Then Exit Sub
    Application.ScreenUpdating = False
    Application.CopyObjectsWithCells = False
    Application.DisplayAlerts = False
    Sheets("Договор").Copy Before:=Sheets(1)
    With Sheets(1)
        .UsedRange.Value = .UsedRange.Value
        .Move
        ActiveWorkbook.SaveAs SavedName
        ActiveWorkbook.Close
    End With
    Application.DisplayAlerts = True
    Application.CopyObjectsWithCells = True
    Application.ScreenUpdating = True
End Sub
Изменено: RAN - 1 авг 2020 11:35:20
Сбор данных из большого количества однотипных книг в одну, Сбор данных из большого количества однотипных книг в одну строку
 
Подозреваю, что в исходнике был непрерывный диапазон.
Код
a = Workbooks(importWB.Name).Sheets("info").Range("C6,C7,H5").Value

такая запись вернет только значение из С6
Нужно  формировать массив циклом.
ВПР выдает ошибку НД, хотя данные поиска одинаковы
 
Мелкий, а ты откуда знаешь? Может там Application.Trim живет?  :D
При сохранении в CSV формате исчезают нули слева
 
А я читал, и кивал.  :D
При сохранении в CSV формате исчезают нули слева
 
Цитата
fortochkin05 написал:
никак не возможно сохранить csv файл с цифрами
Брехня. Запросто.
А вот открыть его в Excel с лидирующими нулями - дело другое.
Как определить последнюю строку с данными, чтобы обработать диапазон в цикле?
 
Цитата
Анатолий Смирнов написал:
как настроить этот цикл?
Например так
Код
For Each cell In Range("A1").CurrentRegion.Resize(, 1)
Обновление 18.06
 
Цитата
Андрей VG написал:
Такие баги порой годами висят...
Человек расстроился, даже аватарку сменил... Но нельзя же ему ежедневно счетчик обнулять. Или по несколько раз в день. :D
Это уже даже не
Цитата
БМВ написал:
вот ИИБАГ и вас посетил :-)
Изменено: RAN - 19 июл 2020 19:17:49
Перенести из файла в файл изображения
 
Цитата
Андрей написал:
но столкнулся с проблемой как в этот  Image1 его затянуть
Это как раз не проблема
Код
Sub qq()
    Set ActiveSheet.Image1.Picture = LoadPicture("Z:\Users\OFIS\Pictures\3.jpg")
End Sub

Проблема - что с ним дальше делать.
Как сохранять файл надстройки для Word?
 
Находите этот файл в проводнике, и открываете командой ПКМ "открыть".
Либо все то-же, но из ворда через меню файл-открыть.
Функция ВПР ищет точное значение, но почему-то выдаёт разный результат.
 
На картинках вообще все функции плохо работают.
Как объявить массив массивов и словарь словарей в цикле?
 
Создать массив массивов
Построение выпадающего списка на основе данных другой книги
 
Цитата
topsufiy написал:
Может есть какой то способ
Есть. И имя ему "ФОРМУЛА".
Построение выпадающего списка на основе данных другой книги
 
Цитата
БМВ написал:
значит не обманете
Ведмедь, ты не погорячился?
Цитата
topsufiy написал:
смыл этого сервисного листа
обмануть Excel. Он же тупой. Он знает, что из другой книги тянуть нельзя, но, что нельзя тянуть с листа этой же книги, на который вытягиваются данные из другой книги, он не ведает.
Размещение картинок на листе с порядком видимости - по отношению к центру фигуры
 
Цитата
Красноглазый Пиркаф написал:
Здравствуйте.Помогите решить вопрос.
Неправильная мантра
Надо так
Здравствуйте. Сами мы не местные. Не хочу учиться, хочу жениться. Напишите макрос на халяву.  :(
Расположение итоговых данных над группированным списком
 
Переносите лист в новую книгу, выполняете требуемые манипуляции, вертаете на место.
Рассчитать формулы без знака "="
 
Цитата
=ЕСЛИ(C18="";"";ЕСЛИОШИБКА(ДВССЫЛ(ИНДЕКС($D$5:$D$11;ПОИСКПОЗ(C18;$C$5:$C$11;0);1));""))
Размещение картинок на листе с порядком видимости - по отношению к центру фигуры
 
Сделать это макросом легко и просто - выполнить макрос.
Размещение картинок на листе с порядком видимости - по отношению к центру фигуры
 
Вычисляете центр овала, и вставляете свои картинки с привязкой к нему, в порядке, обратном вашему списку.
Пользовательская функция VBA "Определения скрыта ли строка", базовый VBA
 
Цитата
Kanitele написал:
пользовательской функции, которая поможет мне определить какая строка таблицы скрыта
Код
Function RowHidden(rowNumber As Long) As Boolean
    RowHidden = Rows(rowNuumber).Hidden
End Function

Все остальное - от лукавого.
Изменено: RAN - 25 июн 2020 20:53:47
Как открыть ссылку макросом НЕ через IE?, Как открыть ссылку браузером по умолчанию или MS Edge?
 
Который день не могу понять, чем обычное
Код
ThisWorkbook.FollowHyperlink "https://www.planetaexcel.ru/"

не подходит?
формула вида ='C:\sites\
 
Цитата
– Во имя Бахуса, Мома и Кома, троицы великого святого Пантагрюэля, – произнес Горанфло, – нарекаю тебя карпом. И, обмакнув концы пальцев в стакан, окропил курицу несколькими каплями вина.
:D
Ищите вашего Горанфло.

Вить, предлагаю "Как узнать, кто, и как нарек курицу папку."
Перезапись таблицы ListObject vba
 
Неча на макрос пенять, коли формула крива.
=$A1<>СМЕЩ($A1;1;0)
Привязать кнопки сложения и вычитания к активной ячейке заданного столбца.
 
Цитата
oleg9911 написал:
Сгруппированные кнопки, мне кажется, оптимальнее всего.
Как сейчас помню, Юрий М, уже рисовал такое. Токмо кнопки по листу не таскались.
Переход на вкладку MultiPage программно
 
https://www.ball-8.ru/
Привязать кнопки сложения и вычитания к активной ячейке заданного столбца.
 
Цитата
vikttur написал:
чтобы кнопка плюсовала
Это таки да, ключ зажигания.
Но это
Цитата
vikttur написал:
макрос кнопки
уже автомобиль для этого ключа.  :D
Как сцепить в TextBox2 значение из TextBox1 и текущий год при активации UserForm?
 
Код
Me.TextBox2.Value = Me.TextBox1.Value & " " & Year(Date)
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 198 След.
Наверх