Thursday, January 19, 2012

អំពី 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(ArgumentAs 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
ដូចគ្នា។

0 បញ្ចេញមតិ:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More