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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 72 След.
Макрос курса валют нбу или автообновление веб запроса
 
https://www.planetaexcel.ru/techniques/13/129/
Выбор периода дат и отдельные месяца из таблицы
 
См. файл
Изменено: New - 14 апр 2021 12:08:12
Расчёт и вставка данных в ячейки только выходных дней
 
Повторите ваше сообщение здесь ещё раз (и не забудьте приложить небольшой пример в файле Excel)
Как выгрузить массив после сортировки ссылкой?
 
У меня одинаково
System.Collections.ArrayList - 5,86328125
Jack forum - 5,84765625
Изменено: New - 13 апр 2021 16:54:54
Получение данных из закрытого файла
 
alex_j, вам намекают, что даже вашей функцией - файл открывается, но вы этого не замечаете.
Метод Close - закрывает ранее открытый файл. То есть файл ранее был открыт кодом выше
Изменено: New - 13 апр 2021 14:35:53
Глючат кнопки переключателей на листе
 
А если удалить все переключатели и создать заново?
как извлечь должность и ФИО в одной ячейке таблицы
 
Рина Маквед, У вас что Excel не установлен на компьютере? Запрещают делать таблицы в Excel? Запрещают сохранять данные в файле?
Изменено: New - 13 апр 2021 00:12:01
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
подправил
Проблемы при копировании/вставке таблицы
 
кто будет писать ТС в ЛС ?
Изменено: New - 12 апр 2021 16:28:11
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
См. файл (данные начинаются со 2-й строки, нажмите синюю кнопку)
Изменено: New - 12 апр 2021 15:52:12
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
Валентин Ненаю,  обычно ещё принято рядом с данными показывать желаемый результат, какой вы хотите получить.
А то мы сделаем результат в одну ячейку через запятую, а вы скажете - неет, мне надо в столбик... или наоборот
Изменено: New - 12 апр 2021 14:30:29
Подстановка значений из расчетной таблицы в таблицу данных
 
В работе
Обменялись
Изменено: New - 11 апр 2021 23:46:50
Подсветить одинаковые значения в строке
 
пусть ещё будет решение макросом
Подстановка значений из расчетной таблицы в таблицу данных
 
давайте попробуем, пишу вам в ЛС
Изменено: New - 10 апр 2021 11:34:37
Перенос слов из ячеек при заполнении по пробелам
 
Повторите ваше сообщение ещё раз здесь и не забудьте приложить небольшой файл-пример
Копирование данных ячейки на другой лист, каждый раз в строку ниже, Копирование
 
Код
Sub MyCopy()
Dim LastRow As Long

    With Worksheets("Лист2")
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row + 1
        If LastRow < 7 Then LastRow = 7
        .Cells(LastRow, "D").Value = Worksheets("Лист1").Range("D5").Value
    End With
End Sub
Сохранить файл в нужной папке с нужным названием.
 
Код
Sub test()
Dim NewFileName As String
    'А2 - 1 этап (папка)
    'A3 - название файла
    NewFileName = "C:\Итоги\выборка\" & Range("A2") & "\" & Range("A3") & ".xlsb"
    ActiveWorkbook.SaveAs Filename:=NewFileName, FileFormat:=xlExcel12 'xlsb
    MsgBox "Файл сохранён!", vbInformation, ""
End Sub
Изменено: New - 9 апр 2021 18:39:37
Макрос вставки нужного количества пустых строк
 
См. картинку
Подтягивание дня недели из другой таблицы
 
если только по Адресу, то так (в ячейку F2)
=ВПР(C2;График!E:G;3;0)
Печать колонтитулов через VBA
 
мне кажется нельзя задать каждому листу разные колонтитулы (вроде можно создать только для 1-го листа и для всех остальных, но вам тоже не подойдёт, наверное)
Копирование строк как значения в другую книгу, ошибка при вставке строки
 
Попробуйте так

