Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
макрос очистить ячейку которая содержит шрифт BOLD
 
#1
12.08.2012 12:59:27
добрый день,  
 
подскажите пожалуйста как написать макрос который будет очищать (а не сдвигать при удалении) на всем листе ячейки которые содержат жирный фонт.  
подчеркиваю просто стирать содержимое ячейки которая содержат жирный шрифт (на всём листе).  
 
спасибо
 
 
 
#2
12.08.2012 13:25:50
{quote}{login=karim81}{date=12.08.2012 12:59}{thema=макрос очистить ячейку которая содержит шрифт BOLD}{post}как написать макрос{/post}{/quote}  
добрый день.  
данный макрос пишется на языке VBA в редакторе VBE.  
в дополнение к этому можно воспользоваться макрорекодером.  
пожалуйста.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
12.08.2012 13:45:23
Саш, не вредничай :-)  
 
Sub qqq()  
Dim rCell As Range  
   For Each rCell In ActiveSheet.UsedRange  
       If rCell.Font.Bold Then rCell.Clear  
   Next  
End Sub
 
 
 
#4
12.08.2012 13:48:44
Если нужно очищать ячейки, у которых ЧАСТЬ текста имеет жирный шрифт, то млжно так:  
 
Sub bb()  
Dim c As Range, i&  
For Each c In ActiveSheet.UsedRange  
   If c.Font.Bold Or IsNull(c.Font.Bold) Then c.ClearContents: i = i + 1  
Next  
MsgBox "Очищено ячеек: " & i, vbInformation  
End Sub
 
 
 
#5
12.08.2012 13:51:12
{quote}{login=Юрий М}{date=12.08.2012 01:45}{thema=}{post}Саш, не вредничай :-){/post}{/quote}  
и даже в мыслях не было!!!  
человек хочет сам научиться писать макросы, а вы его, как маленького, с ложечки готовыми кормите :(  
karim81, попробуйте начать отсюда: http://www.planetaexcel.ru/tip.php?aid=122  
 
 
пс (чисто из вредности) для ячеек с текстом со смешанным начертанием (полужирный + обычный) предложенный вариант не сработает, а в "задании" есть слово "содержит". хотя вопрос ТС можно понять по-разному, конечно :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#6
12.08.2012 13:56:36
всем огромное спасибо что накормили из ложечки :)  
я пытаюсь сам, вы правильно заметили :)  
просто новичку надо чуть чуть помогать :)  
 
еще раз всем спасибо
 
 
 
#7
12.08.2012 13:59:54
{quote}{login=ikki}{date=12.08.2012 01:51}{thema=Re: }{post}{quote}{login=Юрий М}{date=12.08.2012 01:45}{thema=}{post}{/post}{/quote}(чисто из вредности) для ячеек с текстом со смешанным начертанием (полужирный + обычный) предложенный вариант не сработает, а в "задании" есть слово "содержит". {/post}{/quote}А Алексей уже поправил меня. Кроме того, я упустил "стирать содержимое" и очищал всё :-)
 
 
 
#8
12.08.2012 14:14:36
не...  
фигня этот дзен-буддизм.  
вторая неделя пошла - не помогает чего-то :(  
 
 
подскажите другие источники, из которых можно черпать терпение и мудрость. прямо ложкамии чтоб.  
а то потом опять окажется, что "все всё знали, но не знали, что ikki не знает"... :((
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#9
12.08.2012 14:19:47
In vino veritas - не подходит?
 
 
 
#10
12.08.2012 14:27:14
спаиваете, да? :(  
некоторое время я считал, что древнее Scio me nihil scire в общем-то, верно, но теперь я несколько обнаглел и думаю, что это всё-таки слишком самоуничижительно.  
"истина где-то рядом" (с), блин.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
12.08.2012 14:29:38
{quote}{login=Юрий М}{date=12.08.2012 02:19}{thema=}{post}In vino veritas - не подходит?{/post}{/quote}Ну почему? :-) Был вопрос: "подскажите другие источники", вот я и подумал...
 
 
 
#12
12.08.2012 14:37:17
пожалуй, подамся я в сектанты.  
на месяцок-другой.  
а то руки до книги по WinAPI никак не дойдут...  
так и живу - дурак дураком. как Сократ.  
 
не теряйте меня. ;)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#13
12.08.2012 14:45:07
Вот интересно, если вместо ActiveSheet.UsedRange написать ActiveSheet.Cells и запустить, то у меня комп сразу начинает подвисать. Как этого можно избежать?
 
 
 
#14
12.08.2012 14:50:16
Если я сую пальцы в розетку, меня бьет током. Как этого можно избежать? - Не суйте пальцы в розетку.  
 
ActiveSheet.Cells - все ячейки листа: 16,7 млн. в 2003 и 17,1 млрд. в 2007. Поэтому и подвисает.
 
 
 
#15
12.08.2012 14:53:46
спасибо!От процесора ожидал большего.
 
 
 
#16
12.08.2012 14:54:44
:-)
Я сам - дурнее всякого примера! ...
 
 
 
#17
12.08.2012 22:21:32
Не дзен. Я придерживаюсь другого учения, созвучного с буддИЗМом - оптималИЗМ.  
Вас же не посылают за буханкой хлеба с рюкзаком 100+20 и по окружной дороге?  
Так зачем ожидать от процессора большего и грузить беднягу? Ему и без Вашего сизифова труда работы хватает.
 
 
 
#18
12.08.2012 22:40:26
{quote}{login=vikttur}{date=12.08.2012 10:21}{thema=}{post}Так зачем ожидать от процессора большего и грузить беднягу?{/post}{/quote}  
так за него ж деньги плОчены!!!  
и немалые!  
нефиг прохлаждаться.  
пусть хоть так отработает - проверив каждую из 17+ миллиардов ячеек.  
а вдруг за пределами UsedRange найдутся другие обитаемые миры?  
всё может быть.  
17 миллиардов - это всё-таки немало. даже если в рублях и до уплаты ндфл.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
Страницы: 1
Читают тему
Наверх