[µo°Ý] ¦p¦ó¦b¦³¸ê®Æªº¦a¤è¦Û°Ê½s¸¹?

winston219

½Ð°Ý¦p¦ó¦b¦³¥X²{©m¦Wªº¦a¤è¡A¦Û°Ê¦V¤U½s¸¹? ¥B½s¸¹¯à¸m¤¤¹ï»ô? (¦p¤U1¡B2¡B3ªº¼Æ¦r¦Û°Ê¶]¥X¨Ó)

½s¸¹   ©m¦W
1       ªL¤p©ú
2       ±i¤j¦P
3       §õ¤pæ¢

oobird

1. Sub yy()
   
2. [a:a].HorizontalAlignment = xlCenter
   
3. Range("a2:a" & [b65536].End(3).Row) = "=row()-1"
   
4. [a:a] = [a:a].Value
   
5. End Sub

½Æ»s¥N½X

winston219

ÁÂÁÂoobird¤j¤j¤X¡A±z¯u¬O§Úªº¶Q¤H«¨~

GBKEE

¦^´_ 1# winston219

1. Sub Ex() '¨Ï¥Î DataSeries ¤èªk
   
2.     Range("A2") = 1
   
3.     Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).DataSeries
   
4. End Sub

½Æ»s¥N½X

¥t¦³°ò¥»¥\¾Þ§@
¦p¦ó¦b¦³¸ê®Æªº¦a¤è¦Û°Ê½s¸¹?

winston219

ÁÂÁÂGBKEE¤j¤jªº²Ó¤ß»¡©ú!

winston219

½Ð°Ý¦p¦ó¦Û°Ê­pºâ¦X­p? (¦p¤U¤§70¡B60¡B55¦Û°Êºâ¥X)

½s¸¹   ©m¦W     ª÷ÃB1      ª÷ÃB2     ¦X­p
1       ªL¤p©ú      50          20        70
2       ±i¤j¦P      20          40        60
3       §õ¤p梠     30          25        55

GBKEE

¦^´_ 6# winston219
°ò¥»¥\ E2¤½¦¡=C2+D2
·Æ¹«¦bE2¥k¤U³B ¦¨¶Â¦â¤Q¦r§Î®É «ö¥ªÁä¤G¤U §¹¦¨

winston219

½Ð°ÝGBKEE¤j¤j¡A¦p¦ó¥ÎVBA¼gµ{¦¡?

GBKEE

¦^´_ 8# winston219

1. Sub Ex() '½s¸¹ ¦bB2
   
2.         Dim R As Range
   
3.         Set R = Range("B2").End(xlToRight)
   
4.         Set R = Range(R, R.End(xlDown)).Offset(, 1)
   
5.         R.Cells(1) = "¦X­p"
   
6.         R.Cells(2).FormulaR1C1 = "=RC[-1]+RC[-2]"
   
7.         R.Cells(2).AutoFill Range(R.Cells(2), R.Cells(R.Rows.Count))
   
8.     End Sub
   
9. ''''''''''''''''''''''''''''''''''
   
10. Sub Ex() '½s¸¹ ¦bB2
    
11.         Dim R As Range
    
12.         Set R = Range("B2").End(xlToRight)
    
13.         Set R = Range(R, R.End(xlDown)).Offset(, 1)
    
14.         R.Cells(1) = "¦X­p"
    
15.         With Range(R.Cells(2), R.Cells(R.Rows.Count))
    
16.             .FormulaR1C1 = "=RC[-1]+RC[-2]"
    
17.             .Cells = .Value  '
    
18.         End With
    
19.     End Sub

½Æ»s¥N½X

winston219

«¢¡A·PÁÂGBKEE¤j¤jªº±Ð¾É!