下記コードを作りましたが、全く反応がありません。
どこが悪いのか、指摘いただけませんでしょうか？
よろしくお願いします。
・オプションボタン1を選択＝リストシートのB列をリストボックスへ表示
・オプションボタン2を選択＝リストシートのC列をリストボックスへ表示
・リストボックスから一項目を選択、値を入力シートへ入力
Private Sub UserForm2_Initialize()
If OptionButton1.Value = True Then
With UserForm2
.ListBox1.RowSource = "リスト!B3:B" & lastRow
End With
End If
If OptionButton2.Value = True Then
With UserForm2
.ListBox1.RowSource = "リスト!C3:C" & lastRow
End With
End If
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Worksheets("入力!").ActiveCell.Value = ListBox1.Value
End Sub
以上
ＶＢＡです。
InputBox String型・Variant型がエラーにならない理由がわかりません。
Sub 日付型()
Dim 日 As Date
日 = InputBox("値をいれてください")
End Sub
Sub 数値型()
Dim i As Long
i = InputBox("値をいれてください")
End Sub
Sub 通貨型()
Dim 円 As Currency
円 = InputBox("値をいれてください")
End Sub
Sub String型()
Dim a As String
a = InputBox("値をいれてください")
End Sub
Sub Variant型()
Dim v As Variant
v = InputBox("値をいれてください")
End Sub
String型・Variant型以外は、
「実行時エラー '13'; 型が一致しません。」になります。
String型・Variant型はならない理由を教えてください。ご回答よろしくお願いします。
ＶＢＡです。
InputBox String型・Variant型がエラーにならない理由がわかりません。
Sub 日付型()
Dim 日 As Date
日 = InputBox("値をいれてください")
End Sub
Sub 数値型()
Dim i As Long
i = InputBox("値をいれてください")
End Sub
Sub 通貨型()
Dim 円 As Currency
円 = InputBox("値をいれてください")
End Sub
Sub String型()
Dim a As String
a = InputBox("値をいれてください")
End Sub
Sub Variant型()
Dim v As Variant
v = InputBox("値をいれてください")
End Sub
String型・Variant型以外は、
「実行時エラー '13'; 型が一致しません。」になります。
String型・Variant型はならない理由を教えてください。ご回答よろしくお願いします。
コマンドプロンプトのcopyのファイル名を記述する部分にファイルのフルパスを使用してみたのですが、「指定されたファイルが見つかりません」となってしまいますが、copyではフルパスは使用できないのでしょうか？
エラーになるのは以下のように記述したコマンドです。（a.txtをb.txtにコピー）
copy C:\Documents and Settings\a.txt C:\Documents and Settings\b.txt
よろしくお願いします。
