Два вопроса про макрос Excel / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Два вопроса про макрос Excel

14 сообщений из 14, страница 1 из 1

Два вопроса про макрос Excel

#33592448

Nick-From

Гость

макрос:

Sub Макрос1()

For i = 1 To 100 Step 1
Лист2.Cells(i, 1) = Лист1.Cells(i, 1)
Next i

End Sub

Почему исчезают значения на листе 1?
Почему ничего не появляется на листе 2?

...

Рейтинг:

0 / 0

10.03.2006, 12:51:30

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33592487

Evgeshka

Участник

Откуда: Украина

Сообщения: 760

Рейтинг: 0 / 0

Nick-FromПочему исчезают значения на листе 1?
Почему ничего не появляется на листе 2?

Код: plaintext

1.
2.

For i =  1  To  100  Step  1 
Worksheets("Лист1").Cells(i,  3 ) = Worksheets("Лист2").Cells(i,  3 )
Next i

...

Рейтинг:

0 / 0

10.03.2006, 13:00:30

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33592690

talgat

Участник

Откуда: Tallinn Estonia

Сообщения: 571

Рейтинг: 0 / 0

Evgeshka Nick-FromПочему исчезают значения на листе 1?
Почему ничего не появляется на листе 2?

Код: plaintext

1.
2.

For i =  1  To  100  Step  1 
Worksheets("Лист1").Cells(i,  3 ) = Worksheets("Лист2").Cells(i,  3 )
Next i

Если точнее
For i = 1 To 100 Step 1
Worksheets("Лист2").Cells(i, 3) = Worksheets("Лист1").Cells(i, 3)
Next i

...

Рейтинг:

0 / 0

10.03.2006, 13:48:07

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33592697

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

...

Рейтинг:

0 / 0

10.03.2006, 13:50:16

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33592700

Evgeshka

Участник

Откуда: Украина

Сообщения: 760

Рейтинг: 0 / 0

talgatЕсли точнее
For i = 1 To 100 Step 1
Worksheets("Лист2").Cells(i, 3) = Worksheets("Лист1").Cells(i, 3)
Next i

Не один хрен?!! Все меня и так поняли :)

...

Рейтинг:

0 / 0

10.03.2006, 13:51:05

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33593351

Гость

Вот блин
а я всегда думал что надоть like так

Worksheets("Total_check").Cells(x + 3, 5).Value = dd5 * 1000

------
а нафик в цикле ? если Selection.Copy побыстрей будет ?

...

Рейтинг:

0 / 0

10.03.2006, 16:29:47

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33593372

Evgeshka

Участник

Откуда: Украина

Сообщения: 760

Рейтинг: 0 / 0

E2а нафик в цикле ? если Selection.Copy побыстрей будет ?

Верно говоришь, надо диапазоном копировать и вставлять!

...

Рейтинг:

0 / 0

10.03.2006, 16:34:20

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33593530

Nick-From

Гость

Спасибо!
Нет, диапазоном не катит, структура данных такая, которую нужно свести в одну табличку:

товар кол-во
товар 1 10
товар 2 15
товар 3 50
товар 5 11

товар цена
товар 2 15
товар 3 50
товар 1 10
товар 4 43

Поэтому только вложенными циклами думаю можно.
А вообще как это синтаксически выглядит - Copy Paste - будьте любезны, покажите плиз :)

...

Рейтинг:

0 / 0

10.03.2006, 17:13:50

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33594001

Пользователь2

Гость

Если нужно объединить данные двух структурно однотипных таблиц, то почему бы не воспользоваться средством "Консолидация".

Код: plaintext

1.
2.
3.

    Worksheets("Лист3").Range("A1").Consolidate _
      Sources:=Array("Лист3!R7C6:R11C7", "Лист2!R7C9:R11C10"), _
      Function:=xlSum, _
      TopRow:=True, LeftColumn:=True, CreateLinks:=False

По поводу копирования диапазонов:

Код: plaintext

    Worksheets("Лист3").Range("F7:G11").Copy _
      Destination:=Worksheets("Лист2").Range("A1")

...

Рейтинг:

0 / 0

10.03.2006, 23:06:17

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33599217

Nick-From

Гость

Спасибо!
только вот почему-то такой код

Код: plaintext

1.
2.
3.
4.

Sub Макрос1()
  Worksheets("Copy").Range("B6:B10").Copy _
  Destination:=Worksheets("Copy").Range("D6:D10")
End Sub

копирует только первую ячейку диапазона.. ??

И еще вопрос - что это за палка такая _
всюду встречается - это типа разрыва строк что-ли?

...

Рейтинг:

0 / 0

14.03.2006, 13:12:48

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33599262

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.

Sub Макрос1()
  Worksheets("Copy").Range("B6:B10").Copy _
  Destination:=Worksheets("Copy").Range("D6")
End Sub

...

Рейтинг:

0 / 0

14.03.2006, 13:24:11

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33599290

Пользователь2

Гость

Nick-FromСпасибо!
только вот почему-то такой код

Код: plaintext

1.
2.
3.
4.

Sub Макрос1()
  Worksheets("Copy").Range("B6:B10").Copy _
  Destination:=Worksheets("Copy").Range("D6:D10")
End Sub

копирует только первую ячейку диапазона.. ??

Все нормально копирует. Кстати можешь Range("D6") вместо Range("D6:D10").

Код: plaintext

  Worksheets("Copy").Range("B6:B10").Copy _
    Destination:=Worksheets("Copy").Range("D6")

Nick-FromИ еще вопрос - что это за палка такая _
всюду встречается - это типа разрыва строк что-ли?

Для удобства чтения процедур можно продолжить строку кода с одной строки на другую. Для этого нужно воспользоваться символом переноса "_".

Пример.

Код: plaintext

1.
2.
3.
4.
5.

    str1 = "This is a long string that we are going to break."
    MsgBox str1

    str1 = "This is a long string th" & _
      "at we are going to break"
    MsgBox var1

...

Рейтинг:

0 / 0

14.03.2006, 13:29:13

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33599307

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

Код: plaintext

1.
2.

Sub Макрос1()
  Worksheets("Copy").Range("B6:B10").Copy   Destination:=Worksheets("Copy").Range("D6:D10")
End Sub

это одно и тоже

Код: plaintext

1.
2.
3.

Sub Макрос1()
  Worksheets("Copy").Range("B6:B10").Copy _
  Destination:=Worksheets("Copy").Range("D6:D10")
End Sub

просто для удобства, когда длинная строка и не помещается по ширине экрана то можно разорвать поставив пробел и _
одна строка может содержать не больше 24х - _

...

Рейтинг:

0 / 0

14.03.2006, 13:32:53

| Ответить | Цитировать | Написать

Два вопроса про макрос Excel

#33599496

Nick-From

Гость

Спасибо!
все прояснилось, все работает! :)

...

Рейтинг:

0 / 0

14.03.2006, 14:17:24

| Ответить | Цитировать | Написать

14 сообщений из 14, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Два вопроса про макрос Excel

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=33592690&tid=2185120]:	0ms
get settings:	5ms
get forum list:	8ms
check forum access:	2ms
check topic access:	2ms
track hit:	44ms
get topic data:	6ms
get forum data:	1ms
get page messages:	31ms
get tp. blocked users:	1ms
others:	197ms

total:	297ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы