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

[µo°Ý] Ãö©óWorksheet_SelectionChange¦p¦ó°£¿ù¡H

[µo°Ý] Ãö©óWorksheet_SelectionChange¦p¦ó°£¿ù¡H

  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Dim rngE As Range
  3.     end1 = [A65536].End(xlUp).Row
  4.     Set rngE = [E1].Resize(end1, 1)
  5.     If Not Intersect(Target, rngE) Is Nothing Then
  6.         If Target = "v" Then
  7.             Target = ""
  8.         Else
  9.             Target = "v"
  10.         End If
  11.     End If
  12. End Sub
½Æ»s¥N½X
·Æ¹«·íÂI¤@¤UE1«hE1·|¦Û°Ê¥´¤Ä
¦ý¬O·í·Æ¹««ö¦íE1©¹¤U©Ô¨ìE2«h·|¥X²{¿ù»~
¬O§_¯à°£¿ù?
¦pªG¯uªº¤£¦æ~¬O§_¥i¥HÅý¥L¤£­n¸õ¥X¿ù»~¡H
¦A¦¸·PÁ¦U¦ì¤j¤j¡I

¦n¹³¬O¦]¬°³]©w¬°«D°}¦C¡A©Ò¥H·|¥X²{¿ù»~
¥i¥H¥ý¥[¤WOn Error Resume Next À³¸Ó¥i¥H¶¶§Q°õ¦æ
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. On Error Resume Next
  3.     Dim rngE As Range
  4.     end1 = [A65536].End(xlUp).Row
  5.     Set rngE = [E1].Resize(end1, 1)
  6.     If Not Intersect(Target, rngE) Is Nothing Then
  7.         If Target = "v" Then
  8.             Target = ""
  9.         Else
  10.             Target = "v"
  11.         End If
  12.     End If
  13. End Sub
½Æ»s¥N½X
°Ê©À¦¨¦]¿n¦]¦¨ªG by huijuang

TOP

¦^´_ 1# av8d


    ¦bif not ¨º±Æ¦rªº¤W¤@¦æ¿é¤J¡yon error resume next¡z¡A¥i¥H©I²¤¿ù»~¡A
    ¥i¬O§A¥X²{v«á¡A¦A©¹¤U©Ô¡Av¤S³£¤£¨£¤F­C¡A¥i¥H½Ð°Ý§A³o³]­pªº¥Øªº¶Ü¡H

TOP

¦^´_ 1# av8d
°£«D¬O¤£¥i¹w´Áªº¿ù»~¡AºÉ¶qÁקK¨Ï¥ÎOn Error Resume Next
À³°w¹ï¿ù»~ÂI­×¥¿
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Dim rngE As Range
  3.     end1 = [A65536].End(xlUp).Row
  4.     Set rngE = [E1].Resize(end1, 1)
  5.     If Not Intersect(Target, rngE) Is Nothing Then
  6.         If Target(1) = "v" Then
  7.             Target(1) = ""
  8.         Else
  9.             Target(1) = "v"
  10.         End If
  11.     End If
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-3-14 16:34 ½s¿è

¦^´_ 4# Hsieh


    ÁÂÁÂH¤jªº­×¥¿~¤]ÁÂÁ¨ä¥L¤j¤jªºÀ°¦£~
Åý§Ú¦P®É¾Ç²ß¤F¨â¼Ë¼gªk

§Ú·Q½Ð°Ý¬O§_¦³¿ìªk
·í·Æ¹««ö¦íE1©¹¤U©Ô¨ìE2ªº®É­Ô
E1¡BE2¦P®É³Q¥´¤Ä©O¡H¦A¦¸·PÁ¡I

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD