¦p¦ó¦Û°Ê¤ñ¹ï¼Æ¦r±a¥X¼Ð·ÇÈ
- ©«¤l
- 140
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-3-28
- ³Ì«áµn¿ý
- 2015-7-5
|
¦p¦ó¦Û°Ê¤ñ¹ï¼Æ¦r±a¥X¼Ð·ÇÈ
¦U¦ì¤j¤j
¤p§Ì¿ý»s¤AÓ¥¨¶°, ¤À§O¿z¿ï¥X³æ¤@¼Æ¦r©Î¦hӼƦrÀx¦s®æªºÈ
§Ú·Q¥ÎVBA¥h¤ñ¹ï¤@Өƥý°µ¦nªº¼Ð·ÇÈ, ¦A±a¥Xµ²ªG
·Ð½Ð¥ý¶i«ü¾É
TEST4.rar (32.66 KB)
|
|
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-4-3 09:19 ½s¿è
¦^´_ 1# luke
¥Î¤@ӳ̲³æªº¤è¦¡¨Ó¼g[if]- Sub ex()
- For j = 2 To 4 Step 2 '¦C¼Æ,¸ê®Æn¶]²Ä2&4¦C
- For i = 1 To 10 'Äæ¦ì±qA¨ìJ
- If 30.5 < Cells(j, i) And Cells(j, i) <= 40 Then
- Cells(j + 1, i) = 40 '¸ê®Æ©ñ¦b²Ä3&5¦C
- ElseIf 25.5 < Cells(j, i) And Cells(j, i) <= 30.5 Then
- Cells(j + 1, i) = 30
- ElseIf 20.5 < Cells(j, i) And Cells(j, i) <= 25.5 Then
- Cells(j + 1, i) = 25
- ElseIf 16.5 < Cells(j, i) And Cells(j, i) <= 20.5 Then
- Cells(j + 1, i) = 20
- ElseIf 12.1 < Cells(j, i) And Cells(j, i) <= 16.5 Then
- Cells(j + 1, i) = 16
- ElseIf 10.1 < Cells(j, i) And Cells(j, i) <= 12.1 Then
- Cells(j + 1, i) = 12
- ElseIf 8.1 < Cells(j, i) And Cells(j, i) <= 10.1 Then
- Cells(j + 1, i) = 10
- ElseIf 6.1 < Cells(j, i) And Cells(j, i) <= 8.1 Then
- Cells(j + 1, i) = 8
- ElseIf 4.1 < Cells(j, i) And Cells(j, i) <= 6.1 Then
- Cells(j + 1, i) = 6
- ElseIf 2# < Cells(j, i) And Cells(j, i) <= 4.1 Then
- Cells(j + 1, i) = 4
- ElseIf 0 < Cells(j, i) And Cells(j, i) <= 2.1 Then
- Cells(j + 1, i) = 2
- End If
- Next
- Next
- End Sub
½Æ»s¥N½X |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# luke
¥[¤JR6~R16,§@¬°¤ñ¹ï¨Ì¾Ú
- Sub XX()
- For Each a In [A2:J2,A4:J4]
- For Each b In [R6:R16]
- If a <= b Then
- a.Offset(1, 0) = Int(b)
- Exit For
- End If
- Next
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 278
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-24
|
¦^´_ 1# luke - Sub ex()
- Dim Ay()
- a = Array(0, 2.1, 4.1, 6.1, 8.1, 10.1, 12.1, 16.5, 20.5, 25.5, 30.5)
- b = Array(2, 4, 6, 8, 10, 12, 16, 20, 25, 30, 40)
- For Each c In [A1:J1]
- If InStr(c, ",") > 0 Then
- ar = Split(c, ",")
- For Each x In ar
- ReDim Preserve Ay(s)
- Ay(s) = x / [P1]
- s = s + 1
- Next
- d = Application.Max(Ay)
- e = Application.Sum(Ay)
- Erase Ay: s = 0
- Else
- d = c / [P1]: e = c / [P1]
- End If
- f = Application.Lookup(d, a, b)
- g = Application.Lookup(e, a, b)
- c.Offset(1).Resize(4, 1) = Application.Transpose(Array(d, f, e, g))
- Next
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 140
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-3-28
- ³Ì«áµn¿ý
- 2015-7-5
|
¦^´_ 3# register313
«D±`¹ê¥Î(´ú¸ÕOK)
ÁÂÁÂ"register313"«e«á¨â¦¸ªº¸Ñµª |
|
|
|
|
|
|