¹¹¿·Æü¤ò¼«Æ°¤Ç¥»¥ë¤ËÆþÎϤ¹¤ë¥Þ¥¯¥í

¥¨¥¯¥»¥ë¤ÇʪÉʤδÉÍýɽ¤Ê¤É¤òºîÀ®¤·¤Æ¤¤¤ë¤È¤­¡¢¤½¤ÎºÇ½ª¹¹¿·Æü¤òÆþÎϤ¹¤ë¤³¤È¤Ï¤è¤¯¤¢¤ê¤Þ¤¹¡£

¼êÆþÎϤ¹¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢¡ÖCTRL¥­¡¼ ¡Ü ;¡×¤Çº£Æü¤ÎÆüÉÕ¤¬ÆþÎϤµ¤ì¤Þ¤¹¤¬¡¢¼êÆþÎϤÀ¤È¤É¤¦¤·¤Æ¤â¹¹¿·¤ò˺¤ì¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£
¤¦¤Ã¤«¤ê˺¤ì¤òËɤ°¤¿¤á¡¢¥·¡¼¥È¤Ç²¿¤«¤ò¹¹¿·¤·¤¿¤éº£Æü¤ÎÆüÉÕ¤¬¤¢¤ë¥»¥ë¤ËÆþÎϤµ¤ì¤ë¥Þ¥¯¥í¤òÀßÄꤷ¤Æ¤ª¤¯¤ÈÊØÍø¤Ç¤¹¡£


¢£¥Þ¥¯¥í¡Ä¹¹¿·Æü¤òA1¥»¥ë¤Ë¼«Æ°¤ÇÆþÎϤ·¤Þ¤¹
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Exit Sub
Range("B1").Value = Date
End Sub

¢£¥Þ¥¯¥í¤ÎÀßÄêÊýË¡
  1. ¥·¡¼¥È¤Î¥¿¥Ö¡ÊSheet1¤Ê¤É¡Ë¤ò±¦¥¯¥ê¥Ã¥¯¤·¤Æ¡Ö¥³¡¼¥É¤Îɽ¼¨¡×¤ò¥¯¥ê¥Ã¥¯
  2. VBE¤¬µ¯Æ°¤¹¤ë¤Î¤Ç¡¢¾åµ­¥Þ¥¯¥í¤òޤêÉÕ¤±¡¢Êݸ¤·¤Þ¤¹
°Ê¾å¤ÎÀßÄê¤ò¤¹¤ì¤Ð¡¢¤½¤Î¥·¡¼¥È¤Ë²¿¤«¤ÎÊѹ¹¤ò²Ã¤¨¤¿¾ì¹ç¡¢B1¥»¥ë¤Ëº£Æü¤ÎÆüÉÕ¤¬ÆþÎϤµ¤ì¤Þ¤¹¡£

¥Æ¡¼¥Þ:¥½¥Õ¥È¥¦¥§¥¢ - ¥¸¥ã¥ó¥ë:¥³¥ó¥Ô¥å¡¼¥¿


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

¤³¤Îµ­»ö¤ËÂФ¹¤ë¥³¥á¥ó¥È¤ÎÅê¹Æ



´ÉÍý¼Ô¤Ë¤À¤±É½¼¨¤òµö²Ä¤¹¤ë

¤³¤Îµ­»ö¤ËÂФ¹¤ë¥È¥é¥Ã¥¯¥Ð¥Ã¥¯

¥È¥é¥Ã¥¯¥Ð¥Ã¥¯URL
http://komitsudo.blog70.fc2.com/tb.php/74-2644b419
¤³¤Îµ­»ö¤Ë¥È¥é¥Ã¥¯¥Ð¥Ã¥¯¤¹¤ë(FC2¥Ö¥í¥°¥æ¡¼¥¶¡¼)