生活问答

当前位置/ 首页/ 生活问答/ 正文

vba宏语言是什么(vba宏语言)

导读 大家好,我是小科,我来为大家解答以上问题。vba宏语言是什么,vba宏语言很多人还不知道,现在让我们一起来看看吧!1、问题12、Private Su...

大家好,我是小科,我来为大家解答以上问题。vba宏语言是什么,vba宏语言很多人还不知道,现在让我们一起来看看吧!

1、问题1

2、Private Sub CommandButton1_Click()

3、Dim i, j As Long

4、 Sheets("sheet2").Cells.ClearContents

5、 Sheets("sheet1").Cells.Copy

6、 Sheets("sheet2").Select

7、 Sheets("sheet2").Range("A1").Select

8、 ActiveSheet.Paste

9、i = 3

10、Do While Sheets("sheet2").Range("A" & i).Value <> ""

11、 For j = 2 To i - 1

12、 If Sheets("sheet2").Range("A" & i).Value > Sheets("sheet2").Range("A" & j).Value Then

13、 Else

14、 Sheets("sheet2").Rows(i & ":" & i).Cut

15、 Sheets("sheet2").Rows(j & ":" & j).Insert Shift:=xlDown

16、 Exit For

17、 End If

18、 Next j

19、 i = i + 1

20、Loop

21、End Sub

22、问题2

23、Private Sub CommandButton1_Click()

24、Dim i, j As Long

25、 Sheets("sheet2").Cells.ClearContents

26、 Sheets("sheet1").Cells.Copy

27、 Sheets("sheet2").Select

28、 Sheets("sheet2").Range("A1").Select

29、 ActiveSheet.Paste

30、i = 3

31、Do While Sheets("sheet2").Range("A" & i).Value <> ""

32、 For j = 2 To i - 1

33、 If Sheets("sheet2").Range("C" & i).Value & Sheets("sheet2").Range("D" & i).Value > Sheets("sheet2").Range("C" & j).Value & Sheets("sheet2").Range("D" & j).Value Then

34、 Else

35、 Sheets("sheet2").Rows(i & ":" & i).Cut

36、 Sheets("sheet2").Rows(j & ":" & j).Insert Shift:=xlDown

37、 Exit For

38、 End If

39、 Next j

40、 i = i + 1

41、Loop

42、End Sub

本文到此讲解完毕了,希望对大家有帮助。