Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.05.2008, 09:42   #1
Vova4kA
 
Регистрация: 28.05.2008
Сообщений: 4
По умолчанию Как с помощью Microsoft Excel написать программу, позволяющую перемещать предмет на плоскости?

с помощью Microsoft Excel написать программу, позволяющую перемещать предмет на плоскости. В качестве плоскости выступает рабочий лист, в качестве предмета - метка, для управления перемещением служат линейки прокрутки ?

Все облазил не могу решить это задание.
Vova4kA вне форума
Старый 28.05.2008, 10:46   #2
dsapa
Пользователь
 
Регистрация: 22.05.2008
Сообщений: 82
По умолчанию

Какая метка, что она собой представляет: закрашенную ячейку, знак в ячейке, вставленный в лист шейп (рисунок)?
dsapa вне форума
Старый 28.05.2008, 10:55   #3
Vova4kA
 
Регистрация: 28.05.2008
Сообщений: 4
По умолчанию

Дали тока задание и се.... Оно написано выше.
Vova4kA вне форума
Старый 28.05.2008, 11:47   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Так может просто записать макрос перемещения листа (и соответственно и предмета- метки на нем) с помощью линеек прокрутки?
Может то имеется в виду?
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 28.05.2008, 11:49   #5
Vova4kA
 
Регистрация: 28.05.2008
Сообщений: 4
По умолчанию

как это сделать? если можно поподробнее опишите
Vova4kA вне форума
Старый 28.05.2008, 12:29   #6
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

ну если чисто макрос, то может быть так.
Вложения
Тип файла: zip Перемещение.zip (6.6 Кб, 83 просмотров)
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 28.05.2008, 12:43   #7
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

вот еще вариант. совершенно сырой, но как способ...
довести до ума и вполне может быть.
Вложения
Тип файла: rar MoveTXT.rar (8.7 Кб, 27 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 28.05.2008, 12:54   #8
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
вот еще вариант. совершенно сырой, но как способ...
довести до ума и вполне может быть.
Совершенно верно, я тоже думал так еще сделать. Нормальный вариант, если только у Vova4kA не указано в задании жестко "с помощю линеек прокрутки"
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 28.05.2008, 13:24   #9
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

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

в модуле1 все заменить на это:
Код:
Dim Gor As Integer, Ver As Integer

Sub auto_open()
   Init
End Sub

Sub Init()
  Gor = 5000: Ver = 5000
  With ActiveSheet.Shapes("Spn1").ControlFormat
    .Min = 0
    .Max = 10000
    .Value = 5000
  End With
  With ActiveSheet.Shapes("Scr1").ControlFormat
    .Min = 0
    .Max = 10000
    .Value = 5000
  End With
End Sub

Sub RunScroll()
  ActiveSheet.Shapes("Lbl1").Top = _
  ActiveSheet.Shapes("Lbl1").Top + ActiveSheet.Shapes("Scr1").ControlFormat.Value - Ver
  Ver = ActiveSheet.Shapes("Scr1").ControlFormat.Value
End Sub

Sub RunSpinner()
  ActiveSheet.Shapes("Lbl1").Left = _
  ActiveSheet.Shapes("Lbl1").Left + ActiveSheet.Shapes("Spn1").ControlFormat.Value - Gor
  Gor = ActiveSheet.Shapes("Spn1").ControlFormat.Value
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 28.05.2008, 13:43   #10
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Можно было бы и так сделать. Опять же чисто идея.
Правда для перемещения фигуру нужно выделить.
Код:
 ActiveSheet.Shapes("AutoShape 1").Select
    Selection.ShapeRange.IncrementLeft 0.75
    Selection.ShapeRange.IncrementTop 0.75
    Selection.ShapeRange.IncrementLeft -0.75
    Selection.ShapeRange.IncrementTop -0.75
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499

Последний раз редактировалось VictorM; 28.05.2008 в 13:48.
VictorM вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как с помощью TScrollBar перемещать содержимое TMemo вверх или вниз Sanprof Общие вопросы Delphi 3 04.03.2008 00:39
Написать класс - прямые на плоскости. Red Devel Помощь студентам 7 22.01.2008 15:23
Работа с углами в Microsoft Excel OlegYalovets Microsoft Office Excel 1 24.09.2007 04:00
Как перемещать TShape с помощью мыши? SaCREDO Помощь студентам 1 29.03.2007 00:37