ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос по замене после "="
25 сообщений из 44, страница 1 из 2
  1  все
Макрос по замене после "="
    #37405197
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Помогите дописать макрос, в принципе он работает но немного не так как хотелось бы
При нажатии на ячейку находящуюся в столбе А:А, содержащую знак «=» включается макрос , который должен заменить значения после равно , запрошенное input box
Т.е например при нажатии по ячейки o=7890 появляется input box в которое нужно вписать число например «34» и оно заменило бы «7890»,т.е. в ячейки стало бы o=34.
А при нажатии по любой другой , не содержащий знак «=», не должно ничего происходить!
Подскажите пожалуйста как это сделать?
...
Рейтинг: 0 / 0
21.08.2011, 19:13
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37405204
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
0creator0, примерно:
Код: plaintext
1.
2.
Sub test2()
    ActiveCell.Replace "=*", "=" & InputBox("Ввидите текст", "Сравнение строк")
End Sub
...
Рейтинг: 0 / 0
21.08.2011, 19:25
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37405206
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
kuklp, с учетом, что слово "Ввидите" пишется иначе:-)
...
Рейтинг: 0 / 0
21.08.2011, 19:26
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37405207
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Еще:
S = ActiveCell.Formula
'Избавляемся от двойных пробелов во введенном тексте
S = Replace(S, " ", " ")
можно иначе:
S = trim(ActiveCell.Formula)
...
Рейтинг: 0 / 0
21.08.2011, 19:29
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37405424
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Спасибо, большое , целый день над ним корпел))))
...
Рейтинг: 0 / 0
22.08.2011, 00:03
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37406751
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Подскажите пожалуйста, если не сложно у меня есть запись в ячейки х хAхB
Как мне сделать макрос что бы , как и в прошлом примере при выборе ячейки с таким набором появлялся input box в который вписывалось сначала первое значения «A», потом второе значение «B» и в итоги выходило бы напрмер: х х150х250, как сделать ума не приложу , если не сложно подскажите.
...
Рейтинг: 0 / 0
22.08.2011, 21:07
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37406839
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
0creator0, ничего не понял. Может так?
...
Рейтинг: 0 / 0
22.08.2011, 22:20
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37406870
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Если надо ввести несколько значений то так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim s$
    If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub
    If InStr(Target.Text, "x") >  0  Then s = InputBox("ВвЕдите текст", "Сравнение строк")
    Do While s <> ""
        Target.Value = Target.Value & "х" & s
        s = InputBox("ВвЕдите текст", "Сравнение строк")
    Loop
End Sub
...
Рейтинг: 0 / 0
22.08.2011, 22:36
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37406904
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Да, именно так, только теперь не хватает маленького штриха, я так понимаю надо добавить оператор Split, что бы при следующем нажатии на эту ячейку макрос не продолжал запись а удалял старое и поверх писал новое, т.е если было х45х56 то при нажатии на ячейку макрос писал например х67х87, а не добавлял к уже имеющемуся х45х56х67х87,да?
...
Рейтинг: 0 / 0
22.08.2011, 23:06
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37406980
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Я не очень понимаю. Если не так, то давайте пример, как есть - как надо.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim s$
    If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub
    If InStr(Target.Text, "x") >  0  Then s = InputBox("ВвЕдите текст", "Сравнение строк"): Target.Value = ""
    Do While s <> ""
        Target.Value = Target.Value & "х" & s
        s = InputBox("ВвЕдите текст", "Сравнение строк")
    Loop
