ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
15 сообщений из 15, страница 1 из 1
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37389139
KpaqpTuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KpaqpTuk
Гость
Собственно вопрос в заголовке темы. Имеем ячейку из которой вызывается наша польз. функция. Нужно передать в функцию адрес нашей ячейки. На данный момент сделал так:
Код: plaintext
1.
=SumSpecs(АДРЕС(СТРОКА(Q16);СТОЛБЕЦ(Q16)))
, где Q16 ячейка, из которой вызываем, а SumSpec поль. функция. Ну или же есть возможность в функции получить адрес ячейки без передачи параметра?
ActiveCell не подходит
...
Рейтинг: 0 / 0
10.08.2011, 14:13
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37389172
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
KpaqpTukСобственно вопрос в заголовке темы. Имеем ячейку из которой вызывается наша польз. функция. Нужно передать в функцию адрес нашей ячейки. На данный момент сделал так:
Код: plaintext
1.
=SumSpecs(АДРЕС(СТРОКА(Q16);СТОЛБЕЦ(Q16)))
, где Q16 ячейка, из которой вызываем, а SumSpec поль. функция. Ну или же есть возможность в функции получить адрес ячейки без передачи параметра?
ActiveCell не подходитtarget.address
...
Рейтинг: 0 / 0
10.08.2011, 14:24
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37389271
KpaqpTuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KpaqpTuk
Гость
target.address
Благодарю, погугля узнал что target.address используется для события Worksheet_Change, а как прикрепиться к событию через функцию или наоборот не подскажете?
...
Рейтинг: 0 / 0
10.08.2011, 14:56
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37389451
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
код пользовательской функции покажите.
...
Рейтинг: 0 / 0
10.08.2011, 15:48
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37389633
KpaqpTuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KpaqpTuk
Гость
PlanBкод пользовательской функции покажите.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
'Функция подсчета суммы спецификации
Function SumSpecs(Address)
    Application.Volatile
    'Переменная итоговой суммы
    nSum =  0 
    'Определяем букву ячейки
    sColumnName = Mid(Address,  2 , (InStr( 2 , Address, "$")) -  2 )
    'Прогоняем в икле строки спецификации
    For i =  6  To  10000  Step  1 
        If Range("A" + Trim(Str(i))).Value = "" Then
            nSum = nSum + Range(sColumnName + Trim(Str(i))).Value
        End If
        'Условие выхода
        If Range("A" + Trim(Str(i))).Value = "Всего:" Then Exit For
    Next
    'Присваиваем пустое значение если переменная пуста
    If nSum =  0  Then
        nSum = ""
    End If
    SumSpecs = nSum
End Function
Что она делает:, принимает адрес сгруппированных ячеек табличного приложения, по букве адреса получает собственно сам "столбец", затем открывает цикл и сканирует всю таблицу начиная от края шапки и заканчивая фразой всего. Во всего и выводится числовая сумма по заданному столбцу.
Т.е. мне нужно чтобы в функцию передавался адрес ячейки из которой вызывается эта функция, по столбцу этой ячейки проходит суммирование и выводится в эту же ячейку.
П.С. Данный пример работает корректно.
...
Рейтинг: 0 / 0
10.08.2011, 16:43
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37389994
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
KpaqpTuk,

чего-то у Вас наворочено... А чем не устраивает СУММ? Можно пример таблицы, куда вы вставляете эту функцию? Уверен, можно гораздо проще.
...
Рейтинг: 0 / 0
10.08.2011, 20:06
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37390160
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Да уж...
Пусть, например, рассчитывается ячейка C20, тогда:
Код: plaintext
=СУММЕСЛИ($A$ 6 :$A$ 19 ;"";C$ 6 :C$ 19 )
и наложить условное форматирование "ноль - белый цвет"...
...
Рейтинг: 0 / 0
11.08.2011, 00:02
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37390163
R_ Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R_ Dmitry
Гость
KpaqpTuk,

