£±£²·î£±£´Æü¤ËÊݸ¤·¤¿¥Ö¥Ã¥¯¤ò³«¤¤Þ¤¹¡£
¡Úưºî¤Îµ½Ò¤ò¤¹¤ë¡Û
Visual Basic Editor¤ò³«¤¤¤Æ ¡Ìsheet1¡Í¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤·
¥ª¥Ö¥¸¥§¥¯¥È¤Îɽ¼¨ÏȤè¤ê¡ÌGeneral¡Í¤ò ¡ÌWorksheet¡Í¤ËÊѹ¹¤·¤Þ¤¹
¥×¥í¥·¥¸¥ã¡¼¤Î ¡ÌBeforedoubleclick¡Í¤òÁªÂò¤·¤Þ¤¹
¤³¤³¤Ë
Const r1 As Integer = 3
Const c1 As Integer = 3
Const r2 As Integer = 12
Const c2 As Integer = 12
Dim flg As String
flg = "ok"
If Target.Row < r1 Or Target.Row > r2 Or Target.Column < c1 Or Target.Column > c2 Then
flg = "no"
ElseIf Target.Row = Target.Colmn Then
flg = "no"
Else
flg = "ok"
End If
If flg = "ok" Then
Sheet1.Unprotect
Target.Locked = False
Sheet1 Cells(Target.Column, Target.Row).Locked = False
If Target.Value = "" Then
Target.Value = "¡û"
Sheet1.Cells(Target.Column, Target.Row).Value = "¡ß"
ElseIf Target.Value = "¡û" Then
Target.Value = "¡ß"
Sheet1.Cells(Target.Column, Target.Row).Value = "¡û"
ElseIf Target.Value = "¡ß" Then
Target.Value = ""
Sheet1.Cells(Target.Column.Target.Row).Value = ""
End If
Cancel = True
Target.Locked = True
Sheet1.Cells(Target.Column, Target.Row).Locked = True
Sheet1.Protect
End If
¤ÈÆþÎϤ·¤Þ¤¹
Êݸ¤·¤Þ¤¹
¡Ú̾Á°¤òÆþÎϤ·¤Æµ½Ò¤¹¤ë¡Û
¥»¥ë¤ËÌá¤Ã¤Æ ¡ÌR3C2¡Í¤«¤é ¡ÌR12c2¡Í¤Þ¤Ç̾Á°¤òÆþÎϤ·¤Þ¤¹
¡ÌR2C3¡Í¤Ë= ¡ÌR[1]C[-1]¡Í¤ÈÆþÎϤ·Æ±¤¸¤è¤¦¤Ë ¡ÌR2C12¡Í¤Þ¤ÇÆþÎϤ·¤Þ¤¹
¥Ä¡¼¥ë¥Ð¡¼¤Î¡Ì¥Ä¡¼¥ë¡Í¢ª¡ÌÊݸî¡Í¢ª¡Ì¥·¡¼¥È¤ÎÊݸî¡Í¤òÁªÂò¤·¤Þ¤¹
ÁªÂò²èÌ̤¬É½¼¨¤µ¤ì¤¿¤é¡Ì£Ï£Ë¡Í¥Ü¥¿¥ó¤ò²¡¤·¤Þ¤¹
¡ÌR4C3¡Í¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤¹¤ë¤Èɽ¼¨¤µ¤ì¤Þ¤·¤¿
¤µ¤é¤Ë¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤¹¤ë¤Èɽ¼¨¤¬¾Ã¤¨¤Þ¤·¤¿
¥»¥ë¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤¹¤ë¤¿¤Ó¤Ëɽ¼¨¾õÂÖ¤¬ÊѤï¤ê¤Þ¤¹
¤Ê¤ª¤Î£Å£ø£ã£å£ì¶µ¼¼¤è¤ê
|