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

[¤À¨É] (¤w¸Ñ¨M,·PÁª©¥Dªº«ü¾É)½Ð°Ý¦³Ãö©óµù¸Ñ©ñ¤j¹Ï¤ù°ÝÃD

[¤À¨É] (¤w¸Ñ¨M,·PÁª©¥Dªº«ü¾É)½Ð°Ý¦³Ãö©óµù¸Ñ©ñ¤j¹Ï¤ù°ÝÃD

¥»©«³Ì«á¥Ñ cmo140497 ©ó 2012-2-20 17:34 ½s¿è

Dear ¦U¦ì¥ý«ô :
¤p§Ìª¦¤åµo²{¤£¥Î¥¨¶°¼gµù¸Ñ©ñ¤j¹Ï¤ùªº½d¨Ò,³o¬O«ç»ò°µ¨ìªº?

[attach]9665[/attach]

http://forum.twbts.com/viewthread.php?tid=5738




­ì¨Ó¬Oµù¸Ñ®æ¦¡,¤ï¶Õ,¥¼ª¦¤å§Y¶Ãµo¤å,¦pªG­n¾a¥¨¶°ªº¸Ü,½Ð°Ý¦U¦ì«e½ú,­n¦p¦ó«ü©wAÄæ¦ìªº©Ò¦³¹Ï¤ù¦Û°Ê¥[¤J¦³AÄæ¦ì¹Ï¤ùªºµù¸Ñ(¦³©ñ¤jªº®ÄªG)?ÁÂÁÂ!

¦Û°Ê¤J¥[µù¸Ñ´¡¤J¹Ï¤ù©ñ¤j.rar (25.24 KB)

¦^´_ 1# cmo140497
°Ñ¦Ò³o½g

    http://chijanzen.net/wp/?p=289
¦Û°Ê¤J¥[µù¸Ñ´¡¤J¹Ï¤ù©ñ¤j.rar (51.32 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# cmo140497
¤u§@ªí1 ªº¨Æ¥óµ{¦¡½X
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Dim Msg As Boolean, xlP  As Shape
  3.     On Error Resume Next
  4.     Pictures("COPY").Delete
  5.     For Each xlP In Me.Shapes
  6.         If xlP.TopLeftCell.Address = Target.Address Then
  7.             Msg = True
  8.             Exit For
  9.         End If
  10.     Next
  11.     If Msg = False Then Exit Sub
  12.     Selection.Copy
  13.     With ActiveSheet.Pictures.Paste
  14.         .Select
  15.         .Name = "Copy"
  16.         .Formula = Target.Address
  17.         .Top = Target.Offset(1, 2).Top
  18.         .Left = Target.Offset(, 2).Left
  19.         .Height = Target.Height * 5
  20.         .Width = Target.Height * 5
  21.         .ShapeRange.Line.Visible = msoTrue
  22.         .ShapeRange.Line.ForeColor.SchemeColor = 64
  23.         .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
  24.     End With
  25.     Target.Select
  26. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# Hsieh


    ·PÁª©¥Dªº«ü¾É,³o­Óºô¯¸¥ý«e¤p§Ì¦³ªá®É¶¡,¤U¸ü¦UºØ½d¨Ò¨Ó°Ñ¦Ò,¨S·Q¨ì³o¼Ë¤]¥i¥H®³¨Ó¤Þ¥Î,¤£¹L¬Ý¤F¤§«á,¹ï¤p§Ì¹ê¦b¦³ÂI§xÃø,¤£¹L¤´·PÁª©¥Dªº«ü¾É,ÁÂÁÂ!

TOP

¦^´_ 3# GBKEE


    ·PÁª©¥Dªº«ü¾É,Àx¦s®æªº©ñ¤j®ÄªG¯uªº¤£¿ù,¤Q¤À·PÁÂ!

TOP

¦^´_ 3# GBKEE


    Dear ª©¥D :
¤£¦n·N«ä,¤S¹J¨ì¤@­Ó¤p°ÝÃD,¬°¦ó¤p§Ì§@¤FActiveSheet.Copy,¬°¤F¥¦¥ucopy¤Fsheet1¥i§@©ñ¤j§@¥Î¤@¦¸,¨ä¥¦sheet¨Ã¨S¦³¬Û¹ïµÛ§@copy,·PÁÂ!


GetSINF_test.rar (18.05 KB)

TOP

¦^´_ 5# cmo140497


    Dear GBª©¥D :
¦A½Ð±Ð¤@¤U,³o­Óµ{¦¡¥i§_§ï±¾¦bTHIS WORKBOOK¤W,¤p§Ì·QÅý¨C¤@SHEET³£¦³³o­Ó¥\¯à,¦Ó¤£¬O¥u¦³SHEET1,¤£¦n·N«ä,¦A³Â·Ð±z«ü¥¿¤@¤U¤F!
¤p§Ì¥ÎActiveSheet.Copy,¥¦¥u¬Ocopy²Ä¤@¦¸,«á­±´N¤£·|¤F,
GetSINF_test.rar (18.05 KB)

TOP

¦^´_ 7# cmo140497
ThisWorkbook¼Ò²Õªº¨Æ¥óµ{¦¡
  1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  2.     Dim Msg As Boolean, xlP  As Shape
  3.     On Error Resume Next
  4.     Sh.Pictures("COPY").Delete
  5.     For Each xlP In Sh.Shapes
  6.         If xlP.TopLeftCell.Address = Target.Address Then
  7.             Msg = True
  8.             Exit For
  9.         End If
  10.     Next
  11.     If Msg = False Then Exit Sub
  12.     Selection.Copy
  13.     With ActiveSheet.Pictures.Paste
  14.         .Select
  15.         .Name = "Copy"
  16.         .Formula = Target.Address
  17.         .Top = Target.Offset(1, 2).Top
  18.         .Left = Target.Offset(, 2).Left
  19.         .Height = Target.Height * 5
  20.         .Width = Target.Height * 5
  21.         .ShapeRange.Line.Visible = msoTrue
  22.         .ShapeRange.Line.ForeColor.SchemeColor = 64
  23.         .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
  24.     End With
  25.     Target.Select
  26. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# GBKEE


   ·PÁª©¥D,¬Q¤Ñ¤p§Ì¤@ª½¦b¸Õworkbook¤Îworksheet,¯u¤£ª¾workbookÁÙ¥i¥H¦êSheetselectionchange,³o¤@¦¸¯uªº¨ü¯q­ê²L,·PÁÂ!

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD