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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 71 След.
Удаление/замена html тегов в ячейках
 
Приложите файл с макросом, про который пишете, что он не чистит.
Как обращаться к создаваемому листу, имя которому присваивается сцеплением текста?
 
Griver, наверное Вам нужно совсем другое - как создаваемому листу присвоить уникальное имя (ИМХО)?  А потом уже будет видно, как к нему обращаться. Никто же не знает как появляется значение в Cells(277, 1). Я бы через счет листов или через дату-время делал.
Перенос из строки первого листа в следующие по названию
 
Если фильтром выберите какой-то станок, историю тоже увидите. А в столбцах правее можно и планы записывать.
А как у Вас составлено задание - формулами не получится, нужно макрос писать.
Перенос из строки первого листа в следующие по названию
 
Поставьте на листе "Общее" фильтр в столбце "С" и остальные  листы будут не нужны.
Табель учета рабочего времени, Написание макросов
 
Вопросы к создателю темы:
1.что значит 8 с нижним индексом 2? Что Вы подразумеваете под нижним индексом? Подстрочный шрифт? В примере все восьмерки одинаковые, формат ячеек общий. Но у меня 2007 Excel, может поэтому так отображается.
2.Перевод текстовых значений в числовое - посмотрите функции преобразования CByte,  CLng и т.д. - что Вам лучше подойдет.
3.Файл-пример в первом сообщении - точно тот о чем тема? Из него не понятно, как и по какому принципу отделять первую смену от второй.
Пожалуйста, обратите внимание на замечания модераторов и на остальные вопросы к Вам, если действительно хотите получить помощь.  
Перенос значений в нужные столбцы по условию "Дата"
 
Замените Date на Cells(4,3).Value
Название темы: "Перенос значений в нужные столбцы по условию "Дата"
Перенос значений в нужные столбцы по условию "Дата"
 
Код
Sub Perenos()
    Dim lD&, i
    lD = Left(Date, 2)
For i = 9 To Cells(Rows.Count, 4).End(xlUp).Row
    Cells(i, lD + 5).Value = Cells(i, 4).Value
    Cells(i, 4).ClearContents
Next i
End Sub
Изменено: _Igor_61 - 30 Сен 2019 09:28:01
Перенос строк с одного листа на другой по несколько значениям ячейки
 
Вариант:
Код
Sub Test()
    Dim iCell As Long, i As Long, j As Long, Priznak
    Priznak = Array("c", "a")
    
    For i = 0 To UBound(Priznak)
     For iCell = 1 To Cells(Rows.Count, 1).End(xlUp).Row
         j = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row
      If Cells(iCell, 1) = Priznak(i) Then
         Rows(iCell).Copy Sheets("Лист2").Rows(j + 1)
      End If
     Next iCell
    Next i
End Sub
Дубль темы
Изменено: _Igor_61 - 26 Сен 2019 04:25:32
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
gling, здравствуйте! Прикольно, не знал про такое :)
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
Вариант: сделать отдельно список всех менеджеров и пробежаться по нему циклом.
Формула для отображения текста из нескольких ячеек в одной
 
Откуда "True" берется тоже не понял, но чтобы избавиться как вариант:
Код
Range("A1") = Right(Str, Len(Str) - 6)
:)
Или без Set:
Код
Range(Cells(i + 1, 2), Cells(j - 1, 2)).Select 
Изменено: _Igor_61 - 15 Авг 2019 20:48:39
Получения каждого слова в отдельной ячейки
 
"Имеем" и "Нужно" :)
Работа со сводной таблицей. Выделение строк цветом.
 
Цитата
fareng8 написал:
я бы на месте экселя делал так же)
Очень хороший посыл :)
Цитата
fareng8 написал:
чтобы после изменения порядка построения таблицы выделение сохранялось
Макросом (ИМХО, т.к. не знаю возможности последних версий, может уже они умеют разные сводные между собой подружить), но т.к. сводная берет данные из каких-то  первоначальных данных => конкретный макрос под конкретную задачу (результат на основе исходных данных).
P.S. Как вариант - сохранять видимые данные из первой сводной как значения и потом на основе этих значений работать со второй. Но наверное лучше сразу поставить конкретную задачу макросу.  
Изменено: _Igor_61 - 4 Авг 2019 13:31:34
Получения каждого слова в отдельной ячейки
 