И кто Вам только это написал ;)
Код: plaintext
Range("A" + Trim(Str(i))).Value

достаточно так
 
Код: plaintext
Range("A"& i).Value


формулы достаточно =СТОЛБЕЦ(Q16)
и функция будет такой

 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function SumSpecs(Address)
    Application.Volatile
      nSum =  0 
        For i =  6  To  10000 
        If Range("A" & i).Value = "" Then
            SumSpecs = SumSpecs+ cells(Address,i).Value
        End If
            If cells(Address,i).Value = "Всего:" Then Exit For
    Next
     If SumSpecs =  0  Then  nSum = ""
End Function
...
Рейтинг: 0 / 0
11.08.2011, 00:03
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37390278
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
R_ Dmitry,

Дим, все равно не то. С Volatile, да с циклом на 10000 строк(пусть даже с досрочным выходом), а если еще таких формулок пяток на листе будет, Экс повесится без мыла при первом же чихе. Вариант - через find находить конец диапазона и одним махом application.sum, но вариант от AndreTM все равно будет быстрей. И смысл тогда огород городить?
...
Рейтинг: 0 / 0
11.08.2011, 06:20
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37390754
R__Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R__Dmitry
Гость
kuklp,
Да я и не против........
Нет файла нет нормального решения
...
Рейтинг: 0 / 0
11.08.2011, 11:49
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37391089
KpaqpTuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KpaqpTuk
Гость
AndreTMДа уж...
Пусть, например, рассчитывается ячейка C20, тогда:
Код: plaintext
=СУММЕСЛИ($A$ 6 :$A$ 19 ;"";C$ 6 :C$ 19 )
и наложить условное форматирование "ноль - белый цвет"...
Ну как говорится век живи, век учись, про СУММЕСЛИ даже и не знал, почитал справку, вбил формулу и вуаля - все посчитано.

На VB не работал, сам пишу процедуры на PL/SQL (Oracle), по жизни дико радуюсь каждому грамму новой информации и новых знаний (мне 21, стаж работы 2 года). Поэтому всем примного благодарен за приведенные замечания, все запомнил, есть куда расти.

Всех благодарю... Хорошего дня :-)
...
Рейтинг: 0 / 0
11.08.2011, 14:22
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37391129
KpaqpTuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KpaqpTuk
Гость
Шаблон выглядит примерно так, выкладываю картинкой, так как это готовый (выгруженный) из СУБД вариант, в шаблоне кроме шапки всего пара строк.

С помощью формулы СУММЕСЛИ удалось подсчитать итоговую сумму по всем строкам. Итоги по спецификации считаются хитрым способом, может есть возможность подсчитать формулой сумму скажем по Кировскому району, т.е. диапазон формулы должен принимать значение (Имя района:Итого), причем в шаблоне программным способом сперва рисуется шапка группы, затем n-ое число строк организаций, затем подвал.
...
Рейтинг: 0 / 0
11.08.2011, 14:50
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37391304
KpaqpTuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KpaqpTuk
Гость
Под словом рисуется понимается размножение "нулевой" строки, тобишь в шаблоне создали строку, в ячейки разнесли формулы. Затем программным способом нулевая строка размножается вместе со всеми формулами.
...
Рейтинг: 0 / 0
11.08.2011, 16:13
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37391316
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
KpaqpTuk, вот ссылка на топик. он предупредит ваши дальнейшие вопросы
...
Рейтинг: 0 / 0
11.08.2011, 16:18
| Ответить | Цитировать | Написать  
Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
    #37391405
KpaqpTuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KpaqpTuk
Гость
PlanBKpaqpTuk, вот ссылка на топик. он предупредит ваши дальнейшие вопросы
Благодарю.
...
Рейтинг: 0 / 0
11.08.2011, 17:04
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Как передать в польз. функцию адрес ячейки, из которой она вызывается.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37391089&tid=2176596]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 146ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 200ms
total:  419ms
созд. / загр.: 419ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]