¹¹¿·Æü¤ò¼«Æ°¤Ç¥»¥ë¤ËÆþÎϤ¹¤ë¥Þ¥¯¥í
Date:2008/02/28 00:48
¥¨¥¯¥»¥ë¤ÇʪÉʤδÉÍýɽ¤Ê¤É¤òºîÀ®¤·¤Æ¤¤¤ë¤È¤¡¢¤½¤ÎºÇ½ª¹¹¿·Æü¤òÆþÎϤ¹¤ë¤³¤È¤Ï¤è¤¯¤¢¤ê¤Þ¤¹¡£
¼êÆþÎϤ¹¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢¡ÖCTRL¥¡¼ ¡Ü ;¡×¤Çº£Æü¤ÎÆüÉÕ¤¬ÆþÎϤµ¤ì¤Þ¤¹¤¬¡¢¼êÆþÎϤÀ¤È¤É¤¦¤·¤Æ¤â¹¹¿·¤ò˺¤ì¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£
¤¦¤Ã¤«¤ê˺¤ì¤òËɤ°¤¿¤á¡¢¥·¡¼¥È¤Ç²¿¤«¤ò¹¹¿·¤·¤¿¤éº£Æü¤ÎÆüÉÕ¤¬¤¢¤ë¥»¥ë¤ËÆþÎϤµ¤ì¤ë¥Þ¥¯¥í¤òÀßÄꤷ¤Æ¤ª¤¯¤ÈÊØÍø¤Ç¤¹¡£
¼êÆþÎϤ¹¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢¡ÖCTRL¥¡¼ ¡Ü ;¡×¤Çº£Æü¤ÎÆüÉÕ¤¬ÆþÎϤµ¤ì¤Þ¤¹¤¬¡¢¼êÆþÎϤÀ¤È¤É¤¦¤·¤Æ¤â¹¹¿·¤ò˺¤ì¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£
¤¦¤Ã¤«¤ê˺¤ì¤òËɤ°¤¿¤á¡¢¥·¡¼¥È¤Ç²¿¤«¤ò¹¹¿·¤·¤¿¤éº£Æü¤ÎÆüÉÕ¤¬¤¢¤ë¥»¥ë¤ËÆþÎϤµ¤ì¤ë¥Þ¥¯¥í¤òÀßÄꤷ¤Æ¤ª¤¯¤ÈÊØÍø¤Ç¤¹¡£
¢£¥Þ¥¯¥í¡Ä¹¹¿·Æü¤òA1¥»¥ë¤Ë¼«Æ°¤ÇÆþÎϤ·¤Þ¤¹
¢£¥Þ¥¯¥í¤ÎÀßÄêÊýË¡
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Exit Sub
Range("B1").Value = Date
End Sub
¢£¥Þ¥¯¥í¤ÎÀßÄêÊýË¡
- ¥·¡¼¥È¤Î¥¿¥Ö¡ÊSheet1¤Ê¤É¡Ë¤ò±¦¥¯¥ê¥Ã¥¯¤·¤Æ¡Ö¥³¡¼¥É¤Îɽ¼¨¡×¤ò¥¯¥ê¥Ã¥¯
- VBE¤¬µ¯Æ°¤¹¤ë¤Î¤Ç¡¢¾åµ¥Þ¥¯¥í¤òޤêÉÕ¤±¡¢Êݸ¤·¤Þ¤¹
¥Æ¡¼¥Þ:¥½¥Õ¥È¥¦¥§¥¢ - ¥¸¥ã¥ó¥ë:¥³¥ó¥Ô¥å¡¼¥¿
¤³¤Îµ»ö¤ËÂФ¹¤ë¥³¥á¥ó¥È¤ÎÅê¹Æ
¤³¤Îµ»ö¤ËÂФ¹¤ë¥È¥é¥Ã¥¯¥Ð¥Ã¥¯
- ¥È¥é¥Ã¥¯¥Ð¥Ã¥¯URL
- http://komitsudo.blog70.fc2.com/tb.php/74-2644b419
- ¤³¤Îµ»ö¤Ë¥È¥é¥Ã¥¯¥Ð¥Ã¥¯¤¹¤ë(FC2¥Ö¥í¥°¥æ¡¼¥¶¡¼)





¤³¤Îµ»ö¤ËÂФ¹¤ë¥³¥á¥ó¥È