Ввести данные в форму - Microsoft Office Excel

Romuald · 22.07.2010, 15:14

Всем Дорый день!
Помогите, пожалуйста, как в сделать, что бы в форме в Label67
были данные ячейки BF1 ?
пробовал вот так- не идет

Label67.Caption = DB.Cells(searchResult(BF1).Value
Label67 = DB.Cells(BF1).Value
Заранее благодарю
Рома

EugeneS · 22.07.2010, 16:01

см. вложение, если правильно Вас понял

Romuald · 22.07.2010, 17:35

Ok!
Спасибо большое!

Keshunya · 26.07.2010, 13:12

Спасибо огромное и от меня. Я ,к сожалению, не программист, так что собираю с мира по нитке. У меня только еще одно условие всплывает- нужно переносить данные на новый лист и одновременно оставлять такие же параметры страницы. То что у меня есть (для кнопки):
Cells.Select
Range("A1").Activate
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("A1:AA1").Select
Application.CutCopyMode = False

Данные перенеслись, все хорошо, а вот параметры страницы нужно задавать заново. Помогите, плиз, дописать Ваш макрос!!!

IgorGO · 26.07.2010, 13:29

вот это:

Код:

  Sheets.Add after:=Sheets(Sheets.Count)
  Sheets(1).Cells.Copy Destination:=Cells(1, 1)

добавит новый лист в конец списка и скопирует содержимое 1-го листа на новый (с данными и форматированием)
если добавите

Код:

  Cells.ClearContents

все данные на новом листе будут снесены

Keshunya · 26.07.2010, 14:50

Спасибо за быстрый ответ! Обязательно учту это и применю где-то, но пока мне нужно копировать только тот лист, на котором стоит кнопка (у меня более 110 листов и каждый раз ставить первым нужный мне лист, согласитесь, неудобно). Я так понимаю, загвоздка в команде Sheets(1)?

Keshunya · 26.07.2010, 14:53

Не совсем в той теме написала, надо было написать там, где переносятся данные (файл назывался Книга367), чо-то я стормозила!))))

IgorGO · 26.07.2010, 15:09

Цитата:

Я так понимаю, загвоздка в команде Sheets(1)?

Вообще-то команда там Copy, а Sheets(1) - это с какого листа скопировать данные. Впишите вместо единички ваш номер листа (если знаете его) или можно указать его название обязательно в кавычках, например "МойЛистСКнопкой". Строка будет выглядеть так:

Код:

Sheets("МойЛистСКнопкой").Cells.Copy Destination:=Cells(1, 1)

Keshunya · 26.07.2010, 15:21

Цитата:

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

Вообще-то команда там Copy, а Sheets(1) - это с какого листа скопировать данные. Впишите вместо единички ваш номер листа (если знаете его) или можно указать его название обязательно в кавычках, например "МойЛистСКнопкой". Строка будет выглядеть так:

Код:

Sheets("МойЛистСКнопкой").Cells.Copy Destination:=Cells(1, 1)

Так говорю же: листов более 110 и влюбой момент может понадобиться любой из них, т.к. данные разные). На каждом листе ставлю кнопку и если нужна копия конкретного листа (или 2,3 копии), я просто нажимаю на кнопку и копирую именно этот лист. Мне нравится Ваш первый макрос, но параметры станицы остаются стандартными (отступы полей). Есть ли отдельные команды на копирование параметров страницы?

Keshunya · 26.07.2010, 15:26

Проблема решена. Ссылка: http://programmersforum.ru/showthread.php?t=108007. Спасибо, успехов!

22.07.2010, 15:14	#1
Romuald Форумчанин Регистрация: 12.11.2007 Сообщений: 209	Ввести данные в форму Всем Дорый день! Помогите, пожалуйста, как в сделать, что бы в форме в Label67 были данные ячейки BF1 ? пробовал вот так- не идет Label67.Caption = DB.Cells(searchResult(BF1).Value Label67 = DB.Cells(BF1).Value Заранее благодарю Рома

26.07.2010, 13:29	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	вот это: Код: `Sheets.Add after:=Sheets(Sheets.Count) Sheets(1).Cells.Copy Destination:=Cells(1, 1)` добавит новый лист в конец списка и скопирует содержимое 1-го листа на новый (с данными и форматированием) если добавите Код: `Cells.ClearContents` все данные на новом листе будут снесены Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как ввести данные в динамический массив структур?	sunplant	Общие вопросы C/C++	6	28.01.2011 17:10
необходимо создать форму, которая открывается автоматически и просит ввести пароль и имя пользователя.	мария2507	Microsoft Office Excel	2	07.02.2010 15:11
Не получается ввести данные...	solomon123456789	Общие вопросы C/C++	9	24.06.2009 23:41
Добавить в форму данные	Romuald	Microsoft Office Excel	2	13.02.2009 22:45
Можно ли ввести данные в таблицу StringGrid не в процессе выполнения программы а заранее	Arassir	Помощь студентам	5	02.11.2008 17:34

22.07.2010, 17:35	#3
Romuald Форумчанин Регистрация: 12.11.2007 Сообщений: 209	Ok! Спасибо большое!

26.07.2010, 13:12	#4
Keshunya Пользователь Регистрация: 08.07.2010 Сообщений: 33	Спасибо огромное и от меня. Я ,к сожалению, не программист, так что собираю с мира по нитке. У меня только еще одно условие всплывает- нужно переносить данные на новый лист и одновременно оставлять такие же параметры страницы. То что у меня есть (для кнопки): Cells.Select Range("A1").Activate Selection.Copy Sheets.Add ActiveSheet.Paste Range("A1:AA1").Select Application.CutCopyMode = False Данные перенеслись, все хорошо, а вот параметры страницы нужно задавать заново. Помогите, плиз, дописать Ваш макрос!!!

26.07.2010, 14:50	#6
Keshunya Пользователь Регистрация: 08.07.2010 Сообщений: 33	Спасибо за быстрый ответ! Обязательно учту это и применю где-то, но пока мне нужно копировать только тот лист, на котором стоит кнопка (у меня более 110 листов и каждый раз ставить первым нужный мне лист, согласитесь, неудобно). Я так понимаю, загвоздка в команде Sheets(1)?

26.07.2010, 14:53	#7
Keshunya Пользователь Регистрация: 08.07.2010 Сообщений: 33	Не совсем в той теме написала, надо было написать там, где переносятся данные (файл назывался Книга367), чо-то я стормозила!))))

26.07.2010, 15:26	#10
Keshunya Пользователь Регистрация: 08.07.2010 Сообщений: 33	Проблема решена. Ссылка: http://programmersforum.ru/showthread.php?t=108007. Спасибо, успехов!