Прочетете книгата ексел
В резултат на прилагане на макро показано на фиг. 3.20.
Фигурата показва, че областта от клетки, ограничена конструкция и мрежата вътре в нея е представено като пунктирани линии.
Фиг. 3.20. Рамка и решетка
Бързо публикуване на имената на длъжностните лица в документа
Номерът, който ще обсъдим в този раздел позволява да вмъкнете бързо навсякъде в текста на документа е предварително определен. Такава възможност е полезна, например, за да вмъкнете в документа и да публикувате имената на директора и главния счетоводител (или други служители). Тази цел се постига чрез използване на макро, кодът е показано на Обявата 3.67.
Обявата 3.67. Вмъкване на текст в документ
"Запълване на текущата клетка
ActiveCell = «генерален директор»
"Последните три колони на правилната позиция
Клетките (ActiveCell.Row, ActiveCell.Column + 3) .Изберете
ActiveCell.FormulaR1C1 = «А. Б. Рубльов "
"Cell с" главен счетоводител "на трите колони от ляво _
и три реда по-долу в клетката с името на директора
Клетките (ActiveCell.Row + 3, ActiveCell.Column - 3) .Изберете
ActiveCell = «Главен счетоводител"
"Последните три колони на правилната позиция
Клетките (ActiveCell.Row, ActiveCell.Column + 3) .Изберете
ActiveCell = «Т. S. Kopeikin "
След изпълнение на макро съответния текст ще бъде вмъкнат в документа, където курсорът е позициониран (фиг. 3.21).
Фиг. 3.21. Вмъкване на текст в документ
Очевидно е, че може да бъде поставена с макро-горе в текущия документ произволна текст.
Обаждане на прозореца за настройки на шрифтовете на
С помощта на малък макро може да доведе до прозореца с настройки на шрифтовете на. Кодът за този макрос изглежда по следния начин (виж Обява 3.68).
Обявата 3.68. прозорец на настройките на шрифта
"Обадете се на стандартните настройки на Windows шрифтове на текущата клетка
След работа ще се отвори прозорец Format Cells се, които извършват необходимите действия. Определя се в този прозорец, настройките се прилагат към клетката, в която е позициониран курсора.
Показва информация за текущия документ
За бързо показване на информация за името на текущия файл, името на текущия работен лист, а броят на листове в работна книга, можете да използвате макроса, кодът е показано на Обява 3.69.
Обявата 3.69. Информация за текущия документ
Дим аз Като цяло число
"Показва името на файла, работна книга
"Показва името на текущия баланс
"номера Pin
За I = 1 да ActiveWorkbook.Sheets.Count
ActiveSheet.Cells (I, 3) = I
Резултатът от макро показано на фиг. 3.22.
Фиг. 3.22. Информация за текущия файл
В този случай, клетка A1 показва името на текущия файл, в клетка B1 - името на активния работен лист, а в колона В - Информация за броя на работни листове в настоящата книга.
Заключение Резултатите от изчисленията в отделен прозорец
Извършване прост трик може да показва резултата от изчисление, получен чрез формули в отделна информация прозорец. За да направите това, можете да създадете различни макроси (в зависимост от сложността на изчисленията, съдържанието на клетки и формули, и така нататък. Г.). Обявата 3.70 показва пример на една от тези макроси.
Обявата 3.70. Прозорецът с резултат от изчисление
"Включване на първия лист
"Се поставя в данните на клетката
"Извежда резултата от изчисление
MsgBox Range. ( «A3») Формула + "=" + (ул Range ( «A3»). Value)
Резултатът от макро показано на фиг. 3.23.
Фиг. 3.23. Формулата и резултатът
Освен това, след като се появи макро стойността в клетка А2 5, и в клетка A3 - 8.
Изходна разделителна способност на екрана
Обявата 3.71. Резолюция на монитора
Се обяви Функционални GetSystemMetrics Lib «USER32» _
(ByVal nIndex толкова дълго), докато
"Константите са преминали към функция, за да се определи _
хоризонтални и вертикални размери на изображението
Строителство SM_CXSCREEN = 0
Строителство SM_CYSCREEN = 1
Дим lngHorzRes толкова дълго,
Дим lngVertRes толкова дълго,
"Подготовка на ширината и височината на изображението на монитора
MsgBox "Текущата:" lngHorzRes "X" lngVertRes
След стартиране на макроса (в макро полето за избор, той ще бъде наречен GetMonitorResolution), прозорец, показан на екрана, която ще покаже текущата резолюция на дисплея.
Това е отворен в момента?
Когато се работи с голям брой работни книги понякога трябва бързо да видите кои от тях са отворени в момента. За да се реши този проблем ще помогне следния макрос (Обява 3.72).
Обявата 3.72. отваряне на файлове
Дим книга Както Object
"Показва името на всяка работна книга
За всяка книга в работни книги
Обявата 3.73. "Плъзгане" Книги
Дим лист Като обект
"Посочете имената на всички листове в активната работна книга
За Всеки лист В ActiveWorkbook.Sheets
След стартиране на макроса, на екрана ще се покаже същия прозорец, както в предишния макроса. Тя ще покаже името на първия работен лист ток книгата, а след това, след всяко натискане на ОК - имена следващите листове.
Създаване на движещ се текст
Мога ли да създам Excel превъртане? Да, може и ще ни помогне в кода, показан Обява 3.74.
Обявата 3.74. Създаване на движещ се текст
Дим intSpacesLeft Като цяло число "Броят на местата в началото на
"Задаване на начален броят на местата за
"Махало Първото извикване на функция
Ако intSpacesLeft> = 0 След
Range ( «А1»). Value = Space (intSpacesLeft) "Здравейте!"
intSpacesLeft = intSpacesLeft - 1
"Excel показва, че тази процедура трябва да се обадя през _
Application.OnTime сега + TIMEVALUE ( «00:00:01»),
След стартиране на макро клетка на Ал ще покаже движещ се текст с текста Здравейте!.
мига клетка
Помислете доста интересен трик, с който можете да направите (т.е. смяна на цветовете последователно) на флаш всяка клетка, за определен период от време.
Да предположим, че имаме нужда от клетка, която е 10 пъти на всеки 5 секунди ще се променят цвета на фона от червено до зелено. За да се реши този проблем, ние използваме следния макрос (Обява 3.75).
Обявата 3.75. мига клетка
Статичните intCalls като борбата брой мига Цяло число "
"Ако клетката примигна поне 10 пъти, след това да промените _
отново цвета
Ако intCalls <10 Then
intCalls = intCalls + 1
"Определението за какъв цвят трябва да инсталирате
Ако Range ( «А1»). Interior.Color <> RGB (255, 0, 0) След
"Цвят Cell не е червен, така че сега възлага _
то е червено
Обхват ( "А1"). Interior.Color = RGB (255, 0, 0)
"Присвояване на клетъчната зеленото
Обхват ( "А1"). Interior.Color = RGB (0, 255, 0)
"Тази процедура е необходимо да се обадя след 5 секунди
Application.OnTime сега + TIMEVALUE ( «00:00:05»),
След стартиране на макро BlinkingCell мига Al клетката. Чрез подходящи промени в даден макрос може да се коригира продължителността на цикъла и да промените цвета на фона на собствения си.
въртящ автофигурите
Мога ли да получа AutoShape завъртане? Оказва се, че можеш, и това не е толкова трудно, колкото изглежда на пръв поглед. В този раздел, ние обсъждаме как да се направи в движение, докато въртенето само два автофигурите.
Обявата 3.76. въртене автофигурите
Статично fRunning Както Булева
"Проверете дали макроса вече работи
Ако fRunning Тогава
"Когато рестартирате спирки на всички работещи в макроси
"Ние се отбележи, че на макро работи
Дим клетка като работен диапазон от клетки "
Дим intLeftBorder толкова дълго "лявата граница на клетката
Дим intRightBorder толкова дълго "дясната граница на клетката
Дим intTopBorder толкова дълго "Горната граница на клетката
Дим intBottomBorder толкова дълго "Долната граница на клетката
Дим alngVertSpeed (от 1 до 2) Масивите Дълги "със стойности
Дим alngHorzSpeed (от 1 до 2), докато "хоризонтално и вертикално
Дим ashShapes (1 до 2) Като форма решетка транспортират
Дим аз Като цяло число
"Напълнете автофигурите масив
Комплект ashShapes (1) = ActiveSheet.shapes (1)
Комплект ashShapes (2) = ActiveSheet.shapes (2)
"Процент на масива Попълнете:
"За първи фигурата
"За втори фигурата
"Получаването на работни клетъчни граници
Задайте клетка = Range ( «B2»)
intRightBorder = cell.Left + cell.Width
intBottomBorder = cell.Top + cell.Height
"Извършване на въртене и преместване цифри
"Промяна на позицията на всеки AutoShape
"Контрол на достигане на десния край на клетката
Ако .Left + .Width + alngHorzSpeed (I)>
Ляв = intRightBorder - .Width
"Промяната на посоката на хоризонталната скорост _
"Контрол на достигане на левия ръб на клетката
Ако .Left + alngHorzSpeed (I) "Промяната на посоката на хоризонталната скорост _ "Контрол на достигане на по-ниска граница на клетката Ако .Top + .Height + alngVertSpeed (I)> Top = intBottomBorder - .Height "Промяна на посоката на вертикалната скорост _ "Контрол на достигане на върха на границата на клетката Ако .Top + alngVertSpeed (I) "Промяна на посоката на вертикалната скорост _ Ляв = .Left + alngHorzSpeed (I) Най = .Top + alngVertSpeed (I) "Ротация автофигурите (промяна на посоката на въртене _ се случва всеки път, когато промените посоки _ "Дайте Excel команда вход дръжка на потребителя Сега в клетка B2 трябва да създадете всеки две автофигурите (преди тази клетка B2 трябва да се увеличат значително, което прави приблизително с размерите на една четвърт от екрана, за да има място да се върти автофигурите). Сега, пускате макро, насладете се на резултатите от тяхната работа - автофигурите ще се завърти и едновременно с това се движат в рамките на определения клетката. Ако желаете, можете да оцветите AutoShape в различни цветове и да зададете някои фон за клетката. Ако е необходимо, се покаже таблицата с цветове и стойностите на съответната собственост Colorlndex (този имот определя цвета на запълване индексирани според палитрата от цветове). За да направите това, създаване и изпълнение на следния макрос (Обява 3.77). Дим intColor Като цяло число "Получаване на заглавната част на таблицата Range ( «B1»). Value = «Собственост Стойност ColorIndex» За intColor = 1 до 56 "Клетките, оцветени в" А "колона в текущия цвят Можете да прочетете книгата? Спечелете това! Напиши на администратор група - Сергей Макаров - пишаОбадете се на цвета на масата
Обявата 3.77. Показани таблицата с цветове