អំពី VBA (តចប់)

៤-Cells របស់Worksheet

-ការចូលទៅកាន់cell

Sub Exercise()

    ‘refer to cell D6

    Workbooks.Item(1).Worksheets.Item("Sheet1").Range("D6")

End Sub

Sub Exercise()

    ‘refer from cell B2 to H6

    Range("B2:H6")

End Sub

Sub Exercise()

    ‘refer from cell D2 to B5 and from F8 to I14

    Range("D2:B5, F8:I14")

End Sub

-ការជ្រើសរើសcell

Sub Exercise()

​​​           'select cell D6

    Range("D6").Select

End Sub

Sub Exercise()

    ‘select from cell D2 to B5 and from F18 to I14

    Range("D2:B5, F8:I14").Select

End Sub

Sub Exercise()

    ‘select all cells

    Rows.Select

End Sub

-ការបោះតំលៃទៅអោយ cell

Private Sub CommandButton1_Click()

Sheet1.Cells(1, 1) = "Dara" 

‘ រឺ

Sheet1.Range("D1") = "Channa"

End Sub

IV-Form និង controls ដទៃទៀត

Form ជាcontrol សំខាន់មួយដែលផ្តល់លទ្ធភាពអោយអ្នកប្រើប្រាស់ធ្វើការបញ្ចូល លុប កែ រឺមើលទិន្នន័យបានងាយស្រួល។

-ការបង្កើត From:

១.ចុចលើ developer tab រួចុចលើ Visal basic

២.បន្ទាប់ពីកម្មវិធីធ្វើការបើកផ្ទាំង Visual Basic Editor រួចមក សូមចុចលើ

នៅខាងឆ្វេង គឺវាផ្ទាំងcontrols ដែលអាចទាញយកមកដាក់លើ From នៅផ្នែកខាងស្តាំ។
ខាងក្រោមជាតារានៃ controls សំខាន់ៗមួយចំនួនដែលគេប្រើជាញឹកញាប់

៦-ការប្រើប្រាស់ឃ្លាលក្ខខ័ណ្ឌ(conditional statements)

        If លក្ខខ័ណ្ឌត្រូវត្រួតពិនិត្យ Then អ្វីដែលត្រូវធ្វើ

               ឧទាហរណ័ៈ

Sub Exercise()

    Dim IsMarried As Boolean

    Dim TaxRate As Double

    TaxRate = 33.0

    MsgBox("Tax Rate: " & TaxRate & "%")

    IsMarried = True

    If IsMarried = True Then TaxRate = 30.65

    MsgBox("Tax Rate: " & TaxRate & "%")

End Sub

ប្រសិនបើ អ្វីដែលត្រូវធ្វើមានច្រើន គេត្រូវប្រើរូបមន្តដូចខាងក្រោម៖

If លក្ខខ័ណ្ឌត្រូវត្រួតពិនិត្យ Then

   អ្វីដែលត្រូវធ្វើ

​​​​​      អ្វីដែលត្រូវធ្វើ

     អ្វីដែលត្រូវធ្វើ

End If

ឧទាហរណ៍ៈ

Sub Exercise()

    Dim IsMarried As Boolean

    Dim TaxRate As Double

    TaxRate = 33#

    MsgBox ("Tax Rate: " & TaxRate & "%")

    IsMarried = True

   

    If IsMarried = True Then

        TaxRate = 30.65

        MsgBox ("Tax Rate: " & TaxRate & "%")

    End If

End Sub

V-Procedures

          Procedure គឺជាប្លុកនៃកូដដែលគេសរសេរដើម្បីបំពេញកិច្ចការ។ គេអាចទាញយក procedure មកប្រើប្រាស់បានទៅតាមតំរូវការ។

          រូបមន្តបង្កើត procedure:

Sub ProcedureName()

statement

End Sub

ឧទាហរណ៍ៈ

Sub CreateCustomer()

    Dim strFullName As String

    strFullName = "Khorn Channa"

End Sub

ដើម្បីហៅ procedure មកប្រើប្រាស់ គេត្រូវសរសេរៈ

Sub Exercise()

    CreateCustomer

End Sub

រឺ

Sub Exercise()

    Call CreateCustomer

End Sub

  

VI-Functions

          Function ត្រូវបានបង្កើតក្នុងគោលបំណងដូច procedure ដែរ។ វាគ្រាន់តែខុសគ្នាត្រង់ function អាច

បោះចេញនូវលទ្ធផល(return a value) តែ procedure មិនអាច(cant return a value)។

          រូបមន្តបង្កើតfunction:

AccessModifier Function FunctionName() As DataType

   

End Function

ជាទូទៅ AccessModifier អាចជា Private រឺ Public។ បើគេមិនដាក់AccessModifier កម្មវិធីនឹងយក private ដែលបញ្ជាក់ថា function អាចហៅយកមកប្រើបានតែក្នុង module ដែលប្រកាសវាប៉ុណ្ណោះ។

ឧទាហរណ៍ៈ

Function CallMe() As String

    Dim Salute As String

    Salute = "You can call me Al"

​​​          CallMe=Salute

End Function

ដើម្បីហៅវាមកប្រើ គេសរសេរដូចខាងក្រោមៈ

Sub Exercise()

    CallMe

End Sub

VII-Argument របស់ Procedure និង Function

          Procedure និង function ដែលបានបង្កើតខាងលើពុំមានប្រើប្រាស់ argument  ទេ។ argument ជាតំលៃដែលត្រូវបោះទៅអោយ procedure រឺ function។

          រូបមន្តៈ

Sub ProcedureName(rgument)

     

End Sub

Function FunctionName(Argument) As DataType

     

Function Sub

ឧទាហរណ៍ៈ

Function GetFullName(FirstName As String, LastName As String)

      Dim fullname as string

      fullname=FirstName & LastName

      GetFullName=fullname

End Sub

ឧទាហរណ៍ពីហៅ function ខាងលើៈ

Sub Exercise()

    Dim FirstName As String, LastName As String

    Dim FullName As String

    FirstName = "Dara "

    LastName = "Yuk"

    FullName = GetFullName(FirstName, LastName)

   

    ActiveCell.FormulaR1C1 = FullName

End Sub

ចំពោះការហៅ procedure ក៏ដូចគ្នានេះដែរ ពោលគឺតំលៃរបស់ argument ត្រូវបោះទៅអោយ procedure

ដូចគ្នា។

Posted in: Excel 2007,VBA