Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
округление до второго значимой цифры в десятичной дроби.
 
Подскажите пожалуйста, как сделать округление до второго значимого числа, при слиянии с ворд, или как это сделать в экселе, или в ворде, идея не в том что бы до второго знака после запятой, а именно до второго значимого знака например 5,2358 = 5,23 или 0,0001943 = 0,00019, что то типа того, в общем что б оставлял две циферки или после нулей, или после целого числа, заанее спасибо
выделение цветом нескольких строк
 
Добрый день, стала такая вот задача, как покрасить цветом одним 4 строчки, потом другим еще 4, и так по циклу до конца листа, условное форматирование что то не справляется, можно им сделать что б была покаршена каждая 4, но не все 4, заранее спасибо
копирование с одного листа на другой при помощи диалогового окна
 
Здравствуйте, подскажить такой вот ответ на такой вот вопрос, нужно написать макрос, при запуске которого открывается диалоговое окно, где можно выбрать диапазон, затем он копируется на другой лист, к последней строке, что б не было пустых строк, и что б копировались только значания, нашел два макроса, но ни один не подходит, первый всегда тупо копирует только верхнюю строчку, втрой вообще не запускается
Код
Sub macroc2()
Application.ScreenUpdating = False
Dim i As Long
i = Sheets("лист1").Cells(Rows.Count, 4).End(xlUp).Row
Sheets("лист1").Range("D16:L" & i).Copy
i = Sheets("лист3").Cells(Rows.Count, 2).End(xlUp).Row + 1 'Îïðåäåëÿåì íèæ.Ñòðîêó
Sheets("лист3").Range("A" & i).Paste
Application.ScreenUpdating = True
End Sub
Код
Sub Macro1()
    Range("A1:P1").Copy
    Cells(Application.Max(25, Cells(Rows.Count, 1).End(xlUp)(2).Row), 1).PasteSpecial xlPasteValues
End Sub
макрос 1 в принципе подошел бы, если б конечно было копирование на другой лист, или выделения всего диапазона, или выделения ячейки, в которой строчке он находится, макрос 2 теоретически тоже подойдет, но не ясно как он работает
на листе 1 идут все рассчеты, на лист 3 должны попадать только скопированные значения
Изменено: denka1982 - 17.05.2022 15:47:20
условное форматирование по нескольким условиям
 
Добрый день, подскажите пожалуйста такой момент, можно ли условым форматированием выделить ячейки, содержащие текст, но текст может быть разным, идет к примеру так 2021 2021 2023 2025 2021 2028 2025 2021 2008 2117 1970 875 2014 2014 319 , нужно выделить красным 2117, 2023, 319 это идет в столбик,или в строчку, для каждого прописывать свое условие, или как то можно одним, просто если много очень условий, то эксель тормозить начнет, 100 условий конечно можно прописать, но если есть более просто способ, был бы благодарен, заранее спасибо
скрытие числа в ячейке
 
Добрый день, посдкажите как скрыть только числа в ячейке, левсимв или правсимв не подойдет, так как там сперва одна, цифра, потом две, потом три, и так может быть до 5 знаков например, нужно сделать уникальное значение, потом из них идет вся конструкция
как из нескольких строк в эксель сделать одну
 
Добрый день, подскажите такой вот момент, всю голову сломал, идей нет больше как реализовать данную функцию
есть таблица, в ней есть шифр, обычно три четыре одинаковых значения, затем идут показатели, так же три четыре, шифр одинаковый, показатели разные, но каждые 4 строчки это повторяется, на другом листе это нужно все вытянуть в одну строчку, для слияния с вордом, ну это другя история, заранее спасибо, предположительно нужно использовать функцию смещ, но ничего не получается
разбивка по разным листам с одного листа
 
Здравствуйте, ответьте пожалуйста на такой вот вопрос, есть общий лист, нужно что б с него как то разносилась информация по заданным листам, сделал через ВПР, но что то не совсем правильно работает, пример прилагается, можно как то сделать что б строчки шли подряд, без пропусков?
скрытие и отображние листов по условию
 
