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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 167 След.
Как обновить файл эксель открытый только для чтения ?
 
Что значит "обновить"?
Обозначение задействованного поля автофильтра, чтобы задействованные поля автофильтра были более заметными на листе
 
Координатное выделение в фильтре - Мир MS Excel
Особенности работы с ячейками, значение которых начинается на знак "@"
 
Апострофф, сразу бы так!
Изменено: RAN - 1 Дек 2018 19:47:41
Особенности работы с ячейками, значение которых начинается на знак "@"
 
Люди, а вопрос достоин более пристального внимания!
В примере по ссылке из #10, по команде заменяются восклицательные знаки до 68 строки.
После Excel ругается на ошибку в формуле??????, и усё, все остальные остались на месте.
Меня это тоже как-бы немного ставит в тупик...
PS Причем, повторная попытка удалить гуртом результатов не дает. А вот удалить из одной, отдельно взятой, ячейки - это можно.
Изменено: RAN - 1 Дек 2018 19:18:19
Написание макросов. Обучение
 
StoTisteg, не уверен, была-ли у Архимеда хотя-бы свеча, но электрические мясорубки работают.
[ Закрыто] События листов. Из цепочки макросов не срабатывают те, что запускаются прии изменении во втором лист
 
Я читал внимательно.
Цитата
Sanja написал:
А можно озвучить саму задачу, а не способ, которым Вы пытаетесь ее решить?
Цитата
Gagarin13 написал:
Sanja , Ну сама задача описана в описании.
[ Закрыто] События листов. Из цепочки макросов не срабатывают те, что запускаются прии изменении во втором лист
 
Цитата
Gagarin13 написал:
господин vikttur вроде понял суть задачи.
:D
Я думаю, не он один.
Вместо того, чтобы решать задачу, как из "рыбы" сделать макрос, вы упорно решаете задачу, какие, и куда, приставить костыли, чтобы "рыба" стала хотя-бы хромать.
Удаление всех закрашенных строк по столбцу А через ВБА, Выделить целиком все строки по критерию закрашенности ячеки в столбце А
 
Цитата
Paul Zealand написал:
Пока я сниму с них цвет уже на пенсию выйду.
Вам на пенсию через 5 минут?
Поставить фильтр, удалить заливку, снять фильтр. 5 минут должно вполне хватить.
Изменить начало отсчета массива с 0 на 1
 
Владимир, т.е. вы утверждаете, что во всех случаях (включая W7\Of2010), вы получаете arrP(1 To 4)?
Изменить начало отсчета массива с 0 на 1
 
Да, я сразу не обратил внимания.
Довложил тест.
И еще пара экспериментов.
Изменить начало отсчета массива с 0 на 1
 
Цитата
JayBhagavan написал:
проверил - работает.
Цитата
Nordheim написал:
Я попробовал, получилось.
Моя, однако, тоже пробовала... ;)
Изменено: RAN - 26 Ноя 2018 19:07:05
Изменить начало отсчета массива с 0 на 1
 
Позволю себе высказать категорическое несогласие с сообщением #45.
Ибо при
Код
Dim arrP() As String

Split вообще работать не будет, ибо ему нужна переменная Variant, а в вышеизложенной редакции кода массив не изменится. Для изменения начала отсчета требуется два ReDim Preserve (изменить размерность, и изменить точку отсчета и размерность).
Код
Sub Test1()
'    Dim arrP() As String
    Dim arrP As Variant
    Dim P
    P = "P20 P44 P64 P83"
    arrP = Split(P)
    ReDim Preserve arrP(UBound(arrP) + 1)
    ReDim Preserve arrP(1 To UBound(arrP))
End Sub
Остановка выполнения кода по кнопке на msgbox
 
Возможно.
Как избежать ошибки кода на защищенном листе при изменении ячеек?, Включение и отключение защиты листа при наличии кода
 
UserInterfaceOnly
Остановка выполнения кода по кнопке на msgbox
 
