2014VBA初级第三讲--VBA程序设计基础知识(二)

淘气的果果 · 发表于 2014-10-29 11:07

学习学习

274377061 · 发表于 2014-10-30 09:10

感谢楼主分享

qwqw8899 · 发表于 2014-10-30 09:29

天棋 · 发表于 2014-11-8 08:20

xuexi

ztpcharmed · 发表于 2014-11-14 16:58

dddddddddddd

houjie8806 · 发表于 2014-12-11 11:01

ddddd

荨麻草 · 发表于 2014-12-14 15:33

{:1112:}

galoop · 发表于 2015-3-3 17:48

Sub 添加()
Dim a(5) As String, i As Long, j As Long
a(1) = Sheets("sheet1").Cells(2, 2)
a(2) = Sheets("sheet1").Cells(2, 4)
a(3) = Sheets("sheet1").Cells(3, 2)
a(4) = Sheets("sheet1").Cells(3, 4)
a(5) = Sheets("sheet1").Cells(4, 2)
r = Sheets("sheet2").Range("b65535").End(xlUp).Row
If r > 2 Then
  For i = 3 To r
  If Sheets("sheet2").Cells(i, 2) = a(1) Then
  y = MsgBox("姓名有重复数据，是否添加", 4)
If y = 6 Then GoTo 100
  Exit Sub
  End If
  Next i
End If
100:
Sheets("sheet2").Cells(r + 1, 1) = r - 1
For j = 2 To 6
Sheets("sheet2").C

Lujianxian · 发表于 2015-3-3 18:26

如何将Excel 中vba安全级别由高级调为低级？

suzhouy2003 · 发表于 2015-3-3 18:37

努力学习天天向上

		自动登录	找回密码
密码			注册

[通知] 2014VBA初级第三讲--VBA程序设计基础知识(二)