1

ログイン フォームの場合、以下のコードを使用して、すべてのテキスト ボックスとコンボ ボックス コントロールの値を別のシートに格納します。タグとテキスト ボックスの値は入力されますが、コンボ ボックスの値だけではセルに書き込まれません。誰かが私の間違いを指摘できますか?

For Each cControl In frmLogin.Controls
If cControl.Name Like "txt*" Or cControl.Name Like "cb*" Then
    Sheet5.Cells(m, 10).Value = cControl.Tag
    Sheet5.Cells(m, 11).Value = cControl.Text
    m = m + 1
End If

次

4

1 に答える 1

0

MSForms比較するには を使用する必要があります。

これを試して

Dim cControl As Control
Dim m As Long

'~~> Change as applicable
m = 1

For Each cControl In frmLogin.Controls
    If TypeOf cControl Is MSForms.TextBox Or _
    TypeOf cControl Is MSForms.ComboBox Then
        Sheet5.Cells(m, 10).Value = cControl.Tag
        Sheet5.Cells(m, 11).Value = cControl.Text
        m = m + 1
    End If
Next
于 2013-08-08T05:56:28.680 に答える