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

½Ð±ÐÃö©ó¹Ï¤ùÅã¥Üªº»yªk¡H

½Ð±ÐÃö©ó¹Ï¤ùÅã¥Üªº»yªk¡H

½Ð±Ð¦U¦ì¥ý¶i¡A­Y§Ú­n¦bEXCEL¼g¤@­ÓªF¦è¡A¬O·í¨Ï¥ÎªÌ§â·Æ¹«·Æ¹L¬Y­Ó°Ï°ì®É¡A®ÇÃä´N·|¦³±i¹Ï¥X²{¡CÀ³¸Ó­n¦p¦ó¼g©O¡H

¨Ï¥Î»Ý¨D¬OÃþ¦ü»¡©ú®Ñªº¤å¦r¡A¦]¬°¤º®e«Ü¦h¡A¤£·QÅý¥¦¦ûª©­±¡A¬G¥u¦³·í¨Ï¥ÎªÌ·Q¬Ýªº®É­Ô¡A§â·Æ¹«²¾¨ì¬Y°Ï°ì¡A»¡©ú®Ñ·|¥X²{¡A²¾¶}·Æ¹«¤§«á¡A»¡©ú®Ñ´N¤£¨£¤F¡C

·Ð½Ð¤£¥O½ç±Ð¡AÁÂÁ¡C

¦^´_ 1# tku0216
²¾°Ê·Æ¹«ÂI¿ï  Àx¦s®æ¤W ¦³¹Ï¤ùÀɮצWºÙ  ·|Åã¥Ü ¸ÓÀɮצWºÙªº¹Ï¤ù
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   '¸Ó¤u§@ªíªº¨Æ¥ó µ{§Ç
  2.     Dim xPath As String
  3.     On Error Resume Next
  4.     xPath = "d:\"                                       '­×§ï¬°¹Ï¤ùÀÉ ªº¸ô®|¸ê®Æ§¨
  5.     [xlTarget].ClearComments
  6.     If Target(1) = "" Then Exit Sub
  7.     If Dir(xPath & Target) = "" Then Exit Sub
  8.     Target.Name = "xlTarget"
  9.     [xlTarget].NoteText " "
  10.     With Target.Comment.Shape           'Àx¦s®æµù¸Ñ¤å¦r¹Ï®×
  11.         .TextFrame.Characters.Font.ColorIndex = 1
  12.         .TextFrame.Characters.Font.Size = 14
  13.         .Fill.ForeColor.SchemeColor = 13
  14.         .AutoShapeType = msoShapeRectangle
  15.         .Line.ForeColor.SchemeColor = 53
  16.         .Line.Weight = 2
  17.         .Fill.UserPicture xPath & Target
  18.         .ScaleWidth 4, 0
  19.         .ScaleHeight 3, 0
  20.         .Visible = True
  21.     End With
  22. End Sub
½Æ»s¥N½X
¦p¹Ï
   

TOP

¦hÁª©¥D¤À¨É¡A¤S¦h¾Ç¨ì¤F¤@©Û

TOP

¦^´_ 2# GBKEE


    G¤j¤j³o©Û«Ü¼F®`­ò~
   ­Y¥i¥H¦h¤@­Ó¥\¯à·|§ó¦n~
   ´N¬O±N¹Ï¤ù¦WºÙ.®æ¦¡¥ý¦æ§ì¨ú¨ìEXCEL¤¤~
   §â¸ô³wÅܦ¨¯B°Êªº~
   ³o¼Ë·|§óÆg~
   ¥i±N¤£¦P¸ê®Æ§¨ªº¹Ï¤ù·j¶°°_¨Ó~
   ³o¼Ë¥H«á­n§ä¹Ï¤ù·|§ó§Öª¾¹D¦b­þ¤@­Ó¦ì¸m
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 4# hugh0620


    ¥i¥HÁ|¨Ò¶Ü?¦³½d¨Ò·|¤ñ¸û¦n¾Ç....
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 5# softsadwind
²¾°Ê·Æ¹«ÂI¿ï  Àx¦s®æ¤W ¦³¹Ï¤ùÀɮצWºÙ  ·|Åã¥Üµù¸Ñ­I´º¹Ï®×¬°¸ÓÀɮצWºÙªº¹Ï¤ù
Àx¦s®æ ªº¸ê®Æ¬°¤@§¹¾ãªº¸ô®|ÀɮצWºÙ(¹Ï¤ùÀÉ)
  1. Option Explicit
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   '¸Ó¤u§@ªíªº¨Æ¥ó µ{§Ç
  3.     Dim xPath As String
  4.     On Error Resume Next
  5.     [xlTarget].ClearComments                            '²M°£ ¤u§@ªí½d³ò xlTarget µù¸Ñ
  6.     On Error GoTo 0
  7.     If Target(1) = "" Then Exit Sub
  8.     xPath = Dir(Target(1))                              '¬d¸ß Àx¦s®æ¸ê®Æ¬O§_¶Ç¦^¤@ÀÉ®×
  9.     If xPath <> "" Then
  10.         xPath = Target(1)
  11.     Else
  12.         xPath = "http://forum.twbts.com/templates/discuz6/images/logo.gif"  
  13.     End If
  14.     Target.Name = "xlTarget"
  15.     [xlTarget].NoteText " "
  16.     With Target.Comment.Shape                           'Àx¦s®æµù¸Ñ¤å¦r¹Ï®×
  17.         .AutoShapeType = msoShapeRectangle
  18.         .Line.ForeColor.SchemeColor = 53
  19.         .Line.Weight = 2
  20.         .Fill.UserPicture xPath                         'µù¸Ñ¹Ï®× ¸ü¤J¹Ï¤ù
  21.         .Width = Target(1, 2).Resize(, 5).Width         'µù¸Ñ¹Ï®× ¼e«×
  22.         .Height = Target(1, 2).Resize(10).Height        'µù¸Ñ¹Ï®× °ª«×
  23.         .Visible = True
  24.     End With
  25. End Sub
½Æ»s¥N½X

TOP

§Ú¨S¾Ç¹LExcelµ{¦¡¤£¹L¬Ý°_¨Ó«Ü¦n¥Î¡A½Ð°Ý¬O±q­þ
¶}±Òµ{¦¡°Ï¡A§Ú¤]·Q¾Ç
sky

TOP

¦^´_ 6# GBKEE

¬Ý¤F«Ü¤[,ÁÙ¬O·d¤£²M·¡¼gªk
¦ý¬O ¦Ü¤Ö·|¥Î¤F....:p
¥Î¨ÓÀËÅç­Ë¬O«Ü¤£¿ù....
¤£¦n·N«ä ³o»ò±ß¤~¦^´_ ³Ìªñ´X¤Ñ¤ñ¸û¦£...
   
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦pªG§Ú·Q­n¦b¨C¤@­ÓSheet¤¤ªºAÄæ¬Ò¦³¦¹¥\¯à¡A°£¤F¨C¤@SHEET¬Ò¶K¤W¦P¤@µ{¦¡½X¥~¡AÁÙ¦³¨ä¥¦¤èªk¶Ü¡H
°¸¦Ó¾Ç²ß

TOP

¦^´_ 9# roy1221

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD