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

¦³Ãö´¡¤J¹Ï¤ùªº°ÝÃD

¦^´_ 8# GBKEE
©êºp¡Iª©¤j¤S­n¥´ÂZ¤@¤U¡A¤p§Ì§Ú·Q¦³Ãö¶K¹Ï¦ì¸mªº»yªkÀ³¸Ó¬O³o¤@¬q§a
            .Top = ·Ó¤ù¦ì¸m.Top                             '¹Ï¤ù:³»ºÝ¦ì¸m
            .Left = ·Ó¤ù¦ì¸m.Left                           '¹Ï¤ù:¥ªÃä¦ì¸m
§Ú·Q§ï¦¨¸m¤¤
            .center = ·Ó¤ù¦ì¸m.center                            '¹Ï¤ù:³»ºÝ¦ì¸m
            .cenetr = ·Ó¤ù¦ì¸m.cenetr                           '¹Ï¤ù:¥ªÃä¦ì¸m
©Î³o¼Ë
                .Top = ·Ó¤ù¦ì¸m.center                             '¹Ï¤ù:³»ºÝ¦ì¸m
               .Left = ·Ó¤ù¦ì¸m.cenetr                           '¹Ï¤ù:¥ªÃä¦ì¸m
©Î³o¼Ë
            .Top = ·Ó¤ù¦ì¸m.xlcenetr                             '¹Ï¤ù:³»ºÝ¦ì¸m
            .Left = ·Ó¤ù¦ì¸m.xlcenetr                           '¹Ï¤ù:¥ªÃä¦ì¸m
³£¤£¦æ¡A½Ð°Ý¸Ó¦p¦ó­×§ï©O¡HÁÂÁ¡I

TOP

¦^´_ 11# skyutm
§A¥i¯à»~·|¤F , Top©MLeft¬O«ü³]©w¹Ï¤ù¤W½t©M¥ª½tªº®y¼Ð¦ì¸m , ¤£¬O¹ï»ô¤è¦¡~
¸m¤¤¤@¯ë¬O»¡¤å¦r¦bÀx¦s®æ¤ºªº¹ï»ô¤è¦¡ , ¹Ï¤ùÀ³¸Ó¨S³oºØ³]©w?

TOP

¦^´_ 12# stillfish00
¬O³á¡H¨º»ò¡A¨º¶K¹Ïªº¦ì¸m¬O§_¦³»yªk¥i¥H§ïÅÜ©O¡H

TOP

¦^´_ 13# skyutm
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet, M(1 To 2) As String, E As Range
  4.     Set Sh = ActiveSheet
  5.     'Set ·Ó¤ù¦ì¸m = Sh.[d5]
  6.     With ActiveSheet
  7.         .Pictures.Delete                                    '§R°£¤u§@ªí¥þ³¡¹Ï¤ù(¦pÁÙ¦³¨ä¾l¼Ë¦¡ªº Shape ·|¤@¨Ö§R°£)
  8.         For Each E In .[a1:a10]                            '*****[a1:a10] ¤w¦³©m¦W*****
  9.             M(1) = E
  10.             M(2) = Mid(E, 1, 2) & Chr(10) & Mid(E, 3, IIf(Len(E) < 3, 1, Len(E) - 2)) & "¦L"
  11.             With E
  12.             .FormulaR1C1 = M(2)
  13.             .Font.Size = 14
  14.             .Font.ColorIndex = 3
  15.             .Font.Name = "µØ±d¥j¦LÅé(P)"                    '­×§ï§APC¤Wªº¦rÅé
  16.             .HorizontalAlignment = xlCenter
  17.             .VerticalAlignment = xlCenter
  18.             .WrapText = True
  19.             .EntireRow.AutoFit                              '¦Û°Ê½Õ¾ã¦C°ª
  20.             .Copy
  21.         End With
  22.         With .Pictures.Paste
  23.             .Placement = xlMoveAndSize
  24.             .PrintObject = True
  25.             
  26.             '*********** ¹Ï¤ù¶K¦b[B1:B10]     *******
  27.             .Top = E.Offset(, 1).Top                        '¹Ï¤ù:³»ºÝ¦ì¸m
  28.             .Left = E.Offset(, 1).Left                      '¹Ï¤ù:¥ªÃä¦ì¸m
  29.             E.Offset(, 1).RowHeight = E.RowHeight           '¹Ï¤ù¶K¦b[B1:B10] ½Õ¾ã ¦C°ª
  30.             E.Offset(, 1).ColumnWidth = E.ColumnWidth       '¹Ï¤ù¶K¦b[B1:B10] ½Õ¾ã Äæ¼e
  31.              '*********** ¹Ï¤ù¶K¦b[B1:B10]     *******
  32.             
  33.             .ShapeRange.Fill.Visible = msoTrue              '¹Ï¤ù­I´º Åã¥Ü
  34.            ' .ShapeRange.Fill.ForeColor.SchemeColor = 41    '­I´ºÃC¦â
  35.              .ShapeRange.Line.Visible = msoTrue             '¹Ï¤ùÃä®Ø Åã¥Ü
  36.             .ShapeRange.Line.Weight = 0.75                  'Ãä®Ø.«p«×
  37.           '  .ShapeRange.Line.Visible = msoTrue
  38.             .ShapeRange.Line.ForeColor.SchemeColor = 10     '¹Ï¤ùÃä®Ø.ÃC¦â
  39.          '   .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
  40.         End With
  41.         E.Clear
  42.         E = M(1)
  43.         Next
  44.     End With
  45. End Sub
½Æ»s¥N½X

TOP

©êºp¡IÁÙ¬O­n·PÁª©¤j¼ö¤ßªº±Ð¾É¡A¤£¹L¦]¬°¤p§Ìı±o¤Ó½ÆÂø¤F¡C©Ò¥H¬ã¨s¤F³o»ò¤@¬q®É¶¡¤§«á¡C§Ú¤S¥h§ä¤F¨Ç»yªk¡A¥u¬O¦b¹Ï¤ù¶K¤W¤§«á¡A°µ¤@¨Ç½Õ¾ã²¾°Ê¡C
    With Sheets("¦¨ÁZ³æ")
    For i = 0 To j
             .Paste Destination:=.Range("d" & 22 + 26 * i)
             .Pictures.ShapeRange.IncrementLeft 45
             .Pictures.ShapeRange.IncrementTop 5
    Next i
    End With
¦ý¬O¤S¦³°ÝÃD£®¡A¦]¬°°j°é·|¤@ª½¶]¡A©Ò¥H·|¬Ý¨ì°õ¦æ®É¡A¦L³¹·|¤@ª½¤£Â_ªº²¾°Ê¡A³Ì«e­±ªº¦L³¹·|²¾°Ê³Ì¦h¦¸¡A¬Æ¦Ü¶]¥X½d³ò¡]¥Ñ®É·|ı±o«ÜÄø¡I¡^©Ò¥H¤S§ï¦¨¡G
    With Sheets("¦¨ÁZ³æ")
    For i = 0 To j
             .Paste Destination:=.Range("d" & 22 + 26 * i)
    Next i
             .Pictures.ShapeRange.IncrementLeft 45
             .Pictures.ShapeRange.IncrementTop 5
    End With
´N¬O¦b°j°é¶]§¹¡A¦L³¹³£¶K§¹¤§«á¡A¦b¤@°_²¾°Ê¹Ï¤ù¡A¦ý¬O¡A¦]¬°¬¡­¶Ã¯¸Ì¤]¦³¨ä¥L¹Ï¤ù¡A©Ò¥H¤]·|¸òµÛ²¾°Ê¡C¯u¬O¶Ë¸£µ¬¡C¦³¨S¦³»yªk¬O¦b°j°é½Æ»s¤@±i¹Ï¤ù¤§«á¡A´N¥ß¨è²¾°Ê¡C¤U¤@±i½Æ»s®É´N¤£·|¦A²¾°Ê¨ì¤F¡H

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-13 08:24 ½s¿è

¦^´_ 15# skyutm
  1. With Sheets("¦¨ÁZ³æ")
  2.     For i = 0 To j
  3.              .Paste Destination:=.Range("d" & 22 + 26 * i)
  4.     Next i
  5.              .Pictures.ShapeRange.IncrementLeft 45
  6.              .Pictures.ShapeRange.IncrementTop 5
  7.            '**** ¤]·|¸òµÛ²¾°Ê*****       .Pictures -> Sheets("¦¨ÁZ³æ")ªº©Ò¦³¹Ï¤ù
  8.     End With
½Æ»s¥N½X
¸Õ¸Õ¬Ý
  1. With Sheets("¦¨ÁZ³æ")
  2.     For i = 0 To j
  3.              .Paste Destination:=.Range("d" & 22 + 26 * i)
  4.               a = .Pictures.Count
  5.              .Pictures(a).ShapeRange.IncrementLeft 45
  6.              .Pictures(a).ShapeRange.IncrementTop 5
  7.     Next i
  8.     End With
½Æ»s¥N½X

TOP

¦^´_ 16# GBKEE

°Ú¡I§ÚÀ´¤F¡Aª©¤j´N¬O¤ñ¸ûÁo©ú¡]ª¯»L¡^¡A§â¶K¤Wªº¹Ï¤ù¥[¤W½s¸¹¡A´N¥i¥H·Ç½T±±¨î¤w¶K¤W¹Ï¤ùªº²¾°Ê¦ì¸m¡A¤]´N¤£·|²¾°Ê¨ì¨ä¥L¹Ï¤ù¤F¡C

TOP

¦^´_ 16# GBKEE
©êºp¡Iª¯»L¬O¦³¥Øªºªº¡AÁÙ¦³¤@­Ó¥¼¸Ñ¶}ªº°ÝÃD­n½Ð±Ð¡I
¤p§Ìªººc·Q¬O·Q­n¦b¦¨ÁZ¿é¤J§¹¦¨¤§«á¥t¦s·sÀÉ¡A¤]¦b¥»½×¾Â©Mºô¸ô¤W°µ¹L¥\½Ò¡A­×§ï«áªº»yªk¦p¤U
Sub macor24()
Dim a, b, u, v, r, n As String
    a = Sheets("°ò¥»³]©w").Range("a6").Value
    b = Sheets("°ò¥»³]©w").Range("a8").Value
    u = Sheets("°ò¥»³]©w").Range("j1").Value
    v = Sheets("°ò¥»³]©w").Range("j2").Value
    r = "C:\Documents and Settings\Administrator\®à­±\"
    n = a & "¾Ç¦~«×" & b & "¾Ç´Á" & u & "¦~" & v & "¯Z¦¨ÁZÀÉ"
    Sheets("¦¨ÁZÀx¦s").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=r & n & ".xlsx", _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    ThisWorkbook.Close savechanges:=True
End Sub
¤]¦p¹w´Á¯ë¥i¥H¦b®à­±¦s¦¨¥t¤@­Ó·sÀÉ¡A¦ý¬O°ÝÃD¨Ó¤F¡A¦]¬°³o­Ó¤u§@ªí¤º¦³vbaµ{¦¡»yªk¡A©Ò¥H¥t¦s·sÀÉ«á¡A«K·|¥X²{°ÝÃD¡A´N¬O¦³¨Ç»yªk·|¶W¥X½d³ò¡A·Q½Ð±Ð¤@¤U¡A¦b½Æ»s¤u§@ªí®É¦³µL¿ï¶µ¡A¥i¥H¤£¥Î½Æ»s¨ì¸Ì­±ªº»yªk¶Ü¡H¦A¦¸·PÁ¡I

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-14 14:29 ½s¿è

¦^´_ 18# skyutm
°ÆÀɦW .xlsx ¬°2003¥H¤Wªºª©¥» ¦s¬°µL¥¨¶°ªº¬¡­¶Ã¯ À³¸Ó¨S¦³§A»¡ªº°ÝÃD

¦p¬O2003ª©¥i¸Õ¸Õ¬Ý  ¦p°õ¦æ¦³¿ù»~ ½Ð¬Ý  http://gb.twbts.com/index.php?topic=751.8
  1. Sub macor24()
  2.     Dim a, b, u, v, r, n As String, xlVbc As Object
  3.     a = Sheets("°ò¥»³]©w").Range("a6").Value
  4.     b = Sheets("°ò¥»³]©w").Range("a8").Value
  5.     u = Sheets("°ò¥»³]©w").Range("j1").Value
  6.     v = Sheets("°ò¥»³]©w").Range("j2").Value
  7.     r = "C:\Documents and Settings\Administrator\®à­±\"
  8.     n = a & "¾Ç¦~«×" & b & "¾Ç´Á" & u & "¦~" & v & "¯Z¦¨ÁZÀÉ"
  9.     Sheets("¦¨ÁZÀx¦s").Copy
  10.     Sheets(1).Copy
  11.     Application.DisplayAlerts = False
  12.     With ActiveWorkbook
  13.         For Each xlVbc In .VBProject.VBComponents
  14.             xlVbc.CodeModule.DeleteLines 1, xlVbc.CodeModule.CountOfLines
  15.         Next
  16.         .SaveAs Filename:=r & n & ".xls"
  17.     End With
  18.     ThisWorkbook.Close savechanges:=True
  19. End Sub
½Æ»s¥N½X

TOP

¦^´_ 19# GBKEE
ª©¤j±z¦n¡I¦Ê¦£¤§¤¤¤S¥´ÂZ¤F¡C±zµ¹ªº»yªk°õ¦æ¤§«á¡AÁÙ¬O·|¦³»yªk¦b¡]©Ò¥H·|²£¥Í¿ù»~¡^¡A¦Ó¥t¥~¤@­Óºô­¶©Ò½Íªº§R°£¤u§@ªíªº¥¨¶°»yªk¡A¦bvba¦n¹³¤£¯à¨Ï¥Î¡A³Ì«á¤p§Ì¶¤F¤@±ø»·¸ô¡C´N¬O¡G
1.¥ý·s¼W¤@·s¤u§@ªí
2.½Æ»s­n½Æ»sªº¤u§@ªí
3.¶K¤W®É¨Ï¥Î¦³±ø¥óªº¶K¤W¿ï¶µ¡]³o¼Ë´N¤£¤W½Æ»s¨ì¤u§@ªí¤ºªº»yªk¤F¡^
PasteSpecial Paste:=xlPasteValues
PasteSpecial Paste:=xlPasteFormats
4.µM«á´N¬O¤§«eªº»yªk
¥þ³¡¬O
Sub macor24()
    '¸Ñ°£«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡õ'
    Sheets("¦¨ÁZÀx¦s").Unprotect Password:="6323"
    ActiveWorkbook.Unprotect Password:="6323"
    '¸Ñ°£«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡ô'
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("¦¨ÁZÀx¦s").Activate
    Sheets("¦¨ÁZÀx¦s").Cells.Copy
    Sheets(Sheets.Count).Range("a1").PasteSpecial Paste:=xlPasteValues
    Sheets("¦¨ÁZÀx¦s").Activate
    Sheets("¦¨ÁZÀx¦s").Cells.Copy
    Sheets(Sheets.Count).Range("a1").PasteSpecial Paste:=xlPasteFormats
    Dim a, b, u, v, r, n As String
    a = Sheets("°ò¥»³]©w").Range("a6").Value
    b = Sheets("°ò¥»³]©w").Range("a8").Value
    u = Sheets("°ò¥»³]©w").Range("j1").Value
    v = Sheets("°ò¥»³]©w").Range("j2").Value
    r = "C:\Documents and Settings\Administrator\®à­±\"
    n = a & "¾Ç¦~«×" & b & "¾Ç´Á" & u & "¦~" & v & "¯Z¦¨ÁZÀÉ"
    Sheets(Sheets.Count).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=r & n & ".xls", _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    Workbooks(1).Activate
    Sheets(Sheets.Count).Delete
    '«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡õ'
    Sheets("¦¨ÁZÀx¦s").Activate
    ActiveSheet.EnableSelection = xlUnlockedCells
    Sheets("¦¨ÁZÀx¦s").Protect Password:="6323"
    ActiveWorkbook.Protect Password:="6323"
    '«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡ô'
    Workbooks(2).Activate
    ActiveWorkbook.Close savechanges:=True
End Sub
¡]©êºp¡I¤£¬O¯Zªù§Ë©ò°Õ¡A·Q»¡¥H«á¦³¤H»Ý­n¡A¥i¥H°Ñ¦Ò¤@¤U¡C¡^

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD