0
១ ឈរលើ Sheet ណាមួយ
២ ចុច Alt + F11 ដើម្បីចូលទៅកាន់ VBA
៣ ក្រលែកមើលខាងឆ្វេងរកមើល VBAProject
៤ ជ្រើសរើស Sheet ដែលត្រូវគណនាដោយចុចពីរដងលើវា
៥ ត្រង់ General ជ្រើសរើស  Worksheet
៦ ត្រង់កន្លែង SelectionChange ជ្រើសរើស Change
៧ សរសេរកូដដូចខាងក្រោមៈ
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim i As Integer
For i = 12 To 32
    Range("B" & i).Formula = "=VLOOKUP(C" & i & ",Office!$B$2:$E$115,4,FALSE)"
Next i
Application.EnableEvents = True
End Sub
បញ្ជាក់៖
- B គឺជាជួរឈរ និង i ជាជួរដេកទទួលតំលៃលេខពីរង្វិល។ តាមរយៈកូដខាងលើចង់បញ្ជាក់ថា គណនារូបមន្ដ Vlookup ពីជួរដេកទី១២ ដល់៣២ នៃជួរឈរ B
- ត្រង់កន្លែងរូបមន្ដ យកល្អ Copy ពី Worksheet ដែលបានគណនាស្រាប់

Post a Comment

 
Top