ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос по замене после "="
19 сообщений из 44, страница 2 из 2
  2  все
Макрос по замене после "="
    #37417761
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
0creator0, от Вас требовалось только это
Код: plaintext
ActiveCell.Replace "=*", "=" & InputBox("Ввидите текст", "Сравнение строк")
посмотрю вечером
...
Рейтинг: 0 / 0
30.08.2011, 15:37
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417795
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Заранее благодарен)))
...
Рейтинг: 0 / 0
30.08.2011, 15:57
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417872
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
0creator0Подскажите пожалуйста, не как не получается сделать. Как сделать что бы при нажатии на cancel или красный крест, ни чего не происходило и макрос не стирал цифры после равно, если не чего не вписывать в inputbox.Боже, какая х**ня, кто вам такое написал?!
...
Рейтинг: 0 / 0
30.08.2011, 16:30
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417921
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim S1 As String
    If Target.Column =  1  Then
        If InStr(Target, "=") <>  0  Then
            S1 = InputBox("введите новое значение")
            If S1 = "" Then Exit Sub Else
                Target = Left(Target, InStr(Target, "="))
                Target = Target & S1
        End If
    End If
End Sub
...
Рейтинг: 0 / 0
30.08.2011, 16:46
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37417927
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
0creator0, код должен находиться в модуле рабочего листа. Работает по событию двойного щелчка на ячейках первой колонки.
...
Рейтинг: 0 / 0
30.08.2011, 16:48
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418095
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Да, но тогда не работает вот такой макрос, если подскажите, как его подстроить под ваш чудодейственный, то буду безмерно рад и очень благодарен, так как сам если и смогу это сделать , то как вы понимаете, займет это у меня безумно много времени, и не факт что на выходя получится то что надо .
...
Рейтинг: 0 / 0
30.08.2011, 17:55
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418113
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
0creator0Да, но тогда не работает вот такой макрос, если подскажите, как его подстроить под ваш чудодейственный, то буду безмерно рад и очень благодарен, так как сам если и смогу это сделать , то как вы понимаете, займет это у меня безумно много времени, и не факт что на выходя получится то что надо .я это читать не буду. там черт ногу сломит. что он делать должен? менять после x всё? на что?
...
Рейтинг: 0 / 0
30.08.2011, 18:05
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418186
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
PlanB,
чего-то Вы переборщили в этом куске
Код: plaintext
1.
2.
3.
If S1 = "" Then Exit Sub Else
                Target = Left(Target, InStr(Target, "="))
                Target = Target & S1
        End If
надо
Код: plaintext
1.
2.
3.
4.
5.
If Len(S1) =  0  Then
 Exit Sub
 Else
                Target = Left(Target, InStr(Target, "="))
                Target = Target & S1
        End If
А так по существу не вникал, смотрю уже всё порешали
...
Рейтинг: 0 / 0
30.08.2011, 18:59
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418558
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Да, я посмотрел даже что то смастерил на основе вашей модели, вроде все работает но только теперь когда щелкаешь по ячейки со знаком «=» появляется inputbox , а вот цифры введенные не добавляет после равно, в то же время, щелкая по ячейки со знаком «х» все работает корректно.
...
Рейтинг: 0 / 0
31.08.2011, 09:20
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418560
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Да, я посмотрел даже что то смастерил на основе вашей модели, вроде все работает но только теперь когда щелкаешь по ячейки со знаком «=» появляется inputbox , а вот цифры введенные не добавляет после равно, в то же время, щелкая по ячейки со знаком «х» все работает корректно.
...
Рейтинг: 0 / 0
31.08.2011, 09:21
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418576
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
0creator0,

Функция InputBox и много другого, если бы не Эксель я бы вник в Вашу проблему
...
Рейтинг: 0 / 0
31.08.2011, 09:33
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418599
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Ципихович ЭндрюPlanB,
чего-то Вы переборщили в этом куске
 
Код: plaintext
1.
2.
3.
If S1 = "" Then Exit Sub Else
                Target = Left(Target, InStr(Target, "="))
                Target = Target & S1
        End If
надо
Код: plaintext
1.
2.
3.
4.
5.
If Len(S1) =  0  Then
 Exit Sub
 Else
                Target = Left(Target, InStr(Target, "="))
                Target = Target & S1
        End If
разницы нет вообще никакой
...
Рейтинг: 0 / 0
31.08.2011, 09:53
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418606
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
PlanB, да Вы вставьте код
Код: plaintext
1.
2.
3.
If S1 = "" Then Exit Sub Else
                Target = Left(Target, InStr(Target, "="))
                Target = Target & S1
        End If
и получите выделение End If, что означает ошибку в синтаксе
...
Рейтинг: 0 / 0
31.08.2011, 10:04
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418666
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
0creator0Да, я посмотрел даже что то смастерил на основе вашей модели, вроде все работает но только теперь когда щелкаешь по ячейки со знаком «=» появляется inputbox , а вот цифры введенные не добавляет после равно, в то же время, щелкая по ячейки со знаком «х» все работает корректно.вы даже скопировать код нормально не в состоянии!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim S1, S2 As String
    
    If Target.Column =  1  Then
        If InStr(Target, "х") <>  0  Then
            S1 = InputBox("введите значение 1", "модель Х")
            S2 = InputBox("введите значение 2", "модель Х")
                If (Len(S1) =  0 ) Or (Len(S2) =  0 ) Then
                    Exit Sub
                Else
                    Target = Left(Target, InStr(Target, "х"))
                    Target = Target & S1 & "x" & S2
                End If
        ElseIf InStr(Target, "=") <>  0  Then
            S1 = InputBox("введите новое значение", "модель =")
                If (Len(S1) =  0 ) Then
                    Exit Sub
                Else
                    Target = Left(Target, InStr(Target, "="))
                    Target = Target & S1
                End If
        End If
    End If
End Sub
бросьте заниматься х**ней, мой вам совет. тратите уйму времени на VB, а толку ноль. к слову, вашу задачу элементарно решить встроенными возможностями excel
...
Рейтинг: 0 / 0
31.08.2011, 10:52
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418697
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Спасибо PlanB, Спасибо Ципихович Эндрю за книжку. PlanB, да нашел ошибку , забыл Else , но не в этом суть , если этой х** как вы говорите не заниматься, то совсем просто можно использовать excel, как калькулятор , но ведь двигаться вперед надо , а каким способом уже другой вопрос. А когда помогают ещё и в написании пусть и простых, но нужных например, для моей работы моделей , как ни как нарабатывается как база знаний так и опыт правильного написания и использования той или иной функции. Да и ради интереса, все те кто помогали мне, это ваша основная специальность программирование или хобби для повышения своей производительности ? Ещё раз всем спасибо!!!!!!!!
...
Рейтинг: 0 / 0
31.08.2011, 11:09
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418703
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
0creator0,второе
...
Рейтинг: 0 / 0
31.08.2011, 11:13
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418725
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
0creator0, как для меня - так хобби, потому как умных много, а той проги, что мне надо нигде не написано, а та что есть за 500 рублей разработчик поправлять под мои советы ещё если 500 накинуть не хочет, понтуется
Заниматься или нет Вам решать, я думаю, что стоит, во всяком случае я ничего не потерял от этого
...
Рейтинг: 0 / 0
31.08.2011, 11:20
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418759
0creator0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
0creator0
Гость
Вот я про то и говорю, хуже от этого не будет, ну тогда еще один вопросик вам задам? Я уже перелопатил 2 книги + ещё куча макросов разных разработчиков, так сказать наглядные пособия , но как только садишься писать , на какой-то функции просто впадаешь в ступор особенно при перебирании ячеек ( так сказать сортировки) . Как вы понимаете как надо или что надо исправить в своем модуле, исходя уже из наработанного опыта или уже вами все функции так осознаны что как таблица умножения отлетает от зубов и знаете какую куда надо поставить что б заработала?
...
Рейтинг: 0 / 0
31.08.2011, 11:34
| Ответить | Цитировать | Написать  
Макрос по замене после "="
    #37418861
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
0creator0Вот я про то и говорю, хуже от этого не будет, ну тогда еще один вопросик вам задам? Я уже перелопатил 2 книги + ещё куча макросов разных разработчиков, так сказать наглядные пособия , но как только садишься писать , на какой-то функции просто впадаешь в ступор особенно при перебирании ячеек ( так сказать сортировки) . Как вы понимаете как надо или что надо исправить в своем модуле, исходя уже из наработанного опыта или уже вами все функции так осознаны что как таблица умножения отлетает от зубов и знаете какую куда надо поставить что б заработала?года два-три посидеть на этом форуме каждый день и почти не будет казаться, что ты новичек. только с программирования в excel не начинают изучать excel. это как пойти в школу экстремального вождения без прав. я бы научился, для начала, писать формулы. а когда станет понятно, что их не хватает снова стал бы учиться писать формулы. т.к. их в 99% случаях хватает.
...
Рейтинг: 0 / 0
31.08.2011, 12:11
| Ответить | Цитировать | Написать  
19 сообщений из 44, страница 2 из 2
  2  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос по замене после "="
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37417927&tid=2176538]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 21ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 192ms
total:  275ms
созд. / загр.: 275ms
x
x
Закрыть


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