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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 178 След.
Ширина столбца по условию, содержания текста
 
Такое только макросом,  а если ничего не содержится ?
Код
Sub ddd()
Dim c As Long
Dim lcol As Long
lcol = Cells(1, Columns.Count).End(xlToLeft).Column
For c = 1 To lcol
    If Cells(1, c) Like "*стакан*" Then
        Columns(c).ColumnWidth = 10
    ElseIf Cells(1, c) Like "*Железный*" Then
        Columns(c).ColumnWidth = 15
    End If
Next c
End Sub
Изменено: Mershik - 19 сен 2020 12:12:17
Как просуммировать значения найденные по суммесли на всех листах, с учетом того что кол-во листов будет постоянно добавляться, никак не увязать суммессли и трехмерную ссылку
 
Ну может тут помогут... вроде так, честно не проверял результат.
Код
Sub dds()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sh As Worksheet, sh2 As Worksheet
Dim lr As Long, lr2 As Long, i As Long, k As Long
Set sh = Worksheets("формулы")
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
sh.Range("D2:F" & lr + 1).ClearContents
For i = 2 To lr
    For Each sh2 In Worksheets
        If sh2.Name <> sh.Name And sh2.Name <> "шаблон" Then
            kol_vo = Application.WorksheetFunction.SumIfs(sh2.Range("G:G"), sh2.Range("B:B"), sh.Cells(i, 1), sh2.Range("C:C"), sh.Cells(i, 2), sh2.Range("E:E"), Cells(i, 3))
            Plan = Application.WorksheetFunction.SumIfs(sh2.Range("H:H"), sh2.Range("B:B"), sh.Cells(i, 1), sh2.Range("C:C"), sh.Cells(i, 2), sh2.Range("E:E"), Cells(i, 3))
            Fakt = Application.WorksheetFunction.SumIfs(sh2.Range("E:E"), sh2.Range("B:B"), sh.Cells(i, 1), sh2.Range("C:C"), sh.Cells(i, 2), sh2.Range("E:E"), Cells(i, 3))
            sh.Cells(i, 4) = sh.Cells(i, 4) + kol_vo
            sh.Cells(i, 5) = sh.Cells(i, 5) + Plan
            sh.Cells(i, 6) = sh.Cells(i, 6) + Fakt
        End If
    Next sh2
Next i
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub



Изменено: Mershik - 18 сен 2020 23:04:06
При отмене объединения ячеек текст в них сохраняется! Как?!, Необычное объединение ячеек, при отмене которого текст во всех получившихся ячейках цел.
 
phalcor, так я вам выше расписал как
Формула для расчета прогноза продаж, Формула для прогноза продаж с несколькими условиями
 
Роман Пктров, У вас гугл/яндекс заблокирован?
1. https://www.youtube.com/watch?v=vst9nKgqxZo
2. https://www.youtube.com/watch?v=5Wq3dkDgROU
3. https://support.microsoft.com/ru-ru/office/%D1%81%D0%BE%D0%B7%D0%B4%D0%B0%D0%BD%D0%B8%D0%B5-%D0%BF%D...
и т.д.
При отмене объединения ячеек текст в них сохраняется! Как?!, Необычное объединение ячеек, при отмене которого текст во всех получившихся ячейках цел.
 
Цитата
phalcor написал:
есть какая-то особая кнопочка типа "объединить без потерь"
есть - называется макрос) но его нужно написать)
Изменено: Mershik - 18 сен 2020 20:16:49
При отмене объединения ячеек текст в них сохраняется! Как?!, Необычное объединение ячеек, при отмене которого текст во всех получившихся ячейках цел.
 
Цитата
Hugo написал:
Кисточкой.
точняк) делаете в любом месте листа объединение такого же количества ячеек (которое будете объединять с данными)...пвыделяете их нажимаете формат по образцу
и выделяете нужные вам ячейки для объединения) (кажется написал - что ничего не понятно)
Изменено: Mershik - 18 сен 2020 20:14:58
При отмене объединения ячеек текст в них сохраняется! Как?!, Необычное объединение ячеек, при отмене которого текст во всех получившихся ячейках цел.
 
Михаил Витальевич С., та ну нет)
буквально в пределах месяца)
При отмене объединения ячеек текст в них сохраняется! Как?!, Необычное объединение ячеек, при отмене которого текст во всех получившихся ячейках цел.
 
phalcor, где-то недавно один из модераторов давал ответ на такой вопрос и показывал как это "исполняется" - ща поищем
Изменено: Mershik - 18 сен 2020 20:07:31
Управление шириной отдельной ячейки независимо от изменения ширины всего столбца
 
Юрий М,
Цитата
Пупер написал:
И?

:D  
Изменено: Mershik - 18 сен 2020 20:00:58
Управление шириной отдельной ячейки независимо от изменения ширины всего столбца
 
Пупер, сколько вопросов можно задать по названию Вашей темЫ?
цвет ячейки? формат ячейки? ширина ячейки? высота ячейки? скрыть ячейку? выделить ячейку ? это если коротко...а согалсно правилам название темы долно отражать суть..
Цитата
2.1. Название темы должно отражать смысл проблемы. Темы с названиями "Помогите", "Help", "Срочно", "Нужен макрос" - плохая идея. Модераторы имеют право переименовать, удалить или закрыть такие темы без предупреждения.
Управление шириной отдельной ячейки независимо от изменения ширины всего столбца
 
Пупер, вообще-то Вам написал модератор
Цитата
Юрий М написал:
Помощь скрыта
это значит что кто-то дал ответ и видимо это
Цитата
IKor написал:
Раз уж я ответил,
уважаемый IKOR
Формула для автоматического вывода данных из последней строки группы
 
dom23, прикольно)) вы бы еще штук 3434 листов добавли
Сбор данных из разных столбцов и строк в один столбец
 
Ильдар Хазетдинов,
Код
=ПРОСМОТР(2;1/(B3:I3<>"");B3:I3)
Изменено: Mershik - 18 сен 2020 19:06:37
Сбор данных из разных столбцов и строк в один столбец
 
Ильдар Хазетдинов, ничего не понятно... нужно в столбце свод проставить значение из строки?
Поиск номера(букв) столбца по содержимому в строке., Интересует и VBA и Формульный варианты. Необходимо из одного файла вставить в другой файл номер(буквы) столбца из другого файла.
 
DjAlex77, макрос написан для случая когда два файла открыты и тот куда вставляете и тот из которого копируете - открыты в режиме только для чтения

Цитата
DjAlex77 написал:
путь к файлу прописать?
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=15172
Изменено: Mershik - 18 сен 2020 15:50:17
Отбор данных из таблицы по количеству замечаний
 
Цитата
Tamagafk написал:
Можно на примере?
а можно Ваш пример увидеть с макросом?
пока прикрепляете файл о модулях -  https://www.excel-vba.ru/chto-umeet-excel/chto-takoe-modul-kakie-byvayut-moduli/
Изменено: Mershik - 18 сен 2020 15:16:32
Формула расчета для определения минимальной цены
 
Evgeny Z,
Код
=ЕСЛИ(C5="";B5;ЕСЛИ(B5<C5;C5;B5))
Формула расчета для определения минимальной цены
 
Evgeny Z, ну что бы поменять цену где уже стоит значение или отставить  - это макросом или до столбец и потом из него уже копировать вручную..а еще лучше показать желаемый результат рядом
Изменено: Mershik - 18 сен 2020 13:15:33
Поиск номера(букв) столбца по содержимому в строке., Интересует и VBA и Формульный варианты. Необходимо из одного файла вставить в другой файл номер(буквы) столбца из другого файла.
 
DjAlex77,
Код
' макрос в книгу в которую будете копировать данные и запускать так же из это книги
Sub dsd()
Dim i As Long, lr As Long
Dim Wb As Workbook, Wb2 As Workbook
Dim cell As Range
Set Wb = Workbooks("1 УЧЕТ.xlsx") 'это Ваша книга которую открываете для чтения
Set Wb2 = ActiveWorkbook 'это Ваша книга в которую будете переносить данные

lr = Wb.Worksheets("Argus").Cells(Rows.Count, 1).End(xlUp).Row
    Set cell = Wb.Worksheets("Argus").Rows("2:5").Find("Курс доллара") ' имя листа из которого будем копировать
    If cell Is Nothing Then MsgBox "Ячейка с названием Курс доллара в файле " & Wb2.Name & " не найдена ": Exit Sub
    For i = 5 To lr
        Wb2.Worksheets("Argus").Cells(i, 36) = Wb.Worksheets("Argus").Cells(i, cell.Column)
    Next i
