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

Вход

Регистрация

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

 

= Мир MS Excel/макрос искомой ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » макрос искомой ячейки
макрос искомой ячейки
Гость Дата: Понедельник, 14.05.2012, 18:03 | Сообщение № 1
Группа: Гости
помогите пожалуйста придумать макрос, который будет выводить адрес ячейки, в том случае, когда в некоторый диапазон ячеек будет вставляться цифра или буква. Например я ввожу в ячейку А5 букву а и макрос будет возвращать А5
 
Ответить
Сообщениепомогите пожалуйста придумать макрос, который будет выводить адрес ячейки, в том случае, когда в некоторый диапазон ячеек будет вставляться цифра или буква. Например я ввожу в ячейку А5 букву а и макрос будет возвращать А5
Автор - Гость
Дата добавления - 14.05.2012 в 18:03
anger47 Дата: Понедельник, 14.05.2012, 19:30 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Побольше конкретики, пример что Вы хотите!
 
Ответить
СообщениеПобольше конкретики, пример что Вы хотите!
Автор - anger47
Дата добавления - 14.05.2012 в 19:30
Гость Дата: Понедельник, 14.05.2012, 19:48 | Сообщение № 3
Группа: Гости
Quote (anger47)
Побольше конкретики, пример что Вы хотите!

Ну вот вроде этого хочу:
[vba]
Code
Sub ViewFalse()
For Each i In Selection
If Not i Then [E65536].End(xlUp).Offset(1, 0) = i.Address(0, 0)
Next
End Sub
[/vba]

только здесь адрес выдается после выделения ячейки, а мне надо - после ввода цифры 5
 
Ответить
Сообщение
Quote (anger47)
Побольше конкретики, пример что Вы хотите!

Ну вот вроде этого хочу:
[vba]
Code
Sub ViewFalse()
For Each i In Selection
If Not i Then [E65536].End(xlUp).Offset(1, 0) = i.Address(0, 0)
Next
End Sub
[/vba]

только здесь адрес выдается после выделения ячейки, а мне надо - после ввода цифры 5
Автор - Гость
Дата добавления - 14.05.2012 в 19:48
LightZ Дата: Понедельник, 14.05.2012, 20:37 | Сообщение № 4
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

*любое значение и любая ячейка*
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox ActiveCell.Address
End Sub

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщение*любое значение и любая ячейка*
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox ActiveCell.Address
End Sub
Автор - LightZ
Дата добавления - 14.05.2012 в 20:37
LightZ Дата: Понедельник, 14.05.2012, 20:41 | Сообщение № 5
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveCell
.Offset(-1, 0).Value = Replace(.Address, "$", Empty)
End With
End Sub
[/vba]

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщение[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveCell
.Offset(-1, 0).Value = Replace(.Address, "$", Empty)
End With
End Sub
[/vba]
Автор - LightZ
Дата добавления - 14.05.2012 в 20:41
LightZ Дата: Понедельник, 14.05.2012, 20:54 | Сообщение № 6
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

Почему у меня работает?
К сообщению приложен файл: test.xls (31.0 Kb)

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
СообщениеПочему у меня работает?
Автор - LightZ
Дата добавления - 14.05.2012 в 20:54
LightZ Дата: Понедельник, 14.05.2012, 20:55 | Сообщение № 7
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

выделите ячейку - введите любое значение - нажмите энтер
результат: в этой же ячейке появится её адрес

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщениевыделите ячейку - введите любое значение - нажмите энтер
результат: в этой же ячейке появится её адрес
Автор - LightZ
Дата добавления - 14.05.2012 в 20:55
LightZ Дата: Понедельник, 14.05.2012, 20:59 | Сообщение № 8
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

Какой?

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
СообщениеКакой?
Автор - LightZ
Дата добавления - 14.05.2012 в 20:59
LightZ Дата: Понедельник, 14.05.2012, 21:18 | Сообщение № 9
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err
If Not Intersect(Target, Range("A1:F20")) Is Nothing Then
With Selection.Offset(-1, 0)
.Value = Replace(.Address, "$", Empty)
End With
End If
Exit Sub
err:
End Sub
[/vba]
К сообщению приложен файл: test-2-.xls (32.5 Kb)

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщение[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err
If Not Intersect(Target, Range("A1:F20")) Is Nothing Then
With Selection.Offset(-1, 0)
.Value = Replace(.Address, "$", Empty)
End With
End If
Exit Sub
err:
End Sub
[/vba]
Автор - LightZ
Дата добавления - 14.05.2012 в 21:18
hatter Дата: Понедельник, 14.05.2012, 21:35 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 0 ±
Замечаний: 0% ±

LightZ, спасибо
 
Ответить
СообщениеLightZ, спасибо
Автор - hatter
Дата добавления - 14.05.2012 в 21:35
Мир MS Excel » Вопросы и решения » Вопросы по Excel » макрос искомой ячейки
  • Страница 1 из 1
  • 1
Поиск:

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