Объединить 2 макроса и внести в них изменение.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Объединить 2 макроса и внести в них изменение. (Макросы/Sub)

Mark1976

Дата: Вторник, 05.02.2019, 11:13 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

Репутация: 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

Ответить

_Boroda_

Дата: Вторник, 05.02.2019, 11:34 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

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

Ответить

Mark1976

Дата: Вторник, 05.02.2019, 11:46 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

_Boroda_, здравствуйте. Колонки должны остаться с A по H

Ответить

Mark1976

Дата: Вторник, 05.02.2019, 11:50 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

_Boroda_, приложил второй файл с тем, что должно остаться.

Ответить

_Boroda_

Дата: Вторник, 05.02.2019, 12:18 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата Mark1976, 05.02.2019 в 11:46, в сообщении № 3 ()

Колонки должны остаться с 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]