http://uroci.net/uroci/18/Microsoft-Excel.html
http://office.microsoft.com/bg-bg/excel ... 61026.aspx
http://office.microsoft.com/bg-bg/train ... 41026.aspx
http://forums.softvisia.com/index.php?showtopic=902 (четири видео урока)
http://inpics.net/excel03.html - уроци в картинки
Уроци за Microsoft Excel 2007
http://office.microsoft.com/bg-bg/Novic ... 31026.aspx
http://office.microsoft.com/bg-bg/excel ... 51026.aspx
http://office.microsoft.com/bg-bg/train ... 81026.aspx
За съответствие на командите от менютата на Excel 2003 и Excel 2007 изтеглете файла Command_Excel_2003_to_2007.pdf от тази директория.
Разрешаване на макроси в Microsoft Excel 2003
Отворете Microsoft Excel 2003. От меню лентата (File, Edit, View, Insert, Format, Tools, Table, Windows, Help - Файл, Редактиране, Изглед, Вмъкване, Форматиране, Инструменти, Таблица, Прозорец, Помощ) изберете „Tools“ (Инструменти). От падащото меню изберете „Macro“ (Макрос) и после вдясно изберете „Security…“ (Защита…). Поставете отметка пред „Medium“ (Средна) или „Low“ (Ниска). Ако сте избрали ниво на средна защита, при всяко отваряне на файл, който съдържа макроси, ще се отваря нов прозорец с предупреждение за защита и трябва да натиснете бутон „Enable Macros“ (Разреши макросите). Ако сте избрали ниво на ниска защита, няма да получавате предупреждение за защита при всяко отваряне на произволен файл, който ползва макроси.
Разрешаване на макроси в Microsoft Excel 2007
Отворете Microsoft Excel 2007. Натиснете бутон „Microsoft Office“ и след това най-отдолу изберете „Excel Options“ (Опции за Excel). Ще се отвори нов прозорец „Excel Options“. Вляво изберете „Trust Center“ (Център за сигурност) и след това вдясно натиснете бутон „Trust Center Settings…“ (Настройки на центъра за сигурност...). Ще се отвори нов прозорец „Trust Center“. Вляво изберете „Macro settings“ (Настройка за макроси) и след това поставете отметка пред „Disable all macros with notification“ (Забрани всички макроси с уведомяване) или „Enable all macros (not recommended; potentially dangerous code can run)“ (Разреши всички макроси (не се препоръчва; може да се изпълни потенциално опасен код)). Ако сте избрали „Disable all macros with notification“, при всяко отваряне на файл, който съдържа макроси, ще получавате предупреждение за защита „Security Warning Macros have been disabled“ (Предупреждение за защита Макросите са забранени.). Това съобщение за защита се намира в специалната лента за съобщения (Message Bar). Съобщението се появява непосредствено над първия ред от електронната таблица. Натиснете бутон „Options…“ (Опции...), който се намира вдясно от съобщението „Security Warning Macros have been disabled“ в специалната лента за съобщения. Ще се отвори нов прозорец, в който поставете отметка пред „Enable this content“ (Разреши това съдържание) и потвърдете с бутон „OK“. Ако съобщението е „Security Warning Some active contents has been disabled“ (Предупреждение за защита Някакво активно съдържание е забранено.), обърнете внимание какво друго (освен ползването на макроси) чака вашето разрешение. Най-често това е връзка (Links) към друг файл Microsoft Excel за копиране на съдържание на дадена клетка от един файл в друг файл.
Изписване на число с думи в Microsoft Excel 2003
(Например „Словом:“ във фактури и застрахователни полици. Макросите трябва предварително да са разрешени.)
От меню лентата (File, Edit, View, Insert, Format, Tools, Table, Windows, Help) изберете „Tools“ (Инструменти) и веднага вдясно изберете „Macro“ (Макрос) – „Visual Basic Editor“ (Редактор за Visual Basic). За по-лесно можете да използвате клавишната комбинация „Alt+F11“ (едновременно натискане на клавишите „Alt“ и „F11“).
Ще се отвори нов прозорец „Microsoft Visual Basic – Premia_casco“. В случая „Premia_casco“ е името на файла, който сте отворили.
В лентата с инструменти натиснете стрелката в дясната част на бутона „Insert UserForm“:
От падащото меню изберете „Module“:
Ще се отвори нов прозорец „Premia_casco – Module1 (Code)“:
В горния прозорец на мястото на мигащия курсор трябва да вмъкнете текста със зелените букви:
- Код: Избери целия код
Function Spell(NumStr, i)
Static Units(20) As String, Decim(9) As String, Hundr(11) As String, Thous(5) As String, Thous1(5) As String
Static Units1(20) As String
Units(0) = ""
Units(1) = "един "
Units(2) = "два "
Units(3) = "три "
Units(4) = "четири "
Units(5) = "пет "
Units(6) = "шест "
Units(7) = "седем "
Units(8) = "осем "
Units(9) = "девет "
Units(10) = "десет "
Units(11) = "единадесет "
Units(12) = "дванадесет "
Units(13) = "тринадесет "
Units(14) = "четиринадесет "
Units(15) = "петнадесет "
Units(16) = "шестнадесет "
Units(17) = "седемнадесет "
Units(18) = "осемнадесет "
Units(19) = "деветнадесет "
Units1(0) = ""
Units1(1) = "една "
Units1(2) = "две "
Units1(3) = "три "
Units1(4) = "четири "
Units1(5) = "пет "
Units1(6) = "шест "
Units1(7) = "седем "
Units1(8) = "осем "
Units1(9) = "девет "
Units1(10) = "десет "
Units1(11) = "единадесет "
Units1(12) = "дванадесет "
Units1(13) = "тринадесет "
Units1(14) = "четиринадесет "
Units1(15) = "петнадесет "
Units1(16) = "шестнадесет "
Units1(17) = "седемнадесет "
Units1(18) = "осемнадесет "
Units1(19) = "деветнадесет "
Decim(0) = ""
Decim(1) = "двадесет "
Decim(2) = "тридесет "
Decim(3) = "четиридесет "
Decim(4) = "петдесет "
Decim(5) = "шестдесет "
Decim(6) = "седемдесет "
Decim(7) = "осемдесет "
Decim(8) = "деветдесет "
Hundr(0) = ""
Hundr(1) = ""
Hundr(2) = "сто "
Hundr(3) = "двеста "
Hundr(4) = "триста "
Hundr(5) = "четиристотин "
Hundr(6) = "петстотин "
Hundr(7) = "шестстотин "
Hundr(8) = "седемстотин "
Hundr(9) = "осемстотин "
Hundr(10) = "деветстотин "
Thous(0) = ""
Thous(1) = ""
Thous(2) = "хиляди "
Thous(3) = "милиона "
Thous(4) = "милиарда "
Thous1(0) = ""
Thous1(1) = ""
Thous1(2) = "хиляда "
Thous1(3) = "милион "
Thous1(4) = "милиард "
Dim Num, RetStr
RetStr = ""
Num = CInt(NumStr)
If Num = 0 Then
Spell = RetStr
Exit Function
End If
If Num = 1 Then
Select Case i
Case 1
RetStr = "и " & Units(1) & Thous1(1)
Case 2
RetStr = Thous1(2)
Case Else
RetStr = Units(1) & Thous1(i)
End Select
Spell = RetStr
Exit Function
End If
RetStr = RetStr & "и " & Hundr(CInt(Left(NumStr, 1)) + 1)
If CInt(Right(NumStr, 2)) = 0 Then
Spell = RetStr & Thous(i)
Exit Function
End If
If Mid(NumStr, 2, 1) = "0" Or Mid(NumStr, 2, 1) = "1" Then
If i = 2 Then
Spell = RetStr & "и " & Units1(CInt(Mid(NumStr, 2, 2))) & Thous(i)
Else
Spell = RetStr & "и " & Units(CInt(Mid(NumStr, 2, 2))) & Thous(i)
End If
Exit Function
End If
If Right(NumStr, 1) = "0" Then
RetStr = RetStr & "и " & Decim(CInt(Mid(NumStr, 2, 1)) - 1)
Else
If i = 2 Then
RetStr = RetStr & Decim(CInt(Mid(NumStr, 2, 1)) - 1) & "и " & Units1(CInt(Right(NumStr, 1)))
Else
RetStr = RetStr & Decim(CInt(Mid(NumStr, 2, 1)) - 1) & "и " & Units(CInt(Right(NumStr, 1)))
End If
End If
Spell = RetStr & Thous(i)
End Function
Function Slov(ByVal Num As Currency)
Static c(5)
Dim NumStr, NumStr1, i, k
If Not IsNull(Num) Then
NumStr = Trim(CStr(Num))
If Num = 0 Then
Slov = "нула"
Exit Function
End If
Dim Buf As String:
If (Num < 0@) Then Buf = "минус " Else Buf = ""
Dim Frac As Currency: Frac = Abs(Num - Fix(Num))
If (Num < 0@ Or Frac <> 0@) Then Num = Abs(Fix(Num))
Dim AtLeastOne As Integer: AtLeastOne = Num >= 1
i = 1
NumStr = Num
Do
If Len(NumStr) > 3 Then
c(i) = Right$(NumStr, 3)
NumStr = Left$(NumStr, Len(NumStr) - 3)
i = i + 1
Else
c(i) = String(3 - Len(NumStr), "0") & NumStr
Exit Do
End If
Loop
NumStr = ""
For k = i To 1 Step -1
NumStr = NumStr & Spell(c(k), k)
Next k
Debug.Print NumStr
If Left(NumStr, 2) = "и " Then
NumStr = Right$(NumStr, Len(NumStr) - 2)
End If
If Left(NumStr, 2) = "и " Then
NumStr = Right$(NumStr, Len(NumStr) - 2)
End If
'стотинки
If (Frac = 0@) Then
Buf = Buf
ElseIf (Int(Frac * 100@) = Frac * 100@) Then
If AtLeastOne Then Buf = Buf & "и "
Buf = Buf & Format$(Frac * 100@, "00") & " стотинки"
Else
If AtLeastOne Then Buf = Buf & "и "
Buf = Buf & Format$(Frac * 100@, "00") & " стотинки"
End If
Slov = NumStr & "лева " & Buf ' "лв. "
End If
End Function
Запаметете файла с натискане на бутон „Save:
Затворете прозореца „Microsoft Visual Basic – Premia_casco“.
Нека в клетка „В1“ имате число, което искате да бъде изписано с думи в клетка „В2“.
В клетка „В2“ въведете формулата =Slov(B1)
Когато клетка „В1“ е празна, в клетка „В2“ ще се изпише думата „нула“:
Маркирайте клетки от „В2“ до „Н2“:
В лентата с инструменти натиснете бутон „Merge and Center“, за да слеете маркираните клетки:
В лентата с инструменти натиснете бутон „Align Left“, за подравняване вляво на текста в маркираните клетки:
Пример:
В клетка „А1“ въведете числото 1 205,36 и ще видите:
Функцията „Словом:“ няма да работи, ако сте отворили файла с OpenOffice.org Calc или Gnumeric.
За OpenOffice.org Calc можете да използвате този макрос.
Тази функция „Словом:“ е „побългарен“ вариант на руски макрос, масово използван у нас.
Функцията „Словом:“ намира приложение във фактури за получен комисион, вносни бележки, приходни касови ордери, разходни касови ордери, счетоводни ведомости, сметки за платена застрахователна премия, квитанции за платена застрахователна премия, застрахователни добавъци (анекси), застрахователни полици и други застрахователни документи.
