Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
" ); wnd.document.close(); wnd.focus(); }
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 20 След.
Как вновь открыть БОЛЬШОЕ количество ранее СКРЫТЫХ листов, Открытие/Показ скрытых листов (около 250 листов)
 
Цитата
скрыты все листы, кроме
Цитата
Нужно все эти листы снова открыть
наверняка речь идёт не об открытии, а от отображении!
Можно макросом: перебрать все листы и сделать видимыми
Код
Sub qwert()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        sh.Visible = xlSheetVisible
    Next
End Sub
Изменено: Александр Моторин - 12 Сен 2018 19:15:37
Вопрос по макросу
 
Цитата
макрос переносит все ячейки в одну
Откуда такая убеждённость?
макрос копирует листы, но ничего не делает с ячейками
какой тип-то открываемых файлов? не текстовой случайно?
Сравнить список ассортимента с прайсом и вывести добор
 
Я бы макросом делал. Формулисты, наверняка, могут поизвращаться и написать формулы
Как обработать элементы массива по условию формулой
 
простой подход: считываешь данные в переменную, Разбиваешь на массив по разделителю (эти два действия можно выполнить одной строкой)
обрабатываешь в цикле с проверкой и если надо выполнением условий
оформить UDF
Изменено: Александр Моторин - 11 Июл 2018 17:58:40
Не пересчитываются формулы в табличном виде
 
было бы не плохо указать версию ОС, битность и версию офиса.
Так, для информации
офис 2016? 64 бит?
PQ: Вырезать ссылку из текстового поля
 
Цитата
Самый простой вариант
let in первый раз слышу о таком. Как его применять?
Где почитать?
Случайным образом в пустые ячейки поставить определённое количество выходных
 
ошибка в том, что проверяется одна случайная ячейка, а заполняется другая случайная ячейка!
Неужелии не понятно! что надо работать с одной ячейкой?
Код
t=3 + Rnd * 43
If Cells(t, 3).Value = "" Then Cells(t, 3).Value = "Выходной"
Изменено: Александр Моторин - 15 Июн 2018 13:35:05
Выделить ячейку, в которой срок годности заканчивается через 30 дней
 
УФ
Нужен специалист по работе с XML и переносом данных в таблицу Excel
 
Цитата
с одного сайта
Сайт сайту рознь.
не с любого получится взять просто.
Покажите ссылку. Вход свободный?
Преобразовать текстовый диапазон "с.. по.." в список значений Power Query
 
UDF
Код
Function Diapazon(s)
    Dim ar, r, i!, u, ss
    ar = Split(Replace(s, " ", ""), ",")
    For r = 0 To UBound(ar)
        If InStr(1, ar(r), "-") > 0 Then
            u = Split(ar(r), "-")
            For i = u(0) To u(UBound(u))
                ss = IIf(Len(ss) = 0, i, ss & ", " & i)
            Next i
        Else
            ss = IIf(Len(ss) = 0, ar(r), ss & ", " & ar(r))
        End If
    Next r
     Diapazon = ss
End Function
Макросный аналог подключения к текстовому источнику данных с разделителем
 
Код
Sub Макрос22()
    Dim pat, fil, ar, u, rz, r
    pat = ActiveWorkbook.Path
    fil = ActiveWorkbook.Path & "\Файл данных.txt"
    If Dir(fil) <> "" Then
        With ActiveSheet
            .[f6..g9].ClearContents
            ar = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(fil, 1).ReadAll, vbCrLf)
            ReDim rz(UBound(ar), 1)
            For r = 0 To UBound(ar)
                u = Split(ar(r), ":")
                rz(r, 0) = u(0)
                rz(r, 1) = u(1)
            Next r
            .[f6..g9] = rz
        End With
    End If
End Sub
Изменено: Александр Моторин - 12 Июн 2018 20:56:10 (Как-то странно код отображается)
проверка данных на всю книгу, быстрая наладка проверки данных
 
ну как-то так:
Цитата
Sub Мqwerrty()
Dim valid, ts, si

With ActiveSheet
   ts = .Name
    valid = .Cells(1, 1).Validation.Formula1
End With

For Each si In Worksheets
   If si.Name <> ts Then
       With si.Range("A1:a10").Validation
           .Delete
           .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
           xlBetween, Formula1:=valid
           .IgnoreBlank = True
           .InCellDropdown = True
           .InputTitle = ""
           .ErrorTitle = ""
           .InputMessage = ""
           .ErrorMessage = ""
           .ShowInput = True
           .ShowError = True
       End With
   End If
Next
End Sub
Помогите выделить из логов суть ошибки
 
Цитата
кроме автосохраннения и закрытия
так может надо начинать не с анализа трассировки стеков, а с анализа кода макроса?
Добавить в новый документ определенные цвета палитры из образца (VBA), Импорт цветов палитры из ячеек другого документа.
 
Код
то есть не изменяя основную цветовую палитру
ИМХО: не изменяя не получится. 56 цветов ограничено свойствами ексель
Заполнение таблицы данными с другого листа по нескольким критериям
 
