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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 495 След.
Первое и последнее число платежа
 
Цитата
belkinoff написал: мне необходимо рассчитать разницу дней
Мне вот интересно, где в приложенных решениях рассчитана разница дней?  
Согласие есть продукт при полном непротивлении сторон.
Первое и последнее число платежа
 
Цитата
belkinoff написал: желтым цветом видел что нужно получить для каждого столбца
Нужно получить даты? Или знаки вопроса? А для какого столбца получено то, что выделено желтым?
Вы ручками покажите готовый желаемый результат
Согласие есть продукт при полном непротивлении сторон.
Просмотреть checkbox по условиям
 
Так?
Код
Dim x As Control, lr&, iStr$
lr = .Cells(1, 1).End(xlUp).Row + 1
For Each x In Me.Controls
    If TypeOf x Is MSForms.CheckBox Then
        If x = True Then
            .Cells(lr, 1).Value = frmKust1.Value
            .Cells(lr, 3) = rcNow1.Value
            .Cells(lr, 4).Value = rcTo1.Value
            'вместо 'Первый Второй и т.п.' впишите ИМЕНА своих чекбоксов
            Select Case x.Name
                Case "Первый": iStr = "S"
                Case "Второй": iStr = "F"
                Case "Третий": iStr = "A"
                Case "Четвертый": iStr = "FV"
                Case "Пятый": iStr = "Fr"
            End Select
            Cells(lr, 2) = iStr
            lr = lr + 1
        End If
    End If
Next
Согласие есть продукт при полном непротивлении сторон.
Как закрасить текст в outlook при отправке его из excel?
 
Формат тела письма в OutLook'е
Согласие есть продукт при полном непротивлении сторон.
Поиск данных в таблице по условию.
 
Много текста. Покажите в файле-примере Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
Подгрузка недостющих данных с другой таблицы
 
В столбце B (предмет) выпадающий список с названиями предметов, в столбце C (класс) формула
Код
=ИНДЕКС('Лист 2'!$A$2:$F$6;ПОИСКПОЗ(B2;'Лист 2'!$E$2:$E$6;0);1)
далее по аналогии
Согласие есть продукт при полном непротивлении сторон.
Функция для расчета оставшегося срока полезного использования объекта. Ошибка function not defined
 
katerin-ka, отступы в коде делайте кнопкой Tab
Согласие есть продукт при полном непротивлении сторон.
Вычитание из одной ячейки до определенного числа
 
См.файл
Согласие есть продукт при полном непротивлении сторон.
Функция для расчета оставшегося срока полезного использования объекта. Ошибка function not defined
 
Было много лишних пробелов в коде (или каких-то других непечатных символов). См. файл
Согласие есть продукт при полном непротивлении сторон.
Вычитание из одной ячейки до определенного числа
 
Цитата
RomanRott написал:
Например, такая ячейка в А1, значение 100 ...При этом в А1 должно отображаться текущее значение.
Это как? Как в ячейке A1 может одновременно отображаться и исходное и текущее значения?
Согласие есть продукт при полном непротивлении сторон.
Дублирование значение ячейки в другую
 
См.файл
Согласие есть продукт при полном непротивлении сторон.
Дублирование значение ячейки в другую
 
Цитата
В ячейке А1 и В1 имеются числа...
Вообще не понятно. В первой строке у Вас не числа, а названия столбцов (это про A1, B1, и C1), далее, в ячейке A3 стоит формула, которая переносит значение из C2, как и задумывалось, я так понимаю. В чем проблема?
Изменено: Sanja - 8 Сен 2019 08:46:46
Согласие есть продукт при полном непротивлении сторон.
Перенести обработку диапазонов из прямого обращения в обработку в памяти
 
Или сами, раз
Цитата
IVIVV написал: подхвачу суть и метод и дальше буду решать сам...
...на массивах или через словарь...
Массивы в VBA
Описание объекта Dictionary
Согласие есть продукт при полном непротивлении сторон.
Перенести обработку диапазонов из прямого обращения в обработку в памяти
 
Цитата
IVIVV написал: ранее выложенное в платном разделе.
Так пусть автор и 'допилит'
Согласие есть продукт при полном непротивлении сторон.
Как скрыть меню "Файл" (или вкладка "Сведения" в меню "Файл", или команда "Разрешения" в меню "Файл" во вкладке "Сведения")
 
Цитата
ASS9 написал: что написано у меня в подписи
Ну конечно, куда нам...
Тем, что Вы обесценили тему для других, ищущих ответ на подобный вопрос, Вы добавили себе блеска, как думаете?
Согласие есть продукт при полном непротивлении сторон.
Как скрыть меню "Файл" (или вкладка "Сведения" в меню "Файл", или команда "Разрешения" в меню "Файл" во вкладке "Сведения")
 
Цитата
Андрей VG написал: Предполагаю, что ТС хочет уменьшить число людей, которые смогут разобраться - как организована защита файла.
Цитата
ASS9 написал: Андрей, если не трудно, также прошу очистить Ваш ответ и вложение.

