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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 67 След.
Почему не число при извлечении значения из текста
 
Цитата
Ігор Гончаренко написал:
описаны только на этом форуме не один десяток раз
Рекомендую начать с этого и далее в той же теме. Полезно не только для начинающих.
И, кстати, в отличие от языка формул Excel в VBA 1="1"
Изменено: sokol92 - 17 Окт 2019 15:20:45
Владимир
При копировании меняется формат ячеек
 
Приведите пример, когда не срабатывает - хотя бы пару ячеек.
Владимир
При копировании меняется формат ячеек
 
Так Вы сами ответили на вопрос в файле "Должно быть". Меняете формат всех ячеек на текстовый, вставляте текст из блокнота, меняете (если нужно) формат всех ячеек на на общий.
Владимир
Восстановление связи с Ribbon
 
Цитата
despot69 написал:
посмотрите на скиншоты, вы не поняли о чем я пишу
Надеюсь, что понял. Если открыть книгу на любом компьютере с Excel 2016(64), добавить в нее модуль, отображенный в первой картинке #10, задать переменную условной компиляции
Код
VBA7 = 0
то при компиляции мы получим точно такую же "картинку", как в #10.
Владимир
Восстановление связи с Ribbon
 
Уважаемый despot69, коллега! Этот форум читают тысячи пользователей, не вводите их в заблуждение! Конструкция, приведенная Вами в #10, корректно компилируется на любых конфигурациях Excel, она многократно упоминается разработчиком в документации.
Сообщение об ошибке на экране свидетельствует о неправильной установке у Вас MS Office - не определена переменная условной компиляции VBA7. Вы можете в этом сами убедиться. Зайдите в VBE Tools/VBAProject Properties и в окне "Conditional Compilation Arguments:" введите
Код
VBA7 = 1
Компиляция пройдет успешно.
Изменено: sokol92 - 15 Окт 2019 15:34:05
Владимир
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
Цитата
БМВ написал:
спасибо тем кто этому и меня научил, см  ссылку из #8
Плюс "первоисточник"
Владимир
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
Excel вообще крайне нестабильно работает с форматированием отдельных символов ячейки - об этом были темы на форуме.
Метод Characters.Insert, похоже, имеет указанное в #15 ограничение по длине результата в 255 символов (не он один).
Если открыть новую книгу и выполнить следующий макрос:
Код
Sub test()
  ActiveCell.Value = String(300, "a")
  ActiveCell.Characters(1, 0).Insert "Дополнительный текст"
End Sub

то возникает ошибка "Метод Insert из класса Characters завершен неверно".

Если в книге произвести какое-нибудь форматирование отдельных символов, то указанный выше макрос уже не вызывает ошибку, но и не вставляет символы (как также указано в #15).
Явная ошибка Excel. Тестировалось на конфигурации: Win 10 Excel 2016(32-, ru)
Изменено: sokol92 - 15 Окт 2019 13:44:00
Владимир
Макрос для срытия формул
 
У Вас сильно завышен объем файла из-за множества неиспользуемых стилей. Следующий макрос уберет ненужные стили (может выполняться несколько минут):
Код
Sub DeleteStyles()
  Dim s As Style
  For Each s In ActiveWorkbook.Styles
    If Not s.BuiltIn Then
     s.Delete
    End If
  Next s
End Sub

Что касается формул, то при численности до нескольких сотен сотрудников тормозов не должно быть.
Следите, чтобы на листе Time были только данные, относящиеся к текущему месяцу.
Владимир
Зеркально отразить второй массив двоичных данных от первого
 
Можно посчитать определитель матрицы. Если он нечетный, то матрица невырождена (в поле из 2 элементов GF(2))  и есть единственное решение. Если четный, то множество решений.
Владимир
Зеркально отразить второй массив двоичных данных от первого
 
У Вас каждый элемент второго массива равен сумме трех элементов первого массива по модулю 2. По сути нужно решить систему линейных уравнений 32x32 в поле из 2 элементов. У этой задачи точно есть простое решение?
Владимир
Как в VBA сравнить текущее время с определенным.
 
Цитата
One6 написал:
Все равно не работает
Не берите плохой пример с локализаторов Excel - пишите имена функций и переменных латынью.
Кроме того, всегда используйте Option Explicit. Обратите также внимание на форму записи Application.Ontime

Код
Option Explicit
Sub Macro1()
    Dim iLastRow As Long
    iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
    Cells(iLastRow + 1, 2).Select
    ActiveCell.FormulaR1C1 = "1"
    Application.Run "Macro2"
End Sub
Sub Macro2()
    Dim TimeToRun
    If Time < TimeValue("19:44:00") Then
        MsgBox "СТОП"
    Else
        TimeToRun = Now + TimeValue("00:00:15")
        Application.OnTime TimeToRun, ThisWorkbook.Name & "!Macro1"
    End If
End Sub

Для МОДЕРАТОРОВ. Тема: Как в VBA сравнить текущее время с определенным.
Владимир
Склеивание формулы в VBA из адресов RANGE
 
Посмотрите описание свойства Range.Address
Владимир
Из названия месяца в формат даты
 
Осмелюсь уточнить ограничение в ответе #5 Михаила. Кодовая страница Windows по умолчанию должна быть 1251.
Владимир
Как в VBA сравнить текущее время с определенным.
 
Функция VBA Now возвращает текущую дату и время, функция Time - только время.
Код
If Time < TimeValue("22:31:00") Then
Владимир
Поместить все согласные буквы в одну ячейку
 
Дошкольный портал (о букве й) .  :)  
Изменено: sokol92 - 13 Окт 2019 19:35:47
Владимир
ячейки с зада :), и такое бывает
 
