Excel - Собствена функция с VBA

Автор	Съобщение
kookki Чет, 22.04.10, 23:47	Мерси Какче ! Остана ми само радио-бутона да направя в Word-a с ваша помощ Кажете как да направя защита срещу въвеждане на буква вместо цифра. То аз имам някаква ,но ми се иска да е по солидна. Ето ифайла , за да видите какви защити съм измислил с/у некоректни данни Book1.xls А как да направя така че за "Най-добър резолтат" освен оценката да изписва и името на ученика (в случея моето ) в някаква по-долна клетка редактиран от kookki на 22.04.10 23:48 редактиран от kookki на 23.04.10 00:25 редактиран от kookki на 23.04.10 00:32 редактиран от kookki на 23.04.10 01:12
	Отговор  За печат
electric_cc Пет, 23.04.10, 14:14	Taxinc.rar Някога, за да улесня потребителите добавях бутони и съответните процедури в Ексела. Разгледай файла, може да ти послужи като идея.
	Отговор  За печат
kookki Пет, 23.04.10, 23:02	Никола, как да изкарам бутона на работния лист. Разгледах кодовете на твоите бутони и промених кода на единя ,като премахнах само обръщенията към функции които ги нама при мен и условната проверка ,която не ми трябва, компилирах модула, но не ми стана ясно как да вкарам бутона. Пробвах и с UserForm защото от там мога да избера такъв бутон , пиша кода ,компилирам и нищо ? Предполагам че е нещо лесно ,но съм подхванал ексела отскоро и не съм свикнал с макросите
	Отговор  За печат
electric_cc Съб, 24.04.10, 08:17	При зареждане на файла изберете Enable macros. След това за да Ви разреши промените изберете Tools-Protection и махнете забраните. От View-ToolBars маркирайте Control ToolBox. Изберете Design Mode и ще ви бъде разрешено да ползвате компонентите. Ако трябва да пишете процедури натиснете Alt+F11 и пишете. Ако щракнете два пъти върху начертания компонент VB едиторът ще се отвори автоматично и ще създаде процедурата. Понеже при нормално инсталиране Microsoft Office не инсталира всички библиотеки от MSDN, свързани с Microsoft Office, напишете например Dim, натиснете върху него F1 и Windows ще Ви поиска Инсталационен диск за Microsoft Office. След това свободно можете да ползвате помощната информация за Word и Excel. Естествено за да работите трябва да имате известни познания за VBA.
	Отговор  За печат
kookki Съб, 24.04.10, 12:26	Ето какво се получи Book1.xls И хиляди благодарности редактиран от kookki на 24.04.10 12:29
	Отговор  За печат
electric_cc Съб, 24.04.10, 17:03	Поздравления! Когато бях ученик, един бръснар винаги казваше: Всичко е възможно на този свят, само дето на кьосето брада не може да поникне.
	Отговор  За печат
kookki Нед, 25.04.10, 21:05	Бутончето стана супер ,сложих и картинката , само дет не мога да му измисля кода . Доста търсих в нета но открих само код с който трябва ръчно да се въвежда интернет адреса в изкачащ прозорец, а на мен ми трябва бутона да работи като линк. Колеги напишете ми примерен код с Google да речем - от бутона не се изка никаква друга функционалност.
	Отговор  За печат
phrozencrew Нед, 25.04.10, 21:56	Искрено съжалявам, че нямах възможност да се включа активно в дискусията до момента :(! Много хубави комантера сте постнали към темата! [b]kookki, това, което искаш става като насочиш заявката към дефолтния браузер на текущия ти акаунт. Примерче: Private Sub CommandButton1_Click() Set link = CreateObject("Wscript.Shell") link.Run "http:\google.bg" End Sub Buton_link.xls
	Отговор  За печат
kookki Нед, 25.04.10, 22:42	Нед ,страшен си. Обезателно цъкни на бутона от файла да видиш как те поздравявам. Темата ти е много яка. Промени ми представата за ексела Иначе това за което разпитвам никой не ми го иска от училището ,там е на елементарно ниво. А аз се ровя по-дълбоко за собствен гъдел. Copy_of_Book1.5978.xls За формулата на стипендията от файла ползвах функцията ти за градусите ,с леки изменения и включих малка проверка. Визуалбейсик се оказа сходен с С++ и с елементарни неща се справям
	Отговор  За печат
phrozencrew Нед, 25.04.10, 23:08	хихихихи, мерси за биричката! Поздравявам те за желанието да се учиш и способността ти да въприемаш толкова бързо!
	Отговор  За печат
kookki Нед, 25.04.10, 23:53	Случи ми се интересна ситуация и ще я коментирам, защото може да е полезна на новобранци като мен. Получи ми се грешка докато експериментирах с кодовете за бутона и ги компилирах и когато Недялко ми даде верния код ,пак даваше грешка, докато не изтрих файловете в templates в потрбителската папка. Дпсега папката не съм забелязал да садържа някакви записи , допреди да започна да ровя Офиса. След изтриване на съдържанието й нещата се нормализираха. Може и да съм открил "топлата вода" ,но предполагам ще спести главоболията на някой колега. И наздраве ! редактиран от kookki на 25.04.10 23:54
	Отговор  За печат
electric_cc Пон, 26.04.10, 09:42	Поздравления за упоритостта и успехите, но само заради чистотата на езика съм длъжен да отбележа, че се пише Резултат, а не Резолтат. И на Английски е Result. Може да е неволна грешка. Понякога когато трябва да се чете поле със стойност Null дава грешка. При такива случаи е полезно в началото на процедурата да се запише On Local Error Resume Next
	Отговор  За печат
kookki Пон, 26.04.10, 23:29	Благодаря за корекцията и съвета. Изобщо не съм обърнал внимание
	Отговор  За печат
anonymous Вто, 27.04.10, 02:15	RE: Excel - Собствена функция с VBA Цитат на insecteater от Понеделник, 28.05.2007 15:07 ” Хих, благодаря ти от името на останалите, които биха се зарибили да съвместят excell с online получаване на данни. А пък без регулярни изрази вече не мога да си представя сериозна обработка (в повечето мои случаи - крадене) на текстова информация без тях. „ Не така 'колега', не така... регулярни изрази Ок... ама не така :)
	Отговор  За печат

Коментар