Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Santiago
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Формирования отчета (листа) для печати
 
#
12.02.2024 12:30:36
Добрый день.
Есть таблица с сотрудниками и изделиями. Каждый день заполняется какое количество тех или иных изделий сделал каждый сотрудник. В конце месяца надо каждому сотруднику распечатать табличку с его показателями. Сейчас каждому сотруднику приходится печатать табличку на отдельном листе, при этом табличка может занимать у одного сотрудника 1/5 листа, у другого 1/3.
Как собирать эти таблички на один лист, чтобы они разделялись пустой строкой? А при печати, если табличка не влезает на А4 то она не разрывалась, а переносилась на следующий лист целиком?
 
Перейти    
Видимость кнопок на ленте
 
#
26.01.2024 16:20:52
Доброго дня всем.
Подскажите, возможно сделать так, чтобы свои кнопки на ленте отображались или нет в зависимости от того кто открыл файл?
Есть форма авторизации, в зависимости от того какой логин/пароль ввели на листе видны или нет определенные строки, столбцы и кнопки на листе. Есть большое желание и необходимость перенести кнопки с листа на ленту.
 
Перейти    
Поля формы обязательные для заполнения
 
#
17.07.2023 12:39:07
Добрый день.
Проверяю поле формы на заполненность таким кодом
 
Код
For Each X In Me.Controls
        If TypeOf X Is MSForms.TextBox Or TypeOf X Is MSForms.ComboBox Then
           With X
             If .Value = ""  Then
                MsgBox "Недопустимое пустое поле!", 48, "Сообщение"
                .SetFocus
                Exit Sub
             End If
           End With
        End If
    Next

Вроде все хорошо, но есть одно но... Если ввести в такое поле пробел, то оно считается заполненным, а по факту данных в нем нет.
Подскажите как устранить?
 
Перейти    
Вставка скопированных диапазонов
 
#
22.06.2023 11:41:27
Доброго дня, товарищи!
Копирую диапазоны из разных мест одного листа на другой, таким образом
Код
Dim rng1, rng2, rng3 As Range
Set rng1 = ActiveSheet.Range("A5:A15")
Set rng2 = ActiveSheet.Range("D5:R15")
Set rng3 = ActiveSheet.Range("AI5:AJ15")
Union(rng1, rng2, rng3).Copy
Sheet1.Activate
ActiveSheet.Paste Range("C8")

Вставляются все диапазоны подряд. Возможно вставить сначала rng1, rng2, потом вставить столбик с подсчетами rng2, а после него rng3?
 
Перейти    
Границы ячеек
 
#
19.06.2023 12:40:56
Добрый день.
Есть таблица которая получается путем копирования и вставки данных с других листов. Надо сделать столбец примечания после последнего столбца и каждую ячейку обвести границами.
Подскажите как реализовать?
и еще вопрос: при удалении листа макросом выскакивает окно где надо подтвердить удаление. Как избавиться от этого окна и сразу удалять лист?
 
Перейти    
Нужна помощь с именованным диапозоном
 
#
13.06.2023 13:06:42
Всем доброго.
Уважаемые, подскажите как правильно.
Код
If Sheet1.Range("A1")=1 Then
Sheet1.Range("A3:C10").Cells(2,3).Name = "Ololo"
i = ActiveWorkBook.Names("Ololo")
ElseIf Sheet1.Range("A1")=2 Then
Sheet1.Range("A3:C10").Cells(2,3).Name = "Trololo"
Sheet1.Range("A3:C10").Cells(3,3).Name = "Ololo"
i = ActiveWorkBook.Names("Trololo")
End If
addr = Sheet1.Range(Sheet1.Range(i), Sheet1.Range("C" & Rows.Count).End(xlUp)).Address
Sheet1.Range("A3:C10").Formula = "=SUM(" & addr & ")"

Выдает ошибку.

 
Перейти    
Поиск по второму столбцу ComboBox
 
#
06.06.2022 17:15:35
Доброго времени уважаемые.
Помогите, подскажите..
на форме есть комбобокс который заполняется при открытии формы из именованного диапозона. В диапозоне два столбца и оба видны в комбобоксе.
как вести поиск по второму столбцу при начале ввода в комбобокс? Во всех примерах что находил используется один столбец в комбобоксе.

прошу прощения за отсутствие файла, пишу с телефона.
 
Перейти    
Найти ячейки, где часть значения точно совпадает с искомым
 
#
31.07.2021 15:56:20
Доброго дня знатокам. Подскажите каким образом решить следующее:
имеется столбец со значениями  
аб-в1-5-1
аб-в1-5-2
аг-т2-2-3
аб-в1-50-4
аб-в2-5-1
бв-д13-23-4
и т.п.

при поиске в столбце значения аб-в1-5, в результатах поиска должно быть аб-в1-5-1, аб-в1-5-2, значение аб-в1-50-4 в результат попасть не должно.
методом Range.Find и через If...Like... что то не получается у меня достичь желаемого.
 
Перейти    
Скопировать содержимое ячейки, убрать определенную часть и записать в другую ячеку макросом
 
