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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Слияние двух динамических массивов
 
Цитата
Фрол Деревянкин написал:
а если средствами самого экселя?
Цитата
Фрол Деревянкин написал:
У меня есть решение
Превращение множества ячеек в гиперссылки. Оптом.
 
10 минут + макрорекордер = готовый код
откуда при суммировании времени появляется време с больше чем 60 секунд?, Время считается больше чем надо.
 
Для того, чтобы считалось время, нужно считать время. Время в Excel - это число от 0 до 1. А число 3930, даже если оно выглядит как время (39:30), таковым не является.
Как обойти копирование с выше 255 символов
 
Как можно обойти то, чего нет? Где в вашем коде копирование?
Появилось огромное количество новых строк
 
Вить

и без изменения высоты строки адрес не меняется

Владимир, я сделал так
1. Изменил высоту строк на 16
2. Удалил лишнее.
3. Сохранил.
>>> Открыл,  сработало.
Изменено: RAN - 01.10.2021 15:42:46
Появилось огромное количество новых строк
 
Выделить все, изменить высоту строки, и сработает.
Создание файлов из груп листов книги Excel
 
Цитата
Viper25 написал:
чтобы созданные файлы не открывались.
Они и не открываются. Они создаются.
Можно не создавать.  :)
А чтобы не моргали, отключить обновление экрана
Код
application.ScreenUpdating = false
Изменено: RAN - 01.10.2021 11:35:30
Как вытащить числа из текста в ячейке
 
Цитата
JayBhagavan написал:
В модуль книги вставьте следующий код.
<> "В книгу вставьте модуль с кодом."
Как получить список имен диапазонов из диспетчера имен из закрытой книги с помощью vba
 
Цитата
apfu написал:
Если уточните, то постараюсь исправить
Уточняю.
Для того, чтобы тренироваться на кошках, нужно этих кошек иметь.
Правило выделения цветом одинаковых значений, выделение цветом одинаковых значений
 
У вас нет чисел, у вас только текст, который выглядит как число. В Excel числа могут иметь только 15 знаков (цифр). Применяйте текстовое правило "содержит".
Отображение данных ячейке в другой книге
 
Workbooks. ("T:\Книга 2.xlsb") и ничего.
Или наоборот.
Изменено: RAN - 17.09.2021 17:40:52
Как получить список имен диапазонов из диспетчера имен из закрытой книги с помощью vba
 
Цитата
apfu написал:
как-то изменить код  МатросНаЗебре
Я же не гадалка.
Вам лень правила прочитать, значит и ответ не шибко надобен.
Изменено: RAN - 17.09.2021 17:28:46
Сохранение столбцов в отдельный файл (xlsx) макросом
 
Цитата
Maxim написал:
зов моей помощи
И что человек сказать хотел???  8-0  
Как получить список имен диапазонов из диспетчера имен из закрытой книги с помощью vba
 
Цитата
apfu написал:
список имен диапазонов
и
Цитата
apfu написал:
имена умных таблиц
это разные вещи, хотя и то, и другое отображается в диспетчере задач.
Код
Sub qq()
    Dim sh As Worksheet, lb As ListObject
    For Each sh In ActiveWorkbook.Worksheets
        For Each lb In sh.ListObjects
            Debug.Print lb.Name
        Next
    Next
End Sub
Сохранение столбцов в отдельный файл (xlsx) макросом
 
Цитата
Maxim написал:
ActiveWorkbook.LinkSources(xlExcelLinks)
Сильно сомневаюсь, что сие надобно
Код
Sub Сохранить_НД_в_лист()
    Application.ScreenUpdating = False
    Dim path As String, iLinks As Variant, i As Long, vopros&

    vopros = MsgBox("Сохранить форму загрузки НД?", vbYesNo, "Сохранение")
    If vopros = vbYes Then

        path = ThisWorkbook.path
        ActiveSheet.Copy
        With ActiveWorkbook
            .Sheets(1).UsedRange.Cells.Value = .Sheets(1).UsedRange.Cells.Value
            .Sheets(1).Columns(7).Resize(, .Sheets(1).UsedRange.Columns.Count).Delete
            .SaveAs path & Application.PathSeparator & .Sheets(1).Name & " " & .Sheets(1).Range("B10") & " " & .Sheets(1).Range("B11") & ".xlsx", 51
            .Close False
            MsgBox "Форма сохранена в папку", vbInformation, "Важное сообщение:"
        End With
    End If
End Sub
Как выводить значение ячейки в TextBox в формате процентов с онлайн-обновлением при изменении ячейки., Форма немодальная.
 
:)  
Заливка ячеек по RGB или HEX, по параметрам из другой ячейки
 
Ведмедь дальтоник?  :D  
Как открыть новый Excel в отдельном окне и запустить надстройку
 
   
Код
NewExcel.Workbooks.Open "D:\Addin.xlam"
Сортировка в выделяемом диапазоне по определенной колонке
 
Sub Vanga() не спрашивает.  :D  
Получаю разное значение при одинаковых условиях в функциях Int и Fix
 
Я говорю не про стандарт вычислений, а про VBA.Fix.
Итоговая строка опускается ниже в зависимости от добавления строк
 
Не подскажу. У меня такой проблемы нет.
Сортировка в выделяемом диапазоне по определенной колонке
 
Или даже так
Код
Sub Vanga_2()
    Dim x&
    With Selection
        x = InputBox("Укажите № столбца в выделении", , .Columns.Count)
        .Sort .Cells(1, x), xlDescending, Header:=xlNo
    End With
End Sub
Получаю разное значение при одинаковых условиях в функциях Int и Fix
 
Цитата
Ігор Гончаренко написал:
которые являются загадкой только для начинающих пользователей
Не скажи...
Я, вроде, не совсем начинающий, но столкнулся впервые.
Сортировка в выделяемом диапазоне по определенной колонке
 
Вангую.  :D
Код
Sub Vanga()
        Selection.Sort Selection.Cells(1, Selection.Columns.Count), xlDescending, Header:=xlNo
End Sub
VBA. Преобразовать число в текст с учетом формата ячеек.
 
Согласен, не додумал.
Получаю разное значение при одинаковых условиях в функциях Int и Fix
 
А есть еще подобные функции?
VBA. Преобразовать число в текст с учетом формата ячеек.
 
Код
Sub Преобразование()
    Dim cl As Range
    For Each cl In Selection
        cl = VisualVal(cl)
    Next
End Sub
Итоговая строка опускается ниже в зависимости от добавления строк
 
Ибрагим Белхороев, у вас умные таблицы исключительно для красы?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B13:B22")) Is Nothing Then
            If Target <> Empty Then
                Dim lr As Long, cell As Range

                With Worksheets("Лист2")
                    Set cell = .ListObjects("Таблица4").Range.Find(Target)
                    cell.Delete Shift:=xlUp
                    With .ListObjects("Таблица5").ListRows.Add(AlwaysInsert:=True)
                        .Range.Value = Target.Value
                    End With
                End With

                With Range("B13:B22").Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=ishod"    'ValidFormula
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With
            End If
        End If
    End If
End Sub
Изменено: RAN - 09.09.2021 10:32:24
Получаю разное значение при одинаковых условиях в функциях Int и Fix
 
Интересный глюк.
Причем, если задать тип данных Variant, то срабатывает правильно.
XLS в CSV - как убрать лишние разделители у заголовков, XLS в CSV без лишних разделителей
 
Цитата
on.999 написал:
Демонтажные работы;;;;Полы;;;;
Для файлов csv это не лишние разделители, а лишние строки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Наверх