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

Страницы: 1
Разнос данных таблицы по листам
 
#
26.12.2019 13:57:27
Всех приветствую! Пытался найти в существующих темах похожие решения, чтобы адаптировать под свою задачу, но не вышло.
Прошу помощи, существует некий шаблон, который нужно копировать столько раз, сколько заполненных строк в таблице первого листа и заполнять этот созданный шаблон данными из таблицы первого листа, называя лист из заданной ячейки. Я смоделировал то, что мне надо через запись макроса, но не могу зациклить команду на всю таблицу первого листа и перенос данных в шаблон нужно выполнять без формул, а не как у меня с формулами, да и выглядит у меня макрос нагромозжденным.
 
Перейти    
Расстояние между осями: проблема определения количества знаков в числе
 
#
10.07.2015 09:20:55
Не получается вывести по ячейкам расстояния между осями транспорта. Осей может быть как 2 так и 7. Расстояние может быть указано как в десятых, так и в тысячных. Должно получиться, что в одной ячейке первая цифра после "1 - ", во второй ячейке вторая цифра после "2 - " и т.д. Проблема задать количество знаков в формуле после цифр "1 - " или "2 - ", т.к. расстояния могут быть с десятичными или тысячными значениями.
 
Перейти    
Отобразить степень как есть (надстрочными знаками)
 
#
30.12.2014 01:33:13
Возможно ли в Excel в формуле отобразить степень как она есть? Через функцию ТЕКСТ, походу нельзя. Пример в файле.
 
Перейти    
Найти и поднять вверх
 
#
10.10.2014 15:06:01
Из столбца D нужно найти названия дорог, входящих в выбранный маршрут из выпадающего списка B1. И поднять найденные дороги вверх, как в столбце B.
 
Перейти    
Макрос, срабатывающий при нажатии на кнопку Печать
 
#
05.06.2013 09:50:41
Помогите сделать, что бы макрос срабатывал при нажатии на кнопку печать:

Код
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim s$, iNo%, iCm%
 If Target.Address = ['Лицевая для НР 1200'!O27].Address Or Target.Address = ['Лицевая для НР 1200'!Q27].Address Then
 s = ['Лицевая для НР 1200'!O27].Value
 If ['Лицевая для НР 1200'!Q27].Value > "" Then s = s & ['Лицевая для НР 1200'!Q27].Value
 [A25].Value = s
 [A25].Font.Bold = False
 iNo = InStr(1, s, "№"  ;)  
 iCm = InStr(iNo + 1, s, ","  ;)  : If iCm = 0 Then iCm = Len(s) + 1
 [A25].Characters(iNo + 1, iCm - iNo - 1).Font.Bold = True
 iNo = InStr(iCm + 1, s, "№"  ;)  
 If iNo > 0 Then
 iCm = Len(s) + 1
 [A25].Characters(iNo + 1, iCm - iNo - 1).Font.Bold = True
 End If
 End If
End Sub

Знаю что команда: Private Sub Workbook_BeforePrint(Cancel As Boolean)
только куда её вставить?
 
Перейти    
Макрос, срабатывающий при нажатии на "Печать"
 
#
29.05.2013 10:09:46
Помогите доработать данный макрос, который срабатывал бы не от кнопки вызова макроса, а при выводе на печать, т.е. при нажатии на "Печать":

Код
Sub Макрос1()

Dim Номер As Variant

Application.ScreenUpdating = False

On Error Resume Next

Sheets("Упаковочный лист" ;) .Select
Номер = Range("I2" ;) .Value

Sheets("Упаковочный лист" ;) .Copy
With ActiveSheet.UsedRange
.Cells.Value = .Cells.Value
End With
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Номер & ".xls", FileFormat:=xlNormal
ActiveWindow.Close

Application.ScreenUpdating = True

End Sub
 
Перейти    
Скрытие срок через элемент управления (поле со списком)
 
#
27.05.2013 06:22:20
Нашел на форуме макрос, который не могу подкорректировать под свою задачу.
Необходимо что бы макрос работал при выборе из выпадающего списка "поле со списком", не через "проверка данных". Так же, не могу догнать как сделать,  чтобы список находился на одном листе, а скрываемые ячейки на другом. И можно было задать несколько списков, в которых в зависимости от выбора скрывались свои строки, без привязки друг к другу (независимо).
Например в одном списке выбираю значение "да", скрываются строки 4 и 5, в другом списке выбираю значение "да", скрываются строки 7 и 9.
 
Перейти    
Работа с выпадающим списком
 
#
22.03.2013 09:37:46
Проблема в том, что при выборе в выпадающем списке перевозчика, отмеченного красным в списке, отображается только первый государственный номер. Я так понял, что построение списка должно быть в алфавитном порядке, но ведь государственные номера после этого перевозчика отображаются.
 
Перейти    
Форматирование текста в ячейке с формулами
 
#
25.12.2012 11:56:17
Уважаемые форумчане! Помогите сделать выделение части текста жирным, в ячейке с формулами, которой меняется информация (например ссылается на выпадающий список), без двойных щелчков (при изменении информации).
 
Перейти    
Непечатаемые ячейки
 
#
25.12.2012 11:39:14
Помогите в следующем: есть макрос, который при нажатии кнопки печать или предварительный просмотр делает цвет текст в ячейке цветом фона (белым), необходимо распространить это действие на несколько ячеек, например D3, A4 и т.к. далее, ячеек с информацией, которые не должны печататься - несколько.
 
Перейти    
Выпадающий список с ссылкой на более чем одно значение
 
#
07.12.2012 10:37:18
Уважаемые форумчане! В файле лежит, то, над чем я бьюсь уже 14 дней, боюсь до конца света не успеть решить :-)
 
Перейти    
Отображение в одном выпадающем списке информации из нескольких ячеек
 
#
24.11.2012 11:02:30
В прикреплённом файле пример, что необходимо сделать, а именно, при нажатии на выпадающий список (созданный только через данные/Проверка...), увидеть в нём информацию не с одной ячейки, а несколких. И там же, исключить из списка пустые строки, а в случае объединения убрать повторяющиеся строки.
 
Перейти    
Страницы: 1
Наверх