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

Вход

Регистрация

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

 

= Мир MS Excel/Диапазон в макросе заменить на текст ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Диапазон в макросе заменить на текст ячейки (Макросы/Sub)
Диапазон в макросе заменить на текст ячейки
Nic70y Дата: Воскресенье, 28.12.2014, 22:13 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация: 2276 ±
Замечаний: 0% ±

Excel 2010
Помогите неграмотному.
[vba]
Код
If Not Intersect(Target, Range("a5:a180")) Is Nothing Then
[/vba]
хотелось бы заменить на
[vba]
Код
If Not Intersect(Target, Range(Cells(1, 1))) Is Nothing Then
[/vba]
например, не получается - туплю
пробовал Value везде вставить - не помогло
К сообщению приложен файл: 913.xls (33.0 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 29.12.2014, 06:43
 
Ответить
СообщениеПомогите неграмотному.
[vba]
Код
If Not Intersect(Target, Range("a5:a180")) Is Nothing Then
[/vba]
хотелось бы заменить на
[vba]
Код
If Not Intersect(Target, Range(Cells(1, 1))) Is Nothing Then
[/vba]
например, не получается - туплю
пробовал Value везде вставить - не помогло
Автор - Nic70y
Дата добавления - 28.12.2014 в 22:13
Leanna Дата: Воскресенье, 28.12.2014, 22:18 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
просто cells
[vba]
Код
If Not Intersect(Target, Cells(1, 1)) Is Nothing Then
[/vba]

Лучше день потерять, потом за пять минут долететь!
 
Ответить
Сообщениепросто cells
[vba]
Код
If Not Intersect(Target, Cells(1, 1)) Is Nothing Then
[/vba]
Автор - Leanna
Дата добавления - 28.12.2014 в 22:18
RAN Дата: Воскресенье, 28.12.2014, 22:18 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Тупучий! :D
[vba]
Код
Range(Cells(1, 1) == [A1]
[/vba]
[vba]
Код
Range((Cells(1, 1),Cells(10,1))==[A1:A10]
[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 28.12.2014, 22:21
 
Ответить
СообщениеТупучий! :D
[vba]
Код
Range(Cells(1, 1) == [A1]
[/vba]
[vba]
Код
Range((Cells(1, 1),Cells(10,1))==[A1:A10]
[/vba]
Автор - RAN
Дата добавления - 28.12.2014 в 22:18
RAN Дата: Воскресенье, 28.12.2014, 22:28 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Поглядел файлик.
Ты скажи, че те надо, я те дам, что ты хош! :D
[p.s.]A чё, у вас сегодня электричество есть?[/p.s.]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 28.12.2014, 22:29
 
Ответить
СообщениеПоглядел файлик.
Ты скажи, че те надо, я те дам, что ты хош! :D
[p.s.]A чё, у вас сегодня электричество есть?[/p.s.]
Автор - RAN
Дата добавления - 28.12.2014 в 22:28
ShAM Дата: Воскресенье, 28.12.2014, 22:37 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Может, так?
[vba]
Код
Dim rng As String
rng = Cells(1, 1)
If Not Intersect(Target, Range(rng)) Is Nothing Then
[/vba]
 
Ответить
СообщениеМожет, так?
[vba]
Код
Dim rng As String
rng = Cells(1, 1)
If Not Intersect(Target, Range(rng)) Is Nothing Then
[/vba]
Автор - ShAM
Дата добавления - 28.12.2014 в 22:37
ShAM Дата: Понедельник, 29.12.2014, 04:41 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Сегодня, проснувшись, проверил. Вроде бы и так работает:
[vba]
Код
If Not Intersect(Target, Range(Cells(1, 1).Value)) Is Nothing Then
[/vba]
 
Ответить
СообщениеСегодня, проснувшись, проверил. Вроде бы и так работает:
[vba]
Код
If Not Intersect(Target, Range(Cells(1, 1).Value)) Is Nothing Then
[/vba]
Автор - ShAM
Дата добавления - 29.12.2014 в 04:41
Nic70y Дата: Понедельник, 29.12.2014, 06:27 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация: 2276 ±
Замечаний: 0% ±

Excel 2010
Спасибо всем.
Алишер (ShAM) да действительно работает - я так и делал.
и без Value тоже работает
Не бейте меня - я перепутал номер столбца. :)
Цитата RAN, 28.12.2014 в 22:28, в сообщении № 4
A чё, у вас сегодня электричество есть?

У нас постоянно вырубают эл-во по несколько раз на день - вот спешу куда-то,
и вчера ответить не мог.
Утром проснулся, проверил и самому смешно стало - надо (1, 18) а у меня (1, 16)
Цитата RAN, 28.12.2014 в 22:28, в сообщении № 4
Ты скажи, че те надо
изменяемый диапазон работы макроса.

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 29.12.2014, 06:42
 
Ответить
СообщениеСпасибо всем.
Алишер (ShAM) да действительно работает - я так и делал.
и без Value тоже работает
Не бейте меня - я перепутал номер столбца. :)
Цитата RAN, 28.12.2014 в 22:28, в сообщении № 4
A чё, у вас сегодня электричество есть?

У нас постоянно вырубают эл-во по несколько раз на день - вот спешу куда-то,
и вчера ответить не мог.
Утром проснулся, проверил и самому смешно стало - надо (1, 18) а у меня (1, 16)
Цитата RAN, 28.12.2014 в 22:28, в сообщении № 4
Ты скажи, че те надо
изменяемый диапазон работы макроса.
Автор - Nic70y
Дата добавления - 29.12.2014 в 06:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Диапазон в макросе заменить на текст ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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