OptionButton索引問題

Question

我在每行的前五個單元格上有五個選項按鈕（窗體控件）。選項按鈕鏈接到第六個單元格分別爲每行 ，我想獲得第六個單元格中的索引號。

（選項按鈕表單控件返回選項按鈕的指示爲鏈接細胞中的狀態的值。）

現在的問題是從第二行起的選項按鈕的索引號是大於5 所以在第六單元格的值大於5。我想他們是1 5

之間

較大（指數是選項按鈕類的只讀屬性）

如何才能實現這一目標？ （最好不用vba）

感謝您的關注。

Answer 1

AS在使用GroupBox的註釋中說明圍繞每組按鈕將允許每組獨立操作。在下面的圖片中，我刪除了GroupBox名稱，並將單元格邊框與單元格邊框對齊，然後使用單元格邊框幾乎遮住了groupbox，因此除了正在選擇的單元外，不能指出它們即使存在最多一個）：

根據要求，這裏是一些VBA代碼。我建議在運行此代碼之前，將行的高度設置爲至少20點。由於groupbox的最小高度是19.5，單元格的寬度將用於確定OptionButtons的寬度，因此請確保使用寬度足以滿足OptionButton文本的寬度。

Sub Sample() 

Dim Top As Variant, Left As Variant, Height As Variant, Width As Variant 
Dim rngActiveRowA As Range, rngEndOfBox As Range 
Dim lngActiveRow As Long, lngActiveColumn As Long 

With Application 
    .ScreenUpdating = False 
    .Calculation = xlCalculationManual 
    .EnableEvents = False 
End With 

For lngActiveRow = 1 To 5 

Set rngActiveRowA = Range("A" & lngActiveRow) 

Set rngEndOfBox = Range("F" & lngActiveRow + 1) 

Top = rngActiveRowA.Top 
Left = rngActiveRowA.Left 
Height = rngEndOfBox.Top - Top 
Width = rngEndOfBox.Left - Left 

ActiveSheet.GroupBoxes.Add(Left, Top, Width, Height).Caption = "" 

    For lngActiveColumn = 1 To 5 

    With ActiveSheet 
     Top = .Cells(lngActiveRow, lngActiveColumn).Top 
     Left = .Cells(lngActiveRow, lngActiveColumn).Left 
     Height = .Cells(lngActiveRow + 1, lngActiveColumn + 1).Top - Top 
     Width = .Cells(lngActiveRow + 1, lngActiveColumn + 1).Left - Left 
    End With 

    With ActiveSheet.OptionButtons.Add(Left, Top, Width, Height) 
     .Characters.Text = "OB" & lngActiveColumn 
     .LinkedCell = "$F$" & lngActiveRow 
    End With 

    Next lngActiveColumn 

Next lngActiveRow 


With Application 
    .ScreenUpdating = True 
    .Calculation = xlCalculationAutomatic 
    .EnableEvents = True 
End With 

End Sub 

此代碼將在前5行的每行的前5列周圍創建一個groupbox。它還會在鏈接到各自行中的F單元的區域的每個單元格中填充一個選項按鈕。並將每個按鈕重命名爲OB +它所在的列號。