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

[µo°Ý] ¸U¦~¾ä°ÝÃD

[µo°Ý] ¸U¦~¾ä°ÝÃD

S   M   T   W   T   F   S
        1   2    3   4   5   6
   7   8   9   10  11 12 13
  14 15 16  17  18 19 20
  21 22 23  24  25 26 27
  28 29 30  31


¤W­±¬O¸U¦~¾äªº¼Ë¤l

§Ú·Q°µ¨ì¥i¥H°O¨Æªº¥\¯à

¨Ò¦p»¡§Ú¦b1¤éªº¦a¤è°O¨Æ¡A´Nª½±µ¦b1¤éªº¤W­±ÂI¤@¤U¡A¥i¥H¥X²{¤@­Ó¯à¿é¤Jªº°T®§®Ø

¡A¿é¤J§¹¦¨«á¡A1¤é¨º¤Ñªº¼Ë¦¡·|ÅÜ(ÅÜÄYÃC¦â©Î¦rÅéÅܲÊ)¨ÓÅã¥Ü¨º¤Ñ¦³°O¨Æ±¡¡A¤U¦¸§Ú

ª½±µ¦b¤W­±ÂI¤@¤U¡A´N¥i¥HÅã¥Ü§Ú·í¤Ñ©Ò°Oªº¨Æ±¡ ¡A¦³ÂI¹³¬O¤â¾÷ªº¦æ¤é¾ä¥\¯à¡C



¤£ª¾¹DVBA¬O§_¯à¼g¥X¹³³o¼Ëªº¥\¯à??

½Ð·|ªº¤HÀ°§Ú¸Ñµª¤@¤U¦n¶Ü?

´£¨Ñ¤@­Ó´ú¸Õ¬Ý¬Ý~©ñ¦b sheet ¸Ì­±,¤£­n©ñ¦b¼Ò²Õ¸Ì..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim note As String

    If Not ActiveCell = Empty Then
        If Not ActiveCell.Comment Is Nothing Then
            note = InputBox("½Ð¿é¤J·í¤é°O¨Æ", , ActiveCell.Comment.Text)
        Else
            note = InputBox("½Ð¿é¤J·í¤é°O¨Æ")
        End If

        If note = Empty Then
            ActiveCell.ClearComments
            ActiveCell.Font.ColorIndex = 0
        Else
            On Error Resume Next
            ActiveCell.AddComment
            ActiveCell.Comment.Text Text:=note
            ActiveCell.Font.ColorIndex = 3
        End If
    End If
End Sub

TOP

ÁÙ¬O¥i¥H½Ð±z±H¤@­Ó½d¨Òµ¹§Ú¬Ý©O?


±z¦n! ½Ð°Ñ¦Òªþ¥ó.
sample.rar (7.69 KB)

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-9 15:51 ½s¿è

¦^´_ 4# jackdream


  ¤£¦n·N«ä¡A ¥i§_³Â·Ð±z±H¨ì§Ú«H½c¡A¦]¬°§ÚªºÅv­­ÁÙ¤£°÷¡AµLªk¨Ï¥ÎÀ˵øªþÀÉ
   ·PÁ±zªºÀ°¦£!!
½Ð¸Ô¾\ª©³W²Ä12±ø
http://forum.twbts.com/viewthrea ... amp;extra=page%3D1;

TOP

¦^´_ 1# shadowming


     ºë¬ü¤é¾ä¡A¨â¦Ê¦~
      ¶À­¸ÂE®a¶m¤Hªº§@«~§a?

ºë¬ü¤é历.rar (602.53 KB)

TOP

¦^´_ 5# chamonix

©êºp  µLªk¤U¸ü±z´£¨Ñªºµª®×
¯à§_³Â·Ð±H¨ì§ÚGOOGLE«H½c

TOP

¦^´_ 6# shadowming

Please write me [email protected] for this attachement

TOP

¦^´_ 6# shadowming


   Already sent the attachement  you wanted to your GMail box, and check it
Óå¬ð¬u¤W¬M©ú¤ë¡A¤Ó¦æ¤s¨¦ªï´Â阳

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD