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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 192 След.
Запуск макроса другой книги с вывертом
 
Код
Application.Run "'" & wb.Name & "'!test"
Вставка символов между цифрами
 
=ТЕКСТ(A1;"000-000-000 \ 00")
Сложный перевод колонок в строки
 
https://www.planetaexcel.ru/techniques/2/55/
Перенос данных из ячеек одного документа в ячейки другого документа c определенным шагом. VBA, Макрос VBA
 
Актуальный график = Актуальный график работы ??????
Аналог Application.Trim
 
Да почему не любят? Вот только смысл?
По существующему каналу связи запрос обновляется за минуту - две. И лишняя пара секунд погоды не делает.
Учет наличия с формами прихода / расхода: организации работы документа (Office 2010), Нужны макросы для реализации описанных возможностей по ТЗ
 
написал ЛС
Аналог Application.Trim
 
То, что
Цитата
sokol92 написал:
Вместо Chr(1) можно указать любой символ
понятно. Заинтересовал именно Chr(1)

Kuzmich, думаю нет. Проблема старая...
это выглядит так
Trim_VBA2 = Replace$(Replace$(Replace$(Trim$(txt), " ", Chr(1) & " "), " " & Chr(1), ""), Chr(1), "")
Модераторам. Большая просьба не оформлять это кодом. Ибо код в 1 строку виден далеко не всем.
Изменено: RAN - 13 Фев 2020 23:16:24
Аналог Application.Trim
 
Владимир, мУрси, трюк весьма интересный. Еще бы выяснить, где вообще встречается Chr(1)?
Текст из активной ячейки в TextBox1
 
Кто ищет, тот всегда найдет
Код
Private Sub CommandButton1_Click()
UserForm1.TextBox1 = ActiveCell.Value
UserForm1.Show
End Sub
Аналог Application.Trim
 
Уел!  :D
Мне, правда, более 100 повторов не нать, но сдаюсь.
Всем мУрси.
Аналог Application.Trim
 
Нужно для работы Function ФИО_A(Фам_Имя_Отч) As String в Access.
Цитата
Дмитрий(The_Prist) Щербаков написал:
Do While?
Думал, но цикл не глянулся. Хотя, может, и лучше.

Kuzmich, калибр тот же.
Изменено: RAN - 13 Фев 2020 19:10:56
Аналог Application.Trim
 
Мяв.
Для работы кода требуется функционал Application.Trim, но Application.Trim использовать нельзя.
Я написал аналог, но, мне кажется, что получилась пушка слишком крупного калибра. Может в закутках VBA найдется калибр поменьше?
Код
Sub test()
    txt = "   aa  bb    dd ee   "
    t = AccTrim(txt)
    tt = Application.Trim(txt)
    Debug.Print t
    Debug.Print tt
End Sub
Function AccTrim(txt)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "( {2,})"
        AccTrim = Trim(.Replace(txt, " "))
    End With
End Function
Изменить уровень расположения именованного диапазона с Worksheet на Workbook, макрос
 
Заценил!
Изменить уровень расположения именованного диапазона с Worksheet на Workbook, макрос
 
Дима, ну мы как-бы не макрос на заказ пишем, а информацию для размышления.  :)
Изменить уровень расположения именованного диапазона с Worksheet на Workbook, макрос
 
Код
Sub мяу()
    For Each sh In ThisWorkbook.Worksheets
        For Each nm In sh.Names
            nmName = Mid(nm.Name, InStr(nm.Name, "!") + 1)
            nmRF = nm.RefersToR1C1
            nm.Delete
            ThisWorkbook.Names.Add Name:=nmName, RefersToR1C1:=nmRF
        Next
    Next
End Sub
Изменить уровень расположения именованного диапазона с Worksheet на Workbook, макрос
 
Цитата
sokol92 написал:
интерактивно можешь сделать
Цитата
ArtemonX написал:
вставка-имя-присвоить...
может на картинке сего зверя покажете?
Изменить уровень расположения именованного диапазона с Worksheet на Workbook, макрос
 
Цитата
ArtemonX написал:
как именно присвоить новое значение Workbook.
А вы без макроса сие проделать сможете?
При выделении ячейки записать в нее значение другой ячейки
 
Ведмедя, поелику окромя CountLarge ругаться не на что, делаем вывод - мохнатый 2003 или старее.
samass, меняем CountLarge на Count и радуемся.
Макрос, работающий в 2016, не работает в 2010
 
VBA к вашей проблеме отношения не имеет.
Как назначить Tebox в UserForm формат даты и денежный формат
 
Подозреваю, что вы пытаетесь совместить Me.TextBox1.ControlSource и форматирование в текстбоксе. Тут либо шашечки, либо ехать.
Хотел сделать с дополнительным Textbox' ом, но при передаче значений происходит подмена формата даты на аглицкую локаль, и появляется гемор от головы, и до того места, где он обычно живет.
Заменить точку с запятой на пробел
 
Замените на 2 пробела
Заменить точку с запятой на пробел
 
Ниче не понял.
При чем тут удаление пробелов?
А при замене ; на пробел и через "ctrl+h" ничего не слипается
Передача переменной в функцию
 
Код
Sub test()
txt = "Код ТН ВЭД"
MsgBox KodVd(txt)
End Sub
Private Function KodVd(txt As Variant)
KodVd = Columns(4).Find(txt).Offset(2).Value
End Function
Вод данных из ячейки в UserForm в TextBox и обратно
 
При вашей постановке задачи макросы вообще без нать.  :)
Вод данных из ячейки в UserForm в TextBox и обратно
 
Цитата
Wiss написал:
Могу ошибаться.
Можете. Но не ошибаетесь.
Код
Private Sub TextBox1_Change()

наименее подходящее событие для реализации связи формы и листа, а уж вкупе с
Код
Private Sub Worksheet_Change(ByVal Target As Range)

вообще жесть.

Цитата
Djoni написал:
как сделать, чтобы при закрытии формы и открытии данные на ней сохранялись?, если не сложно
Не сложно. Перед закрытием формы сохраните куда-либо требуемое. При повторной загрузке формы верните на место.
Посчитать кол-во израсходоного ГСМ за год на каждое наименование масел
 
E6:E105 и D5:D105
Посчитать кол-во израсходоного ГСМ за год на каждое наименование масел
 
А как оно считать будет, если есть грейдер, но нет масла, есть масло, но грейдер уже уехал?
Номера телефонов привести к единому формату
 
Тёзка, ты не прав. В магазине платить надо.  :)
Замена значений в текстовых формулах вручную и при помощи макроса
 
Цитата
egorkaqwerty написал:
Весь гугл уже перерыл
Надо было в яндексе поискать.
Код
Sub qq()
Selection.NumberFormat = "general"
Selection.FormulaLocal = Selection.FormulaLocal
End Sub
Закрытие Excel через vba
 
Цитата
dimon_ написал:
но эта команда закрывает все Excel разом.
Абсолютно не верно.
В данном случае существенное значение имеет, что понимается под
Цитата
dimon_ написал:
закрыть определённый (один) Excel?
И есть небольшой, но весьма существенный нюанс - в различных версиях Excel это делается совершенно различными способами.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 192 След.
Наверх