返回列表 上一主題 發帖

[發問] 判斷式的問題

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2014-4-16 17:33 | 顯示全部帖子
回復 1# 518587
結果是不是樣子?
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
如果是, 試試看
  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  '先假定所有的均介於 5 與 6 之間
  10.         
  11.         For j = 0 To 10
  12.             r1 = i * 11 + j - 10
  13.             
  14.             '若有任一個不介於 5 與 6 之間, 則跳離迴圈
  15.             '並設為 not OK, 換下一組
  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.         '若全部介於 5 與 6 之間, 則填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
複製代碼

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題