下面宏的意思.Dim p,t,s,b,c,d,z1 As ChartDim j,i,a,z2 As Integera = 0j = CInt(Range("a2").Value)s = CStr(611 + j * 10)t = CStr(620 + j * 10)p = "e" & s & ":br" & tSheets("位置").SelectRange(p).SelectSelection.CopySheets("班级成绩查询").S

来源：学生作业帮助网编辑：六六作业网时间：2024/12/19 14:25:05

下面宏的意思.Dimp,t,s,b,c,d,z1AsChartDimj,i,a,z2AsIntegera=0j=CInt(Range("a2").Value)s=CStr(611+j*10)t=CSt

下面宏的意思.Dim p,t,s,b,c,d,z1 As ChartDim j,i,a,z2 As Integera = 0j = CInt(Range("a2").Value)s = CStr(611 + j * 10)t = CStr(620 + j * 10)p = "e" & s & ":br" & tSheets("位置").SelectRange(p).SelectSelection.CopySheets("班级成绩查询").S
下面宏的意思.
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 ChartDim j,i,a,z2 As Integera = 0j = CInt(Range(a2).Value)s = CStr(611 + j * 10)t = CStr(620 + j * 10)p = e & s & :br & tSheets(位置).SelectRange(p).SelectSelection.CopySheets(班级成绩查询).S 概率 P(S,A|T)和概率P(S|A,T)分别是指什么意思它们等于什么? 看书上有P(A,B|C)=P(A|B,C)P(B|C)谁能解释说明一下,谢谢!为什么有下面这两个能讲一下吗？P(S,A|T)=P(SAT)/P(T)P(S|A,T)=P(SAT)/P(AT) 用下面所给的字母组成一个正确的单词并写出其汉语意思a c r i h [ ] t p o o h [ ] s e k d [ ] b e l a t [ ]p t c i r e u [ ] h t a m [ ] d r e n u [ ] r h e e [ ] 请帮忙解释下面语句意思-2'填写遗漏值 Dim n As Integer Dim arrR() As Integer, arrB() As Integer ReDim arrR(5), arrB(5) Dim r As Range Dim k As Long Dim t As Integer arrR(0) 美国的首都,用英语写?还有b.j.e.c.u.s.t和o.r.t.s.p组成一个单词是什么?加中文意思. 利用π/4≈1-1/3+1/5-1/7+… 求π得近似值最后一项小于0.000001.我的代码是下面这样,算出来π=2.6667?Private Sub Command1_Click()Dim p As Double, n As Long, t As Integer, s As Double p = 1: n = 1: t = 1 Do n = n + 1 s = 1 / 把下面的字母组成单词t o s c d r a p补充下面单词wal_m_n 请用下面字母组词,写意思t,h,s,o,i,y,r ( ) a,e,r,d,m ( ) s,d,u,t,y( ) r,h,a,e,s ( )s,p,e,u,s,t,c( ) 把下面的字母组成单词(五年级的)(1)i c p u e r t(2)r m c a e a(3)e v o l e n e p(4)e m o p c t u r(5)t o s c d r a p(6)t e t r l e(7)h g r i t(8)b o m o t t 三星手机的A、B、C、D、E、F、G、I、J、L、M、P、S、T、U、W等字母各代表什么意思?如三星i900、P520、T929中的i、P、T代表什么意思? 音标写单词 /c:/【那个C是反过来的】f() c()l ch()k f()k d() sh()t dr() n()th s()h()se m() th()t m() n()th t()l fl() w()ter w()k/b/ 【好像是b,你们看看下面单词看看把】s()ccer f()x cl()ck n()t h()t m()p p()p b()rrow wr()ngw( VB编程,一元二次方程a*x^2+b*x+c=0的根Dim a As Double Dim b As Double Dim c As Double Dim delta As Double Dim x1 As Double Dim x2 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) delta = b * b - 组词并写出其汉语意思：e w n p a s p r e o s p t a d c r c i m o c o k b o u b y 有14个含有th字母组合的单词隐藏在下面的图表中,找出来.c L t p t u t h e v t t t t O h f h y h I m t h h ht H i s a t e b o h r a is H n c t h i r t e e n ra U k b d e r s h y e k tt H e s e r c y e s u l ye F a t h e r n r t h e a b c d e f g h i j k l m n o p q r s t u v w x y zn g z q t c o b m u h e l k p d a w x f y i v r s j把问题中的字母变成下面的字母有什么规律? 根据所给的字母,组合单词并写出其汉语意思c i p e t u ri u b n l d i ga y F i d rg l p t g e a ni r b d g ee o c s t la r c i t u no r m r r i 在每组字母中选择出正确的单词,并写出中文意思!例：R I B O S S O R 正确的：BOSS 老板1.F E B Z E B R A T Y E2.S C D U M P I N G L E R3.R O P I C N I C E N T4.G O E T O A S T O N G 用s,p,e,u,s,t,c组英语单词,并写出中文意思来不急了!