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年，不再开放新的回复

发表回复

相关推荐

谁能帮帮我。在excel表中，我从一个表sheet1中复制一定范围的数据，再粘贴到别一个工作表“信息表”中，为何range("A3").select的select无效 Private Sub CommandButton1_Click() Range("a2:d41").Select Selection.Copy Sheets("信息表").Select Range("a3").Select ActiveSheet.Paste End Sub

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 MsgBox "用户名或密码错误！" End If End If End Sub

excel vba 高级过滤 Sub shaixuan() Dim database As Range '定义数据区域 Dim criteria_range As Range '定义条件区域 Dim extract_field As Range '定义结果区域 Set database = Sheets("man").Range("A1").Curr...

Private Sub CheckBox1_Click() End Sub Private Sub CommandButton1_Click() 'MsgBox VBAProject.ThisWorkbook.Path Dim nRow As Integer Dim nIndex As Integer Dim nListRow As Integer Dim sMajor As String Dim sWorkBook As String sWorkBook = Cells(2, 2) Work

Sub SequenceRandom() '在A列产生随机排序 Randomize Timer Dim DataPool(65535) As Integer rowNum = Range("B65535").End(xlUp).Row - 1 'MsgBox rowNum Sheets("Sheet1").Columns(1).Range("A2:A65535").ClearContents For i = 1 To rowNum DataPool(i) = i Next Las...

发帖

下载资源悬赏专区

1.1w+

社区成员

1094.5w+

社区内容

CSDN 下载资源悬赏专区

其他技术论坛（原bbs）

社区管理员

加入社区

帖子事件

创建了帖子

2019-07-05 03:30

社区公告

暂无公告