表单组合框上的 Excel VBA 循环单元格链接

Question

I'm needing a Function that can change the cell link on form control Combo Boxes that already exist on an active sheet using a loop. I can currently achieve this with out a loop as follows

ActiveSheet.Shapes("Combobox 1").OLEFormat.Object.LinkedCell = Worksheets("Test").Cells(2, 2).Address
ActiveSheet.Shapes("Combobox 2").OLEFormat.Object.LinkedCell = Worksheets("Test").Cells(2, 3).Address
ActiveSheet.Shapes("Combobox 3").OLEFormat.Object.LinkedCell = Worksheets("Test").Cells(2, 4).Address
ActiveSheet.Shapes("Combobox 4").OLEFormat.Object.LinkedCell = Worksheets("Test").Cells(2, 5).Address
ActiveSheet.Shapes("Combobox 5").OLEFormat.Object.LinkedCell = Worksheets("Test").Cells(2, 6).Address
ActiveSheet.Shapes("Combobox 6").OLEFormat.Object.LinkedCell = Worksheets("Test").Cells(2, 7).Address
ActiveSheet.Shapes("Combobox 7").OLEFormat.Object.LinkedCell = Worksheets("Test").Cells(2, 8).Address

So I want to use a loop rather than having to do this for every combobox on my sheet, the loop needs to increment the .Cell row number and .Shape("Combobox 1"). I'm stuck in writing the loop because the combo box is using a name or string value and not an int value.

Any help on this would be much appreciated

Answer 1

Use this format:

Dim ws1 As Worksheet, ws2 As Worksheet, i As Long, os As Long

Set ws1 = ActiveSheet
Set ws2 = Worksheets("Test")

os = 1     'change i Offset as needed

For i = 1 To 7
    ws1.Shapes("Combobox " & i).OLEFormat.Object.LinkedCell = ws2.Cells(2, i + os).Address
Next