下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 09:40:09
下列代码的意思
Sub Saveas()
Dim Mrow%,I%,n%
Dim Y As Integer
'Arr = [a2].CurrentRegion
'n = UBound(Arr)
n = [a2].End(xlDown).Row
Y = MsgBox("记录是否需要保存!",4)
If Y = 7 Then
Exit Sub
End If
With Sheets("销售单明细表").Select
Mrow = Range("A65535").End(xlUp).Row + 1
For I = 4 To n
ActiveSheet.Cells(Mrow,1).Value = Mrow - 1
ActiveSheet.Cells(Mrow,2).Value = Sheets("销售单输入").Range("B2").Value
ActiveSheet.Cells(Mrow,3).Value = Sheets("销售单输入").Range("F2").Value
ActiveSheet.Cells(Mrow,4).Value = Sheets("销售单输入").Range("J2").Value
ActiveSheet.Cells(Mrow,16).Value = Sheets("销售单输入").Range("E22").Value
ActiveSheet.Cells(Mrow,17).Value = Sheets("销售单输入").Range("B22").Value
ActiveSheet.Cells(Mrow,5).Value = Sheets("销售单输入").Range("B" & I).Value
ActiveSheet.Cells(Mrow,6).Value = Sheets("销售单输入").Range("C" & I).Value
ActiveSheet.Cells(Mrow,7).Value = Sheets("销售单输入").Range("D" & I).Value
ActiveSheet.Cells(Mrow,8).Value = Sheets("销售单输入").Range("E" & I).Value
ActiveSheet.Cells(Mrow,9).Value = Sheets("销售单输入").Range("F" & I).Value
ActiveSheet.Cells(Mrow,10).Value = Sheets("销售单输入").Range("G" & I).Value
ActiveSheet.Cells(Mrow,11).Value = Sheets("销售单输入").Range("H" & I).Value
ActiveSheet.Cells(Mrow,12).Value = Sheets("销售单输入").Range("I" & I).Value
ActiveSheet.Cells(Mrow,13).Value = Sheets("销售单输入").Range("J" & I).Value
ActiveSheet.Cells(Mrow,14).Value = Sheets("销售单输入").Range("K" & I).Value
Mrow = Mrow + 1
Next
End With
End Sub
初学者 最好每一行
Sub Saveas()
Dim Mrow%,I%,n%
Dim Y As Integer
'Arr = [a2].CurrentRegion
'n = UBound(Arr)
n = [a2].End(xlDown).Row
Y = MsgBox("记录是否需要保存!",4)
If Y = 7 Then
Exit Sub
End If
With Sheets("销售单明细表").Select
Mrow = Range("A65535").End(xlUp).Row + 1
For I = 4 To n
ActiveSheet.Cells(Mrow,1).Value = Mrow - 1
ActiveSheet.Cells(Mrow,2).Value = Sheets("销售单输入").Range("B2").Value
ActiveSheet.Cells(Mrow,3).Value = Sheets("销售单输入").Range("F2").Value
ActiveSheet.Cells(Mrow,4).Value = Sheets("销售单输入").Range("J2").Value
ActiveSheet.Cells(Mrow,16).Value = Sheets("销售单输入").Range("E22").Value
ActiveSheet.Cells(Mrow,17).Value = Sheets("销售单输入").Range("B22").Value
ActiveSheet.Cells(Mrow,5).Value = Sheets("销售单输入").Range("B" & I).Value
ActiveSheet.Cells(Mrow,6).Value = Sheets("销售单输入").Range("C" & I).Value
ActiveSheet.Cells(Mrow,7).Value = Sheets("销售单输入").Range("D" & I).Value
ActiveSheet.Cells(Mrow,8).Value = Sheets("销售单输入").Range("E" & I).Value
ActiveSheet.Cells(Mrow,9).Value = Sheets("销售单输入").Range("F" & I).Value
ActiveSheet.Cells(Mrow,10).Value = Sheets("销售单输入").Range("G" & I).Value
ActiveSheet.Cells(Mrow,11).Value = Sheets("销售单输入").Range("H" & I).Value
ActiveSheet.Cells(Mrow,12).Value = Sheets("销售单输入").Range("I" & I).Value
ActiveSheet.Cells(Mrow,13).Value = Sheets("销售单输入").Range("J" & I).Value
ActiveSheet.Cells(Mrow,14).Value = Sheets("销售单输入").Range("K" & I).Value
Mrow = Mrow + 1
Next
End With
End Sub
初学者 最好每一行
这个是excel里面的宏代码吧
应该是在销售单输入后执行这个宏,可以生成销售单明细表,把输入的项重新整理好
应该是在销售单输入后执行这个宏,可以生成销售单明细表,把输入的项重新整理好
下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2
Private Sub Command1_Click() Dim i As Integer,s As Integer,n
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As
b求π为啥是错的Private Sub Command1_Click()Dim s As Integer,n As Do
Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n =
语句dim arr(-3 to 5,2 to 6)as integer定义的数组元素有
9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer
英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
VB dim x as integer dim i as integer x = 100 for i = 1 to 10
Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i =