ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excel VBS ³]¦¨¦@¥Î¬¡­¶Ã¯¥\¯à

[µo°Ý] Excel VBS ³]¦¨¦@¥Î¬¡­¶Ã¯¥\¯à

¤U¤è»yªk¡A¬OÅýÄæ¦ì¿é¤J­^¤å¦r¥À³£·|Åã¥Ü¤j¼g¡A¦ý°ÝÃD§Ú§âExcel³]¦¨¡u¦@¥Î¬¡­¶Ã¯¡v¥\¯à«á¡A¦p¤U»yªk´N·|®ø¥¢¡A¨º¦³¨ä¥L¿ìªk§JªA¶Ü¡H

Private Sub Worksheet_Change(ByVal Target As Range)
        If Intersect([A1:A2000,K1:K2000], Target) Is Nothing Then Exit Sub
        'if target.count > 1 then exit sub  '·í range ¤¤ªº¼Æ¶q¦h©ó1­Ó®ÉÂ÷¶}
        Application.EnableEvents = False
        'Target = UCase(Target)  '­×§ï1­ÓÄæ¦ì®É¾A¥Î
        '­×§ï¦h­ÓÄæ¦ì®É¡A»Ý§ï¦¨³o¼Ë
        for each c in target.cells
                c.value = ucase(c.value)
        next
        Application.EnableEvents = True
End Sub

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD