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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 189 След.
Объединение ячеек при вставке строки снизу
 
Есть такая метелка в 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 не дает возможности копирования картинки
Как удалить знак абзаца в конце текста
 
Для того, чтобы в Excel удалить то, чего там нет, достаточно просто ничего не делать.

Ведь помню, что было.  :D
Изменено: RAN - 6 Дек 2019 09:17:29
Почему 1<>1?
 
Ну, ты, ведмедь, и бестолковый!. Тебе же кириллицей написали - ведет себя странно.
Сравнение текста ячеек, с закраской не совпадающих символов
 
Wiss,  :D
Подкраска совпавшего текста по регистру
Сравнение текста ячеек, с закраской не совпадающих символов
 
На данный момент
Цитата
adamm написал:
не могу его найти
находится на 2 странице.
Кнопки «Создать строку», «Удалить строку» в форматированной таблице, Кнопки «Создать строку», «Удалить строку» в форматированной таблице
 
http://www.excelworld.ru/forum/10-43543-1
Закодировать данные числами и заменить их на эти числа
 
Цитата
casablanca написал:
база из 100 тысяч строк, сделать это - проблема.
Если с двумя перекурами, то быстрее, чем за пару минут не сделать.
Вставка данных из отфильтрованных строк в отфильтрованные, Не могу найти решения в сети(((
 
Далеко ходить не надо.
Как вставить скопированные ячейки только в видимые/отфильтрованные ячейки
Ошибка вычисления внутри ЕСЛИ()
 
Цитата
ocet p написал:
Итак, пришло время
Нет, конец света еще не наступил.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 189 След.
Наверх