Цитата
Поймите и меня. Вернитесь, приведите сообщение в нормальный вид. Зачем бездумное копирование?

Крик души младенца (и сообщение 40 000)
Владимир
VBA. Проверка данных в столбце при копировании-вставке
 
Поставьте в условное форматирование формулу с использованием, например, ВПР.
Владимир
Объединение даты и времени в одну ячейку
 
Медведь к спячке готовится. Ему лишние клики ни к чему...
Владимир
Power Query, тэги с кириллицей импортируются в нечитаемом виде.
 
Судя по слову "тэги", речь идет о XML-файле. А другими средствами файл нормально открывается (Excel (открыть файл как XML), браузер)?
Изменено: sokol92 - 12 Окт 2019 15:12:23
Владимир
Как настроить маркер заполения по умолчанию на копирование?
 
Выделяйте две ячейки перед тем, как протягивать. Тогда Вы ясно сообщите Excel, что нужно делать.
Владимир
Присвоение текстовой переменной значения предыдущего месяца
 
Цитата
БМВ написал:
так можно делать
Нельзя. :)  Такой код доживет только до 01.01.2020.
Владимир
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
Отличное решение! Все уже украдено продумано разработчиком до нас. :)  
Владимир
Дебет, кредит, остаток на счете, Задание
 
Цитата
skvarnik написал:
нету времени разобраться
Не жалейте времени на изучение двойной записи.

Цитата
"Это одно из самых прекраснейших изобретений человеческого разума." Гете
Владимир
Проблема с кодом VBA при использовании Intersect, Возникает критическая ошибка при двух итерациях при отслеживании изменения ячейки, приводящая к падению Excel.
 
Происходит конфликт между пересчетом формул и обработкой события. Попробуйте макрос обработки события записать так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    If Not Intersect(Target, Range("C3")) Is Nothing Then
        For i = 1 To 50
            DoEvents
        Next i
        Call cmdScaleB_Click
    End If
End Sub
Владимир
Проблема при работе PasteSpecial в 2013 Excel VBA. Ошибка PasteSpecial
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
есть и еще одна причина отказываться от массива или присвоения значений диапазону посредством .Value = .Value
И еще одна причина: возможное изменение данных. Текст "1.99" станет числом, текст "1/3" превратится в 3 января текущего года, ячейка со значением 'литерал' потеряет левый апостроф и т.п.
Владимир
Проблема при работе PasteSpecial в 2013 Excel VBA. Ошибка PasteSpecial
 
Цитата
ADimov написал:
так в 16 офисе тоже нужно лист активировать перед pastespecial...
Доказательства? Проверил тест из #15 на конфигурациях: Win10 + Excel 2016 (32-, ru) и Win10 + Excel 2016 (64-, en). Работает правильно. Макрос из #5 тоже работает правильно.
Изменено: sokol92 - 9 Окт 2019 13:55:35
Владимир
Нужно сделать так чтобы в ячеку можно было вводить только дату., Тема работы провека даных может это както поможет
 
Здесь.
Владимир
отмена RefreshAll (обновление Excel из Access) перед сохранением файла VBA
 
Успехов!
Владимир
отмена RefreshAll (обновление Excel из Access) перед сохранением файла VBA
 
В описании метода Workbook.RefreshAll подчеркнуто, что объекты, имеющие свойство BackgroundQuery=True, обновляются в фоновом режиме. Самое простое - изменить это свойство на False во внешних диапазонах и сводных таблицах.
Владимир
Подвисает excel при заполнении ячеек
 
У Дмитрия Щербакова есть про это статья.
Изменено: sokol92 - 6 Окт 2019 21:35:53
Владимир
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 67 След.
Наверх