ªð¦^¦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Õèµ²???

¦^´_ 1# t8899

¥´开两个µ¡®æ (Window Panes)¡A¤@个©T©w,  ¥t¥~¤@个¤W¤U²¾°Ê

TOP

¦^´_ 7# Hsieh
°£¤FHsiehª©¥D©Ò«ü¾Éªº±N"¦Û­qªí³æ»s§@¦¨¯B°Êªí³æ"(¸Õ¹L, ½T¹ê¥i¦æ)¥~,
¤W­zªº½s½X¤@ª½µLªk±Nµøµ¡ªº±²¶bIJµo(¹³¬Y¨Çºô­¶ªº¯B°Êª«¥ó)¤@¨Ö¥]§t¶i¥h...
½Ð°ª¤â­Ì¤£§[½ç±Ð, ÁÂÁÂ!!

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

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

TOP

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

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

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

³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

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

Book1.rar (15.5 KB)

TOP

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


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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD