Работа с координатой

[ParAlexandr]

Добрый день.
Помогите написать макрос, который будет проверять координату (не ячейку) пустая она или нет. В зависимости от этого присваивать ячейке то или иное значение.

[IgorGO]

у ячейки две координаты (одной маловато будет)

Public Type TPoint
  x As Double
  y As Double
End Type


Function WhereArePoint(p As TPoint) As String
  Dim c As Range, r As Long
  If p.x < 0 Or p.y < 0 Then WhereArePoint = "In Ass"
  For Each c In [a:a].Cells
    If c.Top > p.y Then r = c.Row - 1: Exit For
  Next
  For Each c In [1:1].Cells
    If c.Left > p.x Then WhereArePoint = Cells(r, c.Column - 1).Address: Exit Function
  Next
End Function


Sub Start()
  Dim p As TPoint
  p.x = 222
  p.y = 222
  MsgBox WhereArePoint(p)
End Sub

[DiemonStar]

для начала, что вы понимаете под координатой? случайно не географическую? и где эта координата хранится перед тем, как мы ее проверяем?