Программно изменить данные в макросе

@sstolok · Регистрация: 25.10.2011

Студворк — интернет-сервис помощи студентам

Доброго дня!
Я работаю в Excel 2003. У меня в файле есть несколько макросов. Ниже фрагмент макроса:

Visual Basic
1
2
ActiveSheet.PivotTables("Сводная таблица1").PivotFields("Торговый представитель" _
        ).CurrentPage = "Петров"

Как сделать так, чтобы при изменении фамилии Петров на Иванов в самом файле в теле макроса тоже менялась фамилия, т.е. чтобы макрос стал таким:

Visual Basic
1
2
ActiveSheet.PivotTables("Сводная таблица1").PivotFields("Торговый представитель" _
        ).CurrentPage = "Иванов"

Памирыч · 25.10.2011, 12:32

sstolok, https://www.cyberforum.ru/announcement.php?a=3

@Alex77755 · 25.10.2011, 12:56

Со сводными таблицами очень мало имел дело и то не в макросах, но общее правило долно соблюдаться и там, по идее.
в строке CurrentPage = "Петров" Петрова заменить на переменную, которую можно откуда-нибудь считать или запросить через инпутбокс

@sstolok · 25.10.2011, 12:59 **[ТС]**

Alex77755, Я как раз и спрашиваю, как внести туда переменную, которая бы ссылалась на ячейку в самом файле, цепляя оттуда свое значение

@Alex77755 · 25.10.2011, 13:41

Примерно так
CurrentPage = Cells(2,6).value

@sstolok · 25.10.2011, 14:39 **[ТС]**

Alex77755, Можно подробнее, а то такой команды не нашел на форуме. И CurrentPage - это я понимаю, что он будет с активного листа цеплять данные, а мне надо с конкретного, например, "ТП".

@Ципихович Эндрю · 25.10.2011, 16:54

Сообщение от sstolok

CurrentPage

замените на что нравится, например КиберФорум_сила - это переменная

@sstolok · 25.10.2011, 16:56 **[ТС]**

Сообщение от Alex77755

Cells(2,6).value

А это что значит?

@Ципихович Эндрю · 25.10.2011, 17:01

ячейка(2, 6).значение
два это столбец, 6 строка или наоборот

@Alex77755 · 25.10.2011, 17:05

Сообщение от Ципихович Эндрю

ячейка(2, 6).значение
два это столбец, 6 строка или наоборот

или наоборот

@Ципихович Эндрю · 25.10.2011, 17:06

Visual Basic
1
Cells(10,3).Value=25

Свойству Value экземпляра коллекции Cells (ячейке), находящейся в 10-строке и 3-ем столбце, присвоено значение 25.
а это

Visual Basic
1
КиберФорум_сила = Cells(10,3).Value

наоборот

@sstolok · 25.10.2011, 17:10 **[ТС]**

Спасибо, получается!
А чтобы с другого листа цеплять значение для этой переменной, не подскажите, как прописать надо?

@Ципихович Эндрю · 25.10.2011, 17:13

Visual Basic
1
2
3
4
5
6
Dim Лист1 As Excel.Worksheet
'затем переменную связываем с листом
Set Лист1 = ActiveWorkbook.Worksheets("Лист1")
'копирование делать надо, если надо сохранить форматирование
'текста в ячейке (например, если текст в ячейке жирный)
Лист1.Range("F12").Copy

@Alex77755 · 25.10.2011, 17:15

Попробуй записать макрос и посмотреть.
Возможно многие вопросы снимутся

@sstolok · 25.10.2011, 17:18 **[ТС]**

Я имел в виду следующее:

Visual Basic
1
2
ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Торговый представитель" _
        ).CurrentPage = Cells(300, 1).Value

Этот макрос цепляет значение (300, 1) из текущего листа. А что нужно написать, чтобы он цеплял значение с листа "ТП"?

@Alex77755 · 25.10.2011, 17:19

Возможно Sheets("ТП").Cells(300, 1).Value

@Ципихович Эндрю · 25.10.2011, 17:22

Сообщение от sstolok

ActiveSheet

- активный

Сообщение от Alex77755

Sheets("ТП").

- указываем сами

@sstolok · 25.10.2011, 17:23 **[ТС]**

Всем спасибо! Реально помогли!!!

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	25.10.2011, 12:32
	sstolok, https://www.cyberforum.ru/announcement.php?a=3 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	25.10.2011, 12:56
	Со сводными таблицами очень мало имел дело и то не в макросах, но общее правило долно соблюдаться и там, по идее. в строке CurrentPage = "Петров" Петрова заменить на переменную, которую можно откуда-нибудь считать или запросить через инпутбокс 1

@sstolok 0 / 0 / 0 Регистрация: 25.10.2011 Сообщений: 8
	25.10.2011, 12:59 [ТС]
	Alex77755, Я как раз и спрашиваю, как внести туда переменную, которая бы ссылалась на ячейку в самом файле, цепляя оттуда свое значение 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	25.10.2011, 13:41
	Примерно так CurrentPage = Cells(2,6).value 1

@sstolok 0 / 0 / 0 Регистрация: 25.10.2011 Сообщений: 8
	25.10.2011, 14:39 [ТС]
	Alex77755, Можно подробнее, а то такой команды не нашел на форуме. И CurrentPage - это я понимаю, что он будет с активного листа цеплять данные, а мне надо с конкретного, например, "ТП". 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	25.10.2011, 17:01
	ячейка(2, 6).значение два это столбец, 6 строка или наоборот 1

@sstolok 0 / 0 / 0 Регистрация: 25.10.2011 Сообщений: 8
	25.10.2011, 17:10 [ТС]
	Спасибо, получается! А чтобы с другого листа цеплять значение для этой переменной, не подскажите, как прописать надо? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	25.10.2011, 17:15
	Попробуй записать макрос и посмотреть. Возможно многие вопросы снимутся 1

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	25.10.2011, 17:19
	Возможно Sheets("ТП").Cells(300, 1).Value 1

@sstolok 0 / 0 / 0 Регистрация: 25.10.2011 Сообщений: 8
	25.10.2011, 17:23 [ТС]
	Всем спасибо! Реально помогли!!! 0