下列代码的意思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/11/27 18:01:29
下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2].CurrentRegion'n = UBound(Arr)n = [a2].End(xlDown).RowY = MsgBox(
x[OAHbt"j)Zllhipp.ш"[m0 4hb[fgw_tv(^oyag1F6S\ZtI*3^Kѽp Nl~?x ^;o!y0tMʋL~%VMB;Ʉi~ /l=D\wXE颐:{}{4ԠZ XXT&2\FDQ7p ]A˜wnh]ݾ4ӝTD֝T7yF.RpI Ib*45IVc2Mf /$!0HiD= 5(^o@+)N AGqG-=r-#qѤ888hR2*cZTEiVԀ P5O*9%5OPÀ ST 3T5]1U{?~ںcUF[; PQThr[ܞ7f?#;ˆ z=Ā*)9.1^fp :˖oJs;%"K)9n(.܅>ոs>EN9XAq.\=(_EI/%eHSw-P'uM^+WCWqn<6zR,^*npZlGF̲&k=ܨqx4b1Z,Q+G,aE]j߹`

下列代码的意思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