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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 189 След.
Удаление дубликатов в ячейке слева направо
 
Код
Sub мяу()
    Dim c As Range, x, s$
    For Each c In Selection
        With CreateObject("scripting.dictionary")
            s = StrReverse(Replace(Replace(c.Value, "[", "[ "), "]", " ]"))
            For Each x In Split(s)
                .Item(x) = 0
            Next
            c = StrReverse(Replace(Replace(Join(.keys), " [", "["), "] ", "]"))
        End With
    Next
End Sub
Сцепка текста в соседних ячейках макросом
 
Цитата
DartoArem написал:
Там вариант как склеить весь текст из всех ячеек.А нужно склеить построчно
Там вариант, как склеить совершенно любым образом. Можно сверху вниз наискосок, можно сбоку на бок.
Сцепка текста в соседних ячейках макросом
 
http://www.excelworld.ru/forum/3-25-1
Нечёткий текстовый поиск в одной колонке
 
Вы попробуйте на бумаге описать, почему первая пара это дубли, а вторая нет. И полюбуйтесь простыней, которую нужно засунуть в код. А это всего две пары.

God of war 3 PS4
God of war фигурка

God of war фигурка
колекционная фигурка Fuffy POP
TreeView NEW . Для ненаглядной UserForm
 
Просто он у меня за столько времени совсем ручной стал.  :D
TreeView NEW . Для ненаглядной UserForm
 
Аваст даже не пикнул.
Как графически представить сведения о количестве заказов по каждому?, Используя данные из других листов. Составление любой диаграммы на "Лист3"
 
?
[ Закрыто] Подсчет суммы
 
Писать вы умеете.
Может, стоит еще и читать научиться?
Объединение ячеек при вставке строки снизу
 
Есть такая метелка в Excel, формат по образцу называется.
Загрузка данных с листа в Listbox.
 
Мне как-то мой фундаментальный подход ближе
Код
Function SuperVal(s)
    SuperVal = Val(Replace(s, ",", "."))
End Function
Загрузка данных с листа в Listbox.
 
По результатам теста файла ocet p
Листбокс заполняется так
           'Variant I
           '------------------------------------------------
'      : arr(0,0) : "A" : Variant/String
'      : arr(0,1) : "2.1" : Variant/String
'      : arr(0,2) : "3,1" : Variant/String
'      : arr(0,3) : "4,1" : Variant/String

           'Variant II
           'Variant III
           '------------------------------------------------
'      : arr(0,2) : 3,1 : Variant/Double
'      : arr(0,3) : 4,1 : Variant/Double
При этом числа отображаются с запятой.
Вероятно, мой листбокс заполнялся так же, просто я до использования его в расчетах еще не добрался, и типы данных не смотрел.

Но это не самое главное. После теста открываю свой файл, а там...
Вчера вечером код
Код
Private Sub CommandButton2_Click()
TextBox3 = Worksheets(3).Cells(4, 5)
TextBox4 = 2.5
End Sub

выводил в текстбоксы значения с точками, а сегодня с запятыми. В листбоксах аналогично. И все мои расчеты с использованием VAL() не работают.
Это что получается, нужно писать свою SUPERVal(), которая проверяет, какой разделитель отображается в данный момент?  :cry:  :qstn:
Загрузка данных с листа в Listbox.
 
Не знаю...
Обновления все отключены, работает система очень давно.
Не уверен на 100%, но, кажется, в textbox из ячейки всегда с точкой прыгало.
Загрузка данных с листа в Listbox.
 
Мяв.
Имеем Listbox, в который циклом пишем данные с листа.
Код
     ListBox21.List(ListBox21.ListCount - 1, 0) = .Cells(i, 3) 'Наименование материала
     ListBox21.List(ListBox21.ListCount - 1, 1) = .Cells(i, 4) 'ед. изм.
     ListBox21.List(ListBox21.ListCount - 1, 2) = .Cells(i, 7) ' Цена

До обеда числовые данные грузились как Double, в листе отображались с запятой.
Сейчас включил комп, а они в листе с точкой, и типом String.
И это не один Listbox, а все.
При этом, при загрузке через RowSourse, типы распределяются правильно.

В чем причина такого поведения? Как с этим бороться? (Имею в виду не преобразование типа при вычислениях, а при записи)
VBA из основного листа сохранить в новую книгу с данными без формул, без макросов и без VBA
 
Цитата
Mid Function
Returns a Variant (String) containing a specified number of characters from a string.

Цитата
Mid Statement
Replaces a specified number of characters in a Variant (String) variable with characters from another string.

Читать нужно в нужном месте.  :D

http://vb-ideas.narod.ru/articles/vb_001-1.html
https://www.koscheev.ru/education/?file=27
Изменено: RAN - 11 Дек 2019 11:41:36
HB
 
Миш, поздравляю!
А какой лик стал благообразный. Сразу видно - пионер.  :)
Макрос неправильно скачивает файлы, Макрос не качает mp3 файлы
 
Сей макрос качает файлы по ссылкам, а у вас ссылки не на файлы, а на какую-то страницу. Поставьте нормальные ссылки - закачает.
VBA из основного листа сохранить в новую книгу с данными без формул, без макросов и без VBA
 
Код
Sub мяу()
    Dim awb As Workbook, sh As Worksheet, sFilename$
    Application.DisplayAlerts = False
    Application.CopyObjectsWithCells = False
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        If awb Is Nothing Then
            sh.Copy
            Set awb = ActiveWorkbook
        Else
            sh.Copy After:=awb.Sheets(awb.Sheets.Count)
        End If
    Next
    sFilename = ThisWorkbook.FullName
    Mid(sFilename, Len(sFilename), 1) = "x"
    awb.SaveAs sFilename, xlOpenXMLWorkbook
    awb.Close False
    Application.DisplayAlerts = True
    Application.CopyObjectsWithCells = True
    Application.ScreenUpdating = True
End Sub
Замена русских символов, если символ между 2 латинскими
 
Признаки слова Суммируя предыдущие рассуждения, укажем некоторые признаки слова: определенная фонетическая оформленность, ударение; материальность (звучание и буквенное отображение);  Подробнее: https://russkiiyazyk.ru/leksika/chto-takoe-slovo.html
С случае, когда слово не является словом, а представляет собой набор символов, под "словом" понимается фрагмент текста, разделенный пробелами. И правила определения языка применяются ко всему фрагменту, а не его части.
Замена русских символов, если символ между 2 латинскими
 
Смотрите
Код
Sub Мяу()
    Const replaceEnRus$ = "acekopxyACEHKMOPTXасекорхуАСЕНКМОРТХ"    '18/36
    Dim cel As Range, t
    Dim i&, j&
    Dim s$, ss$

    With CreateObject("VBScript.RegExp")
        .Global = True
        .IgnoreCase = True
        For Each cel In Selection
            t = Split(cel.Value)
            For i = 0 To UBound(t)
                .Pattern = "[^а-яё]"
                If .test(t(i)) Then
                    s = .Replace(t(i), "")
                    .Pattern = "[^a-z]"
                    If .test(t(i)) Then
                        ss = .Replace(t(i), "")
                        If Len(ss) < Len(s) Then
                            For j = 1 To 18
                                t(i) = Replace(t(i), Mid$(replaceEnRus, j, 1), Mid$(replaceEnRus, j + 18, 1))
                            Next
                        ElseIf Len(ss) > Len(s) Then
                            For j = 19 To 36
                                t(i) = Replace(t(i), Mid$(replaceEnRus, j, 1), Mid$(replaceEnRus, j - 18, 1))
                            Next

                        End If
                    End If
                End If
            Next
            cel.Value = Join(t)
        Next
    End With
End Sub
UserForm, макросы, расчеты в формах.
 
Реализовать возможно. Контакты в профиле.
Можно ли как то выделить кнопку с макросом после его применения?
 
Код
Sub qq()
    a = Application.Caller
    With ActiveSheet
        Set dr = .DrawingObjects(a)
        x = ActiveSheet.AutoFilter.Filters(2).On
        If .AutoFilterMode Then
            If .AutoFilter.Filters(2).On Then
                .AutoFilter.Range.AutoFilter Field:=2
                dr.Text = "В пути"
            Else
                .AutoFilter.Range.AutoFilter Field:=2, Criteria1:="В пути"
                dr.Text = "Сброс"
            End If
        End If
    End With
End Sub
Как добавить в массив диапазон который имеет разрыв
 
1 Никак
2 Создать несколько массивов, и работать с ними
3 Выполнить 1 часть п.2, создать массив нужной размерности, и переложить туда.
Удалить из названия бренд
 
Цитата
dolyalexey написал:
Каким образом
макросом
Перенос данных из столбцов в строки
 
Цитата
ArgentumTiger_7 написал:
Нужно для формирования сводной таблицы...
Редизайнер таблиц
VBA Повторить каждую строку нужное кол-во раз
 
Экзотический вариант  :)
Код
Sub мяу()
    Dim r As Range
    Dim k&, sortNum&
    k = 3
    With ActiveSheet
        Set r = .Range("A1").CurrentRegion
        r.Offset(1).Resize(r.Rows.Count - 1).Copy r(1).Offset(r.Rows.Count).Resize((r.Rows.Count - 1) * k)
        Application.AddCustomList ListArray:=Application.Transpose(r.Columns(1))
        sortNum = Application.CustomListCount
        Set r = .Range("A1").CurrentRegion
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=r(1), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=sortNum, DataOption:=xlSortNormal
            .SetRange r
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
'        Application.DeleteCustomList ListNum:=Application.CustomListCount
        Set r = Nothing
    End With
End Sub
Не работают формулы в файле
 
С формулой все в порядке. Чего не скажешь об исходных данных. В ячейке В79 не время, а дата.

PS ZhdanovYUYU, Удаление из итоговой таблицы строки со ссылкой на исходную напоминает головную боль и гильотину.
Изменено: RAN - 8 Дек 2019 10:27:27
Подсчет суммы ячеек формулой учитывая, что данные ячеек отображают время
 
Можно, разрешаем.
Выберите себе любой из 100500 форматов, поддерживаемых Excel.
Как формулой удалить лишний пробел, если длина нужного значения постоянно меняется
 
Цитата
vikttur написал:
Это от рецепта зависит )
А в рецепте надо дальше время суммировать.  :)
Подсчет суммы ячеек формулой учитывая, что данные ячеек отображают время
 
Неча на зеркало пенять.....
Макрос сохранения из Excel в PDF с защитой полученного PDF от копирования контента
 
Печать на doPdf не дает возможности копирования картинки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 189 След.
Наверх