GBKEE

¦^´_ 2# skyutm

1. Sub nn()
   
2.     Dim I As Integer, ch1 As Integer, ch2 As Integer, ch3 As Integer, ch4 As Integer
   
3.     For I = 3 To 43
   
4.         Worksheets("´Á¤¤¦¨ÁZ").Range("c" & 5 + I - 3).Value = (Range("c" & I) * ch1 + Range("h" & I) * ch2 + Range("i" & I) * ch3 + Range("j" & I) * ch4) / 100
   
5.     Next
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# skyutm

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng  As String, I As Integer, ¤À¼Æ¶¡®æ As Integer, Msg As String
   
4.     ¤À¼Æ¶¡®æ = 10             '¤]¥i¥H¶¡®æ 5¤À
   
5.     Rng = Worksheets("´Á¤¤µû¶q").Range("c3", Range("c3").End(xlDown)).Address   '­pºâ½d³òªºAddress
   
6.     'Application.Min(Range(Rng)) :³Ì§C¤À-> ÁÙ­n¥[1­Ó¤À¼Æ¶¡®æ ¨Ó°õ¦æ°j°é
   
7.     For I = 100 To Application.Min(Range(Rng)) - ¤À¼Æ¶¡®æ Step -¤À¼Æ¶¡®æ '- : ­t¼Æ°j°é»¼´î
   
8.         If I = 100 Then
   
9.             Msg = "100 = " & Application.Evaluate("SumProduct((" & Rng & ">=100)*1 )")
   
10.         Else
    
11.             Msg = Msg & Chr(10) & I + ¤À¼Æ¶¡®æ - 1 & "~" & I & " = " & Application.Evaluate("SumProduct((" & Rng & "<=" & I + ¤À¼Æ¶¡®æ - 1 & ")*(" & Rng & ">=" & I & " ))")
    
12.         End If
    
13.     Next
    
14.     MsgBox Msg
    
15. End Sub

½Æ»s¥N½X

¸É¤W¥t¤@¼gªk

1. Option Explicit
   
2. Sub Ex_CountIf()
   
3.     Dim Rng As Range, ¶¡¹j As Integer, A As Integer, B As Integer, I As Integer, AR(1 To 2)
   
4.     Set Rng = Range("A1:A" & [A1].End(xlDown).Row)  '²Î­pªº½d³ò
   
5.     ¶¡¹j = 10
   
6.     For I = 100 To Application.Min(Rng) - ¶¡¹j Step -¶¡¹j
   
7.         B = Application.CountIf(Rng, ">=" & I)
   
8.         'COUNTIF ¤u§@ªí¨ç¼Æ: ­pºâ¬Y½d³ò¤º²Å¦X¬Y·j´M·Ç«hªºÀx¦s®æ­Ó¼Æ
   
9.         If B - A > 0 Then
   
10.             AR(1) = AR(1) & "," & IIf(I < 100, I + ¶¡¹j - 1 & "~", "") & I
    
11.             AR(2) = AR(2) & "," & B - A
    
12.             A = B
    
13.         End If
    
14.     Next
    
15.     AR(1) = Application.Transpose(Split(Mid(AR(1), 2), ","))
    
16.     AR(2) = Application.Transpose(Split(Mid(AR(2), 2), ","))
    
17.     [B:C] = ""
    
18.     [B1].Resize(UBound(AR(1))) = AR(1)
    
19.     [C1].Resize(UBound(AR(2))) = AR(2)
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# °²­±¶W¤H

1. 'Case "0" To "69" À³¬O-> Case "0" To "59"
   
2. '¦ý 6,7,8,9,µLªk­pºâ¨ì, ¥i¬O 101 ·|­pºâ¨ì
   
3. '«Øij­×§ï¦p¤U
   
4. For I = 1 To myRowCount
   
5.     myrange = Sheets("´Á¤¤µû¶q").Range("c" & I)
   
6.     Select Case myrange
   
7.         Case 100
   
8.             A = A + 1
   
9.         Case 90 To 99
   
10.             B = B + 1
    
11.         Case 80 To 89
    
12.             c = c + 1
    
13.         Case 70 To 79
    
14.             d = d + 1
    
15.         Case 60 To 69
    
16.             E = E + 1
    
17.         Case 0 To 59
    
18.             f = f + 1
    
19.     End Select

½Æ»s¥N½X

GBKEE

¦^´_ 9# °²­±¶W¤H
.Value ¤£ª¾¬°¦ó·|¥[¤Wªº,¤w§ó¥¿¤F