Excel. Макросом вставить макрос.

@Alexey_p · Регистрация: 09.05.2007

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

Imeetsja:

1. Fail Excela s makrosami.
2. Fail (tablica) s dannymi.

Trebujetsja:

Makrosom is faila(1) dobavit' makros v tablicu (2).

ILI: Ina4e polu4at' v fail(1) informaciju o tom, w kakoj ya4ejke tablicy(2) schelknuli myschkoj.

(sorry, net russkoj raskladki)

@slavasl · 13.05.2007, 12:08

Немного не понял вопрос. Но постараюсь разобраться настолько насклько понял.

>Trebujetsja:

>Makrosom is faila(1) dobavit' makros v tablicu (2).
>ILI: Ina4e polu4at' v fail(1) informaciju o tom, w kakoj ya4ejke tablicy(2)
>schelknuli myschkoj.
Вопрос конечно в том как ты хочешь получать наверное с занесением в таблицу ?А после просто просмотреть?
И если ты хочешь писать прогу на VBA а не VB, б.д. таблица Excel, а не ну например Access и т.д.
Предположим что вся работа должна идти в Excel (лучше конечно в Access т.к. кликаний по таблице мышкой за день будет много)(либо таблицу очишать через определённый промежуток времени.
Макрос придётся писать в той таблице откуда ты считываешь данные

'это нужно процедура делается так открываешь нужную тебе таблицу и делаешь на ней правый клик после выбираешь View Code а там в Открывшемся модуле слева Worksheet и появится эта процедура

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = ActiveCell.Address
MsgBox 'Ha' & Chr(13) & a
End Sub

Далее самый простой вариант если ты создашь таблицу б.д. в Excel .
Создаёшь файл и переносишь его в директорию XLStart( если у тебя Win 95/98 то она кажется в MS Office-Office. В принципе можешь задать поиск и тебе найдёт.
Вот туда и ложишь этот файл.
Да сделать его надо невидимым что б ыглаза не мазолил(Windiws-hide). Таблицу тоже можешь спрятать или закодировать смотря для чего нужно.
Здесь полный Модуль программы

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = ActiveCell.Address
Workbooks('Test2.xls').Worksheets('Sheet1') _
.Range('a1').Value = a
With Workbooks('Test2.xls').Worksheets('Sheet1').Activate
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
End With
Workbooks('Test.xls').Activate
End Sub

Если не получиться или я не так понял что пиши

Новые блоги и статьи
Как обучить нейросеть создания картинок на Python bytestream 24.01.2025 В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .	Как обучить нейросеть генерации текста на Python bytestream 24.01.2025 В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .	Машинное обучение на Python bytestream 24.01.2025 Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .	Как удалить вирус-майнер с компьютера hw_wired 24.01.2025 Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .	Что такое веб-сервер, для чего он нужен и как работает bytestream 24.01.2025 В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .	Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .
Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .	Как перебрать все значения в перечислении (enum) в C# bytestream 24.01.2025 Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .	Как обойтись без проверки на null, чтобы избежать NullPointerException в Java bytestream 24.01.2025 NullPointerException (NPE) является одним из самых распространенных исключений в Java, создающих серьезные проблемы при разработке программного обеспечения. Данное исключение возникает при попытке. . .	Что лучше использовать в href ссылок в JavaScript: "#" или "javascript:void(0)" bytestream 24.01.2025 При разработке веб-приложений важную роль играет правильное использование HTML-ссылок в сочетании с JavaScript. Одним из ключевых аспектов является выбор корректного значения атрибута href для. . .	Как узнать индекс элемента списка по его значению в Python hw_wired 24.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только манипулировать элементами списка, но и определять их точное местоположение. Индекс элемента представляет собой. . .

@Alexey_p 0 / 0 / 0 Регистрация: 09.05.2007 Сообщений: 130
		1
	Excel. Макросом вставить макрос. 09.05.2007, 18:07. Показов 1015. Ответов 1 Метки нет (Все метки) Imeetsja: 1. Fail Excela s makrosami. 2. Fail (tablica) s dannymi. Trebujetsja: Makrosom is faila(1) dobavit' makros v tablicu (2). ILI: Ina4e polu4at' v fail(1) informaciju o tom, w kakoj ya4ejke tablicy(2) schelknuli myschkoj. (sorry, net russkoj raskladki) 0

@slavasl 2 / 2 / 1 Регистрация: 07.05.2007 Сообщений: 126
	13.05.2007, 12:08	2
	Немного не понял вопрос. Но постараюсь разобраться настолько насклько понял. >Trebujetsja: >Makrosom is faila(1) dobavit' makros v tablicu (2). >ILI: Ina4e polu4at' v fail(1) informaciju o tom, w kakoj ya4ejke tablicy(2) >schelknuli myschkoj. Вопрос конечно в том как ты хочешь получать наверное с занесением в таблицу ?А после просто просмотреть? И если ты хочешь писать прогу на VBA а не VB, б.д. таблица Excel, а не ну например Access и т.д. Предположим что вся работа должна идти в Excel (лучше конечно в Access т.к. кликаний по таблице мышкой за день будет много)(либо таблицу очишать через определённый промежуток времени. Макрос придётся писать в той таблице откуда ты считываешь данные 'это нужно процедура делается так открываешь нужную тебе таблицу и делаешь на ней правый клик после выбираешь View Code а там в Открывшемся модуле слева Worksheet и появится эта процедура Private Sub Worksheet_SelectionChange(ByVal Target As Range) a = ActiveCell.Address MsgBox 'Ha' & Chr(13) & a End Sub Далее самый простой вариант если ты создашь таблицу б.д. в Excel . Создаёшь файл и переносишь его в директорию XLStart( если у тебя Win 95/98 то она кажется в MS Office-Office. В принципе можешь задать поиск и тебе найдёт. Вот туда и ложишь этот файл. Да сделать его надо невидимым что б ыглаза не мазолил(Windiws-hide). Таблицу тоже можешь спрятать или закодировать смотря для чего нужно. Здесь полный Модуль программы Private Sub Worksheet_SelectionChange(ByVal Target As Range) a = ActiveCell.Address Workbooks('Test2.xls').Worksheets('Sheet1') _ .Range('a1').Value = a With Workbooks('Test2.xls').Worksheets('Sheet1').Activate ActiveCell.EntireRow.Select Selection.Insert Shift:=xlDown End With Workbooks('Test.xls').Activate End Sub Если не получиться или я не так понял что пиши 0