首頁>Club>

EXCELVBA控制元件名變數迴圈賦值？

6
回覆列表
  • 1 # 滴逃逃

    Sub 儲存屬性()

    Dim y As Object, j As Byte

    For Each y In Worksheets("資料面").OLEObjects

    If InStr(y.Name, "CommandButton") Then

    j = Replace(y.Name, "CommandButton", "")

    Worksheets("儲存").Range("C" & (x - 1) * 20 + j - 1) = y.Enabled

    End If

    Next

    End Sub

    Sub 讀取儲存資料()

    Dim y As Object, j As Byte

    For Each y In Worksheets("資料面").OLEObjects

    If InStr(y.Name, "CommandButton") Then

    j = Replace(y.Name, "CommandButton", "")

    y.Enabled = Worksheets("儲存").Range("C" & (x - 1) * 20 + j - 1)

    End If

    Next

    End Sub

相關內容

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 眼鏡片是玻璃的好還是塑膠的好？