- Семейни таблици.
- обект работен лист
- пример
Обект на работен лист и семейни работни листове.
В Excel работен лист обект йерархия е веднага след обекта и работната книга представлява лист.
MS Excel ви позволява да работите с няколко различни вида листа:
• Работни листове, съдържащи клетки. Тези листове са подадени обект лист.
• Графичните листове, съдържащи диаграма. Тези листове са подадени обект Chart.
• Object Properties работни листове
• Приложение - Когато се използва без обект квалификант, този хотел се връща обект Application. което представлява приложението Microsoft Excel.
• Когато се използва с цел квалификант, този хотел се връща обекта за кандидатстване, който е създател на този обект (можете да използвате този имот с обекта на автоматизацията OLE, за да се върнете на приложението към темата).
• само за четене.
• Брой - Връща Long стойност. което представлява броя на обектите в колекцията (т.е. броя на листове и диаграми).
• Creator - Връща 32-битово цяло число, която показва приложението, в което е създаден обекта. Само четене на Лонг.
• HPageBreaks - Връща колекция от HPageBreaks, което представлява хоризонталните нова страница в листа. Само за четене.
• Работни листове (1). HPageBreaks
• Позиция - Връща един обект от колекцията
• Работни листове (1) .Item (индекс)
• Параметри: Index - името на индекс или обект.
• Пример: следните две линии са еквивалентни
VPageBreaks - Връща колекция от VPageBreaks. което представлява вертикалните нова страница в листа. Само за четене.
Работни (1). VPageBreaks
Този пример показва общия брой на цял екран и областта за печат на вертикални границите на страниците.
За Всеки пб в работни листове (1) .VPageBreaks
Ако pb.Extent = xlPageBreakFull Тогава
cFull = cFull + 1
cPartial = cPartial + 1
MsgBox cFull "Fullscreen нова страница" cPartial _
"Page разбива печат зона"
Видима - Определя дали обектът
Възможни опции. Валсът и True
Работни (1) .Visible = True
Родител - Връща родител на посочения обект. само за четене
семейство Методи работни листове.
Добави - създава нов лист.
objWorkSheets.Add (преди, след граф, тип)
Параметър Преди - показва листа пред който ще бъде поставен нов работен лист.
Параметър След - показва листа, след което ще бъде публикувана нова работа. Ако преди и след аргументи са пропуснати, новият лист се поставя преди активния лист.
Параметър Брой - броят на листа да бъде добавена, по подразбиране е 1
Тур вариант - показва вида на добавената листа. Валидни стойности: xlWorksheet (по подразбиране), xlExcel4MacroSheet и hlEhsel4 IntlMacroSheet.
Например: вмъква нов лист към активния лист в активната работна книга.
ActiveWorkbook. Работни листове. Добави
Изтриване - изтрива от листа.
Преди - лист, който е поставен в предната част на копира листа.
След - лист, който се поставя след копирания лист.
Не можете да определите и преди. ако посочите След както и обратното. Ако не посочите или преди това. от или след, Excel Microsoft ще създаде нова работна книга, която съдържа копирани лист
Това например копия Sheet1, поставяне на копие след Sheet3.
FillAcrossSheets - копия избрания диапазон в същата област на всички други работни листове в колекцията.
Работни листове ( «Sheet1»). FillAcrossSheets (Range, тип)
Range - Гамата искате да копирате в работния лист в колекцията. Обхватът трябва да бъде от работен лист в рамките на колекцията.
Тип - Определя границите на копие.
Този пример запълва гама А1: С5 на Sheet1, Sheet5 и Sheet7 със съдържание на същия диапазон на Sheet1.
х = Array ( «Sheet1», «Sheet5», «Sheet7»)
Листове (х) .FillAcrossSheets _
Работни листове ( «Sheet1») Range ( «A1: C5»).
Преместване - Премества лист на друго място в работната книга.
Работни листове ( «Sheet1»). Преместете (преди, след)
Преди листа, който е поставен преди фолио за трансфер.
След - лист, който се поставя след фолио за трансфер.
Не можете да определите Преди, ако посочите След както и обратното. Ако не посочите: Преди или след това. Excel Microsoft ще създаде нова работна книга, която съдържа преместения листа.
Този пример се движи Sheet1 след Sheet3 в активната работна книга.
Работни листове ( «Sheet1») Move след :. = Работни листове ( «Sheet3»)
Разпечатка - разпечатки обект.
Работни листове ( «Sheet1»). Разпечатка (от, към екземпляра, визуализация, ActivePrinter, PrintToFile, съпоставя, PrToFileName, IgnorePrintAreas)
От - Броят на страницата, за да започнете да печатате. Ако този параметър е пропуснат, отпечатване на първата страница.
Да - Броят на последната страница, която е отпечатана. Ако тази опция е пропуснато, отпечатана страница до последно.
Копия - брой копия, да бъдат отпечатани. Ако бъде пропуснат, едно копие се отпечатва.
ActivePrinter - Определя името на активното принтера.
PrintToFile - Вярно е, за да отпечатате файл. Ако PrToFileName не е посочено, Excel Microsoft изисква от потребителя да се името на изходния файл.
Подредени - Вярно е, да съпоставя няколко копия.
PrToFileName - Ако е вярно, PrintToFile, този параметър определя името на файла, който искате да отпечатате.
IgnorePrintAreas - Вярно е, че да игнорират отпечатването и печатат на целия обект.
Този пример отпечатва активното лист.
Работни листове ( «Sheet1»). Изглед за печат (EnableChanges)
Изберете - Избира обект.
Работни листове ( «Sheet1"). Изберете (Замяна)
Заменете - (използва се само с листа). Вярно е. да замени текущия избор на определен обект. False. за удължаване на текущия избор да включва всякакви предварително избрани обекти и обекта (избор на множество обекти).
Име - връща името на работния лист.
Пример: първия лист на книга се нарича "urok1"
Видима - вярно (работен лист показва на екрана), невярно (работен лист не виждат, че е скрита, но може да се показва на екрана с помощта на командата Format ® Sheet ® дисплей (Формат Sheet Show) и xlVeryHidden (лист .. скрита, и тя може да се показва на екрана само програмно).
StandardHeight - връща стандартната височина на всички редове на работния лист.
Пример: Задава стандартна височина 3stroki.
ActiveCell - връща активната клетка в активния работен лист.
Пресичане - връща обхвата, който е точката на пресичане на няколко ленти.
Intersect (гама 1, rabge 2, ...)
Пример: избран обхват пресичане 1: D 3 и С 3: D 4, т.е. С гама 3: D 3.
Съюз - връща диапазон, който е обединение на няколко групи.
Съюз (rangeI. Range 2.)
Пример: обединението на две групи избрани 1: В 2 и С 3: D 4.
Активирайте - активира лист.
Защитете - защита на работен лист от всяка ревизия.
Protect (с парола, DrawingObjects, съдържание, сценарии, UserInterfaceOnly)
Парола -разходка използва като лист защита с парола
DrawingObjects Приемливите стойности. вярно (графики са защитени) и фалшив (графиките не са защитени) стойност .po подразбиране е невярно.
Съдържание - Валидните стойности. вярно (защитен клетки) и невярно (клетките не са защитени). Стойността по подразбиране е вярно.
Сценарии - Възможните стойности. вярно (скриптове са защитени) и фалшив (скриптове не са защитени) стойност .po подразбиране е вярно.
UserInterfaceOnly - Валидни стойности: вярно (листа е защитена от промени от страна на потребителя, но не и на подпрограмата VBA) и фалшиви (листа е защитена от промени както от страна на потребителя и VBA съчетания.). Стойността по подразбиране е невярно.
В примера, даден от пълна защита активен лист izschmeneny от всяка част на потребителя:
ActiveSheet.Protect Парола: = "Секретно", DrawingObjects: = вярно, Съдържание: = вярно, Сценарии: = вярно
Премахване на защитата - снемане на защитата на лист.
Парола - Низ използва като парола за защита на листа
Освобождаването на активния работен лист
ActiveSheet. Премахване на защитата Парола: = "Секретно"
Преместване - движение на листа на друго място в работната книга.
Move (преди. След)
Преди - лист в работната книга, която е поставена в предната част на
След - лист, който след се добавя
В възможно едновременно да се използва само един от аргументите.
Пример Sheet1 активен работен kigi движи преди Sheet3 същото rabocheyknigi:
Работни листове ( "Sheet1") Move Преди :. = Работни листове ( "лист 3")
Оценяване - преобразува израз в обект или стойност. Използва се, когато въвеждате формули и клетки на диалоговите прозорци.
MsgBox CStr (Value) "извежда стойността за четене в диалоговия прозорец
След това е необходимо да се влиза в полето за въвеждане на следващия диалогов прозорец, който и да е аритметичен израз, като A * A 3 4. Процедурата за изчисляване на стойността на този израз и показване на диалоговия прозорец.
функция = InputBox ( "въведете името на клетката")
стойност = Оценка (функция)
MsgBox CStr (стойност)
За създаване на процедура на явлението, лист, изберете от списъка в прозореца на проекта и след това, в широката зона, за да изберете работен лист. След това отидете в списъка на описания и отбелязване на събитието, което е необходимо да се създаде процедура.
Изчисли настъпва след изчисляването ще бъде направено за всички листа.
Промяна - настъпва след потребителят може да променя съдържанието на работния lista.Protsedura Промяна клетката обработка събитие съдържа един параметър Target. kotryj е обект Range. съдържащ променена клетка.
Забележка: Събитието не се случи. ако промените в клетъчните в резултат на преобразуването. както и отстраняването на клетките.
SelectionChange - всеки път, когато разпределението на следващата промяна в работния лист. процедура Промяна събитие се състои от един параметър Target. kotryj е обект Range. съдържащ избрани клетки.
BeforeClose когато я затворите
BeforePrint преди печат rabocheyknigi
BeforeSave преди да запишете работната книга
Деактивиране, когато работната книга губи фокус
NewSheet pridobavlenii нов лист
Отвори в rabocheyknigi на отваряне
SheetActivate при активиране на някоя от работния лист
SheetDeactivate kogdarabochy лист reryaet фокус
Проблем: има маса, е необходимо да се премине през клетките и ако те не са един стандарт, целият низ да копирате в друг лист.
Този скрипт минава през всички клетки на 10x10 размера на маса, клетка (1, 2) има определена стойност, което се равнява на съдържанието на всяка от тестваните клетката, ако съвпада, а след това целият ред, където е тази клетка, е необходимо да се прекопиране нов лист Резултати. По този начин, новият лист ще създаде нова таблица, която ще бъде само най-нужните редове нас.
Дим аз Като цяло число
Дим й Като цяло число
Дим к Като цяло число
На Грешка Resume Следваща
Задайте NewSheet = Worksheets.Add
Свързани статии