返回列表 上一主題 發帖

[發問] 如何改寫此篇程式，謝謝。

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-1-8 13:20 | 顯示全部帖子

[發問] 如何改寫此篇程式，謝謝。

本帖最後由 av8d 於 2018-1-8 13:46 編輯

原先是使用這段是正常的(如下)
  1. Private Sub CommandButton1_Click()
  2.     If D10 < 1 Then
  3.         Rows("10").EntireRow.Hidden = True
  4.     End If
  5. End Sub
複製代碼
改寫後就不會動了(如下)
  1. Private Sub CommandButton1_Click()
  2.     For i = 10 To 38 Step 7
  3.         If D & "i" < 1 Then
  4.             Rows("i").EntireRow.Hidden = True
  5.         End If
  6.     Next
  7. End Sub
複製代碼
後來發現判斷式也有問題，無論D10有沒有小於1該列都會被隱藏。(原始檔如下)
提問.rar (33.17 KB)
------------------------------------------------------------------------------------------------------------
2018/1/8 13:45
問題一已解決，剩問題二。
收藏 分享

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
2#
發表於 2018-1-8 13:52 | 顯示全部帖子
回復 1# av8d

問題二已解
  1. Private Sub CommandButton1_Click()
  2.     For i = 10 To 38 Step 7
  3.         If Range("D" & i).Value < 1 Then
  4.             Rows(i).EntireRow.Hidden = True
  5.         End If
  6.     Next
  7. End Sub
複製代碼

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題