Asキーワードで、変数の型を調べる方法を教えてください。
CommandBarのCommandBarButtonのStateの状態を変更させようとして次のようなSubを作りました。
Sub testCommandBar()
Dim MyCommandBar As CommandBar
Dim MyControl As CommandBarButton
Set MyCommandBar = Application.CommandBars("test")
For Each MyControl In MyCommandBar.Controls
MyControl.State = msoButtonMixed
MyControl.State = msoButtonDown
MyControl.State = msoButtonUp
Next
End Sub
しかし、コントロールにボタンとコンボボックスを配置すると、ローカルウィンドで、型を見てもCommandBarButtonと、CommandBarComboBoxと型が分かれているため、当然上記のままだとエラーになります。で、安易にObject型(最上位)にするのではなくもうひとつ上のCommandBarButtonと、CommandBarComboBox共通の型ってどうやって調べればいいのでしょうか？
たとえば、「Sheet1」と「Sheet2」の型の上位といえば「WookSheet」のように？？(←これが正しいかも自信がないですが)
自分では、「Sheets」「WookSheet」「SheetXX」はそれぞれ型が違うってのは理解しているつもりです。(XXは数字)
よろしくお願いいたします。
ついでに、上記のコードだと、ボタンだけの配置で、ステップインで実行させても、ボタンの状態が変化しません。別の質問でと思ったのですが、あつかましく教えていただければ幸いです。
はじめまして、ゴールデンウィーク中にVBAを勉強していますが、上手くいきません。内容は、「UserForm1を使って別シートにあるデーターから検索を行い、ListBox1に抽出されたリストを選択すると個別のTextBox2に関連する詳細を表示させる」というものです。別シートには「顧客データ」があり、A列より「担当、氏名、カタナカ、住所、電話番号・・・」とデーターが並んでいます。中途半端な状態ですが、これ以上進めません。だれか助けてください。
Private Sub CommandButton1_Click()
Dim Namae As String
Dim MeNamae As Object
Dim ken As String
Namae = TextBox1.Text
Set MeNamae = UserForm1
Call 検索(Namae, MeNamae)
End Sub
'受付画面に検索画面窓を出し、顧客データから検索した結果を出すマクロ
Public Sub 検索(ByVal Namae As String, ByRef MeNamae As Object)
Dim Nagasa As Integer
Dim i As Long
Dim MaxRows As Long
Dim kensaku As Object
Dim KensakuChar As String
Dim ListNamae As String
Dim ListChar As String
Dim KBanme As Integer
Dim LBanme As Integer
Set kensaku = Worksheets("顧客データ")
MaxRows = kensaku.UsedRange.Rows.Count
Nagasa = Len(Namae)
MeNamae.ListBox1.Clear
For i = 3 To MaxRows
ListNamae = kensaku.Cells(i, 3)
KBanme = 0
LBanme = 0
Do
Do While Nagasa >= KBanme
KBanme = KBanme + 1
KensakuChar = Mid(Namae, KBanme, 1)
If KensakuChar <> " " Then
Exit Do
End If
Loop
Do While Nagasa >= LBanme
LBanme = LBanme + 1
ListChar = Mid(ListNamae, LBanme, 1)
If ListChar <> " " Then
Exit Do
End If
Loop
If KensakuChar = ListChar Then
If Nagasa = KBanme Then
With MeNamae
.ListBox1.AddItem (ListNamae)
End With
End If
Else
Exit Do
End If
Loop Until Nagasa <= KBanme
Next
End Sub
Private Sub ListBox1_Click()
With ListBox1
If .ListIndex > -1 Then
TextBox2.Value = .List(.ListIndex, 0)’←これでは何の意味も無い
' TextBox2.Value = kensaku.Cells(kensakuIndex, 3)
' TextBox2.Value = kensaku.Cells(kensaku, 3)
' TextBox2.Text = kokyaku.Hoken4
' TextBox2.Text = kokyaku.Cells(i, 5)
End If
End With
End Sub
EXCELWORKSHEET上で下記の処理をすると「型が一致しません」との
エラーがでます。どうにも原因と対応策がわからず悩んでいます。
デバッグの良い方法ありませんでしょうか？
＜現象＞
＊列2上のセルを選択して、DELETEキーを押す。⇒エラーなし。
＊しかし、列2上のセルとその他のセルを同時選択した上で、DELETEキーを押すと「型が一致しません。」のエラー。
頭の「If Target.Column Like 2 And Len(Target.Value) > 0 Then
」が悪さしているのはわかるのですが・・・。
Private Sub WORKSHEET_CHANGE(ByVal Target As Range)
If Target.Column Like 2 And Len(Target.Value) > 0 Then
Range("c" & Target.Row).Value = Now
If Target.Column Like 2 And Len(Target.Value) > 0 Then
'B列の場合だけ確認
Dim rng As Range
Set rng = ActiveSheet.Range("B:B").Find(What:=Target, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True, MatchByte:=True)
If Not rng Is Nothing Then
'発見した。
If rng.Address <> Target.Address Then
'入力中セル以外で発見
Select Case MsgBox("過去に受け入れたLOTです。再度受入れますか？", vbYesNo)
Case vbYes
Range("B2").Activate
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Now
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = UserForm2.TextBox2.Value
UserForm2.TextBox1.Value = ""
UserForm2.TextBox2.Value = ""
UserForm2.TextBox1.SetFocus
Range("B2").Activate
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Case vbNo
Range("B2").Activate
Selection.End(xlDown).Select
ActiveCell.ClearContents
ActiveCell.Offset(0, 1).Activate
ActiveCell.ClearContents
UserForm2.TextBox1.Value = ""
UserForm2.TextBox2.Value = ""
UserForm2.TextBox1.SetFocus
End Select
End If
End If
End If
End If
End Sub
