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

[µo°Ý] ¦p¦ó²¤Æµ{¦¡

[µo°Ý] ¦p¦ó²¤Æµ{¦¡

¦U¦ì¤j¤j

¤p§Ì¿ý»s¤F¨â­Ó¥¨¶°
²Ä1­Ó¥¨¶°¬O±NA:CÄæ¥h®Ø½u«á¾ã²z
¦a2­Ó¥¨¶°¬O§âsheet1ªíA:CÄæ«þ¨©¦Üsheet2ªí¦Ü©wÂI, µM«á²M°£¸ê®Æ
¦p¤U

·Ð½Ð¥ý¶i ¤j¤j«ü¾É²¤Æµ{¦¡

Sub Line()
    Columns("A:C").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Font
        .Name = "·s²Ó©úÅé"
        .FontStyle = "¼Ð·Ç"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
        ActiveWindow.Panes(1).Activate
    Columns("A:A").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub
Sub Clear()
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    sheet2.[A65536].End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.End(xlDown).Select
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Columns("A:C").Select
    Selection.ClearContents
    Range("A1").Select
End Sub

Sub Line()
   [a:c].Borders.LineStyle = 0
End Sub
Sub Clear()
   [a:c].Cut Sheet2.[a1]
End Sub

TOP

¦^´_ 2# oobird


    ÁÂÁÂoobird

    1. §Ú·Q±Nsheet1ªíA:CÄæ¸ê®Æ¥h°£®Ø½u«á,
         µM«á§ï¦rÅ鬰"·s²Ó©úÅé" ©M¾a¥ª±Æ¦C

     2.sheet1ªíA:CÄæ¾ã²z«á¦A±Nµ²ªG«þ¨©¦Üsheet2ªíAÄæ³Ì«á¤@¦Cªº¤U¤è¦ì¸m«K²M°£sheet1ªíA:CÄ椺®e
        (¦¹¸ê®Æ¦C¼Æ¶q·|ÅܰʧY¨C¦¸¦C¼Æ·|¤£¦P)

         ¨Ò¦psheet1ªí¦³10¦C(A1:C10), ¦Ósheet2ªí¥Ø«e¦³3¦C(A1:C3), »Ý±Nsheet1ªí«þ¨©¦Üsheet2ªíA4¦ì¸m(¦pªþ¥ó»¡©ú),
         ¤U¤@¦¸­n«þ¨©¦ÜA14¦ì¸m(¨Ì¸ê®Æsheet1ªí¸ê®Æ¦C¼Æ¶q­pºâ, ¨Ì¦¸¦V¤U½Æ»s¶K¤W

·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST-15.rar (21.27 KB)

TOP

¦^´_ 3# luke
  1. Sub ex()
  2. With sheet1
  3.    With .Range("A1").CurrentRegion
  4.    .Borders.LineStyle = xlNone
  5.    .HorizontalAlignment = xlLeft
  6.    .Font.Bold = False
  7.    .Font.Name = "·s²Ó©úÅé"
  8.    .Font.FontStyle = "¼Ð·Ç"
  9.    .Font.Size = 12
  10.    .Copy sheet2.[A1].End(xlDown).Offset(1)
  11.    End With
  12. End With
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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