设为首页收藏本站
开启辅助访问

Excel精英培训网

 找回密码
 注册
Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 提示设置
数据透视表40+个常用小技巧，让你一次学会！
12下一页
返回列表 发新帖
查看: 2889|回复: 17

[已解决]提示设置

[复制链接]
没事
发表于 2013-6-21 12:43 | 显示全部楼层 |阅读模式
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
提示设置.zip (14.83 KB, 下载次数: 13)
excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上
hwc2ycy
发表于 2013-6-21 12:53 | 显示全部楼层
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
  1. Private Sub CommandButton4_Click()
  2.     Dim bl As Boolean
  3.     bl = MsgBox("是否导入名次数据", vbInformation + vbYesNo) = vbYes
  4.     For i = 1 To 8
  5.         If Controls("TextBox" & i).Text <> "" Then k = k + 1
  6.     Next i
  7.     If k = 0 Then MsgBox "  成绩栏不能为空！", vbOKOnly, " 系统提示": Exit Sub

  9.     Sheet2.[a2].Value = TextBox1.Value
  10.     Sheet2.[a3].Value = TextBox2.Value
  11.     Sheet2.[a4].Value = TextBox3.Value
  12.     Sheet2.[a5].Value = TextBox4.Value
  13.     Sheet2.[a6].Value = TextBox5.Value
  14.     Sheet2.[a7].Value = TextBox6.Value
  15.     Sheet2.[a8].Value = TextBox7.Value
  16.     Sheet2.[a9].Value = TextBox8.Value

  18.     If bl Then
  19.         Sheet2.[b2].Value = TextBox9.Value
  20.         Sheet2.[b3].Value = TextBox10.Value
  21.         Sheet2.[b4].Value = TextBox11.Value
  22.         Sheet2.[b5].Value = TextBox12.Value
  23.         Sheet2.[b6].Value = TextBox13.Value
  24.         Sheet2.[b7].Value = TextBox14.Value
  25.         Sheet2.[b8].Value = TextBox15.Value
  26.         Sheet2.[b9].Value = TextBox16.Value
  27.     End If
  28. End Sub
复制代码
你看这样成不？
回复

使用道具 举报

hwc2ycy
发表于 2013-6-21 12:59 | 显示全部楼层
工作中最常用的Excel函数公式，全印在一张鼠标垫上
再改一下。
  1. Private Sub CommandButton4_Click()
  2.    
  3.     Dim bl As Boolean

  5.     bl = MsgBox("是否导入名次数据", vbInformation + vbYesNo) = vbYes

  7.     For i = 1 To 8
  8.         If Len(Controls("TextBox" & i).Text) = 0 Then
  9.             MsgBox "  成绩栏不能为空！", vbOKOnly, " 系统提示": Exit Sub
  10.         End If
  11.     Next i

  13.     If bl Then
  14.         For i = 9 To 16
  15.             If Len(Controls("TextBox" & i).Text) = 0 Then
  16.                 MsgBox "  名次栏不能为空！", vbOKOnly, " 系统提示": Exit Sub
  17.             End If
  18.         Next
  19.     End If

  21.     With Sheet2
  22.         .[a2].Value = TextBox1.Value
  23.         .[a3].Value = TextBox2.Value
  24.         .[a4].Value = TextBox3.Value
  25.         .[a5].Value = TextBox4.Value
  26.         .[a6].Value = TextBox5.Value
  27.         .[a7].Value = TextBox6.Value
  28.         .[a8].Value = TextBox7.Value
  29.         .[a9].Value = TextBox8.Value

  31.         If bl Then
  32.             .[b2].Value = TextBox9.Value
  33.             .[b3].Value = TextBox10.Value
  34.             .[b4].Value = TextBox11.Value
  35.             .[b5].Value = TextBox12.Value
  36.             .[b6].Value = TextBox13.Value
  37.             .[b7].Value = TextBox14.Value
  38.             .[b8].Value = TextBox15.Value
  39.             .[b9].Value = TextBox16.Value
  40.         End If
  41.     End With
  42.    
  43.     MsgBox "导入完成"
  44. End Sub
复制代码
回复

使用道具 举报

没事
 楼主| 发表于 2013-6-21 13:01 | 显示全部楼层
hwc2ycy 发表于 2013-6-21 12:53
你看这样成不？

谢谢！应该是名次为空时，提示是否要导入名次！
回复

使用道具 举报

hwc2ycy
发表于 2013-6-21 13:01 | 显示全部楼层
  1. Private Sub CommandButton4_Click()
  2.     '是否导入名次数据
  3.     Dim bl As Boolean

  5.     '错误处理
  6.     On Error GoTo ErrorHandler
  7.    
  8.     bl = MsgBox("是否导入名次数据", vbInformation + vbYesNo) = vbYes
  9.    
  10.     '判断成绩栏是否都有填完整
  11.     For i = 1 To 8
  12.         If Len(Controls("TextBox" & i).Text) = 0 Then
  13.             MsgBox "  成绩栏不能为空！", vbOKOnly, " 系统提示": Exit Sub
  14.         End If
  15.     Next i

  17.     '如果导入名次数据，判断所有的成绩栏数据是否填完整
  18.     If bl Then
  19.         For i = 9 To 16
  20.             If Len(Controls("TextBox" & i).Text) = 0 Then
  21.                 MsgBox "  名次栏不能为空！", vbOKOnly, " 系统提示": Exit Sub
  22.             End If
  23.         Next
  24.     End If
  25.    
  26.     '写入数据
  27.     With Sheet2
  28.         .[a2].Value = TextBox1.Value
  29.         .[a3].Value = TextBox2.Value
  30.         .[a4].Value = TextBox3.Value
  31.         .[a5].Value = TextBox4.Value
  32.         .[a6].Value = TextBox5.Value
  33.         .[a7].Value = TextBox6.Value
  34.         .[a8].Value = TextBox7.Value
  35.         .[a9].Value = TextBox8.Value

  37.         If bl Then
  38.             .[b2].Value = TextBox9.Value
  39.             .[b3].Value = TextBox10.Value
  40.             .[b4].Value = TextBox11.Value
  41.             .[b5].Value = TextBox12.Value
  42.             .[b6].Value = TextBox13.Value
  43.             .[b7].Value = TextBox14.Value
  44.             .[b8].Value = TextBox15.Value
  45.             .[b9].Value = TextBox16.Value
  46.         End If
  47.     End With

  49.     MsgBox "导入完成"
  50.     Exit Sub

  52. '容错处理
  53. ErrorHandler:
  54.     MsgBox Err.Number & vbCrLf & _
  55.            Err.Description
  56. End Sub
复制代码
回复

使用道具 举报

hwc2ycy
发表于 2013-6-21 13:04 | 显示全部楼层
为空的时候提示，如果要改入，空的也写入么？
回复

使用道具 举报

hwc2ycy
发表于 2013-6-21 13:08 | 显示全部楼层
  1. Private Sub CommandButton4_Click()
  2. '是否导入名次数据
  3.     Dim bl As Boolean

  5.     '错误处理
  6.     On Error GoTo ErrorHandler



  10.     '判断成绩栏是否都有填完整
  11.     For i = 1 To 8
  12.         If Len(Controls("TextBox" & i).Text) = 0 Then
  13.             MsgBox "  成绩栏不能为空！", vbOKOnly, " 系统提示": Exit Sub
  14.         End If
  15.     Next i

  17.     '如果导入名次数据，判断所有的成绩栏数据是否填完整
  18.     For i = 9 To 16
  19.         If Len(Controls("TextBox" & i).Text) = 0 Then
  20.             bl = MsgBox("名次数据有空值，是否导入名次数据", vbInformation + vbYesNo) = vbYes
  21.             Exit For
  22.         End If
  23.     Next


  26.     '写入数据
  27.     With Sheet2
  28.         .[a2].Value = TextBox1.Value
  29.         .[a3].Value = TextBox2.Value
  30.         .[a4].Value = TextBox3.Value
  31.         .[a5].Value = TextBox4.Value
  32.         .[a6].Value = TextBox5.Value
  33.         .[a7].Value = TextBox6.Value
  34.         .[a8].Value = TextBox7.Value
  35.         .[a9].Value = TextBox8.Value

  37.         If bl Then
  38.             .[b2].Value = TextBox9.Value
  39.             .[b3].Value = TextBox10.Value
  40.             .[b4].Value = TextBox11.Value
  41.             .[b5].Value = TextBox12.Value
  42.             .[b6].Value = TextBox13.Value
  43.             .[b7].Value = TextBox14.Value
  44.             .[b8].Value = TextBox15.Value
  45.             .[b9].Value = TextBox16.Value
  46.         End If
  47.     End With

  49.     MsgBox "导入完成"
  50.     Exit Sub

  52.     '容错处理
  53. ErrorHandler:
  54.     MsgBox Err.Number & vbCrLf & _
  55.            Err.Description
  56. End Sub
复制代码
回复

使用道具 举报

没事
 楼主| 发表于 2013-6-21 13:08 | 显示全部楼层
hwc2ycy 发表于 2013-6-21 13:01

无法运行，应该是成绩与名次不为空时，无需提示。另外，成绩栏是优先提示，

回复

使用道具 举报

hwc2ycy
发表于 2013-6-21 13:10 | 显示全部楼层
我这测试是可以用的，我不知道你怎么用的。另外，现在的本来就是先判断成绩，再来判断名次的。

另外，你是要求所有的没填还是只有有一个没填就提示，这都要说清楚。
回复

使用道具 举报

没事
 楼主| 发表于 2013-6-21 13:14 | 显示全部楼层
hwc2ycy 发表于 2013-6-21 13:10
我这测试是可以用的，我不知道你怎么用的。另外，现在的本来就是先判断成绩，再来判断名次的。

另外，你 ...

谢谢，有一个就算填了。
回复

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-25 05:04 , Processed in 0.396676 second(s), 17 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表