singlecat の回答履歴

ここ最近、高校時の同窓生で運営するホームページが荒れされ困っています。 このホームページには、同窓生の結婚、就職などなどいろいろな情報、写真が掲載されています。 掲示板ももちろんあります。 この度サイトをログイン制にし、IDとパスワードは同窓生にしか教えず訪問者を制限したいと考えています。 友人に相談したところ認証ページというのがあるそうですが、どういうものかわかりません。 サイトをログイン制にするにあたって、無料で最適な方法があれば是非教えてください。 よろしくお願いします。

マクロ初心者です。 1つのフォルダの中に複数のbook（sheetも複数）があります。 これを新しい1つのbookにまとめたいです。 回答に下記マクロがありました。 Sub consolid() Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 myfdr = ThisWorkbook.Path fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索 Do Until fname = Empty '全て検索 If fname <> mb.Name Then 'ブック名がこのブックの名前でなければ Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。 wb.Worksheets.Copy After:=mb.Sheets(mb.Sheets.Count) 'コピーしてコピー先ブックの末尾に置く wb.Close '開いたブックを閉じる n = n + 1 'ブック数をカウント End If fname = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す Application.ScreenUpdating = True '画面更新一時停止を解除 MsgBox n & "件のブックをコピーしましました。" End Sub これで使用した所マクロを実行する度に何度も同じシートが コピーされてしまいます。 できれば同じ名前のシートは上書きにしてマクロを何度も使用できるように【各BOOKは毎週更新されて私のフォルダに入ってきます】したいのですが そのような事は可能なのでしょうか？ どなたか分かる方教えてください。お願い致します。

私は某大学の４年生です。留年もせず、浪人もせず、それなりの高校にも入ってそれなりの大学にも入りました。 しかし、私は就職活動をしなかった(留学するつもりでした)ので、内定がこの時期なのにゼロです。 ちゃんと将来のビジョンを２，３年のうちに立てておかなかった自分が悪いのですが、もう、「それなりの」就職先なんてありませんよね。 卒業後の留学がいかに無意味かも知らないで、こんなことをしてしまって、もう悔やんでも悔やみきれません。両親も周りの人も優しくて「そんなに気にしなくていいんだよ」だとか「留学で得るものがあればそれでいいじゃないの」「まだ若いんだから・・・・」と言ってくれます。 それなのに私は、毎日泣いてばかりいます。「新卒以外でまともな職なんかつけるわけないだろ。そんなの小学生のうちから教えておけばいいんだ。」という某サイトの文章を見て死んでしまいたくなりました。 どうすればいいのでしょう。どなたかアドバイスをお願いします。

乾燥した地域にお住まいの方、または行かれたことのある方にお尋ねします。 相撲の勝敗を示す白星・黒星は☆でなく、●○で表現されています。 また京都の城南宮の紋は三光紋といって太陽・月・星を描いたものだそうですが 星はやはり○で示されています。 日本において星が○で示されるのは湿度が高くて空気が潤んでいるため ☆ではなく○に見えるからだと本で読んだ記憶があります。 乾燥した地域では星は☆の形に見えるのでしょうか。

見積書作成での質問です。 税抜見積と税込見積とがありますが、使い分けの方法を教えて下さい。

すいません。 先ほどから、京都市内の駐車場を探していて、ちょうど用事する場所に近くて営業時間等の条件ピッタリの「パラカ烏丸錦パーキング」っていう駐車場を発見したんですが、サイト見るとここって、大丸の横で提携駐車場だと思うんですが、利用するのが12/21日の日曜11時半くらいなので、もしかしたら満車で入れないんじゃないかと心配しています。 いろいろ混み具合について検索しましたが情報がありませんでした。 どなたか、この駐車場の日曜の混み具合の情報についてご存知の方いらっしゃいましたら教えてください。よろしくお願いします。 「パラカ烏丸錦パーキング」 http://www.paraca.co.jp/parking/karasumanishiki.html

マクロ初心者です。 1つのフォルダの中に複数のbook（sheetも複数）があります。 これを新しい1つのbookにまとめたいです。 回答に下記マクロがありました。 Sub consolid() Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 myfdr = ThisWorkbook.Path fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索 Do Until fname = Empty '全て検索 If fname <> mb.Name Then 'ブック名がこのブックの名前でなければ Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。 wb.Worksheets.Copy After:=mb.Sheets(mb.Sheets.Count) 'コピーしてコピー先ブックの末尾に置く wb.Close '開いたブックを閉じる n = n + 1 'ブック数をカウント End If fname = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す Application.ScreenUpdating = True '画面更新一時停止を解除 MsgBox n & "件のブックをコピーしましました。" End Sub これで使用した所マクロを実行する度に何度も同じシートが コピーされてしまいます。 できれば同じ名前のシートは上書きにしてマクロを何度も使用できるように【各BOOKは毎週更新されて私のフォルダに入ってきます】したいのですが そのような事は可能なのでしょうか？ どなたか分かる方教えてください。お願い致します。

ＡｍａｚｏｎでＤＶＤを２点注文したら、支払い番号が２つに分かれて送られてきました。 今まで２つ以上の商品を注文しても、１つの支払い番号しか送られて来なかったんですけど、なぜ今回は２つに分かれて来たんでしょうか？ いつもと特に変わらないやり方で注文したはずなんですけど・・・。 支払い番号が送られてきたら、もう１つにまとめてもらう事は出来ませんよね。 私が誤った操作をしてしまったんでしょうか。 次回気を付けたいので、理由に心当たりがある方がいたら教えてください。

こんにちは、よろしくお願いします。 ニートだった私ですが、働き始めてようやく２ヶ月になりました。 仕事内容は事務ですが、小さい会社ですので色々やることがあります。 これまでミスがあって時々怒られたりはしていましたが、先日、ひとつ取引先を失くすという決定的な事をしていしまいました。 原因は、思慮が足りなかった（或いは、社会人経験の無さに因るものかもしれない）からです。 深く考えれば失敗しなかったと思うので、呆れられて怒られながら、すごい悔しいし、泣けてきました。 ここまで来ると、自分は障害でもあるのかとか、そこまでの仕事をする能力が無いのかとか悩んでおります。 抽象的な悩みになりますが、アドバイス頂けましたらと思います。

A2～A10　範囲のセルの中に名前が入ります。どのセルから入るかは 決まっていませんが例えばA3に木村と入ればA10まで木村と連続して入ります。。とりあえず最初文字の入ったセルをそのままA1に返したいのですが その関数はありますか？ <例> 　A　　B　　C 1木村 上田 欠勤 2 3 4木村 5木村 上田 欠勤 6木村 上田 欠勤 という感じです。

ｃｓｖでデータを読み込む方法はネットで見つけたのですが、下記の条件を加えた場合どうすればいいか分かりません。 ネットで見つけた方法は、ファイルを１行ごと読み込み、コンマごとに区切って配列にいれる方法です。 しかし、項目が可変の場合、名前を入れたいところに別のデータが入ったりします。 【条件】 csvの項目名は、 A,B,C,D,E,F とする それぞれの項目は、省略可能（どこが省略されるか分からない） そのため、 A,D,E,F など、項目名が少ないCSVファイルもある。 こんな場合は、どのように処理をすればよいでしょうか？ 実際は、項目名が５０個ほどあります。 今回の例のように、少なければ何とかできそうなのですが・・・ 【補足・データファイル】 "A","B","C","D","E","F",←項目名 "山田","太郎","東京","15","123-221","男",←データ "山田","次郎","東京","13","124-567","男", ・・・・・・・・・↓続く ・・・・・・・・・

京都　早朝から夜まで一日観光するのですが外国からの友人を連れての観光となりますがお勧めの場所などがあったら教えていただけたらと思います。　大阪の何難波近くの恵比須町駅から出発します。 現時点では清水寺　金閣寺　八坂神社とその前の買いものができる通り 祇園　嵯峨嵐山などを考えていますが日程的に無理があると思われましたらそれも指摘していただけたらと思います　また交通が非常にわかりにくくその情報もご存知の場合はぜひ教えて頂けたらと思います！

夜間4:00～タスク登録にて合計約4GBのデータを XCOPYにてWindowsNT-SP6→Windows2003Serverに 転送していますが、一部エラーが発生します。 （エラー内容） File creation error - Not enough server storage is available to process this command. 下記URLを参照してちょっと条件は違いますが レジストリ値を調べてみたところMAXになっていました。 http://support.microsoft.com/kb/106167/ja XCOPY実行時に「/f」をつけてLOGを出すようにして 数日起動していますが、容量が重いファイルでErrorになります。 ファイル総数：10000件～15000件 XCOPY元のサーバから対象のファイルをドラック＆ドロップすると コピーができて、XCOPYで直接ファイルを指定するとすんなり コピーができます。 BATでエラーなくコピーするにはどのようにしたらいいでしょうか？ もしくは過去同じようなエラーでこうしたら解決したなど アドバイス下さい。よろしくお願いします。

マクロ初心者です。 1つのフォルダの中に複数のbook（sheetも複数）があります。 これを新しい1つのbookにまとめたいです。 回答に下記マクロがありました。 Sub consolid() Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 myfdr = ThisWorkbook.Path fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索 Do Until fname = Empty '全て検索 If fname <> mb.Name Then 'ブック名がこのブックの名前でなければ Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。 wb.Worksheets.Copy After:=mb.Sheets(mb.Sheets.Count) 'コピーしてコピー先ブックの末尾に置く wb.Close '開いたブックを閉じる n = n + 1 'ブック数をカウント End If fname = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す Application.ScreenUpdating = True '画面更新一時停止を解除 MsgBox n & "件のブックをコピーしましました。" End Sub これで使用した所マクロを実行する度に何度も同じシートが コピーされてしまいます。 できれば同じ名前のシートは上書きにしてマクロを何度も使用できるように【各BOOKは毎週更新されて私のフォルダに入ってきます】したいのですが そのような事は可能なのでしょうか？ どなたか分かる方教えてください。お願い致します。

