Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос по замене после "=" / 25 сообщений из 44, страница 1 из 2
  1  все
21.08.2011, 19:13
    #37405197
0creator0
0creator0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
Помогите дописать макрос, в принципе он работает но немного не так как хотелось бы
При нажатии на ячейку находящуюся в столбе А:А, содержащую знак «=» включается макрос , который должен заменить значения после равно , запрошенное input box
Т.е например при нажатии по ячейки o=7890 появляется input box в которое нужно вписать число например «34» и оно заменило бы «7890»,т.е. в ячейки стало бы o=34.
А при нажатии по любой другой , не содержащий знак «=», не должно ничего происходить!
Подскажите пожалуйста как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2011, 19:25
    #37405204
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
0creator0, примерно:
Код: plaintext
1.
2.
Sub test2()
    ActiveCell.Replace "=*", "=" & InputBox("Ввидите текст", "Сравнение строк")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2011, 19:26
    #37405206
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
kuklp, с учетом, что слово "Ввидите" пишется иначе:-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2011, 19:29
    #37405207
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
Еще:
S = ActiveCell.Formula
'Избавляемся от двойных пробелов во введенном тексте
S = Replace(S, " ", " ")
можно иначе:
S = trim(ActiveCell.Formula)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 00:03
    #37405424
0creator0
0creator0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
Спасибо, большое , целый день над ним корпел))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 21:07
    #37406751
0creator0
0creator0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
Подскажите пожалуйста, если не сложно у меня есть запись в ячейки х хAхB
Как мне сделать макрос что бы , как и в прошлом примере при выборе ячейки с таким набором появлялся input box в который вписывалось сначала первое значения «A», потом второе значение «B» и в итоги выходило бы напрмер: х х150х250, как сделать ума не приложу , если не сложно подскажите.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 22:20
    #37406839
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
0creator0, ничего не понял. Может так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2011, 22:36
    #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, 23:06
    #37406904
0creator0
0creator0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
Да, именно так, только теперь не хватает маленького штриха, я так понимаю надо добавить оператор Split, что бы при следующем нажатии на эту ячейку макрос не продолжал запись а удалял старое и поверх писал новое, т.е если было х45х56 то при нажатии на ячейку макрос писал например х67х87, а не добавлял к уже имеющемуся х45х56х67х87,да?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 00:20
    #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:24
    #37406983
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
kuklp,
там в коде одна из "х" на кириллице - замените, чтоб обе были одинаковыми.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 10:29
    #37407298
0creator0
0creator0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
Спасибо большое ты мне очень помог, наконец то на выходе получил то что надо, только наверно немного коряво написано если смотреть со стороны правильного написания программ но главное работает! Вот в итоги что получилось лист1))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 12:05
    #37407547
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
0creator0, что за хамство, мы с Вами гусей, свиней не пасли, в пивбаре под одним столом не валялись. Почему я к Вам, незнакомому человеку, обращаюсь на ВЫ, а Вы мне ТЫкаете?
П.С. Ваш пример не смотрел и если будете продолжать в том же духе, помогать Вам не стану.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 12:18
    #37407597
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
 
kuklpПочему я к Вам, незнакомому человеку, обращаюсь на ВЫ, а Вы мне ТЫкаете?
поскольку уже не первый случай.... вот посмотрите:
http://www.sql.ru/forum/actualthread.aspx?tid=549248
у человека написано "прошу на ты".
Предлагаю вам написать так же "прошу на вы", а то так и будут продолжаться скандалы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 12:38
    #37407669
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
Shocker.Pro, дельное замечание. У меня в автоподписи давно стоит "Помедленнее, мы ж едва знакомы.", однако почему-то она не выводится:-( В какой пункт профиля внести?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2011, 12:47
    #37407690
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос по замене после "="
Shocker.Pro+
 

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


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