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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 170 След.
Как совместить значение в Excel 2012 Excel 2007
 
Цитата
БМВ написал: 2012  - это хто?
Хто-хто.
Это огрызочный Excel для огрызочного яблока.  :excl:
Как совместить значение в Excel 2012 Excel 2007
 
Огрызок заменяет пробелы неразрывными пробелами
160\102\117\115\115\98\97\108\108\95\48\49\160 '2012
32\102\117\115\115\98\97\108\108\95\48\49\32 '2007
Отключить УФ на время печати документа
 
Код
Sub qq()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    With ActiveSheet
        .Copy Before:=Sheets(1)
        .Cells.FormatConditions.Delete
        .Range("D4:H28").PrintOut
        .Delete
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Удаление определенного текста из списка
 
Это на лету, или нет?
Код
Sub Macro1()
    Dim LastRow As Long, i As Long, x As Long, arr, Arr2, Krit
    Krit = Range("E20")
    LastRow = Cells(18, 3).End(xlUp).Row
    arr = Range(Cells(4, 3), Cells(LastRow, 3)).Value
    If Not IsArray(arr) Then
        ReDim arr(1 To 1, 1 To 1)
        arr(1, 1) = Cells(4, 3).Value
    End If
    ReDim Arr2(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        If arr(i, 1) <> Krit Then
            x = x + 1
            Arr2(x, 1) = arr(i, 1)
        End If
    Next
    Range(Cells(4, 3), Cells(LastRow, 3)).ClearContents
    If x Then Range("C4").Resize(x, 1).Value = Arr2
End Sub
Удаление определенного текста из списка
 
Цитата
vikttur написал:
Массив не может быть размерностью в один элемент.
Вить, ты точно написал то, что хотел написать?
Игра пятнашки с перемешиванием ячеек
 
Чуть проще
Код
Option Explicit
Dim rRange As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Const w& = 30
    Dim col As New Collection
    Dim x&, i&
    If Target.Row = 1 Or Target.Column = 1 Then Exit Sub

    Cancel = True
    With Me.UsedRange
        .ColumnWidth = Me.StandardWidth
        .RowHeight = Me.StandardHeight
        .Clear
    End With

    Set rRange = Target.Resize(4, 4)
    With rRange

        .ColumnWidth = IIf(w > 9, (w / 0.75 - 5) / 7, w / 9)
        .RowHeight = w
        .Borders.LineStyle = xlNone
        .Borders.LineStyle = xlContinuous
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Name = "Calibri"
        .Font.Size = 18
        .Interior.ColorIndex = 35

    End With
    On Error Resume Next
    Randomize
    Do While col.Count < 16
        x = Int(16 * Rnd)
        col.Add x, CStr(x)
        DoEvents
    Loop

    For i = 1 To col.Count
        If col(i) = 0 Then
            rRange(i).Value = Empty
        Else
            rRange(i).Value = col(i)
        End If
    Next

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i&, j&
    If Target.CountLarge > 1 Then Exit Sub
    If Not rRange Is Nothing Then
        If Not Intersect(rRange, Target) Is Nothing Then
            For i = -1 To 1
                For j = -1 To 1
                    If Abs(i) + Abs(j) = 1 Then
                        If Not Intersect(rRange, Target.Offset(i, j)) Is Nothing And IsEmpty(Target.Offset(i, j)) Then
                            Target.Offset(i, j).Value = Target.Value
                            Target.Value = Empty
                        End If
                    End If
                Next
            Next
        End If
    End If
End Sub
Цикл для формирования ширины столбцов из массива
 
Для того, чтобы из массива можно было что-то взять, нужно туда это положить.
Помещайте в массив ширину столбцов (любым удобным для вас способом), а после считывайте ее оттуда, и применяйте.
И заполнение массива, и считывание - циклом.
Помогите плиз в решение задачи в excel (Оплачу за первое верное решение), Помочь в решение задачи
 
Цитата
БМВ написал:
то бесплатная ветка была :-)
В этой я бы такого н написал.
Помогите плиз в решение задачи в excel (Оплачу за первое верное решение), Помочь в решение задачи
 
.
Изменено: RAN - 31 Янв 2019 01:28:47
Возможно ли сделать печать страницы Excel в формат Word? вместо PDF
 
Что закладки ставить, что поля слияния, разница не велика.
Со слиянием плюс - не нужен макрос, но работать нужно из ворда.
С закладками - нужен макрос, зато готовые документы получаются сразу из Excel.
Цитата
s.emashev написал:
В этом случае, кроме редактирования самой формы договора в эксель
А для чего нужна эта самая форма договора в Excel, когда на печать идет сразу готовый документ Word?
Помогите плиз в решение задачи в excel (Оплачу за первое верное решение), Помочь в решение задачи
 
БМВ, цигарки кончились?  ;)
Помогите плиз в решение задачи в excel (Оплачу за первое верное решение), Помочь в решение задачи
 
Шансов получить правильный ответ бесплатно, при условии соблюдения правил форума, больше, чем за 500 р с нарушениями
Поиск заданного значения в нескольких листах и при нахождении перенос значений в итоговый лист
 
Пропал Misha.
А макрос интересный получился.
Оператор AND и преобразование типа, 10 AND 4 =0??
 
Кажется стало прояснятся
Самое главное, что я упустил, преобразование типа происходит однократно, после срабатывания оператора AND внутри условия.
Нет, в две строчки работать проще!
Всем спасибо.

PS Владимир, как удается откапывать такие темы?
PPS
Цитата
БМВ написал:
Я что один из-за админства с битами работаю????
А я так вообще не знаю, что это такое.
Изменено: RAN - 29 Янв 2019 12:47:43
Оператор AND и преобразование типа, 10 AND 4 =0??
 
Хотелось результат, который выдает функция И().
Это просто проверка двух условий в If.
Код
If Len(Me.TextBox5) And Len(Me.ComboBox1) Then

Рабочий вариант
Код
If Len(Me.TextBox5) Then
If Len(Me.ComboBox1) Then
Изменено: RAN - 29 Янв 2019 12:23:34
Оператор AND и преобразование типа, 10 AND 4 =0??
 
Мяв
Практически никогда не использую AND, а тут вдруг случилось.
И неожиданно всплыло, что строка
Код
Len(Me.TextBox5) And Len(Me.ComboBox1)

работает совершенно не так, как от нее ожидается.
Результаты теста такой конструкции в файле.
Вопрос - как это работает?
Перемещение 8000 листов Эксель на один лист
 
Судя по всплывшей теме ТС 2 годичной давности, эти 8000 файлов Excel являются прокладкой между исходными файлами csv, и желаемым результатом.
Загрузка данных из файла txt в excel
 
Интересное развитие темы.
Два года программа что, не предлагала указать путь к папке? Или вы ей не пользовались?
Цитата
tayers написал:
так что я делаю не так?
Может не тем пальцем щелкаете?  :)
Как указать путь к текущей папке, если адрес текущей папки может меняться?, при сохранении шаблона с поддержкой макросов через диалоговое окно "Сохранить как"
 
Если последовательно нажать буквы А и Д, слово ДА не получится.
Загрузка данных из файла txt в excel
 
Все два года так и щелкаете?  :D
Как указать путь к текущей папке, если адрес текущей папки может меняться?, при сохранении шаблона с поддержкой макросов через диалоговое окно "Сохранить как"
 
Цитата
KonstantinK написал:
Мне кажется оболочке все равно.
А вот Excel не кажется, и шаблоны по даблклику открываются не методом Open, а методом Add.
Не сохраняет документ Word сформированный из макроса в excel
 
См. справку Word по SaveAs и SaveAs2.
Как указать путь к текущей папке, если адрес текущей папки может меняться?, при сохранении шаблона с поддержкой макросов через диалоговое окно "Сохранить как"
 
Цитата
KonstantinK написал: но все они ориентированы на обычные excel файлы
к коим относится и файл xltm.
Условное форматирование (менять цвет, если записан текст неправильно)
 
Цитата
Sergeevi4 написал: и нет их списка
тогда такая формула в проверку данных (как вариант)
Код
=(ПОИСК(". ";A1)-ПОИСК(" ";A1))=2
Автоматическое формирование текста сообщения из таблицы
 
Функция (UDF) "СКЛЕИТЬ" - Мир MS Excel
Ошибка 1004. Выдает ошибку макроса на других компьютерах
 
Цитата
Sanja написал:
Зачем Вы переименовали модуль ЭтаКнига и поместили туда свой макрос? Это специальный модуль. Обычные макросы хранят в стандартных модулях
А воз и ныне там.
Может не мозги ломать нужно, а ответы читать?
Поиск заданного значения в нескольких листах и при нахождении перенос значений в итоговый лист
 
Отписал в ЛС
Запуск файла Excel по расписанию
 
Михаил, а в чем проблема?
Запускаешь планировщиком, срабатывает Workbook_Open(), и далее по тексту.
Или я чего не понимаю?
With или не With?, Почему возникает ошибка?
 
Дим, спасибо. Крутился рядом, но выцепить и сформулировать ответ не получалось.
With или не With?, Почему возникает ошибка?
 
Мяв.
Имеем 2 кода вызова календаря.
На мой взгляд, коды идентичны, однако при закрытии календаря крестом первый код выдает ошибку, а второй - нет.
В чем причина такого поведения?
Код
Sub test1()
    Dim d#
    With slancalendar
        .StartUpPosition = 1
        .Show
        d = .Value
    End With
    Unload slancalendar
    MsgBox d
End Sub
Sub test2()
    Dim d#
    With slancalendar
        .StartUpPosition = 1
        .Show
    End With
    d = slancalendar.Value
    Unload slancalendar
    MsgBox d
End Sub
Изменено: RAN - 27 Янв 2019 12:06:37
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 170 След.
Наверх