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

[µo°Ý] ½Ð°Ý¡G¦p¦ó³]©w·íAÄ榳¸ê®Æ®É¡ABÄæ¤~¯à¿é¤J¸ê®Æ...

[µo°Ý] ½Ð°Ý¡G¦p¦ó³]©w·íAÄ榳¸ê®Æ®É¡ABÄæ¤~¯à¿é¤J¸ê®Æ...

AÄæ=©m¦W  BÄæ=¸ê®Æ
½Ð°Ý¦p¦ó³]©w·íAÄ榳¸ê®Æ®É¡ABÄæ¤~¯à¿é¤J¸ê®Æ¡A§_«h·|´£¥Ü"½Ð¥ý¿é¤J©m¦W"

¦^´_ 1# a_nanami
Sheetª«¥ó ªºµ{¦¡½X
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Application.EnableEvents = False
  3.     If Target(1).Row >= 2 And Target(1).Column = 2 Then
  4.         If Target(1) = "" Or IsNumeric(Target(1)) Then
  5.             MsgBox "½Ð¥ý¿é¤J©m¦W"
  6.             Target(1).Offset(, -1).Select
  7.         End If
  8.     End If
  9.     Application.EnableEvents = True
  10. End Sub
½Æ»s¥N½X

TOP

·PÁ¤j¤jªº«ü¾É^^

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD