Диапазон в макросе заменить на текст ячейки
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 везде вставить - не помогло
Помогите неграмотному. [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
К сообщению приложен файл:
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
Лучше день потерять, потом за пять минут долететь!
Ответить
Сообщение просто 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
Тупучий! [vba]Код
Range(Cells(1, 1) == [A1]
[/vba] [vba]Код
Range((Cells(1, 1),Cells(10,1))==[A1:A10]
[/vba]
Тупучий! [vba]Код
Range(Cells(1, 1) == [A1]
[/vba] [vba]Код
Range((Cells(1, 1),Cells(10,1))==[A1:A10]
[/vba] RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Воскресенье, 28.12.2014, 22:21
Ответить
Сообщение Тупучий! [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
Поглядел файлик. Ты скажи, че те надо, я те дам, что ты хош! [p.s.]A чё, у вас сегодня электричество есть?[/p.s.]
Поглядел файлик. Ты скажи, че те надо, я те дам, что ты хош! [p.s.]A чё, у вас сегодня электричество есть?[/p.s.] RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Воскресенье, 28.12.2014, 22:29
Ответить
Сообщение Поглядел файлик. Ты скажи, че те надо, я те дам, что ты хош! [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
Ответить
Сообщение Может, так? [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
Ответить
Сообщение Сегодня, проснувшись, проверил. Вроде бы и так работает: [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 тоже работает Не бейте меня - я перепутал номер столбца. A чё, у вас сегодня электричество есть?
У нас постоянно вырубают эл-во по несколько раз на день - вот спешу куда-то, и вчера ответить не мог. Утром проснулся, проверил и самому смешно стало - надо (1, 18) а у меня (1, 16) изменяемый диапазон работы макроса.
Спасибо всем. Алишер (ShAM ) да действительно работает - я так и делал. и без Value тоже работает Не бейте меня - я перепутал номер столбца. A чё, у вас сегодня электричество есть?
У нас постоянно вырубают эл-во по несколько раз на день - вот спешу куда-то, и вчера ответить не мог. Утром проснулся, проверил и самому смешно стало - надо (1, 18) а у меня (1, 16) изменяемый диапазон работы макроса. Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Понедельник, 29.12.2014, 06:42
Ответить
Сообщение Спасибо всем. Алишер (ShAM ) да действительно работает - я так и делал. и без Value тоже работает Не бейте меня - я перепутал номер столбца. A чё, у вас сегодня электричество есть?
У нас постоянно вырубают эл-во по несколько раз на день - вот спешу куда-то, и вчера ответить не мог. Утром проснулся, проверил и самому смешно стало - надо (1, 18) а у меня (1, 16) изменяемый диапазон работы макроса. Автор - Nic70y Дата добавления - 29.12.2014 в 06:27