#
14.06.2021 19:59:06
Доброго времени.
Знатоки подскажите как сделать следующее.
В ячейке имеется запись вида:
Аб-С1-1-1 (могут быть варианты: Абв-Т1-123-3, Абвг-Т2-5-15)
необходимо ее скопировать, привести к виду
Аб-С1-1 (Абв-Т1-123, Абвг-Т2-5)
и записать в другую ячейку
Изменено: vikttur - 14.06.2021 20:53:29
 
Перейти    
Разбить общее количество на шт и занести в таблицу макросом
 
#
12.06.2021 12:20:38
Добрый день.
В заказе указывается общее количество одного изделия, как это количество занести в таблицу поштучно и распечатать бланк (лист книги) столько раз, сколько указано в общем количестве?
Изменено: Santiago - 12.06.2021 12:21:34
 
Перейти    
Ошибка Argument not optional
 
#
18.10.2020 11:33:14
Приветствую всех.

Выдает ошибку Argument not optional
вот  в такой строке
Код
c = WorksheetFunction.SumProduct((WorksheetFunction.Index(sh02.Range("A2:A50"), , 1) = sh01.Range("C1:AY1")) * WorksheetFunction.Index(sh01.Range("C:AY"), WorksheetFunction.Match(.Cells(lastrow, 4), sh01.Range("A:A"), 1)) * sh02.Range("C2:C50") * sh02.Range("E2:E50"))
Подскажите где ошибка?
 
Перейти    
Вычисления внутри макроса по формуле и присвоение результата переменной
 
#
05.10.2020 13:14:48
Добрый день знатоки!
Подскажите как переменной присвоить результат вычисления формулы вида
Код
=(ВПР(.....) + ([rc4]/100)*([rc6]/100))*2

сейчас делаю через вставку в ячейку формулы, потом переменной присваиваю значение ячейки и потом уже использую переменную.
Можно как то избежать вставки формулы в ячейку?
 
Перейти    
Посчитать стоимость изделия, учитывая параметры и материалы
 
#
01.07.2020 13:38:37
Доброго времени.
Уважаемые знатоки подскажите путь решения вопроса.
Необходимо посчитать стоимость изделия в ячейке на листе1 учитывая параметры с листа1, какие материалы используются в изделии (лист3) учитывая единицу измерения материалов (лист2)
как это сделать макросом?
 
Перейти    
ДАТАМЕС в виде кода
 
#
29.05.2015 15:18:01
Добрый день форумчане.
Вопрос таков. Как прикрутить функцию ДАТАМЕС к if.

If Cells(1, 1) > ДАТАМЕС(UserForm1.TextBox1.Value, -1) Then ....
помогите правильно написать
 
Перейти    
Сумма чисел по условию, макрос
 
#
28.05.2015 16:36:30
Добрый день. Не ругайтесь форумчане. Понимаю что вопрос избитый, но все же...Застрял немногос макросом.
Суть вот в чем. Надо сложить значения ячеек в столбце B если рядом в столбце A значения попадают в заданный диапазон.
Например если значение ячейки A находится в диапазоне между  2 и 7, то соответствующие яцейки столбца B суммируем.

Спасибо большое.
 
Перейти    
редактирование динамического диапазона
 
#
01.03.2012 21:28:25
Доброго здравия планетяне.  
Вопрос таков, есть динам. диапазон который надо запихнуть в листбокс на форме, выбрать (добавить/удалить) одну позицию, отредактировать ее и сохранить изменения в диапазоне.  
подскажите как это реализовать
 
Перейти    
Возможно ли восстановить файл?
 
#
12.07.2011 23:27:34
Просто беда. Потерял флешку на которой был файл рабочий со всеми наработками...можно как то, хотя бы часть файла восстановить? может эксель (2007) где нить хранит временные файлы или что то типа того?
 
Перейти    
Число из ячейки в текстбокс
 
#
05.07.2011 23:02:06
Всем доброго времени.  
 
Проблема такова. В ячейке запись вида "с 12:00 до 19:00". Из этой записи надо надо извлечь в один текстбокс на форме 12:00, в другой 19:00. Подскажите как осуществить?
 
Перейти    
Нужна помощь по Ribbon (2007)
 
#
31.05.2011 12:04:41
Не могу разобраться как сбросить состояние checkbox после нажатия на кнопку. Может кто подскажет?
 
Перейти    
Как использовать id кнопки ленты (Ribbon) в макросе
 
#
26.05.2011 11:44:04
Здравствуйте.  
 
Создал свою вкладку на ленте. Есть две кнопки которые обращаются к одному макросу, но в зависимости от того какая кнопка нажата макрос выдаст разный результат.    
Думаю что можно как-то по id кнопки это делать, но как не пойму.  
код вижу примерно такой  
sub test (control As IRibbonControl)    
if id кнопки = "button1" then  
....  
elseif id кнопки = "button2" then  
....  
end if  
end sub  
 
все наверно очень просто, но что-то я никак не соображу сегодня
 
Перейти    
как запретить макросу отправлять определенные листы по почте
 
#
20.05.2011 12:56:06
Доброго времени суток всем.  
 
