GBKEE

¦^´_ 1# t8899
¦¹¨â­Ó¥i§_©ñ¦bwith ¸Ì­±,¸Õ¸Õ¬Ý§a!

1. Option Explicit
   
2. Sub zzzzz()
   
3. Application.ScreenUpdating = False
   
4. Application.EnableEvents = False
   
5. Application.DisplayStatusBar = False
   
6. ActiveSheet.DisplayPageBreaks = False
   
7. With Sheets("Sheet1")
   
8.      .Range("B65536").End(xlUp).Offset(1) = .Range("D16").Value
   
9.      .Range("O65536").End(xlUp).Offset(1) = .Range("C16").Value
   
10.      .Range("P65536").End(xlUp).Offset(1) = .Range("C18").Value
    
11.      .Range("Q65536").End(xlUp).Offset(1) = .Range("B16").Value
    
12. End With
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# t8899
¥t¥~ ¤U­±¨â­Ó¥i§_©ñ¦bwith ¸Ì­±   ¸Õ¸Õ´Nª¾¹D(§A¸Õ¹L¶Ü?)
¬O§_«D¦P¤@­Óª«¥ó? ½Ð¦A»¡©ú¥Õ

1. Option Explicit ³¯­z¦¡
   
2. ¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
   
3. »yªk
   
4. Option Explicit
   
5. ½Ðª`·N
   
6. Option Explicit ³¯­z¦¡¥²¥X²{¦b¼Ò²ÕùØ¡A¥B¦b¥ô¦óµ{§Ç¤§«e¡C
   
7. ·í Option Explicit ¦b¼Ò²Õ¤¤¨Ï¥Î®É¡A¥²¶·¥H Dim¡A Private¡BPublic¡BReDim ©Î Static ³¯­z¦¡¨Ó©ú½T«Å§i©Ò¦³ªºÅܼơC¦pªG¨Ï¥Î¥¼«Å§iªºÅܼƦWºÙ¡A«h¦b½sĶ¶¥¬q®É¡A·|µo¥Í¿ù»~¡C
   
8. ¦pªG¥¼¨Ï¥Î Option Explicit ³¯­z¦¡¡A«h©Ò¦³¥¼«Å§iªºÅܼƳ£¬O Variant «¬ºA¡A°£«D¹w³]ªº«¬ºA¥t¥H Deftype ³¯­z¦¡©Ò«ü©w¹L¡C
   
9. ªþµù Option Explicit ¥iÁקK¥´¿ùÅܼƦWºÙ©Î¦b¦³®Ä½d³ò¤º¬Û¦PªºÅܼƦWºÙ¡C

½Æ»s¥N½X

1. Option Explicit
   
2. Sub Ex()
   
3.     [F8:F14].Clear
   
4.     With Range("D4")
   
5.         .Cells = "=888"
   
6.         .NoteText "µù¸Ñ¤å¦r"                                     'µù¸Ñ
   
7.         .Interior.ColorIndex = 8
   
8.         .Copy Range("F8")                                        '¥þ³¡
   
9.         Range("F9").Value = .Value                               '­È
   
10.         Range("F10").Formula = .Formula                          '¤½¦¡
    
11.         Range("F11").NumberFormatLocal = .NumberFormatLocal      '¼Æ¦r®æ¦¡
    
12.         Range("F12").Interior.ColorIndex = .Interior.ColorIndex  '¹Ï¼Ë ¦â±m
    
13.         Range("F13") = .Value
    
14.         Range("F13").Font.Size = .Font.Size + 2                  '¦r«¬¤j¤p
    
15.         Range("F14").NoteText .NoteText                          'µù¸Ñ
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# t8899

1. For i = 350 To 21 Step -1
   
2.   If IsError(Cells(i, "h")) Then Run "clear": Exit For
   
3. next

½Æ»s¥N½X

IsError(Cells(i, "h"))  ¬O With Sheets("Sheet1") ¸ÌªºCells(i, "h") ¶Ü?,
¤£¬O­n«ü©ú¤u§@ªí  IsError(Sheets("¤u§@ªí¦WºÙ").Cells(i, "h"))

Run "clear"  ³o¬O VBAªºÃöÁä¦r Clear ¤èªk,³Ì¦n´«­Ó¦r¦ê
¥t¥~ Run ªºµ{§Ç¦bª«¥ó¼Ò²Õ(¤£¦b¤@¯ë¼Ò²Õ¸Ì)      ­n«ü©ú¼Ò²Õ Run "Sheet1.µ{§Ç"

GBKEE

¦^´_ 7# t8899
¬OWith Sheets("Sheet1") ¸ÌªºCells(i, "h") ´N¥i¥ÎWith. (§Ö¤£§Ö??? ¤£ª¾§Aªº·Qªk)

GBKEE

¦^´_ 9# t8899
´N³o¼Ë¦h½m²ß,·|¶i¨Bªº
§ó¥¿(¿N»æ¦Y¦h¤F)

1. Range("F11").NumberFormatLocal = .NumberFormatLocal      '¼Æ¦r®æ¦¡

½Æ»s¥N½X

GBKEE

¦^´_ 11# acdx

1. Option Explicit
   
2. Private Sub format()
   
3.     Dim ws As Worksheet, sName As String, AR(1 To 2), I As Integer
   
4.     sName = "PTAVS"
   
5.     On Error Resume Next
   
6.     Set ws = Sheets(sName)
   
7.     If ws Is Nothing Then
   
8.         Worksheets.Add after:=Worksheets(Worksheets.Count)
   
9.         Worksheets(Worksheets.Count).Name = sName
   
10.         Set ws = Sheets(sName)
    
11.     Else
    
12.         MsgBox sName & "¤u§@ªí¤w¦s¦b¡C"
    
13.         Sheets("Result").Select
    
14.         Exit Sub
    
15.     End If
    
16.     With ws.Cells
    
17.         .HorizontalAlignment = xlCenter
    
18.         .VerticalAlignment = xlCenter
    
19.         .Orientation = 0
    
20.         .AddIndent = False
    
21.         .IndentLevel = 0
    
22.         .ShrinkToFit = False
    
23.         .ReadingOrder = xlContext
    
24.         .MergeCells = False
    
25.         With .Font
    
26.             .Name = "Arial"
    
27.             .Size = 10
    
28.             .Strikethrough = False
    
29.             .Superscript = False
    
30.             .Subscript = False
    
31.             .OutlineFont = False
    
32.             .Shadow = False
    
33.             .Underline = xlUnderlineStyleNone
    
34.             .ColorIndex = xlAutomatic
    
35.             .TintAndShade = 0
    
36.             '.ThemeFont = xlThemeFontNone  '2003¨S³o°Ñ¼Æ
    
37.         End With
    
38.         .Range("B1:M1").Merge
    
39.         AR(1) = Array("A1:A4", "B2:G2", "B3:D3", "E3:G3", "B4:G4")
    
40.         AR(2) = Array("C1~C5", "(sone)", "H", "M", "")
    
41.         For I = 0 To UBound(AR(1))
    
42.             With .Range(AR(1)(I))
    
43.                 .WrapText = False
    
44.                 .MergeCells = IIf(I < UBound(AR(1)), True, False)
    
45.                 .Value = AR(2)(I)
    
46.             End With
    
47.         Next
    
48.         .Range("B4:D4").Value = Array("mean", "standard deviation", "mean+CV*stdev")
    
49.         .Range("B4:D4").Copy .Range("E4")
    
50.         .Range("B2:G4").Copy .Range("H2")
    
51.         .Range("H2").Value = "(tu)"
    
52.         With .Range("A1:M4")
    
53.             For I = 5 To 12   'µe®Ø½u
    
54.                 With .Borders(I)
    
55.                     .LineStyle = IIf(I >= 7, xlContinuous, xlNone)
    
56.                     If I >= 7 Then .ColorIndex = 0
    
57.                     'If I >= 7 Then .TintAndShade = 0       '2003®Ø½u¨S³oÄÝ©Ê
    
58.                     If I >= 7 Then .Weight = xlThin
    
59.                 End With
    
60.             Next
    
61.             .Font.Name = "Arial"
    
62.             .Font.Size = 10
    
63.         End With
    
64.     End With
    
65.     Sheets("Result").Select
    
66. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# acdx
¤u¨ã®Ñ¤@¯ë³£¬O¤@¼Ëªº,¦h¬Ý¦h½m²ß,¤é¤[­Ô¤@©w¥i¥H´À«á¤H¸Ñ´bªº.