Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel / 13 сообщений из 13, страница 1 из 1
01.12.2004, 11:58:34
    #32807284
Namik
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Доброго Вам времени суток
Уважаемые господа

при наличии времени прошу Вас помочь

на листе Excel возьмем два столбца

один - строка 6 столбец 8 - получает значение например 12

второй - строка 6 столбец 9 - получает значение 12*10

посредством формулы

строка 6 столбец 9 = строка 6 столбец 8*10 это очень легко, я знаю

но мне нужно реализовать это програмно,
с учетом того чтобы эта формула
работала в указанном мною диапазоне

т.е. вот так

строка 6 столбец 9= строка 6 столбец 8*10
строка 7 столбец 9= строка 7 столбец 8*10
строка 8 столбец 9= строка 8 столбец 8*10 и т.д.

/ я буду под Ваш пример подстовлять другую операцию /

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 12:15:54
    #32807332
Lenivec
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
а макрорекордером воспользоваться что сложнее чем писать на форум
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 12:29:22
    #32807368
Namik
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Простите

1 макрорекордер я тоже знаю

вот его код

ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("F8").Select

как мне здесь указать

что этаже команда
должна действовать в случае
с нижней следующей и т.д.

2 мне не нужен макрос который бы я сам запускал

мне нужен
постоянный модуль который контролировал бы
оперцаю на листе

3 я так же сообщил что у меня другая формула,
которая не должна быть в виде формулы в ячейке

С Уважением
Намик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 12:32:12
    #32807378
Namik
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
еще раз извиняюсь

а каким местом Вы пострадали Уважаемый

прочитав мое - пусть даже не проффесиональное письмо

С Уважением
Намик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 12:39:51
    #32807398
Lenivec
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
гм, ну не воспринемайте уж так близко к сердцу мое замечание, просто тогда не совсем понятно что вы хотите получить и каким образом

...
Код: plaintext
1.
2.
3.
Range("A2") = Range("A1")* 10 
Range("B2") = Range("B1")* 10 
Range("C2") = Range("C1")* 10
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 12:46:58
    #32807426
Lenivec
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
как мне здесь указать
что этаже команда
должна действовать в случае
с нижней следующей и т.д.

опятьже запустить макротекордер и посмотреть что он сделает


мне не нужен макрос который бы я сам запускал
мне нужен
постоянный модуль который контролировал бы
оперцаю на листе

а чем макос отличается от VBA кода?


я так же сообщил что у меня другая формула,
которая не должна быть в виде формулы в ячейке

по этому поводу смотри предыдущее сообщение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 12:56:10
    #32807466
Namik
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
да, не прав,
тоже погаричился

как Вы

вставите вот эту операцию

строка 6 столбец 9= ((Hour(строка 6 столбец 8)*60)+ Minute((строка 6 столбец 8))

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 13:24:39
    #32807555
Lenivec
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Range("I6").Formula = "=HOUR($H$6)*60+MINUTE($H$6)"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 13:32:18
    #32807568
Lenivec
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
ну или так:
Range("I6") = Hour(Range("H6")) * 60 + Minute(Range("H6"))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 15:22:35
    #32807830
Namik
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Большое Вам спасибо

макрос работает


если Вам не трудно

подскажите пожалуйста
как реализовать выполнение этого кода

не командой Run macros

а при изменении ячейки в которую я ввожу время

я пробовал через Change.Sheet1
но файл после этого почему то виснит

ещё раз спасибо

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 16:26:02
    #32807963
Lenivec
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
на событие вешаешь свой обработчик

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
код обработки события
...
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 16:27:20
    #32807967
Lenivec
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
соответственно данный обработчик должен быть вставлен в код того листа, который обрабатываем
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2004, 17:35:09
    #32808178
Namik
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Большое спасибо

То что я и хотел

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 354ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2168518]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 2ms
others: 239ms
total:  354ms
x
x
Закрыть


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