Ваш макрос написан так, что вкорячить туда простейшую команду становится проблемой.
Можно переписать так
Код
Private Sub CommandButton1_Click()
    Worksheets("Выписка").Activate
    Dim Data As String
    Dim FioP As String
    Dim FioM As String
    Dim TypeN As String
    Dim Srok As String
    Dim Summa As String
    Dim Phone As String
    Dim StoimS As String
    НомерСтроки = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    With UserForm1
        Data = .TextBox1.Text
        FioP = .TextBox2.Text
        Srok = .TextBox5.Text
        Phone = .TextBox7.Text
        TextBox6.Text = TextBox9.Text * TextBox5.Text
        If OptionButton1.Value = True Then TextBox6.Text = TextBox6.Text - (TextBox6.Text * 0.03)
        If OptionButton2.Value = True Then TextBox6.Text = TextBox6.Text - (TextBox6.Text * 0.05)
        If OptionButton3.Value = True Then TextBox6.Text = TextBox6.Text - (TextBox6.Text * 0.07)
        Summa = TextBox6.Text
        If CheckBox1.Value = True Then TextBox8.Text = Worksheets("Менеджеры").Range("B1").Value
        If CheckBox1.Value = True Then FioM = TextBox8.Text
        If CheckBox2.Value = True Then TextBox8.Text = Worksheets("Менеджеры").Range("B10").Value
        If CheckBox2.Value = True Then FioM = TextBox8.Text
        If CheckBox3.Value = True Then TextBox9.Text = Worksheets("Апартаменты").Range("B4").Value
        If CheckBox3.Value = True Then StoimS = Worksheets("Апартаменты").Range("B4").Value
        If CheckBox3.Value = True Then TypeN = "Стандартный"

        If CheckBox3.Value = True Then GoSub Search1

        If CheckBox4.Value = True Then TextBox9.Text = Worksheets("Апартаменты").Range("B10").Value
        If CheckBox4.Value = True Then StoimS = Worksheets("Апартаменты").Range("B10").Value
        If CheckBox4.Value = True Then TypeN = "Студия"
        If CheckBox5.Value = True Then TextBox9.Text = Worksheets("Апартаменты").Range("B18").Value
        If CheckBox5.Value = True Then StoimS = Worksheets("Апартаменты").Range("B18").Value
        If CheckBox5.Value = True Then TypeN = "Семейный"
        If CheckBox6.Value = True Then TextBox9.Text = Worksheets("Апартаменты").Range("B25").Value
        If CheckBox6.Value = True Then StoimS = Worksheets("Апартаменты").Range("B25").Value
        If CheckBox6.Value = True Then TypeN = "Люкс"
    End With
    With Worksheets("Выписка")
        Cells(НомерСтроки, 1).Value = Data
        Cells(НомерСтроки, 2).Value = FioP
        Cells(НомерСтроки, 3).Value = FioM
        Cells(НомерСтроки, 4).Value = TypeN
        Cells(НомерСтроки, 5).Value = Srok
        Cells(НомерСтроки, 6).Value = Summa
        Cells(НомерСтроки, 7).Value = Phone
    End With
    Exit Sub
Search1:
    Dim x As String
    Dim found As Boolean
    Cells(2, 4).Select
    x = "Стандартный"
    found = False
    Do Until IsEmpty(ActiveCell)
        If ActiveCell.Value = x Then
            found = True
            Exit Do
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
    If found = True Then
        GoSub allert
    End If
    Return
allert:
    Dim a As Integer
    a = MsgBox("Все номера выбранного типа заняты", vbOKCancel)
    If a = vbCancel Then Exit Sub
    Return
End Sub
Удаление фигур по их номеру
 
Цитата
Megamen2 написал:
Подскажите
Шаг1 - ищем, как удалить с листа фигуры
Шаг2 - ищем, как из текстовой строки выделить номер
Шаг3 - ищем, как в цикле перебрать ячейки диапазона
Шаг4 - РАДУЕМСЯ, как хорошо все работает!
Удаление фигур по их номеру
 
Миш, тогда отбрасываем последний дурацкий вопрос.
Я согласен!
Переместить фигуру в определенное место или центровка фигур по центру листа
 
Цитата
БМВ написал:
а вот что ТС называет центром листа?
Ржунимагу!
Сколько ты знаешь пользователей, которые знают, что центр листа находится на (грубо) 5000 экранов правее, и на 500000 экранов ниже  ячейки "A1"?
Удаление фигур по их номеру
 
Почему? Очень даже заценил.  :)
Но кот в кепке, это не кошка, а уж ведмедик клишеногий с косарем в пасти - тем паче.

PS Для не сведующих - "Ведмедик клишеногий", это конфеты "Мишка косолапый" производства Киев
Удаление фигур по их номеру
 
Цитата
БМВ написал:
что вы с форума на форум скачете?
Миш, а что ты хочешь?
Megamen2
Надо оправдывать ник.
Суммировать длины >2000, сумма не должна превышать порог
Как отсортировать два листа, как один? Сортировка 2 млн. строк.
 
Цитата
bedvit написал:
 обычный VBA-й Variant изнутри .
Не было у бабы печали. Купила баба себе порося...
Изверг!  :excl:
Единократный запуск макроса взятый из текста
 
Текст для поиска
вставить макрос программно
и вариации оного
Как отключить предупреждение гиперссылок в office 2016?
 
