Довести макрос до ума

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Довести макрос до ума (Макросы/Sub)

Xaden

Дата: Вторник, 17.06.2014, 17:49 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Доброго всем времени суток.
В очередной раз обращаюсь к Вам за помощью
В файле есть макрос, помогите пожалуйста довести его до ума, мне нужно, что бы при копирование с одного файла в другой в колонке D эти строки нумеровались.
Так же возможно ли сделать. что бы значения в ячейках как "8,69054E+12" отображались нормально.
Заранее благодарю всех откликнувшихся.

К сообщению приложен файл: Vion_.xls (50.0 Kb)

Ответить

Hugo

Дата: Вторник, 17.06.2014, 18:02 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3254

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

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

2019

Одна строка
[vba]

Код

wb1.Range("Q18:Q" & wb1.Cells(wb1.Rows.Count, 5).End(xlUp).Row).Copy wb2.Range("E3")

[/vba]
лишняя.
Чтоб "8,69054E+12" отображались нормально - задайте всему столбцу числовой формат, целые числа.
Нумеряция - протяните автозаполнение диапазона номерами, запишите в макрос. Добавьте в свой - до куда тянуть можно определить по соседнему столбцу, использовать.
Или же протянуть нумерацию вручную заранее или после. Лишнее скрыть/убить.

Написал:
[vba]

Код

    With wb2
         .Columns("E:E").NumberFormat = "0"
         il = .Cells(.Rows.Count, 5).End(xlUp).Row
         .Range("D3") = "1"
         .Range("D3").AutoFill Destination:=.Range("D3:D" & il), Type:=xlFillSeries
     End With

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Xaden

Дата: Вторник, 17.06.2014, 18:21 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

оооо спасибо огромное, c функцией AutoFill пробовал, но довести до ума не получалось.
а вот про NumberFormat даже не подумал

А если Вас не затруднит можете пояснить зачем строчка .Range("D3") = "1" (в моем понимание это первая цифра нумерации)

Сообщение отредактировал Xaden - Вторник, 17.06.2014, 18:22

Ответить

Hugo

Дата: Вторник, 17.06.2014, 18:37 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3254

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

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

2019

Ну да. Если убрать 1 (кстати кавычки лишние, упустил)- то будет автозаполнять пустотой. Хотя конечно мог бы и сам додумать...

Оптимизировал:
[vba]

Код

    With wb2
         .Columns("E:E").NumberFormat = "0"
         .Range("D3") = 1
         .Range("D3").AutoFill Destination:=.Range("D3:D" & .Cells(.Rows.Count, 5).End(xlUp).Row), Type:=xlFillSeries
     End With

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Xaden

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

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Спасибо, будем запоминать

Ответить

_Boroda_

Дата: Вторник, 17.06.2014, 22:40 | Сообщение № 6

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Еще вариант прогрессией
[vba]

Код

    With wb2
         .Columns("E:E").NumberFormat = "0"
         .Range("D3") = 1
         .Range("D3:D" & .Cells(.Rows.Count, 5).End(xlUp).Row).DataSeries
     End With

[/vba]
и еще суммой
[vba]

Код

    With wb2
         .Columns("E:E").NumberFormat = "0"
         .Range("D3:D" & .Cells(.Rows.Count, 5).End(xlUp).Row).FormulaR1C1 = "=SUM(R[-1]C,1)"
         .Range("D3:D" & .Cells(.Rows.Count, 5).End(xlUp).Row) = .Range("D3:D" & .Cells(.Rows.Count, 5).End(xlUp).Row).Value
     End With

[/vba]

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

Ответить

Xaden

Дата: Среда, 18.06.2014, 12:30 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Уважаемые а подскажите пожалуйста формулу, можно и просто ексель, нужно что бы в ячейку B1 по сравнению перекидывались/копировались данные с листа2
В файле указал примерно как должно быть.

ЗЫ долго отнекивался от этой идеи но рук давит

К сообщению приложен файл: 8094502.xls (58.5 Kb)