excel VBA登陆实验下载

weixin_39820535 2019-07-05 03:30:21
excel VBA基础登陆实验
Private Sub CommandButton1_Click()
Dim myarea As Range
Dim key As String
key = ComboBox_name.SelText
Set myarea = Sheets("sheet1").Columns(1).Find(key)
If myarea.Rows.Count > 0 Then
If myarea.Offset(0, 1).Value = TextBox_un.Text Then
MsgBox "登陆成功!"
login.Hide '隐藏窗口
Else

相关下载链接://download.csdn.net/download/running521/2834053?utm_source=bbsseo
...全文
10 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
相关推荐
发帖
下载资源悬赏专区

1.1w+

社区成员

CSDN 下载资源悬赏专区
其他 技术论坛(原bbs)
社区管理员
  • 下载资源悬赏专区社区
加入社区
帖子事件
创建了帖子
2019-07-05 03:30
社区公告
暂无公告