エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4265 for オートフィルタ (0.004 sec.)

[[20090317220310]]: #score: 4241; @digest: 320c28e28549dc41b12de83fc91c35db; @id: 42531; @mdate: 2009-03-18T13:52:13Z; @size: 4359; @type: text/plain; #keywords: 立? (15241), 納簿 (12489), enableautofilter (7407), 出納 (5553), userinterfaceonly (5285), 両立 (4775), protect (4401), ト保 (3817), ルタ (2767), 保護 (2503), フィ (2318), 支出 (2227), ィル (2205), 収入 (2000), トグ (1992), 用可 (1943), autofilter (1896), トフ (1544), ター (1437), オー (1319), ルボ (1188), スワ (1121), ルエ (1078), selection (953), 上書 (939), 期待 (863), 保存 (793), スク (792), 解除 (735), 終了 (707), 駄目 (699), エリ (674); 『シート保護とフィルタの両立?』（T.K）
OS:XP excel:2000 いつもお世話になっております。またまた、土壷に嵌って困っています。出納簿を作っております。どうやっても数式が入っているとセルに電卓で計算して数字を入れる人が居て、シートを壊してしまいます。そこで数式が入っているセルに保護をかけ、変更できなくするところまでは、やったのですが、フィルターが使えないことがわかりました。フィルターはどうしても必要とのこと、保護、フィルターを両立?させることできないかとネット上で調べまくったのですが無理なようですね。次なる手段として、スクロールエリアを設定してしまえばと考え、試しているのですが、I列の5行目から下にスクロールエリアを定めるということがどうしてもできません、そもそも、こんなことは無理なのでしょうか? 4行目のI列には、出納簿の始まりで、繰越が入るため、どうしてもここはセルを選択できなければなりません。その下の5行目からは、数式が入っているので、スクロールできなくして選択できなくすれば、と考えているのですが・・・何か良い方法がありましたら、教えてください。お願いいたします。（T.K) ---- こんにちは VBAを使うとExcel2000でもシート保護とオートフィルターを併用出来るようになります オートフィルターを設定し、シート保護を解除した状態で ThisWorkbookモジュールに Private Sub Workbook_Open() Sheets("test").EnableAutoFilter = True Sheets("test").Protect UserInterfaceonly:=True End Sub をコピペしてファイルを上書き保存してファイルを開くと『"test"』部分に指定したシートがシート保護された状態でオートフィルタが使えるようになります。 ※パスワードを設定している場合は『Protect』を『Protect:="****"』に変更して『"****"』を任意のパスワードに変更してください (boy) ---- boyさん、ありがとうございます。下のように書き換えました。動いております。グー!です。 With Sheets("金銭出納簿") .Unprotect ' 一旦、保護を解除 .Range("E4:E121").Select Selection.AutoFilter .EnableAutoFilter = True ' オートフィルタを利用可に .Protect UserInterfaceonly:=True ' 再度、シート保護 End With 起動後、データのある最終行プラス1行目にアクティブセルを動かしておこうと思い次の一文を入れたのですが、 Range("B65530").End(xlUp).Offset(1).Select フィルターが掛からなくなります。これは、.Protect UserInterfaceonly:=Trueの関係でしょうか? 後学のため教えていただければ幸いです。 ---- こんにちは＞これは、.Protect UserInterfaceonly:=Trueの関係でしょうか違います『Selection.AutoFilter』の部分ですフィルターを設定状態⇒フィルター解除フィルターの設定なし⇒フィルター設定になってしまいます。＞.Range("E4:E121") 常に上記の範囲にフィルタを使用したいのですか? オートフィルターを使用可能な状態で保存しているなら『Selection.AutoFilter』は不要なのでは? それともOn/Offを確認する必要があるのですか? ---- お世話になります。あまり活発でない団体の出納簿なので、これくらいの行数で十分と考え 121行に設定しました。なお、E列には「摘要その2」のようなものが入り、支出や収入内容が入ります。従って、この列でフィルターをかければ、収入か支出か、それが何日で、幾らで、支払先もしくは誰から受け取ったお金かが判ると考えたからです。それ以外の意味はありませんが、余り沢山フィルタのマークが表示されるのも煩いかなと考えたからです。 Range("B65530").End(xlUp).Offset(1).Selectを書く位置によって機能するようで、試してみたのですが、期待した程でもないのではずしてしまいました。ありがとうございました。参考になりました。それよりも大きな問題として、保護もオートフィルタもトグルボタン。シート上にボタンを配置してそこで「上書き保存」、「保存せずに終了」を決定するようにしたのですが、ファイルメニューのの終了から「上書き保存」や「保存せずに終了」を選択し、終了されてしまうとトグルボタンがオートフィルタをオフにして終わったのかそれともオンにして終わったのかによってマクロが期待通りに動いてくれなくなってしまいます。どのように設定するのが良いのでしょうか? いろいろ試してはいるのですが、頭が混乱してしまいます。よろしくお願いいたします。 ---- こんにちはファイルを開いた時に常に『シート保護』と『オートフィルター』が設定された状態をデフォルトにしては駄目なのでしょうか? ThisWorkbookの『Selection.AutoFilter』の前後を以下に変更 If Not .AutoFilterMode Then Selection.AutoFilter End If するのは駄目でしょうか? ---- boyさん、ありがとうございました。考えていた形に出来上がりました。貴重なアドバイス戴き、本当にありがとうございました。 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200903/20090317220310.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