End Sub
...
Рейтинг: 0 / 0
23.08.2011, 00:20
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37406983
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
kuklp,
там в коде одна из "х" на кириллице - замените, чтоб обе были одинаковыми.
...
Рейтинг: 0 / 0
23.08.2011, 00:24
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407298
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Спасибо большое ты мне очень помог, наконец то на выходе получил то что надо, только наверно немного коряво написано если смотреть со стороны правильного написания программ но главное работает! Вот в итоги что получилось лист1))))
...
Рейтинг: 0 / 0
23.08.2011, 10:29
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407547
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
0creator0, что за хамство, мы с Вами гусей, свиней не пасли, в пивбаре под одним столом не валялись. Почему я к Вам, незнакомому человеку, обращаюсь на ВЫ, а Вы мне ТЫкаете?
П.С. Ваш пример не смотрел и если будете продолжать в том же духе, помогать Вам не стану.
...
Рейтинг: 0 / 0
23.08.2011, 12:05
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407597
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
kuklpПочему я к Вам, незнакомому человеку, обращаюсь на ВЫ, а Вы мне ТЫкаете?
поскольку уже не первый случай.... вот посмотрите:
http://www.sql.ru/forum/actualthread.aspx?tid=549248
у человека написано "прошу на ты".
Предлагаю вам написать так же "прошу на вы", а то так и будут продолжаться скандалы.
...
Рейтинг: 0 / 0
23.08.2011, 12:18
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407669
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Shocker.Pro, дельное замечание. У меня в автоподписи давно стоит "Помедленнее, мы ж едва знакомы.", однако почему-то она не выводится:-( В какой пункт профиля внести?
...
Рейтинг: 0 / 0
23.08.2011, 12:38
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407690
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Shocker.Pro+
 

Предлагаю вам написать так же "прошу на вы", а то так и будут продолжаться скандалы.
Шокер, мы с тобой вроде перешли на ТЫ с обоюдного согласия(правда ты так и не назвался мирским именем). Ну да, не обратил внимания, слово "вам" с маленькой буквы означает обращение к нескольким людям:-)
...
Рейтинг: 0 / 0
23.08.2011, 12:47
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407718
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
0creator0Спасибо большое Вы мне очень помог, наконец то на выходе получил то что надо, только наверно немного коряво написано если смотреть, со стороны правильного написания программ но главное работает! Вот в итоги что получилось лист1))))
...
Рейтинг: 0 / 0
23.08.2011, 12:57
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407719
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
0creator0Спасибо большое Вы мне очень помогли, наконец то на выходе получил то что надо, только наверно немного коряво написано если смотреть, со стороны правильного написания программ но главное работает! Вот в итоги что получилось лист1))))
...
Рейтинг: 0 / 0
23.08.2011, 12:58
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407729
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Kuklp, Еще раз спасибо !!!
...
Рейтинг: 0 / 0
23.08.2011, 13:01
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37407737
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
kuklpShocker.Pro, дельное замечание. У меня в автоподписи давно стоит "Помедленнее, мы ж едва знакомы.", однако почему-то она не выводится:-( В какой пункт профиля внести? в "откуда"
...
Рейтинг: 0 / 0
23.08.2011, 13:03
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417542
mihail152150
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mihail152150
Гость
Спасибо!!!)))
...
Рейтинг: 0 / 0
30.08.2011, 13:56
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417709
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Подскажите пожалуйста, не как не получается сделать. Как сделать что бы при нажатии на cancel или красный крест, ни чего не происходило и макрос не стирал цифры после равно, если не чего не вписывать в inputbox.
...
Рейтинг: 0 / 0
30.08.2011, 15:17
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417726
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Подскажите пожалуйста, не как не получается сделать. Как сделать что бы при нажатии на cancel или красный крест, ни чего не происходило и макрос не стирал цифры после равно, если не чего не вписывать в inputbox.
...
Рейтинг: 0 / 0
30.08.2011, 15:21
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417727
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
0creator0, так Вы выложите последний Ваш пример где не выходит, а то воды много утекло, что Вы там юзаете?
...
Рейтинг: 0 / 0
30.08.2011, 15:21
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417731
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Да , конечно.
...
Рейтинг: 0 / 0
30.08.2011, 15:23
| Ответить | Цитировать | Написать  
25 сообщений из 44, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос по замене после "="
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37417731&tid=2176538]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 229ms
total:  361ms
созд. / загр.: 361ms
x
x
Закрыть


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