Здраствуйте, подскажите макрос, что б при открытии книги отображались только те листы, на которых в ячейке А35 стоит плюс, а если там стоит минус, что б автоматом скрывался
Удаление листов по условию
 
Здравствуйте, подскажите в чем ошибка, есть книга, в книге н-ное количество листов, в каких то случаях при выполнении условия ставится нумерация, при каких то нет, и те листы где нет нумерации, нужно удалить, есть такая вот связка, но если в ячейке находится формула, он ее не трогает, хотя в ячйке вроде и нет ничего
Код
=ЕСЛИ(СУММ(G108:G113)>=1;"+";"")

Код
Sub DeleteSheets()
Dim i As Integer
Application.DisplayAlerts = False
   For i = Sheets.Count To 2 Step -1
       If IsEmpty(Sheets(i).Cells(139, 24)) Then Sheets(i).Delete
   Next
Application.DisplayAlerts = True
End Sub
в общем в ячейке Х139 если стоит плюс, то лист должен остаться, если там пусто то удалиться, или в макросе прописать например что при + остается, при - удаляется лист, в примере несколько вкладок, тест1 там стоит просто +, тест2 там ставится плюс формулой, тест3 стоит формула, но + не ставится, и тест4, просто пустой лист, удаляется только тест4, хотя надо и тест3, заранее спасибо
Нумерация строк удовлетворяющих условию
 
Здравствуйте, что поменять в формуле, что б нумеровал строки адекватно по условию, есть такая, но не работает как надо...что б прописывал номера только в тех ячейках, которые соответсвуют условию
Изменено: Юрий М - 29.11.2021 17:33:19
Стали неактивны некоторые кнопки в Excel
 
Здравствуйте, был на больничном, вышел с него, и в экселе стали не активны некоторые кнопки, такие как объеденить и поместить в центре, условное форматирование, форматировать как таблицу, и некоторые другие, может кто то сталкивался с таким, на работе никто не сознается, но само же не могло так случиться...http://joxi.ru/5mdR7XZta5MbkA заранее спасибо
Ошибка при преобразовании в текстовый формат
 
здравствуйте, может кто сталкивался с такой проблемой, есть слияние ворда и эксель, в эксель считается необходимое значение, и далее это значение преобразуется в текстовый формат формулой текст, рабочий файл находится на сетевом ресурсе, и один раз откроешь нормально преобразовывает, а иногда вместо преобразованного числа выскакивает ошибка #знач, и если зайти в редактор формул, и нажать энтер, ошибка пропадает, таблица огромная, и каждый раз исправлять формулы таким образом довольно долго, колонок примерно 50, и строк несколько тысяч, это преобразование нужно что б в ворде числа были не кривые, не 10 знаков после запятой, а всего лишь два, заранее спасибо
Изменено: vikttur - 04.10.2021 14:52:15
При слиянии данные не всегда переносятся в колонтитул
 
Здравствуйте, может кто то сталкивался, подскажите что делать, в общем есть таблица и из нее слиянием заполняются бланки...все работает хорошо, но вот колонтитулы в рандомном порядке то заполняются то не заполняются, пример не могу прислать, так как файл рабочий и огромный, один раз откроешь, колонтитулы стоят, откроешь второй раз, могут стоять, и могут и не проставиться, или на первый лист поставится, на остальных не проставится, короче какая то фигня непонятная. Заранее спасибо
В новые документы Word вносить данные одной строки выделенного диапазона
 
Здравствуйте, используется слияние ворд и эксель, такой вопрос, как сделать что б сохранялись отдельные файлы ворд, в ворд есть кнопка найти и объединить, и далее изменить отдельные документы, и там пишется диапазон строк, из каких формируется итоговый документ, а надо что б было к примеру 400 строк, создалось 400 документов, руками это делать довольно долго, и в идеале что б этому документу присваивалось имя, взятое из ячейки  D этой строки, к примеру выделить диапазон с 6 по 10 ячейку, нажать кнопку, и создается куча документов
Изменено: vikttur - 20.08.2021 13:05:16
Как обновить двухуровневый выпадающий список
 
Здравствуйте, подскажите почему не виден весь двухуровневый список, диапазон сходится, к примеру исходные данные находятся в столбце А с 3 по 80 строчку, но по какой то непонятной причине он видит только до 70 строки, пример кинуть не могу, так как файл весит больше 10 мб, где то читал что там есть какой то макрос, но вот найти не могу эту статью, и что делать непонятно, заранее спасибо
При слиянии в Word переносятся числа с большим количеством знаков после запятой
 
Здравствуйте, использую слияние с ворд, в экселе число к примеру 3.51, а в ворд попадает 3.5189583985983 в общем очень много непонятных знаков, пытался сделать так, не получается...{MERGEFIELD "результат1"\# "#.##"} или так { =ROUND({ MERGEFIELD "результат1" };1) }
есть может еще какие идеи? может где то ошибся в форматировании???заранее спасибо!!!
Изменено: vikttur - 29.07.2021 15:10:28
не тянутся автоматически формулы в умной таблице
 
Здравствуйте, не тянутся в умной таблице автоматически формулы, подскажите в чем может быть проблема, галочки везде где надо смотрел, уже весь мозг поломал себе  
Избавиться от дубликатов в трехуровневом выпадающем списке
 
Здравствуйте, подскажите что сделал не так, в общем тут трех уровневый выпадающий список, в первом норматив, во втором тип, в третьем наименование, в четвертом ПДК, но у меня почему то выскакивает куча одинаковых наименований уже на втором уровне, хотя когда делал тест, такого нет, заранее спасибо, тестовый файл присылать нет смысла, в нем все хорошо работает, всю голову сломал, что делаю не так тут
Изменено: vikttur - 21.07.2021 11:52:53
Создание папок по указанному пути
 
Здравствуйте, подскажите что поменять в макросе поменять что б он запрашивал путь где создавать папки, не в директории где находится активный файл, а в необходимую, они всегда могут быть разные
Код
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub
Изменено: vikttur - 09.07.2021 11:55:22
Создание документа Word по шаблону из Excel
 
Здравствуйте, что не так в макросе, не добавляются в шаблон данные, пример во вложении, документы формируются, но не так как нужно, заранее спасибо
Изменено: vikttur - 09.06.2021 17:44:32
Копирование строк в новый лист, исключая дублирование данных
 
Здравствуйте, подскажите что поправить в коде, что б макрос корректно отрабатывал, есть колонка исследования, он оттуда берет данные и создает новые листы с названием, проблема в том что он повторно добавляет туда эти же строки, как бы сделать что б все были уникальные, на вкладке реестр идет добавление каждый раз строк, если необходимо в колонке D значения всегда будут уникальные
Код
Sub перенос()
Dim i As Long, j As Integer, ws As Worksheet, aws As Worksheet, x As Range
    Set x = Rows(1).Find("исследование", , , xlWhole)
    If x Is Nothing Then Exit Sub Else j = x.Column
    Application.ScreenUpdating = False: Set aws = Sheets("реестр")
    For i = aws.Cells(Rows.Count, j).End(xlUp).Row To 2 Step -1
        If aws.Cells(i, j) <> "" Then
            On Error Resume Next: Set ws = ThisWorkbook.Sheets(CStr(aws.Cells(i, j)))
            If Err <> 0 Then
                Set ws = Sheets.Add: ActiveSheet.Name = aws.Cells(i, j): On Error GoTo 0
                aws.Cells.Copy
                ws.Cells.PasteSpecial Paste:=xlPasteColumnWidths
                ws.Cells.PasteSpecial Paste:=xlPasteFormats
            End If
            W = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 'номер строки куда вставлять
            aws.Range("A" & i & ":V" & i).Copy ws.Cells(W, 1)
            aws.Range("Y" & i & ":W" & i).Copy ws.Cells(W, "Y")
    End If: Next
End Sub
Изменено: vikttur - 03.06.2021 13:07:32
Автоматический подбор высоты строк
 
Добрый день, возможно вопрос прозвучит глупо, но тем не менее, а есть в экселе функция автоматического подбора высоты строк, как это делать на отдельно взятом листе понятно, а когда листов 500 и более, возникает некая сложность, иногда например в ячейке бывает одно предложение, а иногда 5, в каждой ячейке на всех 500 листах пишется один и тот же текст, он туда попадает через ВПР, но он всегда разный, и очень не удобно каждую ячейку руками подгонять под нужный размер,заранее спасибо, надеюсь без примера понятно
сопоставить фамилии к должностям на всех листах
 
Здравствуйте, подскажите как решить проблемку, есть список сотрудников, ему соответствующие должности, в книге множество листов и нужно как то придумать что б при выборе сотрудника на вкладке выполняемые работы, в желтой ячейке проставлялась автоматически его должность, на каждом листе(работа1 работа 2 и так далее)пытался использовать формулу с индексом, но что то не работает, где то ошибка в формуле =ИНДЕКС(сотрудники!A1:B3;ПОИСКПОЗ(D1;D1:D2;0)) заранее спасибо
Скрыть/показать строки по клику на checkbox
 
Здравствуйте, а можно как то доработать макрос, что б можно было поставить галочку, строки скрылись, снять галочку, что б отобразились, сейчас это кнопкой делается, нужно две кнопки, а тут одной маленькой галочкой, если конечно это реально
Код
Sub t()
    For Each s In ThisWorkbook.Sheets
        s.Rows("25:25").Hidden = True
    Next s
End Sub
Sub hhh()
    For Each s In ThisWorkbook.Sheets
        s.Rows("25:25").Hidden = False
    Next s
End Sub
скрыть строки и столбцы по условию
 
Доброе утро, подскажите пожалуйста макрос что б во всей книге скрывал строку 10, и столбец D, нашел такой, но это не совсем подходит
Код
Sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False                              'отключаем обновление экрана для ускорения
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            'проходим по всем ячейкам первой строки
        If cell.Value = "x" Then cell.EntireColumn.Hidden = True    'если в ячейке x - скрываем столбец
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells         'проходим по всем ячейкам первого столбца
        If cell.Value = "x" Then cell.EntireRow.Hidden = True       'если в ячейке x - скрываем строку
    Next
    Application.ScreenUpdating = True
End Sub
 
Sub Show()
    Columns.Hidden = False   'отменяем все скрытия строк и столбцов
    Rows.Hidden = False
End Sub
Печать диапазона по условию
 
Здравствуйте, подскажите что поменять в коде, что б печать шла так же по условия как сейчас, но условие была не одна ячейка, а диапазон, раньше просто было если в ячейке р55 стояло значение, печать шла, сейчас немного стало сложнее, в нескольких ячейках могут быть значения, а строки с ошибками скрыты...нужно что б на печать шло то что не скрыто, вне зависимости от ячейки, если это конечно реально, столбец всегда один и тот же, диапазон от р55 до р100, но среди диапазона могут быть строки с ошибками, но они скрываются с помощью другого макроса, в общем если есть значение, не зависимо от того в какой ячейке, что б шла печать, а если везде ошибки, то соответственно что б не выводилось, именно если по всему диапазону ошибки, то вывода на печать нет, а если среди диапазона есть хоть одно значение, то вывод на печать
Код
Sub printtt()
    Dim sh As Worksheet
    For Each sh In Worksheets
       If Not IsError(sh.Cells(55, 16).Value) Then
         If sh.Cells(55, 16) <> "" Then
             sh.PrintOut Copies:=1
         End If
       End If
    Next sh
End Sub


Изменено: denka1982 - 13.01.2021 15:17:25
Вместо выделение одной ячейки выделяется несколько
 
Здравствуйте, подскажите в чем дело, вопрос по дурацкий, но тем не менее...в общем иногда в книге склеиваются ячейки, наживаешь например на ячейку 1а, а выделяется сразу несколько, гуглил, найти не чего не смог, притом не во всем документе, а в каких то непонятных местах, когда раздвигаешь этот эффект пропадает, но из за этого теряется разметка, иногда очень не удобно, такая фигня происходит и с одиночными ячейками, и с объединенными, пример прислать не могу, так как это сейчас в рабочем файле, а в тестовом не получается это воспроизвести
Макрос для скрытия / отображения строк всех листов с заливкой ячеек 2-й колонки согласно заданного образца
 
Подскажите что изменить в коде, что б макрос работал на всех листах, а не только на активном?! заранее спасибо
Код
Sub HideByConditionalFormattingColor()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color Then cell.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

Скрыть строку с #Н/Д
 
Здравствуйте, стоит такая задача, с основного листа с помощью ВПР идет разбор по необходимым листам, на других листах например есть список из 5 компонентов, значения которых подставляются с помощью ВПР, но не всегда имеются в изначальном списке необходимые данные, в результате пишет #Н/Д, как бы скрывать эти строчки, где стоит нд, есть макрос, он скрывает строчки со значением х, а если поставить туда нд, выдает ошибку, есть еще вариант сделать типа нд=какое то значение, но я то то не соображу как это сделать например нд находится в столбце в, скрывать по условию столбец с, и в него написать что то типа #н/д=скрыть, заранее спасибо
Код
Sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False                              'отключаем обновление экрана для ускорения
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            'проходим по всем ячейкам первой строки
        If cell.Value = "#Н/Д" Then cell.EntireColumn.Hidden = True    'если в ячейке x - скрываем столбец
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(2).Cells         'проходим по всем ячейкам первого столбца
        If cell.Value = "#Н/Д" Then cell.EntireRow.Hidden = True       'если в ячейке x - скрываем строку
    Next
    Application.ScreenUpdating = True
End Sub
  
Sub Show()
    Columns.Hidden = False   'отменяем все скрытия строк и столбцов
    Rows.Hidden = False
End Sub
Скрыть строки (парметры внутри нормативов) по условию
 
Здравствуйте, подскажите такой момент, есть лист главный, в нем указаны некоторые параметры, что б например поставить галочку, с на листе вспомогательный отображались или скрывались строки, просто все время разные могут быть параметры, есть макрос, но тогда придется под каждый параметр делать кнопочку, а это лишнее, в примере указаны несколько фамилий, напротив стоят циферки, как бы сделать что б где ничего не стоит автоматом скрывалось, а если появится, то отображалось, просто с огромным количеством кнопок не удобно, а галочки самое то, или при значении ноль во второй колонке что б скрывалось
Код
Sub ddd()
    Dim cell As Range
    Application.ScreenUpdating = False
   Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
        If cell.Value = "Сидоров" Then cell.EntireColumn.Hidden = True
    Next
    For Each cell In sht.UsedRange.Columns(1).Cells
        If cell.Value = "Сидоров" Then cell.EntireRow.Hidden = True
    Next
Next sht
    Application.ScreenUpdating = True
End Sub

Sub fff()
Dim cell As Range
    Application.ScreenUpdating = False
   Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
        If cell.Value = "Сидоров" Then cell.EntireColumn.Hidden = False
    Next
    For Each cell In sht.UsedRange.Columns(1).Cells
        If cell.Value = "Сидоров" Then cell.EntireRow.Hidden = False
    Next
Next sht
    Application.ScreenUpdating = True
End Sub
Страницы: 1 2 След.
Наверх