ចុចពីដងលើ Cell ទទួលបានសញ្ញាជ្រើសរើស

បើកកម្មវិធី Excel

រួចចុច Alt+F11 ដើម្បីបើក Visual Basic Editor

ចុចជ្រើសរើស Sheet ណាមួយដែលចង់ប្រើរូបមន្តនេះ រួច Copy កូដ ខាងក្រោមដូច ចូល





Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'******************************************************************************************
'* Copyright by Sekmeas.blogspot.com *
'******************************************************************************************
 
    If Not Intersect(Target, Range("A2:A300")) Is Nothing Then ' You can Change the range here
    
        Cancel = True
     
        With Target
            .Font.Name = "Wingdings"
            .Font.Size = 12
            .HorizontalAlignment = xlCenter
        End With
   
        If Target.Value = "þ" Then
            Target.Value = "ý"
         
        Else
            Target.Value = "þ"
        End If
 
    End If
 
End Sub

'Copy Right © Sekmeas.blogspot.com All Rights Reserved

គំរូ

Posted in: Excel,អត្ថបទ