А как же Ron de Bruin? Что ему прикажете делать?
:D  Очередной ТС освоил СУММЕСЛИ и хочет это продать
Согласие есть продукт при полном непротивлении сторон.
Как скрыть меню "Файл" (или вкладка "Сведения" в меню "Файл", или команда "Разрешения" в меню "Файл" во вкладке "Сведения")
 
А зачем все сообщения почистили? Сейчас вообще непонятно о чем тема
Согласие есть продукт при полном непротивлении сторон.
Автоматический поиск по книге (создание макроса)
 
Вот такой функцией можно получить текст из буфера
Код
Function GetCBText()
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .GetFromClipboard
    GetCBText = .GetText
End With
End Function
Прикрутите ее к нужному событию
Согласие есть продукт при полном непротивлении сторон.
Доработка макроса по поиску нужного столбца на листе и вставке в него формулы.
 
Цитата
murad.v.mir написал: вставив формулу следом вставить только её значения
Тогда лучше так, без цикла по ячейкам
Код
Sub Вставка_формулы_в_область()
Dim iCl As Range, iRow&
With ActiveSheet
    lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set iCl = .UsedRange.Find("столб")
    If Not iCl Is Nothing Then
        With iCl.Offset(1).Resize(lRow - iCl.Row)
            .FormulaR1C1 = "=RC[-2]+RC[-1]"
            .Value = .Value
        End With
    Else
        MsgBox "Столбец 'столб' не найден!", vbCritical
        Exit Sub
    End If
End With
End Sub
Согласие есть продукт при полном непротивлении сторон.
Доработка макроса по поиску нужного столбца на листе и вставке в него формулы.
 
Код
Sub Вставка_формулы_в_область()
Dim iCl As Range, iRow&
With ActiveSheet
    lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set iCl = .UsedRange.Find("столб")
    If Not iCl Is Nothing Then
        iCl.Offset(1).Resize(lRow - iCl.Row).FormulaR1C1 = "=RC[-2]+RC[-1]"
    Else
        MsgBox "Столбец 'столб' не найден!", vbCritical
        Exit Sub
    End If
End With
End Sub
А вообще, вставлять макросом формулы это не комильфо  ;)
Считайте нужное в самом коде, а на лист выгружайте готовые значения
Согласие есть продукт при полном непротивлении сторон.
Удаление символов с конца строки, Удаление заданого количества символов с конца строки
 
Код
Cells(G, 1).Value = Mid(Cells(G, 1).Value, 1, Len(Cells(G, 1).Value) - 16)
Согласие есть продукт при полном непротивлении сторон.
Удаление символов с конца строки, Удаление заданого количества символов с конца строки
 
Код
Cells(G, 1) = Mid(Cells(G, 1), 1, Len(Cells(G, 1)) - 16)
Согласие есть продукт при полном непротивлении сторон.
Зависает Excel при 3-м повторе макроса
 
Пересмотрите логику. Сначала проверьте открыта книга или нет, а затем уже открывайте
Согласие есть продукт при полном непротивлении сторон.
Зависает Excel при 3-м повторе макроса
 
Уберите On Error Resume Next и узнаете ошибку
Согласие есть продукт при полном непротивлении сторон.
Зависает Excel при 3-м повторе макроса
 
Цитата
Hellmaster написал: Сюда написал с надеждой, что у кого-то уже была подобная проблема с зависанием.
Были такие проблемы. Как правило они в коде. Но они были в МОЕМ коде, и я их исправил. Вам это не поможет
Согласие есть продукт при полном непротивлении сторон.
Зависает Excel при 3-м повторе макроса
 
На третьем запуске всего макроса? Или на третьем шаге цикла внутри кода?
Цитата
Hellmaster написал: Файла примера не прикладываю, макрос смысла нет выкладывать
Тогда зачем сюда написали?
Согласие есть продукт при полном непротивлении сторон.
Блокировка перемещения среза
 
П.С. RamRiz, в своих темах желательно отписываться
Согласие есть продукт при полном непротивлении сторон.
Подсчет уникальных значений после определенной даты.
 
UDF
Код
Function СЧЁТУНИКЕСЛИ(rng1 As Range, rng2 As Range, kr As Variant) As Double
arr1 = Intersect(rng1, rng1.Parent.UsedRange).Value
arr2 = Intersect(rng2, rng2.Parent.UsedRange).Value
СЧЁТУНИКЕСЛИ = 0
With CreateObject("Scripting.Dictionary")
    For I = LBound(arr2) To UBound(arr2)
        If IsDate(arr2(I, 1)) Then
            If arr2(I, 1) <= CDate(kr) Then
                If Not .Exists(arr1(I, 1)) Then СЧЁТУНИКЕСЛИ = СЧЁТУНИКЕСЛИ + 1
            End If
        End If
    Next
End With
End Function
Согласие есть продукт при полном непротивлении сторон.
[ Закрыто] Проблема с диаграммой, графиками, Проблема с диаграммой, графиками
 
Покажите проблемный файл. По картинкам здесь не лечат
Согласие есть продукт при полном непротивлении сторон.
Ищем цифры в файле
 
Цитата
Deager написал: Да, так и есть, я расцеплял данные
Может из исходника проще будет? Покажите данные до разнесения по столбцам
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 495 След.
Наверх