作业帮下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2].CurrentRegion'n = UBound(Arr)n = [a2].End(xlDown).RowY = MsgBox("记录是否需要保存!",4)If Y = 7 ThenExit SubEnd If With Sheets("销售单明细表").SelectMrow = Range
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 09:16:39
![下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2].CurrentRegion'n = UBound(Arr)n = [a2].End(xlDown).RowY = MsgBox(](/uploads/image/z/14890483-19-3.jpg?t=%E4%B8%8B%E5%88%97%E4%BB%A3%E7%A0%81%E7%9A%84%E6%84%8F%E6%80%9DSub+Saveas%28%29Dim+Mrow%25%2CI%25%2Cn%25Dim+Y+As+Integer%27Arr+%3D+%5Ba2%5D.CurrentRegion%27n+%3D+UBound%28Arr%29n+%3D+%5Ba2%5D.End%28xlDown%29.RowY+%3D+MsgBox%28%22%E8%AE%B0%E5%BD%95%E6%98%AF%E5%90%A6%E9%9C%80%E8%A6%81%E4%BF%9D%E5%AD%98%21%22%2C4%29If+Y+%3D+7+ThenExit+SubEnd+If+With+Sheets%28%22%E9%94%80%E5%94%AE%E5%8D%95%E6%98%8E%E7%BB%86%E8%A1%A8%22%29.SelectMrow+%3D+Range)
下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2].CurrentRegion'n = UBound(Arr)n = [a2].End(xlDown).RowY = MsgBox("记录是否需要保存!",4)If Y = 7 ThenExit SubEnd If With Sheets("销售单明细表").SelectMrow = Range
下列代码的意思
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).RowY = MsgBox("记录是否需要保存!",4)If Y = 7 ThenExit SubEnd If With Sheets("销售单明细表").SelectMrow = Range
这个是excel里面的宏代码吧
应该是在销售单输入后执行这个宏,可以生成销售单明细表,把输入的项重新整理好
这是一段c语言程序
应该是某种程序的安装码
我对上述程序设计很感兴趣,但不很明白,如有长细解释,请给我一份,谢!,QQ:2863939277,邮箱:0758jwliang@21cn.com