Суть задачи такова. В книге есть 10 листов, некоторые из них надо оптравлять по почте, а некоторые ни вкоем случае нельзя. Как реализовать чтобы макрос при попытке отправки "запрещенного" листа ругался на пользователя и грозил ему расправой.  
 
Код для отправки активного листа таков  
 
Public Const TheBatPath = "C:\Program Files\The Bat!\thebat.exe"  
Sub SendByMail(control As IRibbonControl)  
   ActiveSheet.Copy  
   ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value  
   With ActiveWorkbook  
           .SendMail Recipients:="trololo@trololo.рф", Subject:="trolola"  
           .Close SaveChanges:=False  
           Cmd = Chr(34) & TheBatPath & Chr(34) & " /MINIMIZE;"  
   End With  
   CreateObject("WScript.Shell").Exec Cmd  
End Sub  
 
подскажите какое условие надо дописать.
 
Перейти    
Удаление кнопок с листа перед отправкой по почте
 
#
20.04.2011 13:34:50
Доброго времени.  
 
Этим макросом отправляю лист из книги по почте  
Sub Pochta()      
   sh34.Copy  
   ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value  
   With ActiveWorkbook  
       .SendMail Recipients:="xxxxx@xxxxxx.ru", Subject:="Будем забирать " & sh34.Range("C1")  
       .Close SaveChanges:=False  
       Cmd = Chr(34) & TheBatPath & Chr(34) & " /MINIMIZE;"  
   End With  
End Sub  
 
кнопка для отправки находится на отправляемом листе.    
 
во вложении то что получает адресат.  
Как сделаь так что бы он получал тоже самое только без кнопок?
 
Перейти    
Ошибка "Формула содержит нераспознанный текст" при вставке формулы через VBA
 
#
19.01.2011 13:52:12
Доброго времени суток всем.  
 
Суть такова, макросом вставляется в ячейку формула ЕСЛИ(RC[-14]<0.5,RC[-18]*RC[-23]+0.5*RC[-13]+RC[-6] (фрагмент формулы). после вставки в ячейке "#ИМЯ?".
 
при разборе оказалось что после вставки число 0,5 excel воспринимает как текст. стоит в ячейке с формулой заново поставить в одном месте запятую в 0,5...ошибка пропадает, отображается правильный результат.  
 
Как можно избавиться от такого недоразумения?
 
Перейти    
Как добавить значение TextBox'a формы в автофигуру "Надпись"
 
#
03.12.2010 17:47:40
на лист макросом вставляется автофигура к которой проставляются размерные линии и текстовое поле в котором должен быть указан размер. Размер должен браться из текстового поля формы.  
не получается вставить значсение из поля формы, выдает ошибку кода.  
Помогите разобраться.
 
Перейти    
Условное форматирование объединенной ячейки
 
#
07.10.2010 14:48:32
Всем доброго времени суток.  
 
Есть объединенная ячейка к которой примено правило форматирования, которое выполняется при условии что она не пустая. Трудности в границами. Например объеденены ячейки B2 и C2, при выполнении условия граница появляется только вокруг ячейки B2. Как исправить?
 
Перейти    
Как скопировать значения с листа и отправить по e-mail?
 
#
29.07.2010 18:15:45
Всем привет.  
Столкнулся вот с чем. Копирую лист с бланком, бланк заполняется формулами, и отправляю его по e-mail. Получатель в полученном файле, в ячейках где формулы, видит ЗНАЧ. Как исправить ситуацию, что бы получатель видел в ячейках значения формул?  
 
Sub SendByMail()  
   sh2.Copy  
   With ActiveWorkbook  
       .SendMail Recipients:="pupkin@vasya.com", Subject:="Тема"  
       .Close SaveChanges:=False  
   End With  
End Sub
 
Перейти    
вставить ВПР с помощью VBA
 
#
23.04.2010 19:12:36
Всем доброго времени суток.  
Знающие люди подскажите как вставить функцию ВПР через VBA чтобы при вставке в ВПР менялось искомое значение?  
 
sh1.Cells(LastRow, 5).Formula = "=vlookup(A5,таблица,20,0)"  
чем заменить А5, чтобы в следующей строке ячейкой ниже в формуле было ВПР(А6;таблица;20;0)?
 
Перейти    
Содержимое ячейки диапазона в ячейку другого диапазона макросом.
 
#
22.03.2010 11:53:26
Всем доброго  
 
Наглядно вопрос изложен в файле
 
Перейти    
Нумерация скопированных строк
 
#
15.03.2010 18:25:51
Добрый вечер всем.  
 
Нужна помощь с макросом. Надо пронумеровать на листе "надо" строки в которые вставляются значения (после A3).
 
Перейти    
Выборка за определенный период времени
 
#
11.03.2010 15:59:16
Добрый день всем.  
Такой вопрос, есть база заказов с датой принятия заказа и сроком изготовления заказа. Надо выбрать из этого все заказы за определенный период времени, например все заказы которые были приняты с 1 марта 2010 по 10 марта 2010 включительно. Как реализовать?
 
Перейти    
Страницы: 1 2 След.
Наверх