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

Emoticon
:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Click to see the code!
To insert emoticon you must added at least one space before the code.

 
Top