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

¹Ï¤ù³B²z°ÝÃD

¹Ï¤ù³B²z°ÝÃD

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-6-26 03:20 ½s¿è

Dear ¤j¤j

          ¤p§Ì¦³¤@­Ó¹Ï¤ù³B²zªº°ÝÃD~ ·Q¨Dª¾~ ¸Ó¦p¦ó³B²z·|§ó¦n
          ¥ç¦³·j¯Á¹L¹Ï¤ùªº¬ÛÃö¤å³¹~ ¨S¦³¾A·íªº¤è¦¡
          ±N°ÝÃDPO¤W¨Ó给¤j¤j­Ì«ü±Ð¤p§Ì¤@µf
          ªþ¥ó¬O§Úªº°ÝÃD½d¥»
          °ÝÃD¦p¤U
         1. ¹Ï¤ù¦WºÙªº­×§ï¡A¬O§_¥i¥Hª½±µ±N¹Ï¤ùªº¦WºÙ§ï¦¨½s¸¹¡]A¡BB¡BC¡K..)¡A¥H´î¤ÖDÄæ¦ìªº¸ê®Æ³]©w¡C
             ¥iª½±µ¨Ï¥Î½s¸¹§ä¨ì¹Ï¤ù¡AµM·|¶×¥X¨ì«ü©wªº¦ì¸m"                                                                       
         2. ¹Ï¤ù¶×¨ì«ü©wªºsheet¦ì¸m«á·|¦³°¾²¾ªº°ÝÃD¡A¸Ó¦p¦ó³B²z©O?                                                                       
         3. ¦bOutput¤¤¡A¦³¤@­Ó°ÝÃD¡A´N¬O¶×¥X®É¹Ï¤ù­n¥ý²M·¡«á¡A¦A¨Ì·sªºOutput¤¤CÄæ¦ìªº¸ê®Æ¶¶§Ç±N¹Ï¤ù¶K¤W¡A
             ¦ý¬O¨Ì¦bOutput¤¤«ö¶sªºµ{¦¡½X¡A·|¦³³y¦¨¿ù»~¡A¸Ó¦p¦ó­×§ï©O?"       

       Hsieh¤j¤j¦³´£¨Ñ¤@½g¹Ï¤ùªºÅçÃҤ覡À³¥Î~
       http://blog.xuite.net/saladoil/excel/8835494        
      
      ¦ý¤£¾A¥Î¤p§Ì­n³B²zªº¤è¦¡~ ¦]¬°¤p§Ìªº¸ê®Æ¡A·|¦]¬°¨C¦¸OUTPUT®É¸ê®Æ·|ÅÜ°Ê~ µLªk¥ÎÅçÃÒªº¤è¦¡³B²z~
      ¥ç¦Ò¼{¨ì¨Ï¥ÎªÌªºEXCELµ{«×µLªk½Õ¾ã~ ©Ò¥H~ ­n¦º¼g~ ¥iÂX¥R¸ê®Æªº¤è¦¡~ ¥H«K§Q¨Ï¥ÎªÌ¨Ï¥Î~                                                       
       ¹Ï¤ù³B²z°ÝÃD.rar (46.23 KB)
¾Ç²ß¤~¯à´£¤É¦Û¤v

  1. Sub ¹Ï¤ù©R¦W()
  2.     Dim p As Shape
  3.     With Sheet1
  4.         For Each p In .Shapes
  5.             r = p.TopLeftCell.Row
  6.             p.Name = .Cells(r, 3).Value
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X
  1. Private Sub CommandButton1_Click()
  2. With Sheet2
  3. '====°ÝÃDÂI=========
  4. For Each shp In .Shapes
  5. If shp.Type = 13 Then shp.Delete
  6. Next
  7. '====°ÝÃDÂI=========
  8. Do Until .Range("C" & 3 + K) = ""
  9.         x = .Range("C" & 3 + K).Value
  10.          Sheet1.Shapes(x).Copy
  11.          .Select
  12.          .Paste
  13.          Selection.Top = .Range("d" & 3 + K).Top
  14.          Selection.Left = .Range("d" & 3 + K).Left
  15. K = K + 1
  16. Loop
  17. End With
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# oobird


    ·PÁÂO¤j¤j~ µ{¦¡Â²³æ©úêí  ¥u¬O¦³´X¦æ¤£¤Ó¤F¸Ñ~
    µ¥¤º¤Æ«á~ À³¸Ó¥i¥H¥ÎªºÆZÀ³¤âªº~

    ÁÂÁ¤j¤j­ò~ ·P®¦~ ¦³¤£¤F¸Ñªº¦A½Ð±Ð¤j¤j~ ÁÂÁÂ~  ^^
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 2# oobird


    ¤j¤j~ §Úµo²{¤@­Ó°ÝÃD
   ¦pªG±NOutput¤¤ªº«ö¶s"¹Ï¤ù¸ê®Æ¶×¥X"§ï©ñ¦bData
   ¥Ñdata¤¤°õ¦æ¶×¥Xªº°Ê§@,´N·|²£¥Í¤@­Ó¿ù»~°T®§
    [°õ¦æ¶¥¬q¿ù»~'70': ¨S¦³¨Ï¥ÎÅv­­]

     ¤j¤j~ §Ú­×§ï¤F¦n´X¦¸~ ÁÙ¬O·|¥X²{³o­Ó¿ù»~ ½Ð±Ï¤@¤U
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥ô¦óvba³£¤£¥i¯à¾A¥Î©ó©Ò¦³ª¬ªp
§A­n¦Û¤v¨Ì¨Ó·½¦a¸mµ²ºc§@­×§ï
¤×¨ä¬O¸ê®Æ®w³£³]¦³¦s¨úÅv­­

TOP

¦^´_ 5# oobird
     ¤j¤j
     «á¨Ó~ §Ú¨Ï¥ÎIF  P.TYPE<>13 THEN GOTOªº¤è¦¡,±Æ°£±¼°ÝÃD
     ¤U­±ªºµ{¦¡½X­×§ï/°õ¦æ«á¨S¦³°ÝÃD
    A = Sheet1.Range("C65536").End(xlUp).Row
    Sheet1.Rows("2:" & A).RowHeight = 81
    Sheet1.Columns("E:E").ColumnWidth = 12.88
    Dim p As Shape

    With Sheet1
        For Each p In .Shapes
        If p.Type <> 13 Then GoTo 1
            R = R + 1
            p.Name = R
1
        Next

        For Each p In .Shapes
        If p.Type <> 13 Then GoTo 2
            R = p.TopLeftCell.Row
            p.Name = .Cells(R, 3).Value
            p.Top = .Cells(R, 5).Top
            p.Left = .Cells(R, 5).Left
            p.LockAspectRatio = msoFalse
            p.Height = 75
            p.Width = 73.5
2
        Next

    End With


With Sheet2

'====°ÝÃDÂI=========

For Each shp In .Shapes


If shp.Type = 13 Then shp.Delete

Next

'====°ÝÃDÂI=========

Do Until .Range("C" & 3 + K) = ""

        x = .Range("C" & 3 + K).Value

         Sheet1.Shapes(x).Copy

         .Select

         .Paste

         Selection.Top = .Range("d" & 3 + K).Top

         Selection.Left = .Range("d" & 3 + K).Left

K = K + 1

Loop
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD