-Поиск по дневнику

Поиск сообщений в Ayers_Marcus

 -Подписка по e-mail

 

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 06.06.2020
Записей:
Комментариев:
Написано: 17


EXCEL2007 format loss processing strategy.txt

Суббота, 13 Июня 2020 г. 07:48 + в цитатник

Have you ever encountered such a factor: 1 day, I all of a sudden identified that the format in the Excel table is gone, only the text and numbers are left, however the frame, color, format, etc. that I worked tough to draw are all gone! What is going on? This really is due to the Excel record style throughout the day, specifically once you copy the formatted information from the old Excel, and you do not choose 'only value' when pasting, this snowball style accumulation is much more really serious. So ultimately 1 day, the style 'burst table' is gone, leaving only countless 'style' records within your 'start'-'style' drop-down menu. The subsequent point we've to perform is always to clear these types and decompress the type.

System one: Fool-style manual right-click one particular by a single around the incorrect style, pick delete, and you happen to be accomplished, sufficient fool-style! When the style reaches the degree of 'explosive table', it is usually 'at least a thousand', along with the patience in the deleter is often tested^_^

Process two: VBA macro script, automatically delete all styles, yes all! Come across 'Development Tools'-'visualbasic' inside the menu bar of excel2007 (if no development tools are found, check the 'Display Ribbon Development Tools' in the Excel alternative)-double-click sheet1 (if it can be blank , Please select 'View'-'Project Explorer' will be displayed, actually, double-click any among the table objects will likely be OK)-replace the following code towards the suitable pop-up code:
SubX()
ForEachsInActiveWorkbook.Designs
'MsgBoxs.Name
OnErrorResumeNext
IfLen(s.Name)0Ands.Name'Normal'Then
s.Delete
EndIf
IfErr.Number0Then
e='ErroroccourondeletingStylenamed's.Name
e=evbCrLf'Err:'Err.Number'-'Err.Description
MsgBoxe
Err. Clear
EndIf
Next
EndSub
Press F5 directly or click 'Run'-'Run Macro' to run it.
http://www.google.com for the table to determine when the style inside is gone.

restore img file : VBA macro script, automatically delete all custom designs, only maintain the method default style!
recover data from .img file as above, but the code is changed to:
Subtest()
DimmystyleAsStyle
OnErrorResumeNext
ForEachmystyleInActiveWorkbook.StylesIfmystyle.BuiltIn=FalseThenmystyle.Delete
Next
EndSub
Run, get it!

For all those who frequently don't need to use Excel for selective paste, rapidly verify the Excel documents that have been utilised for a long time, and find that as well quite a few types are processed as soon as you can. Don’t wait till the 'burst table' is broken, and after that regret it!

Метки:  

 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку