アクセス超初心者です。
下記内容のイベントプロシージャーを記述しました。
フォーム内にクリアというコマンドボタンを作成。で、クリックしたら書き込まれていたフォームの内容が消えるように作ったのですが。（ネット上で見つけたプロシージャーを参考に作成しました）
黒丸部分が黄色くなってエラーになります。
どのように修正すればいいのでしょうか？
分かる方いましたらご教示ください<m(__)m>よろしくお願い致します。
Private Sub cmd_クリア_Click()
Dim CT1 As Control
For Each CT1 In Me.Controls
If CT1.ControlType = acTextBox Or CT1.ControlType = acComboBox Then
●CT1.Value = Null
ElseIf CT1.ControlType = acCheckBox Then
CT1.Value = False
End If
Next
End Sub
EXCEL2002、SP2上での質問です。
ユーザーフォームをVBAで作成中です。
主な機能は、区分をコンボボックスで選択させた上で、
取込みたいファイルを参照し、取込実行ボタンを押すという感じに
作っています。
質問は、取込みたいファイルを参照させ選択したあと、すぐに処理を
行うのではなく、一度参照した結果のフォルダー名とファイル名を
別の窓（ツールボックスのどのコントロールがベストチョイスか不明）
に表示させ、取込実行ボタンでコンボボックスで選択した内容と
参照したファイルを取得するようにしたいのですが、別の窓に参照結果
を表示させる方法がわかりません。
説明が長くてわかりにくいと思いますが、参照ボタンの記述を下記に
記載しますので、参照後の処理をどのようにしたらよいか教えて
下さい。
Private Sub 参照_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "テキスト", "*.csv;*.txt", 1
If .Show = 0 Then Exit Sub
→ここに参照した後の処理を追加したいです。
End With
End Sub
EXCEL2002、SP2上での質問です。
ユーザーフォームをVBAで作成中です。
主な機能は、区分をコンボボックスで選択させた上で、
取込みたいファイルを参照し、取込実行ボタンを押すという感じに
作っています。
質問は、取込みたいファイルを参照させ選択したあと、すぐに処理を
行うのではなく、一度参照した結果のフォルダー名とファイル名を
別の窓（ツールボックスのどのコントロールがベストチョイスか不明）
に表示させ、取込実行ボタンでコンボボックスで選択した内容と
参照したファイルを取得するようにしたいのですが、別の窓に参照結果
を表示させる方法がわかりません。
説明が長くてわかりにくいと思いますが、参照ボタンの記述を下記に
記載しますので、参照後の処理をどのようにしたらよいか教えて
下さい。
Private Sub 参照_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "テキスト", "*.csv;*.txt", 1
If .Show = 0 Then Exit Sub
→ここに参照した後の処理を追加したいです。
End With
End Sub
以下のような2シートから、重複する「商品番号」のあるsheet1の行を抜き出して、別シートに書き出したいと思っております。
sheet1
｜ A ｜ B ｜ C
-＋--------＋-------＋-----
1｜ ｜ ｜
-＋--------＋------＋--------
2｜商品番号｜商品名｜責任者
-＋--------＋------＋--------
3｜ 123456｜ ガム｜山田太郎
-＋--------＋------＋--------
4｜ 2345678｜ チョコ｜田中花子
・・・
sheet2
｜ A ｜ B ｜ C
-＋--------＋-------＋-----
1｜ ｜ ｜
-＋--------＋------＋--------
2｜商品番号｜商品名｜責任者
-＋--------＋------＋--------
3｜ 3987624｜ ｜
-＋--------＋------＋--------
4｜ 193678｜ ｜
・・・
そこでVBAを作成したのですが、例えば商品番号「222011001」の行を抜き出したいのに、「22011001」の行も一緒に抜き出してしまいます。
どこがいけないのか、教えて頂けないでしょうか。
作成したVBAは以下の通りです。
VBA初心者で本を見ながら作ったため、大変見にくくなっているかと思います。申し訳ありませんが、どなたかおわかりになる方がいらっしゃいましたら、どうぞ宜しくお願い致します。
Option Base 1
Option Explicit
Sub 重複データ抽出書き直し()
Dim シート(2) As Worksheet
Dim 比較列(2) As Integer
Dim 一致セル As Range
Dim 検索範囲 As Range
Dim i As Integer
Set シート(1) = Sheets("sheet1")
Set シート(2) = Sheets("sheet2")
比較列(1) = 1: 比較列(2) = 1
シート(2).Activate
ActiveCell.CurrentRegion.Select
Selection.Offset(1, 比較列(2) - 1) _
.Resize(Selection.Rows.Count - 1, 1) _
.Select
Set 検索範囲 = Selection
Sheets.Add After:=Sheets(Sheets.Count)
シート(1).Activate
ActiveCell.CurrentRegion.Select
Selection.Resize(1).Copy
With Sheets(Sheets.Count).Range("A1")
If Application.Version >= 9 Then
.PasteSpecial 8
End If
.PasteSpecial
End With
For i = 2 To Selection.Rows.Count
Set 一致セル = 検索範囲.Find(Selection.Cells(i, 比較列(1)).Value)
If Not 一致セル Is Nothing Then
Selection.Offset(i - 1).Resize(1) _
.Copy Sheets(Sheets.Count) _
.Range("A65536").End(xlUp) _
.Offset(1)
End If
Next i
Sheets(Sheets.Count).Activate
End Sub
