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

[µo°Ý] ¦p¦ó§âPÄæ¨ìRÄæµ¹©T©w¦í¡A©¹¤U²¾°Ê®É¥u¦³AÄæ¨ìOÄæ¥i²¾°Ê

[µo°Ý] ¦p¦ó§âPÄæ¨ìRÄæµ¹©T©w¦í¡A©¹¤U²¾°Ê®É¥u¦³AÄæ¨ìOÄæ¥i²¾°Ê

¦p¦ó§âPÄæ¨ìRÄæµ¹©T©w¦í¡A©¹¤U²¾°Ê®É¥u¦³AÄæ¨ìOÄæ¥i²¾°Ê
Õèµ²µøµ¡¬O©¹¥k³QÕèµ²¡A©¹¤UµLªkÕèµ²???

¦p¦ó§âPÄæ¨ìRÄæµ¹©T©w¦í¡A©¹¤U²¾°Ê®É¥u¦³AÄæ¨ìOÄæ¥i²¾°Ê
Õèµ²µøµ¡¬O©¹¥k³QÕèµ²¡A©¹¤UµLªkÕèµ²???
t8899 µoªí©ó 2012-11-17 15:05

¥Øªº P1:R7 ¬O¤@±i¹Ï¤ù
©¹¤U²¾°Ê®É(¦C)¦p¦óÅý³o±i¹Ï¤ù¤£¸òµÛ²¾°Ê

TOP

¦^´_ 2# t8899
µøµ¡¤À³Î¶Ü?

    play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  t8899
µøµ¡¤À³Î¶Ü?
Hsieh µoªí©ó 2012-11-17 21:53


¦C1¨ì¦C7 ¤£¯àÕèµ²

TOP

³o¼Ë¥i¥H¶Ü
¬O§A»Ý­nªº¼Ë¤l¶Ü

Book1.rar (15.5 KB)

TOP

³o¼Ë¥i¥H¶Ü
¬O§A»Ý­nªº¼Ë¤l¶Ü
winint1 µoªí©ó 2012-11-18 23:53


©êºp¡A§Úµ¥¯Å¤£°÷µLªk¤U¸üªþ¥ó¡A¥i§_±H¨ì§Úªº«H½c?
[email protected]

TOP

¦^´_ 6# t8899


    ª«¥ó¥²¶·µ´¹ï¨Ìªþ©ó¤u§@ªí¤W
§Aªº»Ý¨D¬O­nÅýª«¥ó¦¨¬°¯B°Ê¡A³o¬O°µ¤£¨ìªº®ÄªG
°ß¦³§Q¥Î¦Û­qªí³æ¨Ó¦s©ñ³o¨Çª«¥ó
µM«á±N¦Û­qªí³æ»s§@¦¨¯B°Êªí³æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Ú¦³±HÀÉ®×µ¹±z
¤£ª¾¹D¬O¤£¬O±z»Ý­nªº¼Ë¤l

ps : §Ú¤]¬O¤p¾Ç¥Í¡A¤@°_¥[ªo³á ......

TOP

¸Õ¸Õ±N´å¼Ð°±©óP8---ÂI¿ï­áµ²µøµ¡

TOP

¥»©«³Ì«á¥Ñ Jevon ©ó 2013-1-27 17:54 ½s¿è

¦^´_ 1# t8899
³o¬O°Ñ¦Ò§O¤Hªº°µªk,
¨S¦³100%²Å¦X±zªº»Ý¨D,
½Ð¨ä¥L°ª¤â¸É±jÂP...

±N¤U¦Ccode©ñ¤J½s¿è¾¹ªº¤u§@ªí¤º
¦A±N±zªº¹Ï¤ù¦WºÙ³]©w¬°Pic1
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. Dim MyPic As Object
  3. Dim NewTop As Double
  4. Dim NewLeft As Double
  5. Dim TopRightCell As Range

  6. With ActiveWindow.VisibleRange
  7.     Set TopRightCell = .Cells(1, 16)
  8. End With

  9. Set MyPic = ActiveSheet.Shapes("Pic1")
  10. NewTop = TopRightCell.Top + MyPic.Height - 150
  11. NewLeft = TopRightCell.Left

  12. With MyPic
  13.     .Top = NewTop
  14.     .Left = NewLeft
  15. End With
  16. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD