Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как присвоить глобальной переменной указатель на массив? - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Как присвоить глобальной переменной указатель на массив?
SM Дата: Понедельник, 12.09.2011, 22:05 | Сообщение № 21
Группа: Друзья
Ранг: Участник
Сообщений: 64
Репутация: 59 ±
Замечаний: 0% ±

2003
Quote
Искомое решение и в самом деле - далеко не самое простое и корректное.

???:
К сообщению приложен файл: 5510467-Formula.xls (28.0 Kb)


Excel изощрён, но не злонамерен

Сообщение отредактировал SM - Понедельник, 12.09.2011, 22:06
 
Ответить
Сообщение
Quote
Искомое решение и в самом деле - далеко не самое простое и корректное.

???:

Автор - SM
Дата добавления - 12.09.2011 в 22:05
SM Дата: Понедельник, 12.09.2011, 22:27 | Сообщение № 22
Группа: Друзья
Ранг: Участник
Сообщений: 64
Репутация: 59 ±
Замечаний: 0% ±

2003
Вот:
К сообщению приложен файл: F_123.xls (32.5 Kb)


Excel изощрён, но не злонамерен

Сообщение отредактировал SM - Понедельник, 12.09.2011, 22:45
 
Ответить
СообщениеВот:

Автор - SM
Дата добавления - 12.09.2011 в 22:27
Формуляр Дата: Понедельник, 12.09.2011, 22:44 | Сообщение № 23
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация: 255 ±
Замечаний: 0% ±

Excel 2003, 2013
Quote (SM)
Ааааа, не получилось.

Конечно - "не плучилось".
Надо тему с начала прочитать было. smile
Quote (Формуляр)
такой код просто создаёт глоб. копию массива, в исходном внешнем массиве xArr при этом ничего не меняется.


Excel 2003 EN, 2013 EN

Сообщение отредактировал Формуляр - Понедельник, 12.09.2011, 22:45
 
Ответить
Сообщение
Quote (SM)
Ааааа, не получилось.

Конечно - "не плучилось".
Надо тему с начала прочитать было. smile
Quote (Формуляр)
такой код просто создаёт глоб. копию массива, в исходном внешнем массиве xArr при этом ничего не меняется.

Автор - Формуляр
Дата добавления - 12.09.2011 в 22:44
SM Дата: Понедельник, 12.09.2011, 22:47 | Сообщение № 24
Группа: Друзья
Ранг: Участник
Сообщений: 64
Репутация: 59 ±
Замечаний: 0% ±

2003
Формуляр, посмотрите F_123.xls


Excel изощрён, но не злонамерен
 
Ответить
СообщениеФормуляр, посмотрите F_123.xls

Автор - SM
Дата добавления - 12.09.2011 в 22:47
RAN Дата: Понедельник, 12.09.2011, 22:48 | Сообщение № 25
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цепочка на пяток процедур в 3 модулях
Можно еще пяток добавить (хош процедур, хош модулей)
И ни одной глобальной переменной
К сообщению приложен файл: 6647278.xls (46.0 Kb)


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЦепочка на пяток процедур в 3 модулях
Можно еще пяток добавить (хош процедур, хош модулей)
И ни одной глобальной переменной

Автор - RAN
Дата добавления - 12.09.2011 в 22:48
SM Дата: Понедельник, 12.09.2011, 23:01 | Сообщение № 26
Группа: Друзья
Ранг: Участник
Сообщений: 64
Репутация: 59 ±
Замечаний: 0% ±

2003
Code

'=== Module1
Option Explicit
'
Sub qqq()
     Dim xArr() As Variant
     xArr = [a1:b10].Value
     Call www(xArr)
     [c1:d10] = xArr
End Sub

Code

'=== Module2
Option Explicit
'
Sub www(ByRef arr() As Variant)
     Call eee(arr)
End Sub
'
Sub eee(gArr)
     Dim i&
     For i = 1 To UBound(gArr)
         gArr(i, 1) = gArr(i, 1) * 2
     Next
End Sub


Excel изощрён, но не злонамерен
 
Ответить
Сообщение
Code

'=== Module1
Option Explicit
'
Sub qqq()
     Dim xArr() As Variant
     xArr = [a1:b10].Value
     Call www(xArr)
     [c1:d10] = xArr
End Sub

Code

'=== Module2
Option Explicit
'
Sub www(ByRef arr() As Variant)
     Call eee(arr)
End Sub
'
Sub eee(gArr)
     Dim i&
     For i = 1 To UBound(gArr)
         gArr(i, 1) = gArr(i, 1) * 2
     Next
End Sub

Автор - SM
Дата добавления - 12.09.2011 в 23:01
Формуляр Дата: Понедельник, 12.09.2011, 23:04 | Сообщение № 27
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация: 255 ±
Замечаний: 0% ±

Excel 2003, 2013
Ах, господа!
Я сейчас расплачусь от умиления.
Я только хотел научиться присваивать адрес одного массива переменной другого. Как это и заявлено в заголовке темы.
Пример, с которым вы так усердно (и весьма успешно) сражаетесь не представляет для меня ценности. Я его придумал из головы - просто так, чтобы было на чём опробовать.


Excel 2003 EN, 2013 EN

Сообщение отредактировал Формуляр - Понедельник, 12.09.2011, 23:14
 
Ответить
СообщениеАх, господа!
Я сейчас расплачусь от умиления.
Я только хотел научиться присваивать адрес одного массива переменной другого. Как это и заявлено в заголовке темы.
Пример, с которым вы так усердно (и весьма успешно) сражаетесь не представляет для меня ценности. Я его придумал из головы - просто так, чтобы было на чём опробовать.

Автор - Формуляр
Дата добавления - 12.09.2011 в 23:04
SM Дата: Понедельник, 12.09.2011, 23:13 | Сообщение № 28
Группа: Друзья
Ранг: Участник
Сообщений: 64
Репутация: 59 ±
Замечаний: 0% ±

2003
Формуляр, зачем усложнять то, что можно сделать проще.


Excel изощрён, но не злонамерен
 
Ответить
СообщениеФормуляр, зачем усложнять то, что можно сделать проще.

Автор - SM
Дата добавления - 12.09.2011 в 23:13
Формуляр Дата: Понедельник, 12.09.2011, 23:20 | Сообщение № 29
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация: 255 ±
Замечаний: 0% ±

Excel 2003, 2013
Quote (SM)
Формуляр, зачем усложнять то, что можно сделать проще.

Мне, в данном случае, нечего было усложнять, поскольку не стояло никакой задачи, кроме как освоить конкретный технический приём. Понять его плюсы и минусы. А применение ему наверняка найдётся.

ЗЫ: Мне даже неудобно, что я всем так головы заморочил. Но я честно с самого начала пытался донести вышеизложенное. Извините, если не получилось.


Excel 2003 EN, 2013 EN

Сообщение отредактировал Формуляр - Понедельник, 12.09.2011, 23:33
 
Ответить
Сообщение
Quote (SM)
Формуляр, зачем усложнять то, что можно сделать проще.

Мне, в данном случае, нечего было усложнять, поскольку не стояло никакой задачи, кроме как освоить конкретный технический приём. Понять его плюсы и минусы. А применение ему наверняка найдётся.

ЗЫ: Мне даже неудобно, что я всем так головы заморочил. Но я честно с самого начала пытался донести вышеизложенное. Извините, если не получилось.

Автор - Формуляр
Дата добавления - 12.09.2011 в 23:20
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!