откройте свой файл. подключите надстройку.
И запустите макрос Get_poyas из надстройки.
Макрос пробежится по списку и выберет строки где было увеличение штата
Для каждого значения вставит блок.
Заполнение блока думаю сделаете самостоятельно
Для других блоков аналогично. Только для 3 блока другой блок всталять
Заполнение таблицы данными с другого листа по нескольким критериям
 
ну тогда лучше сделать надстройку со встроенным шаблоном по 1 блоку в каждом разделе.
Макросом из надстройки можно обрабатывать любой файл не внося в него никаких изменений (формул, макросов)
Заполнение таблицы данными с другого листа по нескольким критериям
 
Код
Так как таких файлов и строк в них много
ключевое слово много (файлов)
я бы посоветовал сделать надстройку
Но есть непонятки. Например таблица на листе "пояснительная" - там и должно быть столько строк в каждом разделе или достаточно только имеющиеся значения?
Изменено: Александр Моторин - 9 Апр 2018 22:10:52
Как сделать подбор неизвестного параметра в окошке значение?
 
в модуль листа. формулу свою вместо примера подставите
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Intersect(Target, Range("k2"), Range("m2")) Is Nothing Then
        x = Range("u3") / Range("o3") * 2 'тут ваша формула
        Range("T7").GoalSeek Goal:=x, ChangingCell:=Range("T1")
    End If
End Sub
Создание текстового документа
 
А при чём здесь текстовой документ, который надо создать в названии темы?
Не работают макросы 32бит в Excel 2016/64бит, Ошибка Object library invalid or contains references to object definitions that not be found
 
экстрасенсы в отпуске...
Причин может быть несколько. Например не правильно задекларированы АПИ функции
пример универсальной декларации:
Код
#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As LongPtr)
    #Else
        Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As LongPtr)
    #End If
#Else
    #If Win64 Then
        Private Declare PtrSafe Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As LongLong)
    #Else
        Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
    #End If
#End If
Как перечислить все возможные комбинации двух фрагментов текста на основании таблицы возможных совпадений?
 
Код
Помогите
покажи что сделал! что не получается?
Помощью не считается выполнение за тебя твоего учебного задания
Как найти сумму цветных ячеек автоматически
 
Цитата
сумму красных ячеек
Купить разукраску или детский журнал "Мурзилка"!
вам шашечки нужны или ехать?
найди другой подход к табличному редактору
Запрос к интернет сайту через VBA, получить информацию с сайта
 
Для начала определись с задачей! Что всё-таки нужно? получить данные с сайта или разместить на сайте?
Цитата
Нужно, чтобы по запросу в файл Эксель с сайта попадало значение
Цитата
Но вопрос все же, где именно на сайте нужно разместить значение показателя?
Лишние листы в VBE, появились лишние книги в VBE. Часть из них подписаны листами
 
жаль. много макросов и привязок...
Лишние листы в VBE, появились лишние книги в VBE. Часть из них подписаны листами
 
Удалить не активно. Просмотрел темы в архиве по этому вопросу. Сохранение в xlxb не помогает (как и в xlxm) Книга изначально в xlsb.
Если сделать видимой книгу, то появляется интерфейс отправки листа  
Изменено: Александр Моторин - 26 Янв 2017 15:26:04
Замена точки на запятую VBA
 
Цитата
Вообщем я понял, что вы не знаете как это элементарно сделать. Красивый форум а толку мало
А я понял, что ты просто тролль!
Мало того, что сам не знаешь что тебе надо, так ещё обвиняешь форум и форумчан!
Тебе уже указали не несоответствие в твоих сообщениях:
Определись сначала как в исходных данных:
1.256,012
1,496.542  
Изменено: Александр Моторин - 2 Янв 2017 11:31:51
[ Закрыто] Ребята выручайте, мне нужно сделать сортировку, Ребята выручайте, мне нужно сделать сортировку
 
Цитата
// сдесь береться данные из столбца J по нумерации 1.2.3 итд
Нумерация-то где?
При PasteSpecial пропали ведущие нули
 
Код
Sub ghj()
    Dim wB1 As Workbook
    Set wB1 = Workbooks(ActiveWorkbook.Name)
    For i = 1 To wB1.Sheets("Лист2").Cells.SpecialCells(xlLastCell).Row
        For s = 3 To 3
            If Len(wB1.Sheets("Лист2").Cells(i, 3)) = 9 Then
                Cells(i, 3) = "'0" & Cells(i, 3)
            End If
        Next
    Next
End Sub
Программа без передачи активновсти диапазона
 
Если правильно понял:
Set Диапазон = [b2..f4]
Изменено: Александр Моторин - 16 Окт 2016 12:01:54
Макрос: заменить все "0" на пусто, на защищенном листе не работает
 
Цитата
есть ячейки
Это у вас они есть!
Приложите проблемный файл и вам помогут сразу.
А так  Karataev даже при желании помочь будет долго гадать и предполагать...
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 20 След.
Наверх