DrawingObjects

ЗиЗи

Гость

17.04.2011 00:28:07

Скажите пожалуйста,что это?
я написала формулу

Sheets("ну тут все понятно,ссылаемся на диалог который нужен").DrawingObjects("вот здесь откуда брать ссылку я не знаю.где высвечивается оно?").Characters.Text = Sheets("ну тут разумеется Лист1").Range("ну и тут куда ссылаться F11")

Guest Гость	#2 17.04.2011 00:59:03 Судя по времени написания и сумбурности изложения это приступ чего-то спецефически медицинского... "ниччо не понимаю!" (с)

Longines Пользователь Сообщений: 141 Регистрация: 01.01.1970	#3 17.04.2011 01:01:21 DrawingObjects - любой объект на листе, например, textbox. Characters.Text - надпись на нем.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 17.04.2011 01:04:42 Смущает вот это: {quote}{login=ЗиЗи}{date=17.04.2011 12:28}{thema=DrawingObjects}{post}я написала формулу{/post}{/quote} И Вы просите: "Скажите пожалуйста,что это?" А что сказать? Это не формула :-)

ЗиЗи Гость	#5 17.04.2011 01:09:08 Да дело в том,что я не могу узнать откуда смотрится drawing Ojects...

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#6 17.04.2011 01:12:03 А где Вы пишете "формулу"?

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#7 17.04.2011 01:15:25 {quote}{login=Юрий М}{date=17.04.2011 01:12}{thema=}{post}А где Вы пишете "формулу"?{/post}{/quote}Юр, в Макрселе наверное ;-)

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#8 17.04.2011 01:20:09 {quote}{login=ЗиЗи}{date=17.04.2011 01:09}{thema=}{post}откуда смотрится drawing Ojects...{/post}{/quote}В смысле: откуда "лучше смотрится" или "открывается шикарный вид"? ;-)

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

17.04.2011 01:32:22

{quote}{login=Serge 007}{date=17.04.2011 01:15}{thema=Re: }{post}{quote}{login=Юрий М}{date=17.04.2011 01:12}{thema=}{post}А где Вы пишете "формулу"?{/post}{/quote}Юр, в Макрселе наверное ;-){/post}{/quote}
Я тоже так подозреваю :-)
ЗиЗи, вот код для объекта Овал:
Sub qqq()
ActiveSheet.DrawingObjects("Oval 1").Characters.Text = [F11].Value
End Sub
Не это искали?

ЗиЗи Гость	#10 17.04.2011 12:28:46 у меня почему-то MsgBox Sheets("Лист1").DrawingObjects("Имя объекта").Name не работает...

ЗиЗи Гость	#11 17.04.2011 12:35:56 К тому же из объектов у меня только вот это(фото приложила) Прикрепленные файлы post_219409.jpg (28.91 КБ)

ЗиЗи Гость	#12 17.04.2011 12:37:13 я ТАК И ПИСАЛА-ИМЯ ОБЪЕКТА((( а что надо было? я не знаю где его имя смотреть... да он у меня постоянно пищит...(я даже звуч выключила,чтобы не слышать его писки

зИзИ

Гость

#13

17.04.2011 12:47:06

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

ЗиЗи Гость	#14 17.04.2011 12:54:44 Если Вы имеете ввиду ,что имя моего файла "диалоговое..." то это не так...я вставила это имя в это dr.ob но он все равно не заработал... Прикрепленные файлы post_219415.jpg (131.11 КБ)

ЗиЗи Гость	#15 17.04.2011 13:01:11 Уф,ИМЯ Я КОЕ-КАК узнал))) но это не повлияло на записанный макрос...он все равно не работает((( Прикрепленные файлы post_219421.jpg (70.53 КБ)

ЗиЗи

Гость

#16

17.04.2011 13:20:30

Объясняю всю ситуацию подробно.
Нам было сказано создать диалоговое окно.
а в "лист1" занести данные.
и диалоговое окно соединить с "лист1"
то есть.нажимая на поле со списокм "марка машины" я могла выбрать из перечня,который дан на "листе1"

потом нам было сказано создать 2 макроса .первый будет автоматически запускать диалог,а второй обновлять суммы.
в самой методичке дано такое:

Sub auto_open()
DialogSheets("Диалог1").Show
End Sub

Sub Подсчет суммы()

Sheets("Диалог1").DrawingObjects("EditBox1").Characters.
Text = Sheets("Лист1").Range("F11")

End Sub

но в примечании написано:при вводе макросов обратить внимание на соответствие имен листов,полей ввода диалога и адресов ячеек вашего документа.
у меня не сходится только DrawingObjects. но я его написала правильно...но онпочему то все равно не работает...

ЗиЗи Гость	#17 17.04.2011 13:42:40 ВОТ это не работает((( Sub Select_And_Show_name() Dim oSh As Object For Each oSh In ActiveSheet.Shapes oSh.Select MsgBox oSh.Name Stop Next oSh End Sub

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#18 17.04.2011 14:03:28 Интересно:"Уф,ИМЯ Я КОЕ-КАК узнал)))" и "я могла выбрать из". Вы уж как-нибудь с полом определитесь. Дмитрий Вам практически все готовое выложил и расписал. Если уж разжеванное проглотить не можете... Хотя... не мое это дело. Я сам - дурнее всякого примера! ...

Читают тему