надо сделать аналог стандартной функции Excel ДВССЫЛ()

[traaance]

Возвращает ссылку, заданную текстовой строкой. Ссылки немедленно вычисляются для вывода их содержимого. Функция ДВССЫЛ используется, если требуется изменить ссылку на ячейку в формуле, не изменяя саму формулу.

Синтаксис

ДВССЫЛ(ссылка_на_ячейку;a1)

Ссылка_на_ячейку — это ссылка на ячейку, которая содержит либо ссылку в стиле А1, либо ссылку в стиле R1C1, либо имя, определенное как ссылка, либо ссылку на ячейку в виде текстовой строки. Если ссылка_на_ячейку не является допустимой ссылкой, то функция ДВССЫЛ возвращает значение ошибки #ССЫЛ!.

Если ссылка_на_ячейку является ссылкой на другую рабочую книгу (внешней ссылкой), другая рабочая книга должна быть открытой. Если это не так, функция ДВССЫЛ возвратит значение ошибки #ССЫЛКА!.

A1 — это логическое значение, указывающее, какого типа ссылка содержится в ячейке ссылка_на_текст.

Если a1 имеет значение ИСТИНА или опущена, то ссылка_на_ячейку интерпретируется как ссылка в стиле A1.

Если a1 имеет значение ЛОЖЬ, то ссылка_на_ячейку интерпретируется как ссылка в стиле R1C1.

Я скелет наваял, но так как это первый мой опыт в программировании VBA, то все очень криво Хотелось бы услышать дельных советов.

Код: Выделить всё


Public Function MyKR(addr As Variant, Optional fa As Variant) As String
Dim ssilka As String
'--------------------------------------------------
If (TypeName(addr) = "String") Then
  ssilka = addr
Else
  ssilka = CStr(addr)
End If

'--------------------------------------------------
Application.Caption = "Контрольная работа"
'--------------------------------------------------
If IsA1(ssilka) Then
  If IsMissing(fa) Then
    MyKR = CStr(Application.Range(ssilka).Value)
  ElseIf (fa <> 0) Then
    MyKR = CStr(Application.Range(ssilka).Value)
  Else
    MyKR = "#ССЫЛКА!"
  End If
ElseIf IsR1C1(ssilka) Then
  If Not (IsMissing(fa)) Then
    If fa = 0 Then _
      MyKR = CStr(Apllication.Range(sslika).Value)
  End If
Else
  MyKR = "#ССЫЛКА!"
End If
'--------------------------------------------------
End Function


[traaance]

Функции IsA1 и IsR1C1 это пока что только мои личные протоитпы Я нез наю как это реализовать. Буду рад подсказке.

З.Ы. заранее благодарен.

[GSerg]

Ужосн... э... просто ужас

Я про задание. К контрольной работе.


Зачем делать addr As Variant? Что такое fa? Обязательно надо fa? Потому что можно без него. Что делать, если ssilka указывает на несколько ячеек? Почему ошибка возвращается как string, а не как variant/error? Почему вообще возвращается string, в то время как дожно быть range?

[traaance]

вообщето ДВССЫЛ() - это стандартная функция ексель. А мне нужно реализовать ее копию %). Вот MyKR() это и есть моя функция, которая должна работать по образу и подобию ДВССЫЛ().

addr As Variant - потому, что адрес может быть передан или строкой или рейнждем.

fa - это аналог 1а в ДВССЫЛ(). О нем написано вверху. (да кстати наверное надо его переименовать в а1, так будет лучше)

По поводу почем возвращает не variant/error? - а не знаю. я ж говорю это мой первый опыт в програмиировании ВБА. Поэтому че понял, то реалиховал, а че не понял... пытаюсь понять

[traaance]

А я еще я задумался "Возвращает ссылку, заданную текстовой строкой. " - так написано в Екселе. Тоесть возвращается ссылка, но ввиде строки. Я так понял. Может конечно я и ошибаюсь.

[GSerg]

Я знаю, что ДВССЫЛ - стандартная функция.

Код: Выделить всё

Public Function MyKR(byval addr As Variant, Optional byval a1 As boolean=true) As variant
  dim s as string
 
  select case vartype(addr)
  case vbobject
    if typeof addr is excel.range then s=addr.value else mykr=cverr(xlerrvalue):exit function
  case vbstring
    s=addr
  case else
    mykr=cverr(xlerrvalue):exit function
  end select
 
  if not a1 then s=application.convertformula(s,xlr1c1,xla1)

  set mykr=range(s)
end function

[traaance]

Благодарю. Щас буду вникать..

[@Nik]

GSerg, попробовал ваш пример, но не всё получилось... У меня задача стоит так: нужно, чтобы пользовательская ф-ция вернула не значение, а ячейку! Т.е., чтоб результат пользов. ф-ции можно было подставить в качестве начала (конца) диапазона данных. Вот пример, как мне надо сделать:
=СУММ(MyFunc():D15), где MyFunc() возвращает, скажем, ячейку "D5"

[@Nik]

Почему я написал в этой тебе - потому, что как вариант можно сделать так:

Function MyFunc()
Myfunc="D5"
End Function

=СУММ(ДВССЫЛ(MyFunc()):D15), а как обойтись без ДВССЫЛ() ?

[KL]

Почему я написал в этой тебе - потому, что как вариант можно сделать так:

Function MyFunc()
Myfunc="D5"
End Function

=СУММ(ДВССЫЛ(MyFunc()):D15), а как обойтись без ДВССЫЛ() ?

Так ты попробуй функцию GSerg:

=СУММ(MyKR("D5"):D15)

все же работает

[proximo]

А может стоит попробовать
Сервис>Макросы>Начать запись

...
здесь вручную используем функцию ДВССЫЛ
...


Сервис>Макросы>Остановить запись

Лезем в редактор VBA, смотрим, что натворили и делаем так же.

[GSerg]

proximo, кончай глупость постить.

[proximo]

мда, не заметил ключевую фразу "контрольная работа"

[GSerg]

proximo, эта фраза здесь вообще ни при чём.
Ты вообще топик прочитай, что ли. И подумай, что будет в результате выполнения твоего совета и что спрашивали на самом деле.

[Денис]

proximo
Теперь. Если ты до сих пор не понял что тебе сказал GSerg, показываю результат твоего совета:

Код: Выделить всё

    Range("E9").Select
    ActiveCell.FormulaR1C1 = "=INDIRECT(R[-3]C,TRUE)"


Теперь будь добр, поясни, что мы должны были здесь увидеть?