End Sub

Изменено: Mershik - 18 сен 2020 11:48:46
Точки как граница ячеек по умолчанию. Как избавиться?
 
skais675, если вдруг так случится - отпишитесь пожалуйста в чем была проблема. Спасибо
как к одному значению подтянуть из другого файла уникальное, к одному баркоду в одном файле присвоен уникальный QR как подтянуть его в другой файл?
 
HelenDev, ну возможно думаю макросом
как к одному значению подтянуть из другого файла уникальное, к одному баркоду в одном файле присвоен уникальный QR как подтянуть его в другой файл?
 
Цитата
HelenDev написал:
спасибо
достаточно
Поиск номера(букв) столбца по содержимому в строке., Интересует и VBA и Формульный варианты. Необходимо из одного файла вставить в другой файл номер(буквы) столбца из другого файла.
 
Цитата
БМВ написал:
=INDEX($1:$1048576;ROW();MATCH("Курс доллара";$2:$2;))
так вроде получается что имя столбца будет не известно какое...
Цитата
DjAlex77 написал:
имя необходимого столбца постоянно меняется
или наверное я не правильно поняЛ)
Изменено: Mershik - 18 сен 2020 11:12:47
как к одному значению подтянуть из другого файла уникальное, к одному баркоду в одном файле присвоен уникальный QR как подтянуть его в другой файл?
 
HelenDev, ну у вас же в 1 примере по другому расположены столбцы
Код
=ИНДЕКС($I$2:$I$1839;ПОИСКПОЗ(1;ИНДЕКС((СЧЁТЕСЛИ($C$1:C1;$I$2:$I$1839)=0)/($J$2:$J$1839=$B2);0);0))
Изменено: Mershik - 18 сен 2020 10:40:51
как к одному значению подтянуть из другого файла уникальное, к одному баркоду в одном файле присвоен уникальный QR как подтянуть его в другой файл?
 
HelenDev, не очень понял что откуда и куда сделал так для первой таблицы (так что справа) в ячейку С2 и протянуть вниз
Код
=ИНДЕКС($J$2:$J$17;ПОИСКПОЗ(1;ИНДЕКС((СЧЁТЕСЛИ($C$1:C1;$J$2:$J$17)=0)/($I$2:$I$17=$B2);0);0))
Вопрос: проблема с формулами. Выдает ЗНАЧЕНИЕ, Формула выдает значение
 
Валерий, ничего https://www.planetaexcel.ru/techniques/2/91/
Вопрос: проблема с формулами. Выдает ЗНАЧЕНИЕ, Формула выдает значение
 
Валерий, может нужно нажать CTRL+SHIFT+ENTER
Отправка и получения данных через api с конвертацией ответа на JSON
 
антиспам скушал все)
повторите текст и файл-пример
По возрасту определить диапазон возрастной категории
 
Aleks, а если диапазоны будут по 3 года например? ;)  
Перебор диапазона с присваиванием новым листам имена из ячеек диапазона, макрос работает с последней строки, а нужно с первой, уже голову сломал
 
Цитата
Sweeft1 написал:
Плюс добавилась вкладка шаблон(2) которой вообще не должно быть.
у меня нет никакого лишнего листа...
Код
Sub добавить_вкладку_обновить_итог()
Dim rg As Range
Set rg = Worksheets("формулы").Range("H2").CurrentRegion
On Error Resume Next
ActiveSheet.Name = Worksheets("формулы").rg.Cells(1, 1)
Range("I3").Value = Worksheets("формулы").rg.Cells(1, 1)
If Err.Number <> 0 Then
Dim i As Long
    For i = 1 To rg.Rows.Count
    k = 0
        For Each sh In Worksheets
            If sh.Name = rg.Cells(i, 1).Value Then k = k + 1
        Next sh
        If k = 0 Then
            Sheets("шаблон").Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = rg.Cells(i, 1).Value
            Range("I3").Value = ActiveSheet.Name
            Exit Sub
        End If
    Next i
    End If
On Error GoTo 0
End Sub

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 178 След.
Наверх