Цитата
yuiop2017 написал:
без этого дурацкого предупрежления
файлы не хочет открывать ОС. А ей в барабан, откуда вы пытаетесь открыть ссылку.
Рисование фигур по таблице
 
Код
фигура.Name = Cells(4, 4) & " " & Cells(4, 3)
Изменено: RAN - 12 Ноя 2018 22:05:09
Сохранить макрос с событием BeforeSave.
 
Есть вариант проще.
Отключаем макросы, вставляем этот код, сохраняем.
VBA. Разница между автоматическим и пошаговым выполнением макроса.
 
Макрос отсюда Как сохранить картинки из листа Excel в картинки JPG имеет не значительное отличие.
Но, может, дело в нем?
Вывод таблицы с данными по координатам, Вывод таблицы с данными по координатам
 
Вам бы следовало прислушаться к сказанному, а не плодить дубликаты тем в Миру.
Отрезал Excel. Тестируйте в Word'e.
Код
Sub ConvertDoc()
    Const rowsOne = 25&
    Const rowsStep = 29&
    Dim n&, DocExcelMaxRow&
    '    ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайлаШаблона)
    '    FileName = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "NewDoc" & Get_Time & РасширениеСоздаваемыхФайлов)

    '    DocExcelMaxColomn = Cells.SpecialCells(xlLastCell).Column
    DocExcelMaxRow = 153    'Cells(Rows.Count, "A").End(xlUp).Row

    Dim WA As Object, WD As Object
    '    Set WA = CreateObject("Word.Application")    ' без подключения библиотеки Word
    Dim Table1 As Object
    Set WA = Application    ' без подключения библиотеки Word

    '    Set WD = WA.Documents.Add(ПутьШаблона)
    Set WD = WA.ActiveDocument
    WD.PageSetup.TopMargin = Application.CentimetersToPoints(3.7)    'отступ сверху
    WD.PageSetup.LeftMargin = Application.CentimetersToPoints(2.2)    'отступ слева

    '           Set Table1 = WD.Tables.Add(WD.Range(Start:=0, End:=0), 24, 9)  'рабочая
    Set Table1 = WD.Tables.Add(WD.Range(Start:=0, End:=0), DocExcelMaxRow, 9)  'рабочая

    With Table1
        .Borders.OutsideLineStyle = 1  'Работает
        .Borders.InsideLineStyle = 1   'Работает
        .Rows.Height = Application.CentimetersToPoints(0.8)
        .Columns(1).Width = Application.CentimetersToPoints(2)    '1-й столбец
        .Columns(2).Width = Application.CentimetersToPoints(13)    '2-й столбец
        .Columns(3).Width = Application.CentimetersToPoints(6)    '3-й столбец
        .Columns(4).Width = Application.CentimetersToPoints(3.5)    '4-й столбец
        .Columns(5).Width = Application.CentimetersToPoints(4.5)    '5-й столбец
        .Columns(6).Width = Application.CentimetersToPoints(2)    '6-й столбец
        .Columns(7).Width = Application.CentimetersToPoints(2)    '7-й столбец
        .Columns(8).Width = Application.CentimetersToPoints(2.5)    '8-й столбец
        .Columns(9).Width = Application.CentimetersToPoints(4)    '9-й столбец

        n = rowsOne
        Do While n < DocExcelMaxRow - 1
            .Cell(n, 1).Select
            Selection.ParagraphFormat.PageBreakBefore = wdToggle
            n = n + rowsStep
            DoEvents
        Loop

        .Cell(1, 2) = "nnn"
        .Cell(1, 3) = "55ggg"
    End With

    '            WD.SaveAs FileName
    '
    '    WD.Close False    ' False - без сохранения
    '    WA.Quit False
    '    MsgBox "Выгружено в word."

End Sub
Автоматический запуск макроса при изменении значение в выбранном диапазоне
 
Ничего не нужно вставлять. Нужно удалять.

Код
Private Sub Сортировка()
'Application.ScreenUpdating = False
'Application.EnableEvents = False

'    Range("B10:C19").Select   ЭТА СТРОКА ЛИШНЯЯ

    ActiveWorkbook.Worksheets("Лист2").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист2").sort.SortFields.Add Key:=Range("B10:B19"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист2").sort
        .SetRange Range("B10:C19")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'Application.ScreenUpdating = True
'Application.EnableEvents = True
End Sub

И смысла в отключении событий и обновления экрана тоже никакого.

PS Не заметил сразу, что косяк!
Изменено: RAN - 12 Ноя 2018 15:52:01
Вставка подписи с картинкой из файла или при рассылке писем из excel
 
Цитата
Tesla_LOLa написал:
'Все ты во власти СПАМ-бота
Похоже на правду.  :)
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 167 След.
Наверх