IHOR, к #2 - разделитель пробел. Только предварительно уберите заголовки с объединенными ячейками
Добавить слово в указанное ко-во ячеек и выбор ячейки напротив первой выделенной
 
vikttur, точно, а я чего-то из Москвы в Питер через Америку :)  
Добавить слово в указанное ко-во ячеек и выбор ячейки напротив первой выделенной
 
Похоже, уже не нужно... И нужно ли было?
Импорт содержимого раскрывающихся списков из веб-сайта в excel
 
Цитата
nerf написал:
Согласен, проще вручную))
IT скоро отучат многих людей не только работать руками, но и думать головой. (ИМХО). Грустно...
P.S. Nerf, поузнавайте в интернете, как, чем и из чего делаются сайты, и подобные вопросы у Вас больше не будут появляться :) А так, как сформулировано в этой теме - похоже на завуалированное: "как взломать такой-то сайт?"
Изменено: _Igor_61 - 4 Авг 2019 11:20:05
УФ ячейки частично
 
Gold_Barsik, у Вас судя по всему Win XP, поищите эти настройки не в Excel, а там
Формула расчета заработной платы по ежедневной выручке и проценте
 
В "В4":
Код
=ВПР(A4;H:I;2;0)
Потом копируете эту ячейку (В4) и вставляете в нужные в нижних таблицах
Изменено: _Igor_61 - 3 Авг 2019 15:12:30
Добавить слово в указанное ко-во ячеек и выбор ячейки напротив первой выделенной
 
Selection.Value = "Первый" - заполнятся все выделенные ячейки. А вот если r=3, то именно какие три - об этом кроме Вас никто не знает, а Вы не говорите. Может, так нужно?
Код
Dim lrow
Dim lcol
Dim r
lrow = ActiveCell.Row
lcol = ActiveCell.Column
r = 3
Range(Cells(lrow, lcol), Cells(lrow, lcol + r - 1)).Value = "Первый"
Изменено: _Igor_61 - 3 Авг 2019 04:38:03
Автоматическая нумерация строк с текстом
 
Цитата
Tatirus написал:
Автоматической нумерации
Можно макрос сделать
Копировать несколько листов в новые книги с присвоением имен
 
Вам нужно сюда
Как увеличить/уменьшить примечание к ячейке без растягивания вручную?
 
Только что там ответил, не видел эту тему здесь
Расчет среднего значения цены закупки последних 3-х поставок товара, Как сделать чтобы считалось только среднее арифметическое последних трех цен закупки определенного товара
 
Можно так например:
[ Закрыто] Создание новых листов с автоматически заданным именем
 
Ну так и покажите в файле, что именно там у Вас творится - кто откуда знает?.
Цитата
Настя_Nastya написал:
"Облегчите" файл, удалите ненужные данные, сократите и приложите пример
[ Закрыто] Создание новых листов с автоматически заданным именем
 
В ней и содержится имя листа.  Sheets(x).Select
[ Закрыто] Создание новых листов с автоматически заданным именем
 
Sheets("Grafik_Obrazec").Cells(4,3)  - ячейка в четвертой строке и третьем столбце на листе "Grafik_Obrazec"
Запись в ячейку по нажатию сочетания клавиш
 
vdv777, а что Вы так на цикле настаиваете? Вы пробовали работу макроса от GRIM? Он делает именно то, о чем Вы просили, на активном листе. А насчет сочетаний - есть еще целая клавиатура кроме "a" и "v", и еще Ctrl+Shift+заглавная буква...
Заполнение нескольких ячеек в зависимости от выбора в выпадающем списке
 
Вариант макросами
Как удалить из ячейки данные которые повторяются в соседних ячейках
 
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D2;A2;"");B2;"");C2;"")
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 71 След.
Наверх