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

[µo°Ý] ½Ð±Ð¦p¦ó³]©wÀx¦s®æªº¹w³]­È?

[µo°Ý] ½Ð±Ð¦p¦ó³]©wÀx¦s®æªº¹w³]­È?

³Ìªñ¤p§Ì¤S¸I¨ì¤F¤@­Ó°ÝÃD
·Q°»´ú¦bA1:A200ªºÄæ¦ì¤¤¿é¤J¸ê®Æ«á¡A­Y¹j¾ÀÄæ¦ìB1¬°ªÅ­È«h¦Û°Ê½Æ»sA1
¤Ï¤§B1<>""´N¤£½Æ»sA1ªº­È
·Q½Ð±Ð¬O§_¥i¸Ñ?

¥Ø«e¦³»s§@¥X¦b½d³ò¤ºÂùÀ»¥i¶ñ¤J¸ÓÄæ¦ì­È ¦p¤U
  1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
  2.         Cancel As Boolean)
  3.     Dim icbc As Object
  4.     For Each icbc In Application.CommandBars("cell").Controls
  5.         If icbc.Tag = "brccm" Then icbc.Delete

  6.     Next icbc
  7.     If Not Application.Intersect(Target, Range("M1:N200")) _
  8.         Is Nothing Then
  9.             With Application.CommandBars("cell").Controls _
  10.                 .Add(Type:=msoControlButton, before:=6, _
  11.                 temporary:=True)
  12.             If ActiveCell = "" Then
  13.            ActiveCell.FormulaR1C1 = "Y"
  14.            Else
  15.            ActiveCell.ClearContents
  16.            End If
  17.         End With
  18.     End If
  19. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD