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

Вход

Регистрация

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

 

= Мир MS Excel/Как сделать макрос на замену - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Как сделать макрос на замену
Clero39 Дата: Пятница, 18.09.2015, 09:58 | Сообщение № 21
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.
Подскажите пожалуйста макрос:

Необходимо заменить "1" если он пишется в ячейкe на кружок (нарисован рядом с таблицей в отдельной ячейке), 2 на 2 кружка тоже нарисованы в другой ячейке и так далее до 8, если ячейка пуста то ничего делать не надо. В книге 10 листов это необходимо сделать на 2 листах А и Б.

В файле 1000 столбов и много строк поэтому формула не подойдет.

Спасибо.
 
Ответить
СообщениеЗдравствуйте.
Подскажите пожалуйста макрос:

Необходимо заменить "1" если он пишется в ячейкe на кружок (нарисован рядом с таблицей в отдельной ячейке), 2 на 2 кружка тоже нарисованы в другой ячейке и так далее до 8, если ячейка пуста то ничего делать не надо. В книге 10 листов это необходимо сделать на 2 листах А и Б.

В файле 1000 столбов и много строк поэтому формула не подойдет.

Спасибо.

Автор - Clero39
Дата добавления - 18.09.2015 в 09:58
miver Дата: Пятница, 18.09.2015, 11:53 | Сообщение № 22
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 37 ±
Замечаний: 0% ±

Excel 2010
Clero39, А может всетаки формулой пойдет
К сообщению приложен файл: 0902637.xlsx (8.3 Kb)
 
Ответить
СообщениеClero39, А может всетаки формулой пойдет

Автор - miver
Дата добавления - 18.09.2015 в 11:53
Clero39 Дата: Пятница, 18.09.2015, 20:07 | Сообщение № 23
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо но не подойдет в ячейке цыфра шрифт12, а кружок только контур не закрашенный должен быть взят из вставки-фигуры.
И он вписывается в эту ячейку. Два кружка они тоже зарание подготовленны и вписываются в такую же ячейку. И так далее до 8 кружков.


Сообщение отредактировал Clero39 - Пятница, 18.09.2015, 20:08
 
Ответить
СообщениеСпасибо но не подойдет в ячейке цыфра шрифт12, а кружок только контур не закрашенный должен быть взят из вставки-фигуры.
И он вписывается в эту ячейку. Два кружка они тоже зарание подготовленны и вписываются в такую же ячейку. И так далее до 8 кружков.

Автор - Clero39
Дата добавления - 18.09.2015 в 20:07
KSV Дата: Пятница, 18.09.2015, 21:52 | Сообщение № 24
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
вы бы приложили свой файл (в соответствии с правилами), что есть и каким вы хотите видеть конечный результат
как вариант [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
      Dim n&: n = Val(Target)
      Application.EnableEvents = False
      If n Then Target = String$(n, ChrW(&H20DD)) Else Target.ClearContents
      Application.EnableEvents = True
End Sub
[/vba]

UPD
вариант 2 [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     Dim s$, n&: n = Val(Target)
     Application.EnableEvents = False
     If n Then For n = 1 To n: s = s & ChrW(&H245F + n): Next: Target = s Else Target.ClearContents
     Application.EnableEvents = True
End Sub
[/vba]
К сообщению приложен файл: Circles.xlsm (20.3 Kb) · Circles2.xlsm (20.6 Kb)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333


Сообщение отредактировал KSV - Пятница, 18.09.2015, 22:04
 
Ответить
Сообщениевы бы приложили свой файл (в соответствии с правилами), что есть и каким вы хотите видеть конечный результат
как вариант [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
      Dim n&: n = Val(Target)
      Application.EnableEvents = False
      If n Then Target = String$(n, ChrW(&H20DD)) Else Target.ClearContents
      Application.EnableEvents = True
End Sub
[/vba]

UPD
вариант 2 [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     Dim s$, n&: n = Val(Target)
     Application.EnableEvents = False
     If n Then For n = 1 To n: s = s & ChrW(&H245F + n): Next: Target = s Else Target.ClearContents
     Application.EnableEvents = True
End Sub
[/vba]

Автор - KSV
Дата добавления - 18.09.2015 в 21:52
Clero39 Дата: Пятница, 18.09.2015, 22:30 | Сообщение № 25
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо за помощь вначеле небыло возможности. Выкладываю файл. Кружочки в конце таблицы.
К сообщению приложен файл: 25362.xlsx (77.7 Kb)


Сообщение отредактировал Clero39 - Пятница, 18.09.2015, 22:31
 
Ответить
СообщениеСпасибо за помощь вначеле небыло возможности. Выкладываю файл. Кружочки в конце таблицы.

Автор - Clero39
Дата добавления - 18.09.2015 в 22:30
KSV Дата: Пятница, 18.09.2015, 23:08 | Сообщение № 26
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
вы заведомо создаете себе "геморрой"...
будет работать для цифр от 1 до 3, т.к. не понял как должны выглядеть кружочки для 4-8 (ну, сделаете по аналогии)
[p.s.]не понял для чего вам кружки (справа от таблицы) на каждой строке, если достаточно всего по одной ячейке-примере?...[/p.s.]
К сообщению приложен файл: 25362.xlsm (79.2 Kb)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщениевы заведомо создаете себе "геморрой"...
будет работать для цифр от 1 до 3, т.к. не понял как должны выглядеть кружочки для 4-8 (ну, сделаете по аналогии)
[p.s.]не понял для чего вам кружки (справа от таблицы) на каждой строке, если достаточно всего по одной ячейке-примере?...[/p.s.]

Автор - KSV
Дата добавления - 18.09.2015 в 23:08
Clero39 Дата: Суббота, 19.09.2015, 09:20 | Сообщение № 27
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Кружки с боку это я брал нужный кружок копировал и вставлял в соответствующую ячейку. Эта таблица нужна по работе. Принцип построения кружков как в картах. Я думал может это реализовать как копирование заданной ячейки с кружками и вставка в нужную ячейку с цыфрой заменяя ее. Спасибо за помощь.
 
Ответить
СообщениеКружки с боку это я брал нужный кружок копировал и вставлял в соответствующую ячейку. Эта таблица нужна по работе. Принцип построения кружков как в картах. Я думал может это реализовать как копирование заданной ячейки с кружками и вставка в нужную ячейку с цыфрой заменяя ее. Спасибо за помощь.

Автор - Clero39
Дата добавления - 19.09.2015 в 09:20
KSV Дата: Суббота, 19.09.2015, 12:04 | Сообщение № 28
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
как копирование заданной ячейки с кружками и вставка в нужную ячейку

сейчас, макрос именно так и делает :)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение
как копирование заданной ячейки с кружками и вставка в нужную ячейку

сейчас, макрос именно так и делает :)

Автор - KSV
Дата добавления - 19.09.2015 в 12:04
Clero39 Дата: Суббота, 19.09.2015, 13:28 | Сообщение № 29
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Понял еще не смотрел.Тогда спасибо посмотрю вечером как работает
 
Ответить
СообщениеПонял еще не смотрел.Тогда спасибо посмотрю вечером как работает

Автор - Clero39
Дата добавления - 19.09.2015 в 13:28
Clero39 Дата: Суббота, 19.09.2015, 16:45 | Сообщение № 30
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Посмотрел. Я в этом деле лузер, даже не поял как по аналогии добавить 4, 5 и т.д. Но помогите довести проект до ума. Файл присоеденил, данные таблица "А" получает из таблицы "Б" в оригинале у них другие названия. Данными являются как цифры от 1 до 8 так и сочетание от 1к до 8к, заменить их надо соответствующим количеством кружков ( в конце я табличку поправил). Самостоятельно я в таблицу "А" значения не ввожу. Заранее благодарю.
К сообщению приложен файл: 6446315.xlsm (71.5 Kb)
 
Ответить
СообщениеПосмотрел. Я в этом деле лузер, даже не поял как по аналогии добавить 4, 5 и т.д. Но помогите довести проект до ума. Файл присоеденил, данные таблица "А" получает из таблицы "Б" в оригинале у них другие названия. Данными являются как цифры от 1 до 8 так и сочетание от 1к до 8к, заменить их надо соответствующим количеством кружков ( в конце я табличку поправил). Самостоятельно я в таблицу "А" значения не ввожу. Заранее благодарю.

Автор - Clero39
Дата добавления - 19.09.2015 в 16:45
KSV Дата: Вторник, 22.09.2015, 01:45 | Сообщение № 31
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
не понимаю, как должны были выглядеть с 4к по 8к, поэтому сделал так. (можете изменить цвет контура, вместо заливки)
К сообщению приложен файл: 6109142.xlsm (71.6 Kb)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщениене понимаю, как должны были выглядеть с 4к по 8к, поэтому сделал так. (можете изменить цвет контура, вместо заливки)

Автор - KSV
Дата добавления - 22.09.2015 в 01:45
Clero39 Дата: Вторник, 22.09.2015, 10:14 | Сообщение № 32
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здорово.
А как реолизовать, что бы при открытии таблицы "А"(в ней уже будут данные из таблицы "Б") значения заменяться автоматом. Сейсас приходиться перебивать значения вручную или активировать ячейку и нажать "ввод", чтобы произошла замена. Пример в первых ячейках.
Если можно расскажи с помощью какой команды копируется именно тот обьект с заданным количеством кружков.
Перенес программу в рабочий фаил, не хочет там работать?
Спасибо.
К сообщению приложен файл: 8723999.xlsm (70.4 Kb)
 
Ответить
СообщениеЗдорово.
А как реолизовать, что бы при открытии таблицы "А"(в ней уже будут данные из таблицы "Б") значения заменяться автоматом. Сейсас приходиться перебивать значения вручную или активировать ячейку и нажать "ввод", чтобы произошла замена. Пример в первых ячейках.
Если можно расскажи с помощью какой команды копируется именно тот обьект с заданным количеством кружков.
Перенес программу в рабочий фаил, не хочет там работать?
Спасибо.

Автор - Clero39
Дата добавления - 22.09.2015 в 10:14
sv2014 Дата: Среда, 23.09.2015, 00:41 | Сообщение № 33
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
BobbyJo, доброго времени суток,только сегодня прочитал Вашу тему,протестируйте макрос test
с использованием RegExp, в составе файл-примера.
К сообщению приложен файл: 1633693-1-25_09.xlsm (82.9 Kb)
 
Ответить
СообщениеBobbyJo, доброго времени суток,только сегодня прочитал Вашу тему,протестируйте макрос test
с использованием RegExp, в составе файл-примера.

Автор - sv2014
Дата добавления - 23.09.2015 в 00:41
Evgen74 Дата: Вторник, 10.11.2015, 14:39 | Сообщение № 34
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Люди добрые! А может кто нибудь подскажет макрос, чтобы заменить сочетание букв "ффф" на знак Ø после ввода текста в ячейку.
Например:
"Проволока алюминиевая сварочная свАМг6 ффф3" менялось бы на "Проволока алюминиевая сварочная свАМг6 Ø3".
[moder]Читаем Правила форума, создаём свою тему, эта тема закрыта[/moder]


Сообщение отредактировал Pelena - Вторник, 10.11.2015, 14:48
 
Ответить
СообщениеЛюди добрые! А может кто нибудь подскажет макрос, чтобы заменить сочетание букв "ффф" на знак Ø после ввода текста в ячейку.
Например:
"Проволока алюминиевая сварочная свАМг6 ффф3" менялось бы на "Проволока алюминиевая сварочная свАМг6 Ø3".
[moder]Читаем Правила форума, создаём свою тему, эта тема закрыта[/moder]

Автор - Evgen74
Дата добавления - 10.11.2015 в 14:39
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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