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
...全文
浏览 点赞 收藏 回复
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
下载资源悬赏专区
创建于2007-03-31

6000

社区成员

CSDN 下载资源悬赏专区
申请成为版主
社区公告
暂无公告