Код
Sub stroki2()
   Dim Linia As String, RD As String, i As Long, kol_vo As Long, kol_vo2 As Long, x As Long, r As Long, t As Long
   
    If Not Range("AB24, AB26") Is Nothing Then
        x = 2
        r = 2
        Linia = ThisWorkbook.Sheets("АООК").Range("AB26")
        RD = ThisWorkbook.Sheets("АООК").Range("AB24")
        With Workbooks("Накопительная ТК.xlsm").Sheets("Сварка")
            kol_vo = .Cells(Rows.Count, 2).End(xlUp).Row
            For i = 1 To kol_vo
                If .Cells(i, 4) = Linia Then
                    If .Cells(i, 2) = RD Then
                        x = x + 1
                        .Rows(i).Copy
                        ThisWorkbook.Sheets("Сварка").Cells(x, 1).PasteSpecial xlPasteValues
                    End If
                End If
            Next
         End With
    End If
End Sub
Изменено: New - 8 апр 2021 19:12:33
Копирование строк как значения в другую книгу, ошибка при вставке строки
 
См. картинку
Создание листа в книге, Создание листа в книге
 
Попробуйте так

Код
Sub CreateWorksheet()
    If SheetExist("О1") Then 'проверяем есть ли лист О1 в файле, если да, то создаём новый лист
        Worksheets.Add
        ActiveSheet.Name = "О1_З"
    End If
End Sub
 
Function SheetExist(ByVal iName As String) As Boolean
    On Error Resume Next
    With Worksheets(iName): End With
    SheetExist = (Err = 0)
    Err.Clear
End Function
Изменено: New - 8 апр 2021 18:35:44
Формат ячейки для даты с доп.буквами, днем недели и месяцем без года
 
="В "&ТЕКСТ(ДЕНЬНЕД(СЕГОДНЯ();1);"ДДДД")&" " & СТРОЧН(ТЕКСТ(СЕГОДНЯ();"[$-FC19]Д ММММ"))
"В четверг 8 апреля"
Изменено: New - 8 апр 2021 17:55:07
найти в каждой строке четкое совпадение и записать его, макросом
 
Коллеги, кто-нибудь понял задание? Я вот хочу помочь, но как-то не догоняю, даже с показанным результатом...
Формат ячейки для даты с доп.буквами, днем недели и месяцем без года
 
ну, это совсем легко )
="В "&ТЕКСТ(ДЕНЬНЕД(СЕГОДНЯ();1);"ДДДД")&" "&ДЕНЬ(СЕГОДНЯ()) & " " & СТРОЧН(ТЕКСТ(СЕГОДНЯ();"ММММ"))
Изменено: New - 8 апр 2021 17:43:29
Формат ячейки для даты с доп.буквами, днем недели и месяцем без года
 
без склонения, наверное, так

="В "&ТЕКСТ(ДЕНЬНЕД(СЕГОДНЯ();1);"ДДДД")&" "&ДЕНЬ(СЕГОДНЯ()) & " " & ТЕКСТ(СЕГОДНЯ();"ММММ")
Слияние значений из ячеек по условию
 
В Excel 2019 и выше есть ОБЪЕДЕНИТЬ()
=ОБЪЕДИНИТЬ(;ИСТИНА;B2:B6)
Изменено: New - 8 апр 2021 17:04:22
BOF или Eof имеет значение True
 
Цитата
Sergey R написал:
А чем это не хорошо? Не очень понимаю
тем, что в Excel нет нулевого столбца и нулевой строки
а у меня ошибки нет

Код
Sub test()
    Dim resultArray(1 To 30, 1 To 16) As Variant
    Dim iRow As Long, iCol As Long
    
    For iRow = 1 To UBound(resultArray) 'по строкам
        For iCol = 1 To UBound(resultArray, 2) 'по столбцам
            resultArray(iRow, iCol) = iRow & "," & iCol 'заполняем массив какими-то данными
        Next iCol
    Next iRow
    Worksheets(1).Range("A3").Resize(UBound(resultArray, 1), UBound(resultArray, 2)).Value = resultArray
End Sub
Изменено: New - 8 апр 2021 16:37:00
BOF или Eof имеет значение True
 
попробуйте просто так
Код
Worksheets(7).Range("A3:P32").Value = resultArray


P.S. Вы в курсе, что у вас начальный индекс начинается с 0 при объявлении  Dim resultArray(30, 16) As Variant  ?
А в Excel нет нулевого столбца и нулевой строки.
Лучше объявлять вот так
Код
Dim resultArray(1 To 30, 1 To 16) As Variant

а выгружать на лист вот так
Код
Worksheets(7).Range("A3").Resize(UBound(resultArray, 1), UBound(resultArray, 2)).Value = resultArray
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 72 След.
Наверх