kkkkkmのプロフィール

N3にあいまい検索欄を設定し、入力後に自動的にフィルタリングされるようマクロで設定しました。 ---------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address 'セル色塗り Case "$L$1" If Intersect(Target, Range("L1")) Is Nothing Then Exit Sub Else Call セル色塗り Range("L1").Select End If '会社名検索 Case "$N$3" If Target.Address <> Range("N3").Address Then Exit Sub End If Range("$A$5:$AW$2005").AutoFilter Field:=14, Criteria1:="=*" & Range("N3") & "*" '画面を左上に戻す ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 End Select End Sub ---------------------------------------------------- N3を消去してもなぜかフィルタがかかったままになってしまいます。 N3が消去された後、N列のみフィルタを解除するマクロをご教示ください。

N3にあいまい検索欄を設定し、入力後に自動的にフィルタリングされるようマクロで設定しました。 ---------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address 'セル色塗り Case "$L$1" If Intersect(Target, Range("L1")) Is Nothing Then Exit Sub Else Call セル色塗り Range("L1").Select End If '会社名検索 Case "$N$3" If Target.Address <> Range("N3").Address Then Exit Sub End If Range("$A$5:$AW$2005").AutoFilter Field:=14, Criteria1:="=*" & Range("N3") & "*" '画面を左上に戻す ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 End Select End Sub ---------------------------------------------------- N3を消去してもなぜかフィルタがかかったままになってしまいます。 N3が消去された後、N列のみフィルタを解除するマクロをご教示ください。

現在、月毎にシート別になっている勤務表の管理をしており、初心者ながらExcel VBAを使って効率的に作成したいと思っています。 勤務表は1行目に日付、A列に従業員の名前が入っています。 その中でつまづいている箇所がありますので以下の2点について教えてください。 ① 従業員の中に三交代制の従業員がいます。 　A、B、Cの3つの班に分かれており、その日がどの班なのか分かるように日付の下の行に「A B C A B C ･･･」と順番に記載したいですがどのようにしたら良いでしょうか？ 　また、この時に月を跨ぐとAから始まらない(前月がBで終わると翌月1日はCから始まる)と思うのですが、シートを跨いでABCの3つが続いていくようにしたいです。 ② 前記①が完了したら、三交代制の従業員の隣にそれぞれABCの表記をし、日付のABCと従業員のABCがそれぞれ交わる日のセルに「出勤」と入れたいです。 職場のパソコンで作業しているため、現在手元にデータがなく、参考となる画像がつけられずに分かりづらいとは思いますがご回答頂けると助かります。 よろしくお願いします。

ExcelシートをテーブルとしてADO接続し、SQLでデータを抽出する仕組みを組んでいます。 特定のSQLで2回目の呼び出し時に｢抽出条件でデータ型が一致しません。｣とエラーになります。 1回目呼び出し時にはエラーにはならず正常にデータを抽出できているのですが、2回目呼び出し時のみエラーとなります。 抽出条件の引数はVariant型、テーブルの抽出対象項目は数値です。 vba初心者で恐れ入りますが、ご教授願います。

現在、月毎にシート別になっている勤務表の管理をしており、初心者ながらExcel VBAを使って効率的に作成したいと思っています。 勤務表は1行目に日付、A列に従業員の名前が入っています。 その中でつまづいている箇所がありますので以下の2点について教えてください。 ① 従業員の中に三交代制の従業員がいます。 　A、B、Cの3つの班に分かれており、その日がどの班なのか分かるように日付の下の行に「A B C A B C ･･･」と順番に記載したいですがどのようにしたら良いでしょうか？ 　また、この時に月を跨ぐとAから始まらない(前月がBで終わると翌月1日はCから始まる)と思うのですが、シートを跨いでABCの3つが続いていくようにしたいです。 ② 前記①が完了したら、三交代制の従業員の隣にそれぞれABCの表記をし、日付のABCと従業員のABCがそれぞれ交わる日のセルに「出勤」と入れたいです。 職場のパソコンで作業しているため、現在手元にデータがなく、参考となる画像がつけられずに分かりづらいとは思いますがご回答頂けると助かります。 よろしくお願いします。