[已解决]如何保留选择下拉框前的前一个数据

winmayt

1. If Cells(a, flag + i) <> "" Then
   
2. Response = MsgBox("是否读取数据?", vbYesNo + vbQuestion + vbDefaultButton2, "提示信息")
   
3. If Response = vbYes Then '用户按下“是”按钮
   
4. Cells(a, flag) = "完成"
   
5. For j = 1 To no
   
6. Cells(a, flag + j) = Cells(a - 1, flag + j)
   
7. Next
   
8. 'Else
   
9. 
   
10. End If
    
11. End If

复制代码

求助各位老师：
         当有数据时，点击下拉框的“读数据”将弹出“是否读数据”的对话框。
         1、当按是时，读取上行数据，“取数据”列变成“完成”
         2、当按否时，数据不变，“取数据”列也保持不变，即：
              a、“取数据”列原来为“完成”，即为“完成”            
              b、“取数据”列原为“空”，即为“空”

而我就是不知道那个Else语句怎么写，请问各位老师，当按否时，如果保持原来的数据不变呢？

最佳答案

月排行榜 / 总排行榜

缔造者

2013-12-2 18:23

附件：
求助，如何保留选择下拉框前的前一个数据.rar (15.72 KB, 下载次数: 6)

2013-12-2 18:23 上传

点击文件名下载附件

跳转到最佳答案楼层

缔造者

提个思路：
先把原单元格的值储存起来，然后再赋值回来。

winmayt

缔造者 发表于 2013-12-2 17:07
提个思路：
先把原单元格的值储存起来，然后再赋值回来。

这个方法我已经试过了，我先存储了选择单元格的值到另一个单元格，但是当我再次选择下拉框选项“读数据”时，以保存的值就变成了“读数据”。

缔造者

没看仔细，最后一个循环把“完成”又重新赋值了，去掉就行了。
另外缺少一个选定区域发生改变时触发程序的事件

1. 
   
2. <P>Dim c
   
3. Private Sub Worksheet_Change(ByVal Target As Range)</P>
   
4. <P>'If Target.Count > 1 Then Exit Sub
   
5. a = Target.Row
   
6. b = Target.Column
   
7. 'c = Cells(a, b)</P>
   
8. <P>flag = 1                                                     '
   
9. no = 2</P>
   
10. <P>If b >= flag And b <= flag + no Then
    
11.     If b = flag Then
    
12.         If Cells(a, flag) = "读数据" Then
    
13.             For i = 1 To no
    
14.                 If Cells(a, flag + i) <> "" Then
    
15.                     Response = MsgBox("是否读取数据?", vbYesNo + vbQuestion + vbDefaultButton2, "提示信息")
    
16.                     If Response = vbYes Then                        '用户按下“是”按钮
    
17.                         Cells(a, flag) = "完成"
    
18.                         For j = 1 To no
    
19.                             Cells(a, flag + j) = Cells(a - 1, flag + j)
    
20.                         Next
    
21.                     Else
    
22.                     Cells(a, flag) = c
    
23.                     End If
    
24.                 End If
    
25.             Next
    
26.             
    
27. '            For i = 1 To no
    
28. '                Cells(a, flag + i) = Cells(a - 1, flag + i)
    
29. '                Cells(a, flag) = "完成"
    
30. '            Next
    
31.             
    
32.         End If
    
33.    
    
34.     End If
    
35. End If</P>
    
36. <P>
    
37. End Sub</P>
    
38. <P>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
39. c = Target.Value
    
40. End Sub
    
41.        </P>

复制代码

缔造者

附件：
求助，如何保留选择下拉框前的前一个数据.rar (15.72 KB, 下载次数: 6)

2013-12-2 18:23 上传

点击文件名下载附件

winmayt

缔造者 发表于 2013-12-2 18:23
附件：

谢谢你，我试试看。