[已解决]提示设置

没事

没事 发表于 2013-6-21 13:14
谢谢，有一个就算填了。

类似成绩，只是名次为空时，提示是否要填名次。谢谢！

hwc2ycy

另外，你说填一个就成，那输出写入单元格时你又别别的要求。

没事

hwc2ycy 发表于 2013-6-21 13:19
另外，你说填一个就成，那输出写入单元格时你又别别的要求。

成绩与名次都可以选择一个数据，不一定都要写满。

没事

hwc2ycy 发表于 2013-6-21 13:19
另外，你说填一个就成，那输出写入单元格时你又别别的要求。

成绩栏一定要这样写的  
For i = 1 To 8
      If Controls("TextBox" & i).Text <> "" Then k = k + 1
   Next i
   If k = 0 Then MsgBox "  成绩栏不能为空！", vbOKOnly, " 系统提示": Exit Sub

hwc2ycy

1. Private Sub CommandButton4_Click()
   
2. '是否导入名次数据
   
3.     Dim bl As Boolean
   
4. 
   
5.     '错误处理
   
6.     On Error GoTo ErrorHandler
   
7. 
   
8.     '判断成绩栏是否都有填完整
   
9.     For i = 1 To 8
   
10.         If Len(Controls("TextBox" & i).Text) Then Exit For
    
11.     Next i
    
12. 
    
13.     If i = 9 Then MsgBox "  成绩栏不能为空！", vbOKOnly, " 系统提示": Exit Sub
    
14.     '如果导入名次数据，判断所有的成绩栏数据是否填完整
    
15. 
    
16.     For i = 9 To 16
    
17.         If Len(Controls("TextBox" & i).Text) Then Exit For
    
18.     Next
    
19. 
    
20.     bl = True
    
21. 
    
22.     If i = 17 Then
    
23.         bl = MsgBox("名次数据有空值，是否导入名次数据", vbInformation + vbYesNo) = vbYes
    
24.     End If
    
25. 
    
26.     '写入数据
    
27.     With Sheet2
    
28.         For i = 1 To 8
    
29.             .Cells(i + 1, 1).Value = Me.Controls("TextBox" & i).Value
    
30.         Next
    
31. 
    
32.         If bl Then
    
33.             For i = 9 To 16
    
34.                 .Cells(i - 7, 2).Value = Me.Controls("TextBox" & i).Value
    
35.             Next
    
36.         Else
    
37.             .Range("b2:b9").ClearContents
    
38.         End If
    
39.     End With
    
40. 
    
41.     MsgBox "导入完成"
    
42.     Exit Sub
    
43. 
    
44.     '容错处理
    
45. ErrorHandler:
    
46.     MsgBox Err.Number & vbCrLf & _
    
47.            Err.Description
    
48. End Sub

复制代码

hwc2ycy

要那么条条框框做成么，只要能达到效果。

如果你是为了完成老师布置的作业，那你就自己去改。

没事

hwc2ycy 发表于 2013-6-21 13:30
要那么条条框框做成么，只要能达到效果。

如果你是为了完成老师布置的作业，那你就自己去改。

谢谢老师。成绩没有问题了，主要是名次如果为空时，提示是否要写入名次，否则导入数据！

hwc2ycy

拜托你把问题说清楚点，每次挤牙膏似的。

你自己做效果图吧。