[µo°Ý] ¦p¦ó§âÀx¦s®æªº­¼¿n­pºâ¥X¨Ó?

maiko

¤U¸ü (34.66 KB)

2013-10-10 13:59

Product.rar (8.86 KB)

¤U¸ü¦¸¼Æ: 12

2013-10-10 14:00

¥Î°}¦C¦n¹³¤£¬O·Q­nªº®ÄªG¡A½Ð¦U¦ìÀ°¦£¸Ñ¨M¡AÁÂÁÂ!

p212

¦^´_ 1# maiko
¥i¥H´£¨Ñ¡u°²³]ª¬ªp¡v»P¡u¹ïÀ³µ²ªG¡vªº½d¨Ò¡HÁÂÁ¡I
Àx¦s®æA2¦ÜA51(1~50)¬O©T©wªº¡HÁÙ¬O·|Ä~Äò©¹¤UÂX®i¡H
¡uAÄ榳¦h¤Ö¦C¼Æ­È¡v«üªº¬O1~50¡H(=COUNT(A2:A51)µ²ªG¦^À³­È50¡H)

maiko

¦^´_  maiko
¥i¥H´£¨Ñ¡u°²³]ª¬ªp¡v»P¡u¹ïÀ³µ²ªG¡vªº½d¨Ò¡HÁÂÁ¡I
Àx¦s®æA2¦ÜA51(1~50)¬O©T©wªº¡HÁÙ¬O·|Ä~ ...
p212 µoªí©ó 2013-10-11 08:58

   
¡uAÄ榳¦h¤Ö¦C¼Æ­È¡v¤]¬O¤£©T©w¡A¥i¥H¥[¥i¥H´î¡AB1¡BC1¡BD1¡BE1¡BF1¡K¡K¤£©T©w¡A´N¬O¥ý­pºâAÄæ©MB1¡BC1¡BD1¡BE1¡BF1¡K¡K ¤§«á¡A¦A­pºâ¥¦­Ìªº­¼¿n­pºâ¥X¨Ó¡C

¨Ò¦p¡G
B2=B1*A2¡BC2=C1*A2¡BD2=D1*A2¡K¡K
B3=B1*A3¡BC3=C1*A3¡BD3=D1*A3¡K¡K

owen06

¦^´_ 3# maiko

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. [B2:IV65536].Clear
   
4. For X = 2 To Application.Count([A:A]) + 1
   
5. For I = 2 To Application.Count([1:1]) + 1
   
6. Cells(X, I).Value = Cells(X, I).Offset(1 - X, 0).Value * _
   
7. Cells(X, I).Offset(0, 1 - I).Value
   
8. Next
   
9. Next
   
10. Application.EnableEvents = True
    
11. End Sub

½Æ»s¥N½X