[µo°Ý] §PÂ_¦¡ªº°ÝÃD

518587

¦U¦ì¤j®v!  ¤p§Ì¦³­Ó¤p°ÝÃD¡A½Ð¨DÀ°§U~~

½d¨Ò¦p¤U

A         B
0        10
1        10.4
2        10.2
3        10
4        10.2
5        5.8
6        10.6
7        9.8
8        9.8
9        10.6
10     11.2
0        5.6
1        5.4
2        5.2
3        5
4        5.2
5        5.8
6        5.6
7        5.8
8        5.8
9        5.6
10     5.2
0        10
1        10.4
2        10.2
3        10
4        5.2
5        5.8
6        10.6
7        9.8
8        9.8
9        10.6
10     11.2
§Úªº°ÝÃD¬O¡A§Ú­n¦p¦ó§PÂ_

A¦C±q0~10µ§¸ê®Æ§PÂ_¤@¦¸¡A¬ÝB¦C­È¬O§_³£¤¶¦b©ó5~6¤§¶¡¡A
¦pªG¬O¡A±N­È¨ú0
         §_¡A«h­ì­È§e²{

³Â·Ð¦U¦ì¤j®v!! ÁÂÁÂ

GBKEE

¦^´_ 1# 518587
A¦C±q0~10µ§¸ê®Æ§PÂ_¤@¦¸¡A¬ÝB¦C­È¬O§_³£¤¶¦b©ó5~6¤§¶¡¡A
¦pªG¬O¡A±N­È¨ú0 §_¡A«h­ì­È§e²{, ¦p¦ó§e²{??

518587

¦^´_ 2# GBKEE

¬Oªº¡C ½Ð°Ý³o¼Ëªº°ÝÃD­n¦p¦ó¥ÎVBA§e²{©O??

518587

¦^´_ 2# GBKEE

±zªº·N«ä¬O ­n§e²{¦b­þ¤@¦C¶Ü??

¥i¥H±N­È§e²{¦bB¦C©Î¬O¦C¦b·sªº¤@¦C¤¤³£¥i

GBKEE

¦^´_ 4# 518587
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub EX()
   
3.     Dim E As Range, xMax As Single, xMin As Single
   
4.     With Range("A:A")
   
5.         .Cells.Replace "0", "=KKK", xlWhole
   
6.         With .SpecialCells(xlCellTypeFormulas, xlErrors)
   
7.             .Value = 0
   
8.             For Each E In .Areas
   
9.                 With E.Resize(11).Offset(, 1)
   
10.                     xMax = Application.WorksheetFunction.Max(.Cells)
    
11.                     xMin = Application.WorksheetFunction.Min(.Cells)
    
12.                     If xMin >= 5 And xMax <= 6 Then
    
13.                         .Offset(, 1) = 0
    
14.                     Else
    
15.                         .Offset(, 1) = .Value
    
16.                     
    
17.                     End If
    
18.                 End With
    
19.             Next
    
20.         End With
    
21.     End With
    
22. End Sub

½Æ»s¥N½X

yen956

¦^´_ 1# 518587
µ²ªG¬O¤£¬O¼Ë¤l?
0         10.0
1         10.4
2         5.4
3         10.0
4         10.2
5         5.8
6         10.6
7         9.8
8         9.8
9         10.6
10         11.2
0         0
1         0
2         0
3         0
4         0
5         0
6         0
7         0
8         0
9         0
10         0
0         10
1         10.4
2         10.2
3         10
4         5.2
5         5.8
6         10.6
7         9.8
8         9.8
9         10.6
10         11.2
¦pªG¬O, ¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Dim i, j, r1 As Integer
   
4.     Dim OK As Boolean
   
5.    
   
6.     '
   
7.     For i = 1 To 3
   
8.         
   
9.         OK = True  '¥ý°²©w©Ò¦³ªº§¡¤¶©ó 5 »P 6 ¤§¶¡
   
10.         
    
11.         For j = 0 To 10
    
12.             r1 = i * 11 + j - 10
    
13.             
    
14.             '­Y¦³¥ô¤@­Ó¤£¤¶©ó 5 »P 6 ¤§¶¡, «h¸õÂ÷°j°é
    
15.             '¨Ã³]¬° not OK, ´«¤U¤@²Õ
    
16.             If Cells(r1, 2) < 5 Or Cells(r1, 2) > 6 Then
    
17.                 OK = False
    
18.                 Exit For
    
19.             End If
    
20.         Next
    
21.         
    
22.         '­Y¥þ³¡¤¶©ó 5 »P 6 ¤§¶¡, «h¶ñ0
    
23.         If OK Then
    
24.             For j = 0 To 10
    
25.                 r1 = i * 11 + j - 10
    
26.                 Cells(r1, 2) = 0
    
27.             Next
    
28.         End If
    
29.     Next
    
30. End Sub

½Æ»s¥N½X

518587

ÁÂÁ¦U¦ì¤j®vªºÀ°§U¡A¤p§Ì¸Õ¸Õ¡C