Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Объединить 2 макроса и внести в них изменение. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединить 2 макроса и внести в них изменение. (Макросы/Sub)
Объединить 2 макроса и внести в них изменение.
Mark1976 Дата: Вторник, 05.02.2019, 11:13 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. Есть 2 макроса, которые запускается по отдельности. Хочу их объединить и внести в них несколько изменений.
Макрос 1
[vba]
Код
Sub Макрос9()
'
' Макрос9 Макрос
'

'
    Columns("A:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:D").Select
    Columns("F:F").ColumnWidth = 13.63
    Columns("C:D").Select
    Selection.Delete Shift:=xlToLeft
    Range("D2").Select
    Columns("C:C").ColumnWidth = 10.5
    Columns("E:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("I:O").Select
    Selection.Delete Shift:=xlToLeft
    Range("P7").Select
End Sub
[/vba]

Он остается без изменений.

Макрос 2

[vba]
Код
Sub Точки()
    Dim d_ As Range
    c_ = Selection(1).Column ' столбец первой ячейки выделенного диапазона
    'c_ = 6 'если всегда столбец F
    r_ = Cells(Rows.Count, c_).End(3).Row
    Set d_ = Cells(1, c_).Resize(r_)
    With d_
        .Replace What:=".", Replacement:=","
        .Replace What:="'", Replacement:=""
        .FormulaLocal = .FormulaLocal
    End With
End Sub
[/vba]

В него прошу внести изменения: применить этот макрос для колонки F, затем по всем колонкам установить фильтр.

Заранее спасибо.
К сообщению приложен файл: 99_.csv (2.6 Kb) · 99__.csv (0.8 Kb)


Сообщение отредактировал Mark1976 - Вторник, 05.02.2019, 11:49
 
Ответить
СообщениеЗдравствуйте. Есть 2 макроса, которые запускается по отдельности. Хочу их объединить и внести в них несколько изменений.
Макрос 1
[vba]
Код
Sub Макрос9()
'
' Макрос9 Макрос
'

'
    Columns("A:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:D").Select
    Columns("F:F").ColumnWidth = 13.63
    Columns("C:D").Select
    Selection.Delete Shift:=xlToLeft
    Range("D2").Select
    Columns("C:C").ColumnWidth = 10.5
    Columns("E:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("I:O").Select
    Selection.Delete Shift:=xlToLeft
    Range("P7").Select
End Sub
[/vba]

Он остается без изменений.

Макрос 2

[vba]
Код
Sub Точки()
    Dim d_ As Range
    c_ = Selection(1).Column ' столбец первой ячейки выделенного диапазона
    'c_ = 6 'если всегда столбец F
    r_ = Cells(Rows.Count, c_).End(3).Row
    Set d_ = Cells(1, c_).Resize(r_)
    With d_
        .Replace What:=".", Replacement:=","
        .Replace What:="'", Replacement:=""
        .FormulaLocal = .FormulaLocal
    End With
End Sub
[/vba]

В него прошу внести изменения: применить этот макрос для колонки F, затем по всем колонкам установить фильтр.

Заранее спасибо.

Автор - Mark1976
Дата добавления - 05.02.2019 в 11:13
_Boroda_ Дата: Вторник, 05.02.2019, 11:34 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub Точки()
    Dim d_ As Range
    Range("A:B,D:I,K:L,O:R,T:T").Delete
    c_ = 6 'если всегда столбец F
    r_ = Cells(Rows.Count, c_).End(3).Row
    Set d_ = Cells(1, c_).Resize(r_)
    With d_
        .Replace What:=".", Replacement:=","
        .Replace What:="'", Replacement:=""
        .FormulaLocal = .FormulaLocal
    End With
    Range("A1").AutoFilter
End Sub
[/vba]

* А почему файла для поиграться нет?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub Точки()
    Dim d_ As Range
    Range("A:B,D:I,K:L,O:R,T:T").Delete
    c_ = 6 'если всегда столбец F
    r_ = Cells(Rows.Count, c_).End(3).Row
    Set d_ = Cells(1, c_).Resize(r_)
    With d_
        .Replace What:=".", Replacement:=","
        .Replace What:="'", Replacement:=""
        .FormulaLocal = .FormulaLocal
    End With
    Range("A1").AutoFilter
End Sub
[/vba]

* А почему файла для поиграться нет?

Автор - _Boroda_
Дата добавления - 05.02.2019 в 11:34
Mark1976 Дата: Вторник, 05.02.2019, 11:46 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
_Boroda_, здравствуйте. Колонки должны остаться с A по H
 
Ответить
Сообщение_Boroda_, здравствуйте. Колонки должны остаться с A по H

Автор - Mark1976
Дата добавления - 05.02.2019 в 11:46
Mark1976 Дата: Вторник, 05.02.2019, 11:50 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
_Boroda_, приложил второй файл с тем, что должно остаться.
 
Ответить
Сообщение_Boroda_, приложил второй файл с тем, что должно остаться.

Автор - Mark1976
Дата добавления - 05.02.2019 в 11:50
_Boroda_ Дата: Вторник, 05.02.2019, 12:18 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Колонки должны остаться с A по H

И что? Самостоятельно дописать не смогли?
[vba]
Код
Range("A:B,D:I,K:L,O:R,T:T,W:W,Y:AZ").Delete
[/vba]

[vba]
Код
Sub Точки()
    Dim d_ As Range
    Range("A:B,D:I,K:L,O:R,T:T,W:W,Y:AZ").Delete
    c_ = 6
    r_ = Cells(Rows.Count, c_).End(3).Row
    Set d_ = Cells(1, c_).Resize(r_)
    With d_
        .Replace What:=".", Replacement:=","
        .Replace What:="'", Replacement:=""
        .FormulaLocal = .FormulaLocal
    End With
    Range("A1").AutoFilter
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Колонки должны остаться с A по H

И что? Самостоятельно дописать не смогли?
[vba]
Код
Range("A:B,D:I,K:L,O:R,T:T,W:W,Y:AZ").Delete
[/vba]

[vba]
Код
Sub Точки()
    Dim d_ As Range
    Range("A:B,D:I,K:L,O:R,T:T,W:W,Y:AZ").Delete
    c_ = 6
    r_ = Cells(Rows.Count, c_).End(3).Row
    Set d_ = Cells(1, c_).Resize(r_)
    With d_
        .Replace What:=".", Replacement:=","
        .Replace What:="'", Replacement:=""
        .FormulaLocal = .FormulaLocal
    End With
    Range("A1").AutoFilter
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 05.02.2019 в 12:18
Mark1976 Дата: Вторник, 05.02.2019, 12:21 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Range("A:B,D:I,K:L,O:R,T:T,W:W,Y:AZ").Delete

не понял что это обозначает.
Спасибо.
 
Ответить
Сообщение
Range("A:B,D:I,K:L,O:R,T:T,W:W,Y:AZ").Delete

не понял что это обозначает.
Спасибо.

Автор - Mark1976
Дата добавления - 05.02.2019 в 12:21
_Boroda_ Дата: Вторник, 05.02.2019, 13:13 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Это буквы удаляемых столбцов


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто буквы удаляемых столбцов

Автор - _Boroda_
Дата добавления - 05.02.2019 в 13:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединить 2 макроса и внести в них изменение. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!