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

½Ð°Ý¦p¦ó­×§ï³oVBAµ{¦¡Åã¥Ü¹Ï¤ùªºÄæ¦ì?

½Ð°Ý¦p¦ó­×§ï³oVBAµ{¦¡Åã¥Ü¹Ï¤ùªºÄæ¦ì?

½Ð°Ý¦p¦ó­×§ï³oVBAµ{¦¡Åã¥Ü¹Ï¤ùªºÄæ¦ì?

½Ð°Ý¦p¦ó±N³oFÄæ§ï¨ìLÄæ²£¥Í¹Ï¤ù©O?

Database.jpg
2019-5-13 14:04


ÀɮפU¸ü¡Ghttp://www.FunP.Net/690887

ÁÂÁ¦U¦ì¤j¤j§Ú¦Û¤v¸Õ¥X¨Ó¤F
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
     If .Count > 1 Then Exit Sub
     '--------------------------------------
     If .Address = "$B$1" Then
        Cancel = True
        Beep
        If MsgBox("¡°½T©w­n¸ü¤J¥þ³¡¹Ï¤ù¶Ü¡H", 4 + 32 + 1024) = vbNo Then Exit Sub
        Call ¸ü¤J¥þ³¡¹Ï¤ù: Exit Sub
     End If
     '-------------------------------------
     If .Column <> 2 Or .Row < 2 Or .Value = "" Then Exit Sub
     Cancel = True
     Set xRng = .Cells(1, 1)
     Set ShpRng = .Cells(1, 8)  ' ¦b³o¸Ì­×§ï Cell (1,N) Nªº¼Æ¦r´N¥i¥H§ï©ñÄ檺¦ì¸m
     Call ¹Ï¤ù§R°£_³æ±i
     If DelImgChk = 1 Then Exit Sub
     Call ´¡¤J¹Ï¤ù
     Beep
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD