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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 472 След.
журнал замечаний, доработать журнал замечаний
 
В работе
Согласие есть продукт при полном непротивлении сторон.
журнал замечаний, доработать журнал замечаний
 
Пароль на VBA не подходит. Личные сообщения читали?
Согласие есть продукт при полном непротивлении сторон.
журнал замечаний, доработать журнал замечаний
 
Цитата
Алекс174 написал: чтоб действующие макросы не сбились
А у Вас есть пароль на Лист и VBA-проект?
Написал в ЛС, жду ответа
Изменено: Sanja - 17 Июн 2019 09:25:42
Согласие есть продукт при полном непротивлении сторон.
Текст по столбцам формулой
 
Для первого слова (поселок)
Код
=СЖПРОБЕЛЫ(ЛЕВСИМВ(B7;ПОИСК(",";B7)-1))
для второго слова (улица)
Код
=СЖПРОБЕЛЫ(ПСТР(B7;ПОИСК(", ул.";B7)+5;ПОИСК(", д";B7)-ПОИСК(", ул.";B7)-6))
далее - по образу и подобию

Или ВОТ похожая тема
Изменено: Sanja - 17 Июн 2019 07:20:00
Согласие есть продукт при полном непротивлении сторон.
Текст по столбцам формулой
 
А зачем Вам в файле 668 формул если можно это сделать одним махом тем инструментом, который Вы описали выше?
Согласие есть продукт при полном непротивлении сторон.
Перебор файлов в папке вне выбранного списка, VBA
 
Код
Do While sFiles <> ""
    If Not dic.Exists(sFolder & sFiles) Then
        Set iWb = Workbooks.Open(sFolder & sFiles)  'открываем файл 'вне списка'
        'вместо сообщения вставьте нужный Вам код
        MsgBox "Открыт файл - '" & iWb.Name & "'"
        '---------------------------------------
        iWb.Close True  'закрываем модифицированный файл с сохранением изменений
    End If
    sFiles = Dir
Loop
Согласие есть продукт при полном непротивлении сторон.
[ Закрыто] приход-расход-остаток-накладная, приход-расход-остаток-накладная
 
Цитата
Marat123456789 написал: За спасибо может кто-нибудь
А Вы эту задачу просите решить от любви к Excel? Думаю нет, с этого решения наверняка какие-то дивиденды поимеете
Так что думаю Вам СЮДА, озвучить сроки и бюджет
Согласие есть продукт при полном непротивлении сторон.
Перебор файлов в папке вне выбранного списка, VBA
 
Код
Sub GetNotExistsFiles()
Dim lf As Long, iTemp, sFolder$, sFiles$, iStr$
sFolder = "D:\DOWNLOAD\"    'путь к папке
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .Title = "Выбрать файлы отчетов" 'заголовок окна диалога
    .Filters.Clear 'очищаем установленные ранее типы файлов
    .Filters.Add "Excel files", "*.xls*;*.xla*", 1 'устанавливаем возможность выбора только файлов Excel
    .InitialFileName = sFolder 'назначаем папку отображения и имя файла по умолчанию
    .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
    If .Show = 0 Then Exit Sub 'показывает диалог
    Set dic = CreateObject("Scripting.Dictionary")
    For lf = 1 To .SelectedItems.Count
        iTemp = dic(.SelectedItems(lf)) 'считываем полный путь к файлу
    Next
End With
sFiles = Dir(sFolder & "*.xls*")
Do While sFiles <> ""
    If Not dic.Exists(sFolder & sFiles) Then
        iStr = IIf(IsEmpty(iStr), sFiles, iStr & vbCrLf & sFiles)
    End If
    sFiles = Dir
Loop
MsgBox "В список выбранных файлов не вошли:" & vbCrLf & iStr
End Sub
Согласие есть продукт при полном непротивлении сторон.
Активация ячейки при включении флажка
 
1. Настройки флажка: ПКМ по Флажку - Формат объекта - Элемент управления
2. См. Условное форматирование для ячейки A1
3. См. Проверку данных для защиты ячейки
Согласие есть продукт при полном непротивлении сторон.
Вопрос не по форуму, но по сайту, Код в некоторых статьях Приёмов расположен в одну строку
 
Здравствуйте Николай. Пользуюсь Вашей замечательной функцией RegExpExtract но столкнулся с такой ситуацией, что когда функция должна возвратить ошибку
Код
ErrHandl:
    RegExpExtract = CVErr(xlErrValue)
то функция вылетает с ошибкой 13 (Type Mismatch). Думаю из-за того, что Вы определяете ее как String
Код
Public Function RegExpExtract(Text As String, Pattern As String, Optional Item As Integer = 1) As String
а CVErr(xlErrValue) это все таки не строковый тип данных
Спасибо
Согласие есть продукт при полном непротивлении сторон.
Активация ячейки при включении флажка
 
Цитата
Отписка: Бессодержательный, формальный письменный ответ на что-н., не затрагивающий существа дела
на будущее  ;)  
Согласие есть продукт при полном непротивлении сторон.
Активация ячейки при включении флажка
 
Цитата
D07 написал: отписавшимся...
А я то думал, что помогаю, а не отписываюсь. Ан нет...
Согласие есть продукт при полном непротивлении сторон.
Как добавить ссылку к тексту в ячейке
 
=ГИПЕРССЫЛКА()
Приложите файл-пример. Как есть - Как надо
Изменено: Sanja - 15 Июн 2019 21:33:29
Согласие есть продукт при полном непротивлении сторон.
Активация ячейки при включении флажка
 
