将旋转按钮分配给文本框

问题描述 投票:0回答:1

我有一个用户窗体文本框,我想与一个旋转按钮相关联。当我插入产品ID号时,我希望旋转按钮能够在列中上下移动并相应地更改文本框的值。我试图通过循环执行此操作,但是由于某些原因,当满足循环条件时,它不会执行我的if then语句。我想知道是否有人可以对此问题提供任何启示。下面是我的便于查看的代码。

Private Sub SpinButton1_SpinDown()


Dim R As Integer

Let Lastrow = Worksheets("Petrobras").Cells(Rows.Count, 22).End(xlUp).Row


For R = 2 To Lastrow

OPPID = Worksheets("Petrobras").Cells(R, 22).Value

If TXTOpp_Num_Pbras.Value = OPPID Then
    Worksheets("Petrobras").Cells(R, 22).Offset(-1, 0).Value
    TXTOpp_Num_Pbras.Value = ActiveCell.Value



End If
Next

End Sub
excel vba
1个回答
0
投票

这有两个文本框和一个旋转按钮。您在第一个框中输入一个ID,它会得到一个行号。旋转会更改该行中的列,然后将单元格的值发送到第二个文本框。

Option Explicit

Public rownum As Long
Public colnum As Long

Private Sub SpinButton1_SpinDown()
    Dim text2val As String
    If Not colnum = 1 Then
        colnum = colnum - 1
    End If
    text2val = ActiveSheet.Cells(rownum, colnum).Value 'Change ActiveSheet to the real sheet name

    Me.Controls("TextBox2").Value = text2val
End Sub

Private Sub SpinButton1_SpinUp()
    Dim text2val As String
    colnum = colnum + 1

    text2val = ActiveSheet.Cells(rownum, colnum).Value 'Change ActiveSheet to the real sheet name
    If Not text2val = "" Then
        Me.Controls("TextBox2").Value = text2val
    Else
        Me.Controls("TextBox2").Value = "No More Data"
    End If
End Sub


Private Sub TextBox1_Change()
    Dim val As String
    val = "ID" & Me.Controls("TextBox1").Value 'Concatenating ID because my Column labels have 1, 2, 3, 4
    If Not val = "" Then
        rownum = ActiveSheet.UsedRange.Find(val).Row 'Change ActiveSheet to the real sheet name
    End If

End Sub

enter image description here

© www.soinside.com 2019 - 2024. All rights reserved.