下面宏的意思.Dim p,t,s,b,c,d,z1 As ChartDim j,i,a,z2 As Integera =
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/04 00:12:55
下面宏的意思.
Dim p,t,s,b,c,d,z1 As Chart
Dim j,i,a,z2 As Integer
a = 0
j = CInt(Range("a2").Value)
s = CStr(611 + j * 10)
t = CStr(620 + j * 10)
p = "e" & s & ":br" & t
Sheets("位置").Select
Range(p).Select
Selection.Copy
Sheets("班级成绩查询").Select
Range("N72").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
For i = Asc("n") To Asc("x")
For j = 11 To 61 Step 10
a = a + 1
b = Range("n72:ca72").Cells(1,a).Address
c = Range("n81:ca81").Cells(1,a).Address
d = b & ":" & c
Range(d).Select
Application.CutCopyMode = False
Selection.Copy
p = Chr(i) & CStr(j)
Range(p).Select
ActiveSheet.Paste
Next j
Next i
Range("N11:X20").Select
Selection.Copy
Sheets("分段成绩").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N21:X30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B14").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N31:X40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B26").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N41:X50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B38").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N51:X60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B50").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N61:X70").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B62").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级图表向导").Select
End Sub
现在主要是我没改变宏,但是在把EXCEL里的科目改变后,有很多数据不能用了。VB很难吧。
Dim p,t,s,b,c,d,z1 As Chart
Dim j,i,a,z2 As Integer
a = 0
j = CInt(Range("a2").Value)
s = CStr(611 + j * 10)
t = CStr(620 + j * 10)
p = "e" & s & ":br" & t
Sheets("位置").Select
Range(p).Select
Selection.Copy
Sheets("班级成绩查询").Select
Range("N72").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
For i = Asc("n") To Asc("x")
For j = 11 To 61 Step 10
a = a + 1
b = Range("n72:ca72").Cells(1,a).Address
c = Range("n81:ca81").Cells(1,a).Address
d = b & ":" & c
Range(d).Select
Application.CutCopyMode = False
Selection.Copy
p = Chr(i) & CStr(j)
Range(p).Select
ActiveSheet.Paste
Next j
Next i
Range("N11:X20").Select
Selection.Copy
Sheets("分段成绩").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N21:X30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B14").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N31:X40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B26").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N41:X50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B38").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N51:X60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B50").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N61:X70").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B62").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级图表向导").Select
End Sub
现在主要是我没改变宏,但是在把EXCEL里的科目改变后,有很多数据不能用了。VB很难吧。
大哥,
那要一句一句解释吗?
那要一句一句解释吗?
print的使用Dim a As Integera = 0Dim b As Stringb = aPrint a; "1
DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F
复数z1=a+bi,z2=c+di,则"a=c且b=d"是"两个复数z1=z2"的什么条件
三星手机的A、B、C、D、E、F、G、I、J、L、M、P、S、T、U、W等字母各代表什么意思?
vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer
英语翻译Dim a() As String,b() As String,x1() As String,y1() As S
已知复平面上两点A,B所对应的复数z1,z2满足:z2=(1-√3i)z1,且|z1|+|z2|+|z1-z2|=6+2
给出以下命题(1)若a、b∈R,且a>b,则a+i>b+i(2)z1、z2∈C,"z1-z2>0"是"z1>z2"的必要
设复平面上三点A、B、C对应的复数分别是Z1、Z2、Z3,若(Z2-Z1)/(Z3-Z1)=1+(4i/3),试求三角形
A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,
英语翻译Dim a,b As IntegerDim c As DoubleIf (a>0,and b>0) Then c
已知z1,z2∈C且|z1|=1.若z1+z2=2i,则|z1-z2|的最大值是