1 / 19

Константи, Променливи и Типове данни

Константи, Променливи и Типове данни. 1. Коментар – ( ‘ ), ( REM ). 2. Продължение на Ред – ( _ ) Range (“ A 1”). _ Font . Bold = True Забележка: Не може да бъде поставен символа за нов ред ( _ ) във вътрешността на името в текстове или низове константи. 3. Константи

joelle-pennington
Download Presentation

Константи, Променливи и Типове данни

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Константи, Променливи и Типове данни 1. Коментар – ( ‘ ), (REM) 2. Продължение на Ред – ( _ ) Range(“A1”). _ Font.Bold = True Забележка: Не може да бъде поставен символа за нов ред ( _ ) във вътрешността на името в текстове или низове константи.

  2. 3. Константи • 3.1. Текстови – заграждат се в “ “ • Пример: “Пример на VBA” • 3.2. Дати – заграждат се в # • Пример: #3/25/2010# • 3.3. Числови - във формат на число • Пример: 3.14

  3. 4. Дефиниране и деклариране на константи. • Извършва с ключовата дума const: • Const<име на константа> = <число | дата | низ> • Примери: • Числова: Const Pi = 3.14 • Текстова: Const Title = ”Оценка” • Дата: Const ToDay = #3/26/2010#

  4. 5. Служебни константи на VBA. Наричат се Изброител (Enums). Например Еxcel има 152 изброителя, като един от тях е: Enum ColorConstants vbBlack = 0 vbBlue = 16711680 vbMagenta = 16711935 vbCyan = 16776960 vbWite = 16777215 vbRed = 255 vbGreen = 65280 vbYallow = 65535 End Enum Например: Range (“A1”).Font.Color = vbRed Забележка: В редактора на VBA има (object Browser) показва се с клавиша F2, в който могат да се видят всички налични служебни изброители.

  5. 6. Типове в VBA • 6.1.Числови • 6.1.1. Целочислени

  6. 6.1.2. Реални

  7. 6.3.Други • 6.3.1.Дата

  8. 6.3.2. Низ

  9. 6.3.3. Неопределен 6.3.4.Обект

  10. 7. Променливи на VBA. Променливите могат да бъдат смятани като места-памет, където могат да се държат стойности от даден тип. Стойностите в променливите могат да се променят през времето на живот на програмата и затова се наричат "променливи“. 7.1. Име, Типи Стойност на променливите.

  11. 7.2.Деклариране на променливи във VBA Декларирането на променливите стават по два начина: 7.2.1. Чрез пряко деклариране със запазената ключова дума Dim Синтаксис за деклариране на променлива Dim <име на променлива1> As <тип1>, .... .......... <име на променлива n> As <типn>. Забележка: Ако не е зададен конкретен тип на промен-ливата се възприема от VBA за неопределен тип Variant. Пример: Dim Name As String Dim Holiday As Date Dim Money As Currency Dim A As Integer, Name As String, Money As Currency Dim Age, Height, Weight As Integer

  12. 7.2. Деклариране на типове чрез суфикси. Суфикса се слага след името на променливите. % - integer, & - Long, ! – Singe, # - Double, @ - Currency, $ - String Пример: Dim Name$, Money@, A%, B&, C!, D# Например, ако реда декларира променлива, наречена Name$: Dim Name$ Тогава може да напишем: Name$ = "Donna"

  13. Таблица: Суфикси за деклариране на тип

  14. 8.Tun данни Boolean(Булеви) Булевата променлива е променлива, която приема една от двете възможни стойности: True (истина) или False (неистина). Този изключително полезен тип данни беше неотдавна въведен във VBA. Преди това VBA разпознаваше 0 като False и всяка друга ненулева стойност като True, което може да видите в по-старите програми.

  15. Задачиза типове променливи: Sub Primer_String ‘Низ с произволна дължина Dim Ime As String, Prezime as String, _ Familia as String, Pole As String Const Zapis=”Пълно име: “ Ime=”Иван” : Prezime=”Стоянов”: Familia=”Христов” Pole = Zapis+Ime+” “+Prezime+” “+Familia” ‘ Пълно име: Иван Стоянов Христов Pole = Zapis & Ime & ” “ & Prezime & ” “ & Familia ‘ Пълно име: Иван Стоянов Христов Msgbox Pole Debug.Print Pole End sub

  16. Sub Primer_String10 ‘Низ с фиксирана дължина Dim Ime As String*15 Dim Prezime as String*10 Dim Familia as String*15 Dim Pole As String*45 Const Zapis=”Пълно име: “ Ime=”Иван” : Prezime=”Стоянов”: Familia=”Христов” Pole = Zapis+Ime+” “+Prezime+” “+Familia ‘ Пълно име: Иван Стоянов Христов Pole = Zapis & Ime &” “& Prezime &” “& Familia ‘ Пълно име: Иван Стоянов Христов Msgbox Pole Debug.Print Pole End sub

  17. Sub PrimerNumber Dim Grupa as byte Dim InvNum as Integer Dim ColorRGBNum As Long Dim Ocenka As Single Dim Rdata As Date Grupa=2: InvNum=1234: ColorRGBNum=255: Ocenka=5.75: RData=#3/23/2010# Msgbox Grupa &” “& InvNum &” “& ColorRGBNum &” _ “& Ocenka &” “& RData RData= RData+4 Msgbox RData End Sub

  18. Sub KvU Dim a as integer, b as integer, c as integer Dim D as Single, x1 as Double, x2 as Double a = inputbox(“въведете коефициента а”) b = inputbox(“въведете коефициента b”) c = inputbox(“въведете коефициента c”) D=b*b-4*a*c X1=(-b+D^0.5)/(2*a) X2=(-b-D^0.5)/(2*a) Debug.Print D,x1,x2 Msgbox D,x1,x2 End Sub

  19. Sub KvUCells Dim a as integer, b as integer, c as integer Dim D as Single, x1 as Double, x2 as Double a= Selection.cells(1) b=Selection.cells(2) c= Selection.cells(3) D=b*b–4*a*c X1=(-b+D^0.5)/(2*a) X2=(-b–D^0.5)/(2*a) Debug.Print D,x1,x2 MsgBox "D= " & D & " x1= " & x1 & " x2= " & x2 End Sub

More Related