Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
свойство .top .left
 
#1
10.03.2010 15:02:09
Уважаемые формчане!  
 
В VBA  ActiveCell есть свойства .top и .left  
 
т.е. ActiveCell.top и ActiveCell.left дают представление о позиции активной ячейки  
 
Вопрос, как сделать наооборот - т.е. кодом активировать ячейку знаяя ее координаты
 
 
 
#2
10.03.2010 15:08:31
Проссумировать ширины столбцов от А до тех пор, пока сумма не станет равной Left  
Со строками аналогично
 
 
 
#3
10.03.2010 15:09:51
{quote}{login=webley}{date=10.03.2010 03:08}{thema=}{post}Проссумировать ширины столбцов от А до тех пор, пока сумма не станет равной Left  
Со строками аналогично{/post}{/quote}  
 
Т.е без цикла никак?
 
 
 
#4
10.03.2010 15:17:59
Что-то ничего другого в голову не приходит...
 
 
 
#5
10.03.2010 15:21:45
А зачем это, кстати, надо?
 
 
 
#6
10.03.2010 16:45:53
А если так:  
1. В известных вам координатах создаёте какой-нибудь элемент управления (ну, например, myTextBox)  
2. Определяете строку и столбец расположения верхнего левого угла элемента управления myTextBox  
  Dim Столбец As Long, Строка As Long  
  Столбец = myTextBox.TopLeftCell.Column  
  Строка = myTextBox.TopLeftCell.Row  
3. Удаляете myTextBox  
4. Cells(Строка,Столбец).Select
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#7
10.03.2010 16:54:28
А я вообще не могу придумать практического применения ТАКОГО способа активации ячейки.
 
 
 
#8
10.03.2010 17:02:34
А я чо? Я ни чо...    
Человек спросил, я предложил вариант решения.  
Вроде бы должно работать.    
А зачем - это его проблема. Мне не трудно поделиться мыслями.
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#9
10.03.2010 19:04:00

Очень трудно что-либо посоветовать не представляя Вашу задачу. На самом деле не так все просто. Есть экранные координаты - pixels и координаты листа points. Про какие координаты Вы спрашиваете? <BR>Для начала смачная ссылка про связь координат: http://processtrends.com/pg_charts_cell_size.htm
 
 
 
#10
10.03.2010 21:34:28
Боюсь, Константин нам не ответит...  
А я бы поставил вопрос иначе:  
Как получены координаты ячейки? Не взглядом же...
Bite my shiny metal ass!      
 
 
 
#11
11.03.2010 08:44:07
{quote}{login=Лузер™}{date=10.03.2010 09:34}{thema=}{post}Боюсь, Константин нам не ответит...  
А я бы поставил вопрос иначе:  
Как получены координаты ячейки? Не взглядом же...{/post}{/quote}  
 
Не взглядом. С этого же и начали - ActiveCell.top и ActiveCell.left
 
 
 
#12
11.03.2010 08:45:21
{quote}{login=VovaK}{date=10.03.2010 07:04}{thema=}{post}

Очень трудно что-либо посоветовать не представляя Вашу задачу. На самом деле не так все просто. Есть экранные координаты - pixels и координаты листа points. Про какие координаты Вы спрашиваете? <BR>Для начала смачная ссылка про связь координат: http://processtrends.com/pg_charts_cell_size.htm

{/post}{/quote}  
 
Я думаю, вопрос про points - или top/left может вернуть значение в пикселях?
 
 
 
#13
11.03.2010 08:55:32
{quote}{login=webley}{date=11.03.2010 08:44}{thema=Re: }{post}Не взглядом. С этого же и начали - ActiveCell.top и ActiveCell.left{/post}{/quote}Думаю, что не таким способом. Потому, что если есть ActiveCell, то незачем издеваться с .top и .left. Потому что есть ActiveCell.address
Bite my shiny metal ass!      
 
 
 
#14
11.03.2010 09:13:50
Пожалуй, вы правы. Мне тоже не понятно, зачем это нужно - ответить на этот вопрос может только автор... Может координаты получены из положения какого-то объекта?
 
 
 
#15
11.03.2010 09:19:13
Тогда совет Alex_ST рулит.  
Но игра "чего хочет Ирэн" продолжается до появления Ирэн :)
Bite my shiny metal ass!      
 
 
 
#16
11.03.2010 09:48:49
{quote}{login=webley}{date=11.03.2010 09:13}{thema=}{post}Пожалуй, вы правы. Мне тоже не понятно, зачем это нужно - ответить на этот вопрос может только автор... Может координаты получены из положения какого-то объекта?{/post}{/quote} Да координаты были получены с объекта - диаграммы. Для корректной работы нужно было снять выделение с графика и сделать активной ячеку рядом с этим графиком.    
Сделал так:  
Do While ActiveSheet.Columns(myLeft).Left < ActiveSheet.ChartObjects(ActiveChart.Parent.Index).Left + ActiveSheet.ChartObjects(ActiveChart.Parent.Index).Width  
myLeft = myLeft + 1  
 
Loop  
 
Do While ActiveSheet.Rows(myTop).Top < ActiveSheet.ChartObjects(ActiveChart.Parent.Index).Top + ActiveSheet.ChartObjects(ActiveChart.Parent.Index).Height  
myTop = myTop + 1  
 
Loop  
 
 
Просто думал, что  есть способ активировать ячейку по ее координатам  
 
Спасибо запомощь!
 
 
 
#17
11.03.2010 09:59:35
{quote}{login=The_Prist}{date=11.03.2010 09:57}{thema=}{post}Хотите более простой метод?  
 
Dim sAddr as String  
sAddr = ActiveSheet.ChartObjects(ActiveChart.Parent.Index).TopLeftCell.Offset(-1, -1).Address  
 
Сразу активируем  
 
ActiveSheet.ChartObjects(ActiveChart.Parent.Index).TopLeftCell.Offset(-1, -1).Activate{/post}{/quote}  
 
Спсибо! То же нетривиально догадаться, что к объекту примененим offset
 
 
 
Страницы: 1
Читают тему
Наверх