Цитата
D07 написал: Ткнул на флажок, активировал его и ячейка стала доступной для редактирования. Выключил флажок - ячейка опять поблекла и не редактируется.
Цитата
Андрей VG написал: Панель Разработчика, вкладка элементы управления
Можно и без них попробовать
Согласие есть продукт при полном непротивлении сторон.
Активация ячейки при включении флажка
 
Цитата
D07 написал: Активация ясейки,
аднака  :)  
Изменено: Sanja - 15 Июн 2019 18:00:17
Согласие есть продукт при полном непротивлении сторон.
Как удалить весь текст в ячейке после первого слова
 
Код
=ЛЕВСИМВ(A1;ПОИСК(" ";A1)-1)
Согласие есть продукт при полном непротивлении сторон.
Расчет данных в столбцах по условию
 
Ваша формула СУММЕСЛИМН подразумевает использование нескольких условий. Вот и добавьте их в фомулу
Например для 1
Код
=СУММЕСЛИМН(H:H;C:C;1;I:I;"кредит")
Согласие есть продукт при полном непротивлении сторон.
Предупреждение о содержания документа макроса, Предупреждение о содержания документа макроса при сохранении
 
Поиск
Согласие есть продукт при полном непротивлении сторон.
VBA Перебор массивом CheckBox'ов в заданном диапазоне ( например, с 6 по 10)
 
Цитата
falmrom написал: чтобы не прописывать имя каждого CheckBox'a, а заставить машину автоматически определять его при использовании событий
'Лакернём' тему КЛАССАМИ
Согласие есть продукт при полном непротивлении сторон.
Как избавиться от пробелов, образующихся при выгрузке из 1С?
 
Цитата
kolyale написал: Проблемы с ВПР
Цитата
kolyale написал:  СЖПРОБЕЛЫ- Отличная Функция Большое СПАСИБО!
:D  :D  :D  
Согласие есть продукт при полном непротивлении сторон.
Как реализовать окно с собственными кнопками через VBA ?
 
Цитата
vikttur написал: Если не будет возражений от участников темы - под удаление
'За' обеими руками. Это ломает мозг
Согласие есть продукт при полном непротивлении сторон.
Полоса прокрутки на динамической диаграмме
 
Ваш случай
Согласие есть продукт при полном непротивлении сторон.
Как реализовать окно с собственными кнопками через VBA ?
 
У ChekBox'ов есть свойство Caption. Используйте его вместо TextBox'ов. В TextBox'ы, как правило, информацию вводят, а Вам, как я понял, нужно получить эту информацию.
Код
Private Sub CheckBox1_Click()
    If Me.CheckBox1 Then MsgBox Me.CheckBox1.Caption
End Sub
Согласие есть продукт при полном непротивлении сторон.
Макрос на возврат на начало таблицы во всех листах при открытии книги.
 
Строки 2 и 3 можно безболезненно удалить
Согласие есть продукт при полном непротивлении сторон.
Суммирование нижних строк к верхним
 
Цитата
Jonsnow написал: Я так понимаю что их определить можно по столбцу в котором прописаны значения a,b,c. т.е строки а суммируются к строке с
Т.е. Вы сами не знаете по какому принципу что-то с чем-то суммируется?
Согласие есть продукт при полном непротивлении сторон.
Макрос на возврат на начало таблицы во всех листах при открытии книги.
 
Код
Private Sub Workbook_Open()
Dim actShName$: actShName = ActiveSheet.Name
Dim actCelAdr$: actCelAdr = ActiveCell.Address
Application.ScreenUpdating = False
Dim wsSh As Worksheet
On Error Resume Next
For Each wsSh In Sheets
    With wsSh
        If .AutoFilterMode Then .ShowAllData
        .Activate: .Range("A1").Select
    End With
Next
Application.ScreenUpdating = True
Sheets(1).Activate
End Sub
Согласие есть продукт при полном непротивлении сторон.
Отсортировать данные, Дописать и убраться в макросе
 
Здравствуйте. Написал в личку
В работе
Выполнено, оплачено
Изменено: Sanja - 14 Июн 2019 20:08:21
Согласие есть продукт при полном непротивлении сторон.
Поиск минимального или максимального из несмежных ячеек
 
Цитата
buchlotnik написал: а по вашему примеру не скажешь
buchlotnik, это мой пример :) , ТС так и неудосужился  
Согласие есть продукт при полном непротивлении сторон.
Поиск минимального или максимального из несмежных ячеек
 
Вариант
Код
Sub Vojjd()
Dim R As Range, iMax, iMin
Dim clMax As Range, clMin As Range, afterCell As Range
Set R = Union(Cells(1, 1), Cells(2, 2), Cells(3, 3), Cells(4, 4), Cells(5, 5))
iMax = Application.Max(R)
iMin = Application.Min(R)
Set afterCell = R.SpecialCells(xlCellTypeLastCell)
Set clMax = R.Find(What:=iMax, After:=afterCell, SearchDirection:=xlPrevious)
Set clMin = R.Find(What:=iMin, After:=afterCell, SearchDirection:=xlPrevious)
MsgBox "Max - " & Application.Max(R) & ", в ячейке - " & clMax.Address(0, 0) & vbCrLf & _
        "Min - " & Application.Min(R) & ", в ячейке - " & clMin.Address(0, 0)
End Sub
Согласие есть продукт при полном непротивлении сторон.
Макрос ввода даты без разделителей даёт error...
 
Цитата
Шахин написал: по сайтам лазаю
Толку от этого лазанья? Думаете где-то лежит готовое решение для Вашей конкретной ситуации и терпеливо Вас дожидается? Ошибаетесь, его писать нужно специально для Вашей задачи, а для этого нужно знать ЗАДАЧУ, а не то, что Вы пытались добавить какое-то продолжение в рабочий макрос.
Покажите какой макрос Вы хотели добавить, какую задачу решаете?
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 472 След.
Наверх