返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
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

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
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

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題