学习计划进度表

529905149

制作一个学习计划进度表，选中复选框后，选中内容增加行内容到“学习计划已完成"中，同时“学习计划未完成”删除已完成的行。谢谢

Excel_muke

1. =FILTER(B6:C30,D6:D30=TRUE(),"")

复制代码

1. =FILTER(B6:C30,D6:D30=FALSE(),"")

复制代码

ykcbf1100

附件供参考。。。

ykcbf1100

VBA来一个。。。

1. Sub ykcbf()   '//2024.8.22
   
2.     With Sheets("Sheet1")
   
3.         R = .Cells(Rows.Count, 2).End(3).Row
   
4.         .[f6:j1000] = ""
   
5.         ReDim brr(1 To R, 1 To 2)
   
6.         ReDim crr(1 To R, 1 To 2)
   
7.         For i = 6 To R
   
8.             If .Cells(i, 4) = True Then
   
9.                 m = m + 1
   
10.                 brr(m, 1) = .Cells(i, 2)
    
11.                 brr(m, 2) = .Cells(i, 3)
    
12.             Else
    
13.                 n = n + 1
    
14.                 crr(n, 1) = .Cells(i, 2)
    
15.                 crr(n, 2) = .Cells(i, 3)
    
16.             End If
    
17.         Next
    
18.         .[f6].Resize(m, 2) = brr
    
19.         .[i6].Resize(n, 2) = crr
    
20.     End With
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

529905149

ykcbf1100 发表于 2024-8-22 18:46
VBA来一个。。。

谢谢您的解答，如果把按钮去掉，点击复选框，自动执行VBA呢

ykcbf1100

529905149 发表于 2024-8-23 12:14
谢谢您的解答，如果把按钮去掉，点击复选框，自动执行VBA呢

按钮和复制框没啥区别啊，都是要按一下。