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

[µo°Ý] ½Ð°Ýµù¸Ñªº¦r¥i¥HÅܰʶÜ

§Ú¥u·|¥Îµù¸Ñªº¤è¦¡...¸Õ¸Õ.
E8Äæ¦ì¥²¶·¥ý¦³µù¸Ñ
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   
  3.   With Sheets("¤u§@ªí1")
  4.     If Target.Row = 12 And Target.Column = 5 Then
  5.       If .Cells(8, 5) <> "" Then
  6.         Dim str As String
  7.         str = "¦¹¼Æ¦r¤ñe12ªº­È¤j" & .Cells(8, 5) - .Cells(12, 5)
  8.         .Range("e8").Comment.Text Text:=str
  9.       End If
  10.     End If
  11.   End With
  12.   
  13. End Sub
½Æ»s¥N½X
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD