WINDOWS 2000です。エクセルのマクロを含むファイルで、その中のシートにかけたフィルタを解除しないで閉じてしまった場合、次回開く時に、砂時計がずっと続いて開かなくなります。なんとかして開く事はできましたが、これを防ぐ方法はありますでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (1件)

私も以前、同じことをしてしまいました。

Windows98で開くと砂時計のままで「応答なし」になり、とても困りましたが、Windows2000で開くと何とか開くことができました。メモリの関係なんでしょうか?フィルタをかけた状態で保存するのは、極力避けた方がよさそうです。
なんの解決にもなってないですが、同じ経験をしたので・・・・
    • good
    • 0
この回答へのお礼

そうでしたか!やっぱり。でも、うちも2000なんですよ。そのファイルは今、7000行くらいになっていて、マクロも重くて、そのせいもあるかもしれないですね。あれからわかりましたが、軽いファイルなら、いくらフィルタかかっていても、大丈夫な事がわかりました。

お礼日時:2002/03/16 06:43

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q画像アップロード掲示板を作る方法教えてください

よろしくお願いします。
画像アップロード掲示板を作りたいのですが、この場合、ホームページを
作らないとだめでしょうか。
掲示板だけを使って直接そこに画像をアップロードするという方法では無理でしょうか。掲示板は有料無料を問いません。
うまく説明できませんが、掲示板を何かのソフトで作るのではなく
画像掲示板を設置したいと思います。つまり掲示板のレンタルです。

Aベストアンサー

#1です。
なるほど、おっしゃりたいことはわかりました。
画像のアップはあなた以外がするわけではないのですね。
それでしたら、一般的なスタイルとして、ホームページを開いて、そのホームページに画像やコメントを置く。
BBSとして現在借りている掲示板へのリンクを置き、掲示板に書きこしてもらう。
場合によっては、フリーのアドレスを取ってメールの受付もする。
これが一番多いスタイルでしょうね。
もし、不特定多数の人に対しての公開をしたいのではなく、特定の仲間内だけに公開をしたいのであれば、わざわざホームページを立ち上げず、無料で使える個人専用の画像公開用スペースを借りても良いかも。
有名な所では『ヤフー・ブリーフケース』とかがありますが、画像専用なら『PhotoAccess』(http://www.photoaccess.co.jp/)なんかが使いやすくて良いです。
もちろん他にも沢山ありますから。
ホームページを作る気になれば、無料のホームページスペースで、大容量なうえ、
CGIやSSLまで使えるところもありますから、探してみるのも良いかと思います。
一例として、
『XREA.COM』(http://www.xrea.com)
『isweb』(http://isweb.infoseek.com)
『Prohosting』(http://free.prohosting.com)
『使える.net』(http://www.tsukaeru.net/)
を紹介しておきます。
もちろん、ここ、『Goo』にも簡単ホームページがありますのでご一考ください。

#1です。
なるほど、おっしゃりたいことはわかりました。
画像のアップはあなた以外がするわけではないのですね。
それでしたら、一般的なスタイルとして、ホームページを開いて、そのホームページに画像やコメントを置く。
BBSとして現在借りている掲示板へのリンクを置き、掲示板に書きこしてもらう。
場合によっては、フリーのアドレスを取ってメールの受付もする。
これが一番多いスタイルでしょうね。
もし、不特定多数の人に対しての公開をしたいのではなく、特定の仲間内だけに公開をしたいの...続きを読む

Qエクセル VBA マクロを動かしたときに元々開いているファイルを閉じる・・・

いつも皆様には大変お世話になっております。

早速質問ですが、
「もしこのマクロが動く時点で他のExcelファイルが開いていたら、警告の上 自ファイルを閉じる、開いていなければ~実行」
という処理をかませたいと思っております。
ここの判定の方法がわかりません。(既にExcelが起動されていたら、でもいいのでしょうか。。。?)

下記のようなマクロを組んでいるので
他のファイルが開いていると厳しい状況です。
bname = "C:\" & Format(Range("q1").Value, "yyyymmdd") & "サンプル" & ".xls"
ActiveWorkbook.SaveAs bname
Workbooks.Open "C:\サンプル.xls"
Workbooks(1).Close

本当は"yyyymmdd"&"サンプル"&".xls"ファイルだけ閉じられればいいのですが、自分の知識では上記のような形でしか動かせません;;

もしご存知の方、ご教示ください。よろしくお願いします

Aベストアンサー

かなりVBAを勉強されているようですので、ヒントだけ。

要するにWorkbookを順にアクティブにし、アクティブなWorkbookの
名前が該当すれば閉じてしまえばいいんです。

IF ActiveWorkbook.name ="なんたら" then ActiveWorkBook.close

こんな感じですかね。ステートメントは合ってるかどうか分かりませんが、
発想はコレでいけるはず。

Q掲示板では、画像を入れたりタグを入れたりしたいですか?

 HPを持っている者です。
 掲示板もレンタルしています。
 私がレンタルしている掲示板は‥‥タグが打てない、画像も入れれない、アイコンも無い、文字だけを入れる(文字色は変えれる)掲示板なのですが‥‥リンクしてあるHPは、みんな華やかで画像を入れれたりアイコンを選択したり、タグを打てたりです。
 
 そこでインターネットを使っている方にお聞きしたいですが、単調な文字だけを入れる掲示板と、タグを入れたり画像を入れたり出来る掲示板、どちらの掲示板にコメントを入れたいですか?
 文字だけの掲示板にも、書き込みをしたいと思いますか?ただの文字だけの書き込みは、やはり楽しくないですか?

 最近、書き込みが減ったなぁと思うのですが、文字だけの掲示板だからかなぁと思いつつあります。
 皆様の意見を伺って、掲示板を移行しようかとも思っています。

Aベストアンサー

一応、掲示板などのCGIを製作しているプログラマーです。

結論からいうと、それはそのHPの雰囲気しだいです。

個人で作っているHPで、和気あいあいとしたアットホームな雰囲気のHPなら、間違いなく色指定、アイコン指定、文中の表情アイコン、昇進機能、へぇ~ボタン、Web拍手などは好まれます。
(たくさんつけると、書き込むのが面倒くさくなりますが。)

しかし、情報を優先するHP(教えてgoo、2ちゃんねる、携帯サイトの掲示板など)では文字だけというのが好まれます。
タイトルや名前欄さえも削った掲示板のほうがよい場合もあります。


タグの許可については、サイトの雰囲気や目的に関わらず、絶対に反対です。
ユーザーが、タグの閉じ忘れや妙なタグを使う例が多くあり、それ以下の書き込みがすべて見れなくなったという事例もありますし、ウイルスやスパイウェアに関連するスクリプトやブラウザクラッシャー、無駄に大きすぎる文字で表示不可能になった例もあります。

Qexcelで閉じる時の処理でAccessを開くがexcelの処理でAccessが開かない

Accessのテーブルをexcelで外部データとしてクエリーで利用する。通
常はAccessの運用でグラフだけをexcelで利用する。Accessのグラフ作
成でAccessを終了してexcelを起動する。この時の起動オプションで
waitフラグをtrueにして実行待ちをしている。

Accessでexcelは正常に起動する。逆に今度はexcelを閉じる時にAccess
を起動したい。この時の起動オプションにはwaitフラグは無いので。
excelが終了する前にAccessが起動しているので。

前のexcelがAccessのテーブルを専有していると言う事でAccessが読み
取り専用で開く。これは不味い。excleでAccessを開く時の起動オプ
ションにwaitフラグは無いのでしょうか。

このexcelでAccessを開く時にwaitフラグをセット出来ないとこの問題は
解決しません。waitフラグをセットする方法を教えて下さい。

excelの起動はshell関数を使っています。excelのvbaではwshの
CreateObjectは動くのでしょうか。それで問題は解決しそうですか。

よろしく回答願います。

Accessのテーブルをexcelで外部データとしてクエリーで利用する。通
常はAccessの運用でグラフだけをexcelで利用する。Accessのグラフ作
成でAccessを終了してexcelを起動する。この時の起動オプションで
waitフラグをtrueにして実行待ちをしている。

Accessでexcelは正常に起動する。逆に今度はexcelを閉じる時にAccess
を起動したい。この時の起動オプションにはwaitフラグは無いので。
excelが終了する前にAccessが起動しているので。

前のexcelがAccessのテーブルを専有していると言う事でAccessが...続きを読む

Aベストアンサー

以下の修正が必要になるかと。
1)
Dim wshsell

Dim wshshell
に変えてください。
2)
st = "C:\Program Files (x86)\Microsoft Office\Office12\MSACCESS.exe "
の最後の空白をとってください。
3)空白を含むパスをRunで実行する場合は、ダブルクオートでくくる必要があります。
st = """C:\Program Files (x86)\Microsoft Office\Office12\MSACCESS.exe"""
のようにしてください。
下記URLが参考になります。
http://jutememo.blogspot.jp/2014/03/vbscript-2.html

Q海外の画像掲示板を探しています。

海外の画像掲示板を探しています。

国内には「双葉」のように画像を貼れてコメントもできる
有名な画像掲示板がいくつかありますが、
海外にもこのような画像掲示板はないでしょうか?


今までの検索で中国とロシアのこのような掲示板は見つけだせたのですが、
それ以外の地域のものはなかなか見つからないんです。
特に欧米の画像掲示板を探してるんですが・・
もしご存知であれば教えていただけないでしょうか?

Aベストアンサー

多分一番知られているのが
4chan http://www.4chan.org/
初回は左のフレームの下の方の I agree から入る

IDLECHAN VERSION 4.0 http://www.iichan.net/
他の掲示板より細かすぎるジャンルが特徴

QNULL値を含む場合のフィルタ

アクセスです。
テーブルに
フィールド1 フィールド2
A   
B       B 
C       C
と入ってるとします。

フィールド2についてはNULL値のレコードもあれば、
値が入ってる場合もあります。

このテーブルをフォームにひもづけていて、(帳票フォームにしています)
フォームヘッダーにテキストボックス2つとコマンドボタンがあり

Private Sub コマンド_Click()

Me.Form.Filter = _
"フィールド1 like '*" & Me.テキスト_1.Value & "*'" & " and " _
& "フィールド2 like '*" & Me.テキスト_2.Value & "*'"
Me.Form.FilterOn = True

End Sub

としたときに、レコードのフィールド2に文字が入ってる場合は、抽出できるのですが、
フィールド2がNULLの場合は、1件もヒットしません。

テキスト_1にはAを入れて
テキスト_2には何も入れないで検索してみると、1件もヒットしませんが、
テキスト_1にBを入れて検索すると、Bのレコードが抽出されます。

もちろん
テキスト_1もテキスト_2もBをいれても、Bのレコードが抽出されます。

VBAコードで
& "フィールド2 like '*" & Me.テキスト_2.Value & "*'"
としてるので、NULL値でも抽出されると思ったのですがなぜ何も抽出されないのでしょうか?
ワイルドカードでnull値も検索されないのでしょうか?

テーブルのフィールド2のデータをNull値ではなく、””にしたら、問題なく抽出されましたが
データのNull値はNull値のままにして、空白などの文字には置き換えたくないです。
(というか、すべてのNULL値に空白を入れる作業が大変なのでやりたくないです。
実際のフィールド数は50個くらいあります)

よろしくお願いします。

アクセスです。
テーブルに
フィールド1 フィールド2
A   
B       B 
C       C
と入ってるとします。

フィールド2についてはNULL値のレコードもあれば、
値が入ってる場合もあります。

このテーブルをフォームにひもづけていて、(帳票フォームにしています)
フォームヘッダーにテキストボックス2つとコマンドボタンがあり

Private Sub コマンド_Click()

Me.Form.Filter = _
"フィールド1 like '*" & Me.テキスト_1.Value & "*'" & " and " _
& "フィールド2 like '*" & Me.テキスト_2...続きを読む

Aベストアンサー

テキスト_2 に入力がなかった場合、

> "フィールド2 like '*" & Me.テキスト_2.Value & "*'"

は、 "フィールド2 like '**'" となり、Null 以外全部・・・という意味になります。
Null のものも対象としたい場合には、条件を記述しない事です。

例えば

 Dim sWhere As String
 Const sAndOr = " AND "

 sWhere = ""
 If (Not IsNull(Me.テキスト_1)) Then
   sWhere = sWhere & sAndOr & "フィールド1 like '*" & Me.テキスト_1 & "*'"
 End If
 If (Not IsNull(Me.テキスト_2)) Then
   sWhere = sWhere & sAndOr & "フィールド2 like '*" & Me.テキスト_2 & "*'"
 End If

 If (Len(sWhere) > 0) Then
   Me.Filter = Mid(sWhere, Len(sAndOr) + 1)
   Me.FilterOn = True
 Else
   Me.FilterOn = False
   Me.Filter = ""
 End If


条件を記述する場合、文字列先頭に必ず sAndOr を付加します。
条件ありの場合は、先頭の sAndOr を除いた分を条件設定します。

テキスト_2 に入力がなかった場合、

> "フィールド2 like '*" & Me.テキスト_2.Value & "*'"

は、 "フィールド2 like '**'" となり、Null 以外全部・・・という意味になります。
Null のものも対象としたい場合には、条件を記述しない事です。

例えば

 Dim sWhere As String
 Const sAndOr = " AND "

 sWhere = ""
 If (Not IsNull(Me.テキスト_1)) Then
   sWhere = sWhere & sAndOr & "フィールド1 like '*" & Me.テキスト_1 & "*'"
 End If
 If (Not IsNull(Me.テキスト_2)) Then
   sWhere...続きを読む

Q画像掲示板の管理について

私はあるタレントさんのファンページを作成しています。

最近、掲示板の方に画像掲示板を作って欲しいとの書き込みが続いています。もし私が画像掲示板を作ってホームぺージ上にそのタレントさんや他のタレントさんの画像が投稿された場合、私はその画像掲示板の管理人になるめ、投稿された画像のタレントさんの所属事務所様などから訴えられるのでしょうか?それともその画像を投稿した本人が訴えられるのでしょうか?もちろん私の方に所属事務所様などから画像削除の依頼が届いた場合はすぐに画像を、画像掲示板上から削除させていただきます。

ご回答をお待ちしています。

Aベストアンサー

運が悪かったら、その掲示板を某ちゃんねるに晒され、肖像権に触れるので閉鎖・削除するよう書き込まれるかもしれません。
下手すると荒される事もあるかも。
著作権や肖像権に触れるサイトを作るのは良くありません。
やめといた方がいいと思います。いくつかそういうサイトを見てきました。
もし訴えられた場合、投稿者、掲示板の管理者両方になるのではないでしょうか。

QOpenOfficeオートフィルタで含むができない

OpenOffice2.4の オートフィルタで例として県名をタイトルにして山を含む県を(山形や富山など)出したいのですが標準フィルタで値に*山*と入力して正規表現にチェックをつけたのですが上手くいきません。
EXCELでは簡単に出てきたのですがどのようにすればいいのかわかりません。
よろしくお願いします。

Aベストアンサー

> *山*と入力して正規表現

正規表現としてなら、こうかも:

.*山.*

Q画像を転送すれば表示してくれる掲示板サイトはないですか?

画像を転送すれば表示してくれる掲示板サイトはないですか?
一般の掲示板は文書しか遅れませんが、画像が送れる掲示板を紹介してください。
あればURLを教えて下さい。

Aベストアンサー

確かに、画像の種類によりますが、
『あなたのお気に入りの写真/画像』とあるので、
管理人さんが不適切と判断しない限り、
こちらは大丈夫かと思います。

 ↓

参考URL:http://homepage2.nifty.com/toraneko/

Qado フィルタで 含まない とするには?

含むなら
rs.Filter = "文字列 like '*A*'"
でいけるのですが
rs.Filter = "文字列 not like '*A*'"
だと
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
になります。

rs.Filter = "文字列 not like '%A%"
でもダメでした。

NOTの位置がおかしいのでしょうか?

Aベストアンサー

普段レコードセットのFilterは使わないので、今更ながら気が付きました。
ヘルプによれば
"演算子" は、<、>、<=、>=、<>、=、または LIKE である必要があります
となっていて、NOT そのものが無いですね。
NOTの代わりに <> like '*A*' も無駄な足掻きでした。
DAOのRecordsetやフォームのFilter なら、NOT も有効なのですけどねぇ。
#1 さんのリンク先の様にSQLで求めるのがベストかな。

Sub FilterTestDAO()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("テーブル名", dbOpenSnapshot)
rs.Filter = "文字列 not like '*A*'"
Set rs = rs.OpenRecordset()
rs.MoveLast
Debug.Print rs.RecordCount
End Sub


人気Q&Aランキング

おすすめ情報