１．現在、見積書.xlsの見積汎用シートで以下の内容で同じブックのデータベース貼付シートに貼り付けています。 Sub データベース貼付() GYOU = Worksheets("データベース").Range("A65536").End(xlUp).Row + 1 Worksheets("データベース").Cells(GYOU, 1).Value = Range("H13").Value Worksheets("データベース").Cells(GYOU, 2).Value = Range("C8").Value Worksheets("データベース").Cells(GYOU, 3).Value = Range("C6").Value Worksheets("データベース").Cells(GYOU, 4).Value = Range("C15").Value Worksheets("データベース").Cells(GYOU, 5).Value = Range("D15").Value Worksheets("データベース").Cells(GYOU, 6).Value = Range("E15").Value Worksheets("データベース").Cells(GYOU, 7).Value = Range("G30").Value Worksheets("データベース").Cells(GYOU, 8).Value = Range("H1").Value ２．これを見積書.xlsの見積汎用シートを別ブックのデータベース.xlsのデータシートに貼り付けたいと思います。 ３．以下の内容で仮に自分で貼り付けてみようとしましたがうまくいきません。 Sub コピーしてすべて貼り付ける() Workbooks("見積書.xls").Worksheets("見積汎用").Range(D6).Copy _ Workbooks("データベース.xls").Worksheets("データ").Range(B4) End Sub どのように、別ブックに指定したセルを貼り付けできるでしょうか？いろいろとサイトを見ましたがどうもうまくできませんでした。 説明がわかりづらく申し訳ないですが、どなたか教えていただけないでしょうか？ よろしくお願い致します。

文章データをWordファイルで作って入稿し、冊子を作ることになったのですが、Wordで入稿した場合印刷屋はそのデータを印刷して本を作るのですか？ それとも印刷用にデータを変換するのですか？ 前に別の冊子作りでお願いした会社はWordや版下製版よりPDFのほうが安いと言っていましたが、今度の会社はWordでも値段が変わらないそうです。（なぜかページ数ごとの値段設定でもないようです） 気になっているのは、印刷屋でデータ変換した場合、文字化けや誤植が起こらないかということです。 Wordデータをそのまま印刷するのなら、トラブルが起こることはないと思うのですが、何か作業をするならどこか崩れてしまわないか心配です。 外国語も使っていますし。 あと、ゲラと青刷りが来ると聞いたのですが、ゲラでは問題なくても青刷りでどこかおかしくなってしまうこともあるのでしょうか？ 一緒に冊子を作っている人たちは「Wordファイルを印刷するからゲラだけチェックすれば大丈夫」と言うのですが、前に違う会社で冊子を作ったときは青刷りの段階で入力ミスが見つかった記憶があります。 印刷業者に問い合わせればいいのでしょうが、私は印刷業者との取引には関わっていないので、まずここで訊いてみることにしました。

乾燥した地域にお住まいの方、または行かれたことのある方にお尋ねします。 相撲の勝敗を示す白星・黒星は☆でなく、●○で表現されています。 また京都の城南宮の紋は三光紋といって太陽・月・星を描いたものだそうですが 星はやはり○で示されています。 日本において星が○で示されるのは湿度が高くて空気が潤んでいるため ☆ではなく○に見えるからだと本で読んだ記憶があります。 乾燥した地域では星は☆の形に見えるのでしょうか。

すいません。 12月21日に烏丸御池近くのウィングス京都に用事があって行くんですが、荷物が多いので車で行こうと考えているのですが、近隣の駐車場（烏丸御池周辺～四条烏丸周辺～四条河原町～三条河原町の間）で、安い駐車場ありませんでしょうか？ 希望としては、 1.烏丸御池周辺～四条烏丸周辺～四条河原町～三条河原町の間 2.日曜でも1日料金の設定がある。 3.1日最大2000円以内 4.営業時間が～24時(23時半とかでもOKです)くらいまで です。 もしその辺の駐車場で安いところご存知の方いらっしゃいましたら、教えてください。 よろしくお願いします。

利用規約をよく読まずにアダルトサイトから画像をダウンロードしたところ、料金請求のメールが届きました。こちらの情報は一切教えていないはずなのに、パソコンの個体識別番号からメルアドがわかってしまったようです。びっくりしてもう一度そのサイトを確認すると、利用規約の文面があり、 会員とは、本規約を承諾のうえ、運営者所定の手続きにより、運営者に本サービスの利用を申し込み、運営者の審査により本サービスへの入会を承認され、会員登録された本サービスの利用者をいいます。本サービスをご利用になる為に通信会社及び提供会社と提供契約をして頂きますが、会員の所有するパソコンまたは、端末で行われた本契約の締結はすべてお客様の意志で行われたものとします。 とあります。これは、画像をダウンロード＝会員登録＝支払い義務発生　ということになるのでしょうか？こちらから会員登録の手続きをした覚えはないのですが。 電子消費者契約法では、事業者は、消費者に対して申し込み内容を再度確認させるための画面を用意する必要がある、とのことですが、このような画面は出てきませんでした。 支払期限は今日までだったのですが、期限後に莫大な延滞料金を請求されるメールが届くかと思うと、ぞっとします。 どうしたらいいでしょうか？教えてください。