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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Как получить список имен диапазонов из диспетчера имен из закрытой книги с помощью 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 это не лишние разделители, а лишние строки
А не пора ли пересмотреть требование к названию темы?
 
,
:D  
Каким образом настроить работу макросов в режиме общего доступа?
 
Цитата
yuas написал:
И тогда будет работать ?
Будет.
Но макросы, связанные с защитой, вылетят в ошибку.
Каким образом настроить работу макросов в режиме общего доступа?
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
Потому что начиная с 2016 по умолчанию общий доступ к книгам назначается
Дим, а старый общий доступ остался?
Изменить макрос, чтобы значение ячейки с формулой, ссылающейся на данные другой книги, прописывались в листе 2
 
МатросНаЗебре,
Цитата
Ибрагим Белхороев написал:
У меня в ячейке C3 формула, которая ссылается на данные другой книги, мне нужно, чтобы при обновлении формулы
Цитата
МатросНаЗебре написал:
Private Sub Worksheet_Change
:)  
Сохранение строки в виде параметра VBA
 
Скрытый текст
Удалить точки в маске даты через Backspace. VBA
 
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=134429&a...
Обработчики собственных событий пользовательской формы Excel
 
Цитата
Денис Родстванепомнящий написал:
Или есть другие -нормальные?
Ну что вы хотите от  пережитков прошлого века?
Расширять столбец по длине текста при нажатии на ячейку
 
Target Target(1)
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Наверх