ja-jp http://knowledge.livedoor.com/profile/25393 Sun, 05 Oct 2008 08:01:03 +0900 Mon, 29 Sep 2008 00:44:12 +0900 http://knowledge.livedoor.com/ livedoor knowledge - user - mr_r00 Copyright 1996- livedoor Co.,Ltd. http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com 43 43 http://knowledge.livedoor.com/36518 ユーザープロファイルがアンロード出来ない的なエラーがイベントビューアに出ています。 Remote Desk TopでログアウトするときとかADで整合を図っている時間帯にERRORが出ているようです。 イベントビューアで見ても何のプログラムが引き金で発生しているERRORなのかさっぱりわからないWindowsの不親切さがあるのですが・・・ どうやって原因のプログラムを見つけたらよいでしょうか？ ツールキットの存在は知っていますが、出来れば余計なものをインストールしたくないので・・・考えていません。 どうかよろしくお願いします。 Mon, 29 Sep 2008 00:44:12 +0900 http://knowledge.livedoor.com/36518 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 http://knowledge.livedoor.com/36198 VBscriptでのコマンド発行　ver.2 一応出来たものです。 どんな感じでしょうか？ でもこれで出来るんですけどやたらPC重くなりエクスプローラで「応答なし」になるんですよね・・・ なんでだろ？？？ あとFor～Next　とSleepってこんなんで大丈夫ですか？ Option Explicit On Error Resume Next Dim objWshShell Dim strCmdLine For i = 1 to 15 Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then strCmdLine = "cmd.exe /c (cd /d D:\TEST\PDSQL\) & (pdsql.exe <D:\TEST\" & " & Right("000" & CStr(i), 4)" & ".txt)" objWshShell.Exec(strCmdLine) WScript.Sleep(300000) Next If Err.Number = 0 Then WScript.Echo strCmdLine & " を起動しました。" Else WScript.Echo "エラー: " & Err.Description End If Else WScript.Echo "エラー: " & Err.Description End If Set objWshShell = Nothing Tue, 09 Sep 2008 23:44:46 +0900 http://knowledge.livedoor.com/36198 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 http://knowledge.livedoor.com/36122#answer100424 まずいでしょうね・・・ 詳しい製法まではわからないですけどネーミングも味もまずいんじゃないかな？？？ やっぱそんなことより炊く直前まで籾だとか糠がついていたようなお米が一番おいしいんじゃないかな？とよく思いますね。 私みたいな農家を営んでるものにしてみたらですけど・・・ Sat, 06 Sep 2008 10:05:49 +0900 http://knowledge.livedoor.com/36122#answer100424 じいじ その他 28088 http://knowledge.livedoor.com/profile/28088 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/36085 HiRDBのEXECUTORについて知っていたら教えてください。 コマンドラインからSQLを発行したいのですがどうしてもうまく出来ません。 直接入力してコマンドライン上からは発行は出来ますがテキストに書いたものを 発行出来ません。 説明書を見たとおりにしてますが… DBに接続して pdsql < D:\chiechie_yahhooha\dameningen.txt といった感じにやればいいかと思っておりましたが… 何か違うでしょうか？ Wed, 03 Sep 2008 23:16:10 +0900 http://knowledge.livedoor.com/36085 mr_r00 データベース 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sat, 04 Oct 2008 06:10:13 +0900 http://knowledge.livedoor.com/36084 VBscriptでコマンドプロンプトを起動させテキストを発行させることで悩んでおります。 コマンドラインのツールを実行させそこへテキストに記述された内容を実行させたいと思っています。 Dim strCOM For i = 1 to 15 strCOM = "cmd /C C:\○○○○\△△△△.exe 'ここがわかりません 'テキストファイルを流したいのですが・・・・ 'コマンド名を仮に＠＠＠＠とします。 "＠＠＠＠ D:\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt" 'をコマンドライン上に流したいのですが・・・ Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec(strCOM) FileCopy "D:\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt", "D:\終了\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt" 'ここにSleep関数？で5分後とカウントアップにしたいのですが調べてみてもちょっと検討がつかなかったので・・・ '教えていただけないでしょうか？ Next Wed, 03 Sep 2008 23:05:33 +0900 http://knowledge.livedoor.com/36084 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 04 Oct 2008 06:10:12 +0900 http://knowledge.livedoor.com/36065 VBscriptでうまいことテキストにあるコマンドを発行できません。 文が全然違う気がしてきて・・・・ Dim strCOM For i = 1 to 15 strCOM = "cmd /C cd /d D:\HEPPOKO & Format("0000", i) & .txt" Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("strCOM ") DドライブにあるHEPPOKO0001.txt～HEPPOKO0015.txtを順次展開したいのですが・・・ どなたかご指示ください。 Tue, 02 Sep 2008 22:38:35 +0900 http://knowledge.livedoor.com/36065 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 12 Sep 2008 06:54:25 +0900 http://knowledge.livedoor.com/36047 Windows2000鯖のイベントエラーについて困っていることがあります。 イベントエラーで イベント ソース: Userenv イベント カテゴリ: なし イベント ID: 1000 ユーザー: NT AUTHORITY\SYSTEM 説明: ユーザーまたはコンピュータ名を判断できません。戻り値は (1326) です。 と出ています。 ターミナル サービスマネージャーで見るとリモートデスクトップで入っている あるアカウントのセッションが繋がったままでしたが繋がったままアカウントの パスワードを変更してしまったみたいです。 それが原因でADと整合性が取れずエラー発生となっていると思うのですが… そのエラーが出始めた時間から発生しているのでアカウントのパスワードを変更 したのが原因だと思います…私がセッションを切断してもまだエラーが出続けて います。 確認する場所が違っているのでしょうか？ 分かる人いたら教えてください。 スンマソン… Mon, 01 Sep 2008 22:39:05 +0900 http://knowledge.livedoor.com/36047 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 03 Sep 2008 23:16:59 +0900 http://knowledge.livedoor.com/35208 SQLでの副問い合わせ（サブクエリ）について教えて下さい。自分の出したい結果が思うように得られず悩んでおります。 結果を得たものをCSVに落としたいわけですが”見え方”ヴィジュアル面に問題があります。 欲しい結果をそれぞれSQLにしますと ≪受注表テーブルから≫ SELECT 担当, 顧客コード FROM 受注表 WHERE 担当 = '田中' AND 商品コード = 'A1' AND 顧客コード = '003' ; SELECT 担当, 顧客コード FROM 受注表 WHERE 担当 = '田中' AND 商品コード = 'A1' AND 顧客コード = '020' ; ≪入荷表テーブルから≫ SELECT 担当, 入荷日 FROM 入荷表 WHERE 担当 = '田中' AND 入荷コード = 'X013' AND 入荷日 = '20080701' ; SELECT 担当, 入荷日 FROM 入荷表 WHERE 担当 = '田中' AND 入荷コード = 'X123' AND 入荷日 = '20080630' ; ≪欲しい結果の見え方≫ 担当 顧客コード 担当 顧客コード 担当 入荷日 担当 入荷日 ── ───── ── ───── ── ─── ── ───── 田中 003 田中 020 田中 20080701 田中 20080630 田中 003 田中 020 田中 20080701 田中 20080630 このように関係のないレコードを横並びにするにはどうしたらよいでしょうか？ 使っているDBはOracle10、SQL server、MySQL、HiRDBそれぞれで実行したいのですが・・・ どなたかご教示ください。 Sun, 13 Jul 2008 01:43:42 +0900 http://knowledge.livedoor.com/35208 mr_r00 データベース 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 17 Jul 2008 21:59:53 +0900 http://knowledge.livedoor.com/34209 シートコピーのVBAでもっと早くならないか考えております。どなたか見てください Private Sub ShtCopy1(土井シート, yr) Shtname1 = 土井シート.Name & yr 'あれば作らない For Each Sht1 In Worksheets If Sht1.Name = Shtname1 Then Exit Sub Next '無ければ作る 土井シート.Copy Before:=土井シート ActiveSheet.Name = Shtname1 End Sub Private Sub ShtCopy2(井戸シート, yr) Shtname2 = 井戸シート.Name & yr 'あれば作らない For Each Sht2 In Worksheets If Sht2.Name = Shtname2 Then Exit Sub Next '無ければ作る 井戸シート.Copy Before:=井戸シート ActiveSheet.Name = Shtname2 End Sub Sub シート作成() Set Org土井 = Worksheets("土井") Call ShtCopy1(Org土井, Year(Date) - 2) Call ShtCopy1(Org土井, Year(Date) - 1) Call ShtCopy1(Org土井, Year(Date)) Call ShtCopy1(Org土井, Year(Date) + 1) Set Org井戸 = Worksheets("井戸") Call ShtCopy2(Org井戸, Year(Date) - 2) Call ShtCopy2(Org井戸, Year(Date) - 1) Call ShtCopy2(Org井戸, Year(Date)) Call ShtCopy2(Org井戸, Year(Date) + 1) '不要シートの削除 For Each Sht1 In Worksheets If Sht1.Name = ("土井") & (Year(Date) - 3) Then Application.DisplayAlerts = False Sht1.Delete Application.DisplayAlerts = True End If Next For Each Sht2 In Worksheets If Sht2.Name = ("井戸") & (Year(Date) - 3) Then Application.DisplayAlerts = False Sht2.Delete Application.DisplayAlerts = True End If Next Sun, 18 May 2008 21:05:54 +0900 http://knowledge.livedoor.com/34209 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 18 Jun 2008 06:10:07 +0900 http://knowledge.livedoor.com/34152 サーバーの運用保守でエラーメッセージがあるのに原因がつかめないときどうすればよいでしょうか？ 周りに聞いても全然わからないこともあり困っているのですが…こういうサイトで書き込んで調べるのも手かとも思いますが書き込んだのが私だとわかる恐れがあって嫌です(検索で出そうなので…)多少お金がかかってもいいのでメールのやりとりとかでサーバーについて教えてくれるところありませんか？ Fri, 16 May 2008 00:37:50 +0900 http://knowledge.livedoor.com/34152 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Mon, 16 Jun 2008 06:10:05 +0900 http://knowledge.livedoor.com/34075 Excelのシート上でアクティブセルを色付けする方法で悩んでおります。 以前は教えていただき有難うございました。 http://knowledge.livedoor.com/33038 これを応用してなのですがシートに１年分のカレンダー（自宅にある壁掛けカレンダーのような形式で）が入力されているとします。 1月1日に開くと１に色がついている状態にしたいのです。 また、それを自由に動かしてアクティブセルに色をつけれたらうれしいです。 こんなのは出来ますでしょうか？ Sun, 11 May 2008 08:00:03 +0900 http://knowledge.livedoor.com/34075 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 11 Jun 2008 06:10:04 +0900 http://knowledge.livedoor.com/33867 夜の話でちょっと恥ずかしいお話なのですがあまり聞ける人がいないので教えて下さい。 妻と夜の生活をしっかり楽しんでいますが、１回目の射精が終わって１時間くらい経って２回目などよくします。 そうすると勃起したときに陰茎の中心から締め付けあげられる痛みがあったり挿入時感覚が敏感なのか刺激を感じすぎて耐えれません。 皆さんも同じなのでしょうか？ ずっと昔から自慰行為を始めた頃から連続で射精を行うとこういった感覚になるのはしっているので病気だとは思いませんが、すぐに回復してもっと性生活を楽しめたらよいのですが・・・・ Tue, 29 Apr 2008 13:43:07 +0900 http://knowledge.livedoor.com/33867 mr_r00 アダルト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sun, 11 May 2008 07:48:39 +0900 http://knowledge.livedoor.com/33866 夜の話でちょっと恥ずかしいお話なのですがあまり聞ける人がいないので教えて下さい。 妻と夜の生活をしっかり楽しんでいますが、１回目の射精が終わって１時間くらい経って２回目などよくします。 そうすると勃起したときに陰茎の中心から締め付けあげられる痛みがあったり挿入時感覚が敏感なのか刺激を感じすぎて耐えれません。 皆さんも同じなのでしょうか？ ずっと昔から自慰行為を始めた頃から連続で射精を行うとこういった感覚になるのはしっているので病気だとは思いませんが、すぐに回復してもっと性生活を楽しめたらよいのですが・・・・ Tue, 29 Apr 2008 13:42:59 +0900 http://knowledge.livedoor.com/33866 mr_r00 アダルト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sun, 11 May 2008 07:49:34 +0900 http://knowledge.livedoor.com/33854#answer94860 福田”超能天気”首相に一票 Tue, 29 Apr 2008 12:22:58 +0900 http://knowledge.livedoor.com/33854#answer94860 ２０世紀少年 時事・ニュース 26343 http://knowledge.livedoor.com/profile/26343 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33861#answer94859 うん！そうだ 開き直り政治はやめてほしい ついでに２世禁止法でも出来ないのかな（笑） ボンクラどもが政治をやるなら町のおばちゃんに政治を任せたくなる気分だよ Tue, 29 Apr 2008 12:22:03 +0900 http://knowledge.livedoor.com/33861#answer94859 ゼノビア 社会＆文化 21505 http://knowledge.livedoor.com/profile/21505 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33862 デフオイルについて詳しい方お願いします。 中古で車を買ったのですがそろそろデフオイルを替えてやりたいと思いますが銘柄不明なデフがついています アクセルオン時のみロ ックするので1wayと思っています。どのくらいの固さがよいでしょうか？愛車は１８０の中期型です Tue, 29 Apr 2008 12:02:02 +0900 http://knowledge.livedoor.com/33862 mr_r00 メンテナンス 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 30 May 2008 06:10:07 +0900 http://knowledge.livedoor.com/33664 VBAでアクティブセルを日付の位置に動かしたいと思っています。 1枚のシートに1年分の壁掛けカレンダーのようなものを作成してあります。 例： ２００７ ４ １　　２　　３　　４　　５　　６　　７ ８　　９　　10　　11　　12　　13　　14 15　　16　　17　　18　　19　　20　　21 22　　23　　24　　25　　26　　27　　28 29　　30 こうやって年月日がバラバラになっているのですが今日の日付の部分のセルを アクティブにすることは可能なのでしょうか？ Sat, 19 Apr 2008 15:36:04 +0900 http://knowledge.livedoor.com/33664 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 29 Apr 2008 12:25:48 +0900 http://knowledge.livedoor.com/33662 VBAでシートコピー時に時間がやたらと時間がかかるようになってしまいました。 http://knowledge.livedoor.com/33535でお世話になってこの問題点について解決しましたがシートのコピーが2倍くらいになってしまいました。 このやり方は変えたくないのですがシートコピーの時間の短縮を図りたいです。 現在自動再計算や画面更新は停止してはあります。 Sat, 19 Apr 2008 15:25:44 +0900 http://knowledge.livedoor.com/33662 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 29 Apr 2008 12:25:22 +0900 http://knowledge.livedoor.com/33661#answer94467 私ならまず親にキレますけど・・・こういったことは深いので警察や弁護士にご相談されるのが良いのではないのでしょうか？ 寄付という名目で騙し取っていたのであれば詐欺です。あなたがまず親を問い詰めていただいて詐欺と判断できるのであれば被害届けを出した方がいいでしょう。早い処置が必要に思われます。 Sat, 19 Apr 2008 15:22:25 +0900 http://knowledge.livedoor.com/33661#answer94467 amafumi 人生相談 26339 http://knowledge.livedoor.com/profile/26339 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33535 VBAでシートコピー時の使い勝手で悩んでします。 営業で販売実績などに関わる資料をVBAで作成しのですが、わかりづらいので修正したいためアドバイスなどいただけないでしょうか。 まずどんなものを作成したかといいますと四半期ごとにある販売実績報告会議での資料作成用Bookです。 ●シートのトップはただのシート作成ボタンがあるページです。 （実績作成TOP）という名のシート ●シート2枚目は各ページにいけるように目次のページです。 （シート選択）という名のシート ●シート3枚目は実績入力の”テンプレート”です。 （実績入力）という名のシート ●シート4枚目は上司提出用の”テンプレート”です。 （実績報告）という名のシート 使い方として例えば今月4月に「実績作成TOP」にあるコマンドボタンを押すこ とで「シート選択」に「200801実績入力」「200802実績入力」「200803実績入 力」「200801実績報告」「200802実績報告」」「200803実績報告」のハイパー リンクを作成します。 それと同時に上記の名前のシートをテンプレートよりコピーをし名前を振りま す。 その後入力の使い方として1月のもので説明しますと「200801実績入力」でデ ータを入力した後シート上に”決定”ボタンを押します。そうするとシートに ロックがかかり編集できないようにします。それと同時に「シート選択」に遷 移させます。その後「200801実績報告」を作成するのですが、こちらは各人で リンクで飛んでもらうという風にしています。 ここに使用者から改善してもらえないかというお話をいただきました。 今は作業工程として 「実績作成TOP」→「シート選択」→「200801実績入力」→「シート選択」→ 「200801実績報告」としないとひとつきの作業を終えれないのですが、 「実績作成TOP」→「シート選択」→「200801実績入力」→「200801実績報告 」としてほしいとのことです。 最初の段階で私もそうしたかったのですがどうしてもわからず「シート選択を 」作るで回避してしまったのですがどうしても不満が出てしまいました。 テンプレートに最初からハイパーリンクを埋め込んでもシートに飛べないしというところで問題もあります。 もし作るとしたらシートをコピーすると同時に」→「200801実績入力」→「200801実績報告」へのハイパーリンクを書くということになると思うのですが同時にできるかわからずじまいでした Sat, 12 Apr 2008 12:12:29 +0900 http://knowledge.livedoor.com/33535 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 19 Apr 2008 15:23:16 +0900 http://knowledge.livedoor.com/33434 Excelで値を返したときの条件付書式を考えていますのでご存知の方お願いします。 B6に以下の様な数式が入っていたとします。 = IF(B$6>=WEEKDAY(DATE($B$2,$B$3,1)),B$6-WEEKDAY(DATE($B$2,$B$3,1))+1,"" ) これで返した値が１以下だったばあいC6の表示を消したいと思っています。 そういった場合はどうしたらよいのでしょうか？ Wed, 09 Apr 2008 00:25:35 +0900 http://knowledge.livedoor.com/33434 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 09 Apr 2008 21:47:52 +0900 http://knowledge.livedoor.com/33427 条件付書式でうまくできないのでご存知の方ご教示いただけないでしょうか？ 単なる家庭用壁掛けカレンダーのようなものですが下記サイトのものを参考に手を加え使っています。 引用したものはただの万年カレンダーですが私のは日付の下のセルを作り予定や数式など入れております。 このカレンダーの２月２９日とあと毎月１日が日曜から始まるわけではないので月によっては１日より前の「予定や数式」を消さなければなりません。 ２月２９日がない西暦であれば「＜２９」を使って消せますが４年に１回はこれが使えません。 あと１日以前は返り血が１以下であればというのもやってみましたがダメでした。。。 どなたか助けてください お願いします。 ??http://www.atmarkit.co.jp/fwin2k/win2ktips/291autoclndr/autoclndr.html?? Tue, 08 Apr 2008 22:59:27 +0900 http://knowledge.livedoor.com/33427 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 09 Apr 2008 21:48:17 +0900 http://knowledge.livedoor.com/33382 VBAでシートのコピーをしておりますが再計算が重く回避したのですがその後の計算をどうしようか悩んでいますのでどなたかご教示ください。 数式などはいったシートのコピーは重いので計算をしないようにコピーで回避 はしています。 そこで自動計算はしてくれなくなるのでシートを使いたいとき「F9」を押すか 「ツール→オプション」で再計算させるわけですが”そういうこと”を知らな いユーザーが使うこともあることを考えどこかで自動計算を一時的に使えるよ うにすべきかなと考えてはおります。 初心者が「使いやすい」ということを考えたとき皆さんはどんな処理をするこ とを考えますか？ボキャブラリがどうしても足りないので皆さんの意見や経験 をヒントにしたいと思っていますのでお願いします。 条件は、 １．数式入りシートを何枚もコピーしている ２．ユーザーが特に計算の操作をしないで済む ３．使うシートだけ計算させればよいかもしれない（アクティブシート？） ４．シートは印刷したいので極力ボタンの表示などは避けたい ５．コマンドぼっくすは見栄えが良くないので避けたい Mon, 07 Apr 2008 23:06:41 +0900 http://knowledge.livedoor.com/33382 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 12 Apr 2008 11:02:44 +0900 http://knowledge.livedoor.com/33352 シートコピーで失敗をしています。どうかご教示いただけないでしょうか？ 説明を箇条書きにさせていただきます。 ・シート名は西暦からの取得・2年分作る ・去年のシートは自動削除・シートが削除されるまで何故かシートを作ってくれない。 このマクロを起動するとシートを望んだとおり変数入りシートをコピーしてくれますがシステム日付を1年増やすと何故か作ってくれなくなっていしまいます。 Sub copySheet() Dim sheetNY As Worksheet Dim sheetTY As Worksheet 　 Dim SNameNY As String Dim SNameTY As String Dim rainen As Integer Dim kotoshi As Integer Dim Found As Boolean Found = False rainen = Year(Date) + 1 kotoshi = Year(Date) '来年用シート作成 SNameNY = "土井" & rainen For Each SheetNY In Worksheets If SheetNY.Name = SNameNY Then Found = True Exit For End If Next If Found = False Then Set SheetNY = Worksheets("土井") SheetNY.Copy Before:=SheetNY ActiveSheet.Name = SNameNY End If '今年用シート作成 SNameTY = "土井" & kotoshi For Each SheetTY In Worksheets If SheetTY.Name = SNameTY Then Found = True Exit For End If Next If Found = False Then Set SheetTY = Worksheets("土井") SheetTY.Copy Before:=SheetTY ActiveSheet.Name = SNameTY End If '去年のシート削除 Dim Sheet3 As Worksheet Dim SName3 As String Dim kyonen As Integer kyonen = Year(Date) - 1 SName3 = ("土井" & kyonen) Application.DisplayAlerts = False For Each Sheet3 In Worksheets If InStr(Sheet3.Name, SName3) <> 0 Then Sheet3.Delete End If Next Sun, 06 Apr 2008 22:48:38 +0900 http://knowledge.livedoor.com/33352 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 07 Apr 2008 23:07:26 +0900 http://knowledge.livedoor.com/33272#answer93758 完全な悪・諸悪の根源とはいえないと思います。 ただ、民主主義採用でありながら日本を牛耳ってきたのは罪だと考えるのが妥当だと思います。 日本の発展を望むのであればある程度の政権交代が必要です。 ねぇ？小泉さん？自民党をぶっ壊す前に日本壊滅させる方向にもっていってどうすんの？あんた死刑物だよ　と言いたいですが・・・・ Thu, 03 Apr 2008 22:35:46 +0900 http://knowledge.livedoor.com/33272#answer93758 the　jumbuck 法律 26051 http://knowledge.livedoor.com/profile/26051 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33237 VBAである規則性があるコードがあるのですがうまく出来ません。どなたかお願いします。 Worksheet("test" & TY).Cells(1, 6).name ="DD" & TY & "0101" Worksheet("test" & TY).Cells(2, 6).name ="DD" & TY & "0102" Worksheet("test" & TY).Cells(3, 6).name ="DD" & TY & "0103" Worksheet("test" & TY).Cells(4, 6).name ="DD" & TY & "0104" Worksheet("test" & TY).Cells(5, 6).name ="DD" & TY & "0105" 最後の0101とかは日付に近い形にしたいのですがここをどうスマートなコーディングをしたらいいか迷っています。 フォーマットの関係で出来るだけ日付型は避けたいです。連続でセルに名前をふりたいのでお願いします。 Thu, 03 Apr 2008 01:00:51 +0900 http://knowledge.livedoor.com/33237 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 03 Apr 2008 22:40:38 +0900 http://knowledge.livedoor.com/33127 条件付書式で悩みがあります。カレンダーを作っていますが今日の日付に該当した場合そのセルを指定したいのですがうまくいきません。 下記のサイトにあるカレンダーをベースに万年カレンダーを作っております。 http://www.atmarkit.co.jp/fwin2k/win2ktips/291autoclndr/autoclndr.html 先日教わった（回答してくださった皆様有難うございます。　http://knowledge.livedoor.com/33038）セルの一時的配色を用いて条件付書式で=DATE($B$2,$B$3,B7)=TODAY()で何も条件をつけなければセルが該当日に移動しているはずと思うのですが出来ません。なぜでしょうか。。。。 Sun, 30 Mar 2008 12:14:33 +0900 http://knowledge.livedoor.com/33127 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 30 Mar 2008 15:29:19 +0900 http://knowledge.livedoor.com/33038 エクセルでセルを半透明着色処理にする方法はありますでしょうか？ ご存知でしたら教えて下さい。通常Excelのセルを選択したらセルの周りが濃くなるだけかと思うのですがそれを半透明の灰色に変更することは出来ないでしょうか？ またセルにデフォルトで日付が入っていて今日の日付だったらその部分を自動で上記のような処理にすることは可能でしょうか？ Wed, 26 Mar 2008 23:42:52 +0900 http://knowledge.livedoor.com/33038 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Thu, 03 Apr 2008 22:37:28 +0900 http://knowledge.livedoor.com/33037 VBAでハイパーリンクを作ることについて教えていただけないでしょうか？ シートの枚数が多いので一枚”目次”的なセルを用意してそこからすぐに目的のセルにいけるようにしたいのですがどうしたらよいでしょうか？ ホームページなどでURLを貼るものを見てためしにやってみたのですがどれもただのコピペなのに何故か実行されませんでした。。。それを改変してみたりしたのですが結局うまくいかず悩んでいます。 どなたかヒントをいただけますでしょうか？お願いします。 Wed, 26 Mar 2008 23:30:24 +0900 http://knowledge.livedoor.com/33037 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 30 Mar 2008 11:36:55 +0900 http://knowledge.livedoor.com/32981 VBAについて困っています。下記コードで日付の後ろ倒しと前倒しデータの取得のもの作っています。 Dim lastRow As Long Dim firstrow As Long Sub testだよ() Dim i As Long Dim j As Long lastRow = Range("C12").End(xlDown).Row firstrow = Range("C12").End(xlUp).Row '原則26日後に期限 For i = 12 To lastRow Cells(i, 9).Value = DateAdd("d", 26, Cells(i, 3).Value) Next 'が休日の場合 For i = 12 To lastRow If Cells(i, 6).Value = "★" Then Call delay(Cells(i, 3).Value) End If Next For i = 12 To lastRow If Cells(i, 7).Value = "★" Then Call moveup(Cells(i, 3).Value) End If Next End Sub Function delay(dd As Long) Dim i As Long For i = 12 To lastRow If Cells(i, 8).Value = dd Then Cells(i, 8).Value = DateAdd("d", 1, Cells(i, 8).Value) End If Next For i = 12 To lastRow If Cells(i, 10).Value = dd Then Cells(i, 10).Value = DateAdd("d", 1, Cells(i, 10).Value) End If Next For i = 12 To lastRow If Cells(i, 12).Value = dd Then Cells(i, 12).Value = DateAdd("d", 1, Cells(i, 12).Value) End If Next End Function ここからに問題があります。 Function moveup(md As Long) Dim i As Long For i = 12 To lastRow If Cells(i, 9).Value = md Then Cells(i, 9).Value = DateAdd("d", -1, Cells(i, 9).Value) End If Next For i = 12 To lastRow If Cells(i, 11).Value = md Then Cells(i, 11).Value = DateAdd("d", -1, Cells(i, 11).Value) End If Next For i = 12 To lastRow If Cells(i, 13).Value = md Then Cells(i, 13).Value = DateAdd("d", -1, Cells(i, 13).Value) End If Next End Function どうしても複数星が入っていると前倒ししていかないのです。どなたか助けてください。 Mon, 24 Mar 2008 01:52:06 +0900 http://knowledge.livedoor.com/32981 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 30 Mar 2008 11:35:10 +0900 http://knowledge.livedoor.com/32957 今日だけスカパー特にフジテレビのスポーツを見たいのですがどうしたらよいでしょうか？？？ 今日しかやらない番組のためにスカパーに加入するのはバカバカしいと思う部分もあるのですがどうしても見たい番組がCSでしかやらないので・・・すごく悩んでおります。 友人とかで持っている人はいないし・・・どなたか良い知恵があったら教えて下さい。 Sat, 22 Mar 2008 21:34:21 +0900 http://knowledge.livedoor.com/32957 mr_r00 ＴＶ 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sun, 30 Mar 2008 11:35:47 +0900 http://knowledge.livedoor.com/32856 auのサービスについて詳しい方いらっしゃったらお願いします。質問は箇条書きで単調に書いてしまいますが申し訳ありません。 ・シンプルプランでも家族割を組んでいれば家族間は無料になる？ ・シンプルプランにするには携帯本体を新機種に買い替えしないとできない？ ・もし買い換えないといけないのであれば値段が高くなりますがネットとかで裏技的に安く買う方法は無いですか？ ショップは正規価格になってしまうので・・・・ 今時auショップに行っても2時間待ちで聞けなくて・・・よろしくお願いします。 Wed, 19 Mar 2008 00:32:06 +0900 http://knowledge.livedoor.com/32856 mr_r00 携帯電話・PHS 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 21 Mar 2008 00:42:55 +0900 http://knowledge.livedoor.com/32854 VBAでちょっと悩んでいることがあるので教えて下さい。大学の研究データの処理でイレギュラーがあるのでうまくやりたいのですがお願いします。 とある実験結果をエクセルで保存しているのですがデータが「超大量」のため効率的に処理したいのですが・・・ まず基本的に実験したら５日後にデータを回収しています。データを入力するに当たって一部自動化したいことが念頭にあります。データ処理の例として： ・A1セルからG1セルまで研究データ処理開始日の日付「2008/3/1～7」が既存で入ってます。 ・A3セルからG3セルまでは5日後の日付が入るようにしたいです。 ・基本は5日で終わるのですが中には前後２，３日くらいずれるものがあります。その結果が肝心なのでしっかり記録したいのです。 ・A2セルからG3セルは研究処理失敗記録用です。 例えば＊2008/3/1に始め2008/3/6に終わるところエラーが出たのでF2セルへはイレギュラーの「E」かチェッカーボックス（なんか横に文字が入るから好きじゃないけど）を入れます。 そうするとA3セルでは2008/3/7が出るようにしたいのですが分岐がうまくわかりません・・・・ あとソースを下記に書きましたが日付の横に曜日がうまくつきません 確かこういうweekday関数で大丈夫と思ったはずですが何故か？？？申し訳ありませんがどんな方法をとればいいかわかりません。ご指導よろしくお願いします。 Dim vntEnd As Variant Dim vnt5days As Variant Dim vntWeekday As Variant ’もし5日後のセルの下にEが入っていれば日付を一日ずらす？？ ’こんな方法なんかとも思いますが・・・ vntEnd = 5 vnt5days = DateAdd("d", vntEnd, Range("A1")) vntWeekday = WeekDay(vnt5days) Range("A3") = vnt5days & vntWeekday Wed, 19 Mar 2008 00:24:31 +0900 http://knowledge.livedoor.com/32854 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 22 Mar 2008 21:27:46 +0900 http://knowledge.livedoor.com/32827 VBAの処理でボタン＆リンクを作るにはどうすればよいのでしょうか？ 3月3日にシート１にあるボタンを押したときにシート２のA1に3月1日の 日付が入ったボタン、B1に3月2日の日付が入ったボタン・・・・E1に3月5日の 日付が入ったボタンを作ります。 また同時に3月1日から5日までのシートも作ります。 その処理が終わったらシート２で日付のボタンを押せばそれぞれのシートへ飛べるようリンクを入れたいのです。 そして翌日（３月４日）シート１のボタンを押すと3月1日のボタンとシートは 削除されシート２はA1に3月2日のボタンB1に3月3日のボタン・・・・E1に3月6 日のボタンというように位置を移動させます。 もちろんそれぞれの日付のシートの中身は保持したままでです。 このような技術は難解すぎますでしょうか？ ご提示いただけたらうれしいです。 Mon, 17 Mar 2008 23:41:29 +0900 http://knowledge.livedoor.com/32827 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 30 Mar 2008 11:37:22 +0900 http://knowledge.livedoor.com/32825 VBAでWORKDAY関数が使えない場合はどうすればよいでしょうか？ 仕事上の取引先との納品とかの都合上で業務効率化のためにエクセルでいろい ろツール作りをしているのですが困っているので教えて下さい。 日付が縦列に入っているセルがあるのですが西暦、月、日、曜日は全て別々の セルに入っております。（例：セルA1に西暦、セルA2に月、セルA3～A34まで 日、セルB3～B34は曜日） セルC列は空白（後で理由を示します） セルD列には納品日のを表示する７稼働日後の西暦＆月日＆曜日を入れたいで す。 WORKDAY関数を使えばよいかとも思うのですが、取引先にも確認用で配る、社 内でもPCに疎い人がいる、私自身アドインがよくわからないですし上司にむや みやたらに取引先PCにインストールを促すのはよくないということで却下され ています。 良い方法はないでしょうか？ヒントをいただければと思います。 また、セルA1の西暦は別シートのVBA処理から引っ張ってきています。また、 曜日は=TEXT($A$1・・・・"aaa")で得てしまっていますが・・・ 空白C列には商品在庫が確認できた時にOKを入れる欄です。 OKを入れるとD列の納品日が入ればよいです。 皆様よろしくお願いいたします。 Mon, 17 Mar 2008 23:31:03 +0900 http://knowledge.livedoor.com/32825 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sat, 22 Mar 2008 21:27:08 +0900 http://knowledge.livedoor.com/32731 サーバー保守、管理について質問です。 「プロセス」といったものを保守していらっしゃる方は見ていると思いますが実際どういったものなのでしょうか？ HPのホームページにpdlsだとかいろいろ書いてあったのですがよくわかりません。 概念とかわかる方いらっしゃいましたら教えていただけないでしょうか？ よろしくお願いします。 Fri, 14 Mar 2008 00:13:01 +0900 http://knowledge.livedoor.com/32731 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 16 Mar 2008 00:42:39 +0900 http://knowledge.livedoor.com/32730 VBAで質問ですSheet1で コマンドボタンを押すとSheet2のあるセルへコマンドボタンを作成する方法を知りたいのですがどうしたらよいでしょうか？ Fri, 14 Mar 2008 00:07:49 +0900 http://knowledge.livedoor.com/32730 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 16 Mar 2008 00:42:20 +0900 http://knowledge.livedoor.com/32551 皆さんは言い回しとかうまい口車は持っていますでしょうか？ 私は人に不快感を与えないためにどう言いまわしをしようかということを考えています。 正直にいうことも大切だと考えていますが人によってはうまい口車で言いくるめたりウソをついたほうが傷つけないことが人間付き合いの中でままあると思います。 実際に例を出すと・・・ 私は大学のゼミで10人のグループの中で活動しています。 グループの中でさまざまな課題があり、そこで私は先輩と組んでとある課題に取り組んでいるのですが実際あまり得意な先輩ではないんです。 先輩には結果報告を何回か言いそびれて過去に注意されているのですが（先輩も忙しくせかせかしてるときに話しかけると機嫌がかなり悪くなるため）今回はちょっと違う要素も含んでいます。 今回は教授から私だけに課題をもらいグループ発表の中で取り組み中の旨を皆に伝えますが先輩にもそこで知られてしまうタイミングになります。以前から取り組んでいる課題も平行しながらなので個別に先に言っておくべきとはおもいますが上記のとおりです。 その発表のタイミングでうまく「何で先に言わないんだ！」と思わせないような良い言い方はないでしょうか？ 芸能人でいうと島田紳助氏が言いくるめがうまいようですが人に不快感を与えないために良い方法を教えて下さい。 うまく言葉に出来ない私に原因があることを重々承知はしています・・・・ Wed, 05 Mar 2008 23:55:19 +0900 http://knowledge.livedoor.com/32551 mr_r00 人と人 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 6 Thu, 13 Mar 2008 23:48:30 +0900 http://knowledge.livedoor.com/32530 Excelで質問です。セルに文字を入力すると同時にセルの背景色が変わる方法（マクロ？？）というのはあるのでしょうか？ Tue, 04 Mar 2008 22:37:42 +0900 http://knowledge.livedoor.com/32530 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 13 Mar 2008 23:48:59 +0900 http://knowledge.livedoor.com/32529 XPや2003サーバーなどにある管理ツールで質問です。 アプリケーションが動いていると「開始」という状態になっていると思うのですが何らかの原因で開始になっているのに動いてない場合があるとおもいますが そういった場合再起動前に正常に動いているのか確認する方法は無いのでしょうか？ Tue, 04 Mar 2008 22:25:36 +0900 http://knowledge.livedoor.com/32529 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 13 Mar 2008 23:49:26 +0900 http://knowledge.livedoor.com/32526 ノート パソコンの電池が切れてHDDがちょっと変な音がして止まった後普通に一応使えているのですが WINDOWS起動後に変なメッセージが出るようになってしまいました。ご存知でしたら教えて下さい。 Power4 Gear Current system do not support this utility. Program Stop! と ERROR Can't Open ACPI ATK0100 kernel Mode Driver. です。 どんな内容かも調べてもわかりませんでした。 よろしくお願いします。 Tue, 04 Mar 2008 22:13:28 +0900 http://knowledge.livedoor.com/32526 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 04 Apr 2008 06:10:12 +0900 http://knowledge.livedoor.com/32456 マイクロソフト　製品の手に入れ方で質問です。 PCの調子が悪く仕方なくリカバリーをかけました。リカバリーが成功して問題なく使えるようになったのですが・・・ PCにはもともとプリインでExcel2002など入っていたのですが・・・・CDをなくしてしまいました。 ずっと昔にあった97を今使っていますがどうしても会社のPCと同じ環境にしたいので2002には上げたいのですが買うしか方法は無いのでしょうか？ VBAを使う上で変わっている箇所が無ければよいですが私の記憶ではかなり変わっていたように思います。 どなたかいい方法がございましたらお願いします。 Sat, 01 Mar 2008 15:35:10 +0900 http://knowledge.livedoor.com/32456 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 13 Mar 2008 23:51:29 +0900 http://knowledge.livedoor.com/32454 マイクロソフト製品の手に入れ方で質問です。 PCの調子が悪く仕方なくリカバリーをかけました。リカバリーが成功して問題なく使えるようになったのですが・・・ PCにはもともとプリインでExcel2002など入っていたのですが・・・・CDをなくしてしまいました。 ずっと昔にあった97を今使っていますがどうしても会社のPCと同じ環境にしたいので2002には上げたいのですが買うしか方法は無いのでしょうか？ VBAを使う上で変わっている箇所が無ければよいですが私の記憶ではかなり変わっていたように思います。 どなたかいい方法がございましたらお願いします。 Sat, 01 Mar 2008 15:29:10 +0900 http://knowledge.livedoor.com/32454 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 13 Mar 2008 23:51:44 +0900 http://knowledge.livedoor.com/32382 CGI Errorとブラウザのエラー表示について質問です。 The specified CGI application misbehaved by not returning a complete set of HTTP headers. と出てしまいます。アクセスカウンタを設置していてブラウザに出るのですがこのエラーはCGIファイルのパス指定間違いが多いとは思うのですがそのほかには何が考えられますでしょうか？ （文間違いであれば小さい文字でどこが間違っている表示が出ると思いますが上記のエラーメッセージしかありません） 簡単なCGI「hello world」的な文字表示はOKなのですが画像を返してこず困っております。 フォルダのアクセス権など関係はありますでしょうか？ もし関係あるのであればアクセス権についても教えていただけないでしょうか？ 環境は2003serverにIIS6.0で使用しております。 Thu, 28 Feb 2008 00:25:01 +0900 http://knowledge.livedoor.com/32382 mr_r00 CGI 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 30 Mar 2008 06:10:06 +0900 http://knowledge.livedoor.com/32364 VBスクリプトでファイルを生成するソースを書いたのですがそれをバッチで実行するようにしてありますが 例えばPCが起動していなく実行できなかった場合次回実行時に「もしこの名前のファイルがなかったら先に作るはずだったファイルを作る」といったようなのが欲しいと思っております。 こういうのはプログラムで先にファイル検索をさせて無かったら作るといった感じになるのでしょうか？ ファイル検索をさせるVBSはFileSystemObjectを使う方法になる以外に無いでしょうか？ （ウイルスソフトが反応するため・・・・・） まだこの手の記述方法がわからないのでネットでサンプルを探したのですがなかったのでご存知の方ヒントをいただけないでしょうか？ よろしくお願いします。 例：VBSCRIPTを1月にタスク実行でAAA1.ｔｘｔを作成。 2月にこのタスクを実行したとき先にAAA1.ｔｘｔがあるかを確認してあればAAA2.ｔｘｔを作る。 もし無ければAAA1.ｔｘｔを作る条件を当てはめ作ってからAAA2.ｔｘｔを作る。 Wed, 27 Feb 2008 00:27:55 +0900 http://knowledge.livedoor.com/32364 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Mon, 03 Mar 2008 00:23:57 +0900 http://knowledge.livedoor.com/32363 パソコンの買い方について質問です。 今使っているパソコンが古くなってきたので買い替えを検討しているのですが上手な買い方を教えて下さい。 スペックとしては開発の勉強をしたいのでそれなりにいいもので移動が自由なノートがいいのですがあまりお金がないので安いものがいいのです。 極論を言えば家電量販店で売っているようなソフトがじゃんじゃか入っているのはいりません。 DELLとかが結構安いようですがそんな感じで比較的高スペックで低価格のものはありますか？ Wed, 27 Feb 2008 00:18:09 +0900 http://knowledge.livedoor.com/32363 mr_r00 家電・携帯電話 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Mon, 03 Mar 2008 00:23:24 +0900 http://knowledge.livedoor.com/32362 サービス残業のことについて質問です。前職でサービス残業をしており辞める際に問題点指摘と労働基準監督署へ通告を行いました。 その会社は今まで何度も調査に入られているのですがその度OKをもらって結局変わらずじまいなのです。 記録の改ざんを行っているためですがその旨を話しても監督署は形だけ調査に入るだけを何度も繰り返しています。 私の友人でも別会社ですが通告をしたのですが入ってないそうです。 こういった場合地方の監督署の怠慢だと思うのですがどうしたらよいのでしょうか？ 県？国？レベルでの調査依頼は不可能なのでしょうか。 私たち小市民だと裁判とかはどうしても気が引けるものです。 Wed, 27 Feb 2008 00:06:44 +0900 http://knowledge.livedoor.com/32362 mr_r00 その他 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Mon, 03 Mar 2008 00:22:16 +0900 http://knowledge.livedoor.com/32336 VBscriptでの質問です。出来上がったソースとかを見ると段々右に文字がずれていくように作っていらっしゃる方がいますがあれはどういった意味合いなのでしょうか？ 僕自身が作ったものは左寄せになっています。 もちろんその状態で動くので問題は無いかと思うのですがどうなんでしょう？ あとファイルを作成するものをタスクで定期的に実行するものだったとき万が一前回実行失敗に備えて次回実行でカバーするようなものを書くべきなのでしょうか？ （繰り返し処理についてはどう書いたらよいのかまったくわからない状態ではあるのですが・・・） Tue, 26 Feb 2008 00:14:31 +0900 http://knowledge.livedoor.com/32336 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 26 Feb 2008 23:36:53 +0900 http://knowledge.livedoor.com/32317 VBスクリプトについて質問があります。日付関数で例えば関数で今月を取得し（例：2008年1月に実行したとして）200801という結果を得たとします。 もし出た結果が01の時2007_10-12という値を返すような方法はありますでしょうか？ 条件としては四半期ごとにVBSでファイル名を作成するので作成のソースに埋め込むために値を出したいということになります。 ★バッチで1，4，7，10月に実行する 実行したときに1月であれば前の年と前四半期の月を入れる 例として2008年1月に実行すると2007_10-12 2008年4月に実行すると2008_01-03 といった具合になります。 どんな風にコーディングしたらよいのでしょうか？ Mon, 25 Feb 2008 00:29:46 +0900 http://knowledge.livedoor.com/32317 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 26 Feb 2008 23:35:38 +0900 http://knowledge.livedoor.com/32305 VBscriptを使い日付関数で取得した値の中から一部の文字列を抜き出したいのですがうまくいかないのでどなたか間違いの箇所を指摘していただけないでしょうか？ ’先月を返します。 Dim b Dim yyyymm b=DateAdd("M",-1,Now) yyyymm=Year(b)*100+Month(b) ’先月の表示を変更します。 Dim lastmonth Dim strVal strVal = "yyyymm" lastmonth = Right(strVal, 4) Dim oLogQuery Dim strQuery Set oLogQuery = CreateObject("MSUtil.LogQuery") ' クエリ テキストを作成します。 strQuery = "SELECT cs-uri-stem,COUNT(*) AS view INTO View.csv FROM C:\test1\ex"&★lastmonth★&".log" strQuery = strQuery & " WHERE cs-uri-stem IN('/Default.htm';'/images/address.gif') GROUP BY cs-uri-stem ORDER BY COUNT(*) DESC" ' クエリを実行します。 oLogQuery.ExecuteBatch strQuery ※先月を返しますというところで2008年2月に実行したら200801という表示になると思います。（もし、1月に実行したら200712になりますよね？）200801の右から4文字を取り出し0801という文字列を作り★印の間に入れたいのですがうまくいきません。 また3か月分（四半期？）もやりたいのですがヒントがあったら教えて下さい。 Sun, 24 Feb 2008 16:48:53 +0900 http://knowledge.livedoor.com/32305 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 26 Feb 2008 23:34:53 +0900 http://knowledge.livedoor.com/32303 WEBサーバーを管理しているときにログが出ると思いますがLogParserを用いてログ集計をしている方いらっしゃいますでしょうか？ IISででたログをLogParserを使って月ごとおよび四半期ごとに自動収集をしてCSVファイルに落としたいと考えております。 取得するためにVBscriptを使うつもりですがこういうやり方がよいよ！みたいなヒントがあったら教えて下さい。 VBSをバッチで定期的に動かすつもりではありますが・・・・ 四半期をどうしようか非常に悩んでおります。 よろしくお願いします。 Sun, 24 Feb 2008 14:36:08 +0900 http://knowledge.livedoor.com/32303 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Wed, 26 Mar 2008 06:10:05 +0900 http://knowledge.livedoor.com/32278 VB Scriptに詳しい方がいらっしゃいましたらお尋ねします。日付関数で取得したもの... VB Scriptに詳しい方がいらっしゃいましたらお尋ねします。日付関数で取得したものをソースに含めることは可能でしょうか？ 日付計算をして出したもの（yyyymm)★印と★印の間に代入したいのですがうまく出来ません 初歩の初歩かもしれませんがやり方かまちがっていますでしょうか？ 教えて下さい お願いします。 Dim oLogQuery Dim oEVTInputFormat Dim oCSVOutputFormat Dim strQuery Dim b Dim yyyymm b=DateAdd("M",-1,Now) yyyymm=Year(b)*100+Month(b) Set oLogQuery = CreateObject("MSUtil.LogQuery") ' 入力形式オブジェクトを作成します。 Set oEVTInputFormat = CreateObject("MSUtil.LogQuery.EventLogInputFormat") oEVTInputFormat.direction = "BW" ' 出力形式オブジェクトを作成します。 Set oCSVOutputFormat = CreateObject("MSUtil.LogQuery.CSVOutputFormat") oCSVOutputFormat.tabs = TRUE ' クエリ テキストを作成します。 strQuery = "SELECT TimeGenerated, EventID INTO C:\output%★yyyymm★%.csv FROM System" strQuery = strQuery & " WHERE SourceName = 'Application Popup'" ' クエリを実行します。 oLogQuery.ExecuteBatch strQuery, oEVTInputFormat, oCSVOutputFormat Sat, 23 Feb 2008 01:14:14 +0900 http://knowledge.livedoor.com/32278 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 24 Feb 2008 15:37:39 +0900 http://knowledge.livedoor.com/32240 ☆フォルダアクセス権などについて質問があります。 （2003サーバー） 当方このたび部署転換で社内サーバー管理者になることになったのでいろいろ勉強しているところなのですが社内用イントラネットで（使用目的は社内交流ページのようなもの）わからないことがあります。 共有のアクセス権やフォルダのアクセス権の設定について勉強したいのですがいい資料がなく困っております。 基本的に概念が掴めないので知りたいのですがググったりしてもいいものがございません。 どなたかご教示いただけないでしょうか？ よろしくお願いします。 Thu, 21 Feb 2008 00:55:28 +0900 http://knowledge.livedoor.com/32240 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 24 Feb 2008 15:36:59 +0900 http://knowledge.livedoor.com/32215 tasklist.exe-コンポーネントが見つかりません。 framedyn.dllが見つからなかったためこのアプリケーションは開始できませんでした。・・・となってしまい困っております。 とあるVBSのソフトを使っているのですが使用すると上記のような表示が出てしまいます。 この直前に誤って環境変数のパスを全削除してしまいました。 おそらくこれが原因と考えておりますが・・・いろいろ人に聞いたり調べたりしてあるサイトにSystemrootの設定があったのでまねしてみましたが改善されません。 そのほかに対処法はありますでしょうか？ 出来ればOSの再インストールはしたくないです。 これのようにですが・・・ %SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem あとVBSを起動時にインデックスが有効範囲にありません。 800A0009の表示が出ます。環境変数を操作した後になってしまいました。（泣）未熟な知識でいじったのが原因ですがよろしくお願いします。 Wed, 20 Feb 2008 00:21:04 +0900 http://knowledge.livedoor.com/32215 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 24 Feb 2008 15:35:57 +0900 http://knowledge.livedoor.com/32198 CGIを使う上で設定について困っております。 XPのIIS5.1+ActivePerlでCGIを動かせる環境を作り掲示板やカウンタ、メールフォームなどがローカル環境で動いております。 テストも終わったので2003serverを購入して似たような環境でやり始めたのですがどうしても思うように動いてくれません。 CGIのページを開くと404エラーが出てしまいます。 そこでDOSからperl -vを通してみるとしっかりインストールされているのは確認できます。 マッピングもしっかりやってあります。（もちろんXPで動かせたので基礎はOKだと思います） 簡単なCGI単体のテスト（一般的に言われるHelloWorldですが）をしてもダメです。 WEBサービス拡張でCGI使えるように許可してもダメですが「不明なCGI・・・・」を許可すると使えるようになりました。 CGIの許可の項目についてはActivePerlがインストール終わった時点で勝手に出来ておりました。（禁止になっている以外） ただ「不明なCGI・・・・」に関してはエラーポップアップが出るのでなんらかのセキュリティ問題があると考えておりますが問題はないでしょうか？また、なぜ5.1で使えたのに急に6.0では使用できなくなってしまうのでしょうか？ IIS6.0と5.1にはかなり差があるのでしょうか？ ご存知の方よろしくお願いします。 Tue, 19 Feb 2008 00:24:47 +0900 http://knowledge.livedoor.com/32198 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 21 Mar 2008 06:10:10 +0900 http://knowledge.livedoor.com/32196 IIIS6.0を使う際に必要な設定を確認したいと思うのでご存知の方よろしくお願いします。 CGIを使うという前提でフォルダのアクセス権などの設置が必要あると思いますが（今現在適当にやってしまっている）IUSERなどの設定の仕方を教えて下さい。 Tue, 19 Feb 2008 00:19:21 +0900 http://knowledge.livedoor.com/32196 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 21 Mar 2008 06:10:10 +0900 http://knowledge.livedoor.com/32101 特定の条件のときに計算結果を導き出す方法をコマンドプロンプトで考えておりますがわからないので教えて下さい。 特定条件時にファイル名を変更するコマンドプロンプトを考えております。 set YYYYMM=%DATE:~-10,4%%DATE:~-5,2% set /a LASTMONTH=YYYYMM 例えばこの式をバッチで2008年の1月、4月、7月、10月実行するとします。 実行した後: 1月に実行したときに if %MONTH:~-2%==01という条件になったとき前年度と10-12というもの（200710-12）の計算結果を得たいです。（計算結果というより代入？？01という条件下では前年と10-12というものに変換する） 4月に実行したときに if %MONTH:~-2%==04という条件になったとき今年度と01-03というもの（200801-03）の計算結果が欲しいです。以下も同様です。 7月は if %MONTH:~-2%==07→200804-06 10月は if %MONTH:~-2%==10→200807-09 よろしくお願いします。 Wed, 13 Feb 2008 22:17:48 +0900 http://knowledge.livedoor.com/32101 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 16 Feb 2008 23:28:33 +0900