关于变量中取第一变量不参与循环形成固定值

xdychina

Dim li As Integer li = Me.ListView100.ListItems.Count Dim li1 For li1 = 1 To li     If Me.ListView100.ListItems(li1).Selected Then     Dim itmx, itmx1     itmx = ListView100.ListItems(li1).Text     itmx1 = ActiveSheet.Shapes(itmx).Height  ’怎么让itmx1的值不参与循环就得到此时的固定值 ActiveSheet.Shapes(itmx).Height = itmx1 End If Next li1

xdychina

希望大神们指点这个itmx1如何固定值不在循环的过程中发生变化

xdychina

已解决
Dim li As Integer
li = Me.ListView100.ListItems.Count ' To 1 Step -1
Dim li1
Dim itmx, lie
For li1 = 1 To li
    If Me.ListView100.ListItems(li1).Selected Then
    itmx = ListView100.ListItems(li1).Text
    itmx1 = ActiveSheet.Shapes(itmx).Height
    ActiveSheet.Cells(lie + 1, 59) = itmx1
    lie = lie + 1
    If ActiveSheet.Cells(1, 59) = "" Then
    Exit Sub
    End If
ActiveSheet.Shapes(itmx).Height = ActiveSheet.Cells(1, 59)
End If
Next li1