循环赋值怎么表达?

汐林

   各位大神好,我新手想请教一些想要实现这样循环赋值要怎么写?不知道要用什么语句.

    d1 = 503: z1 = 165
    d2 = 516: z2 = 165
    d3 = 430: z3 = 165
    d4 = 310: z4 = 150

For x = 1 To 4
  a = d(x)
  b = z(x)
......

盼盼198310

说明一下逻辑关系

MOY838840554

用array函数生成一维数组
d=array(503,516,430,310)

z=array(165,165,165,150)

注意数组从0开始计数
for x = 0 to 3
  a=d(x)
  b=z(x)
next

汐林

盼盼198310 发表于 2022-11-17 15:29
说明一下逻辑关系

d1 z1 是已知的,然后下面想用循环来依次引用 d1 d2 z1 z2

汐林

代码是这样子的.

1. 
   
2. Sub 添加尺寸()
   
3. 
   
4. Dim a1, a2, a3, a4, a5, a6, a7, a8, a9 As Integer
   
5. Dim b1, b2, b3, b4, b5, b6 As String
   
6. Dim d1, z1, d2, z2, d3, z3, d4, z4, d5, z5, d6, z6%
   
7. 
   
8.    
   
9. a1 = "5432"
   
10.    
    
11.     d1 = 503: z1 = 165
    
12.     d2 = 516: z2 = 165
    
13.     d3 = 430: z3 = 165
    
14.     d4 = 310: z4 = 150 '想把这4组坐标循环使用,因为数据不是在格子上的,在代码里面的,不知道怎么写.
    
15. 
    
16. ' For x = 1 To 2
    
17. '  a = d(x)
    
18. '  b = z(x)
    
19.             
    
20.     ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 50, 50, 72, _
    
21.         72).Select
    
22. 
    
23.     Selection.ShapeRange.TextFrame2.TextRange.Characters.Text = a1
    
24. 
    
25.      Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat. _
    
26.          FirstLineIndent = 0
    
27. 
    
28.     With Selection.ShapeRange.TextFrame2.TextRange.Font
    
29.         .NameComplexScript = "+mn-cs"
    
30.         .NameFarEast = "Adobe 黑体 Std R"
    
31.         .Fill.Visible = msoTrue
    
32.         .Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
    
33.         .Fill.ForeColor.TintAndShade = 0
    
34.         .Fill.ForeColor.Brightness = 0
    
35.         .Fill.Transparency = 0
    
36.         .Fill.Solid
    
37.         .Size = 11
    
38.         .Name = "Adobe 黑体 Std R"
    
39.     End With
    
40.     Selection.ShapeRange.IncrementRotation 270
    
41.     Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
    
42.         msoAlignCenter
    
43.     Selection.ShapeRange.IncrementLeft d1 '想让这个数值能循环取值
    
44.     Selection.ShapeRange.IncrementTop z1 '想让这个数值能循环取值
    
45. 'Next cc
    
46. End Sub
    
47. 
    
48. 
    

复制代码

汐林

完整的代码是这样子的.请大神看一下.谢谢了.

1. 
   
2. Sub 添加尺寸()
   
3. 
   
4. Dim a1, a2, a3, a4, a5, a6, a7, a8, a9 As Integer
   
5. Dim b1, b2, b3, b4, b5, b6 As String
   
6. Dim d1, z1, d2, z2, d3, z3, d4, z4, d5, z5, d6, z6%
   
7. 
   
8.    
   
9. a1 = "5432"
   
10.    
    
11.     d1 = 503: z1 = 165
    
12.     d2 = 516: z2 = 165
    
13.     d3 = 430: z3 = 165
    
14.     d4 = 310: z4 = 150 '想把这4组坐标循环使用,因为数据不是在格子上的,在代码里面的,不知道怎么写.
    
15. 
    
16. ' For x = 1 To 2
    
17. '  a = d(x)
    
18. '  b = z(x)
    
19.             
    
20.     ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 50, 50, 72, _
    
21.         72).Select
    
22. 
    
23.     Selection.ShapeRange.TextFrame2.TextRange.Characters.Text = a1
    
24. 
    
25.      Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat. _
    
26.          FirstLineIndent = 0
    
27. 
    
28.     With Selection.ShapeRange.TextFrame2.TextRange.Font
    
29.         .NameComplexScript = "+mn-cs"
    
30.         .NameFarEast = "Adobe 黑体 Std R"
    
31.         .Fill.Visible = msoTrue
    
32.         .Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
    
33.         .Fill.ForeColor.TintAndShade = 0
    
34.         .Fill.ForeColor.Brightness = 0
    
35.         .Fill.Transparency = 0
    
36.         .Fill.Solid
    
37.         .Size = 11
    
38.         .Name = "Adobe 黑体 Std R"
    
39.     End With
    
40.     Selection.ShapeRange.IncrementRotation 270
    
41.     Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
    
42.         msoAlignCenter
    
43.     Selection.ShapeRange.IncrementLeft d1 '想让这个数值能循环取值
    
44.     Selection.ShapeRange.IncrementTop z1 '想让这个数值能循环取值
    
45. 'Next cc
    
46. End Sub
    
47. 
    
48. 
    

复制代码

汐林

MOY838840554 发表于 2022-11-17 15:37
用array函数生成一维数组
d=array(503,516,430,310)

谢谢版主,你这个方法真的解决了.非常感谢!