ja-jp http://knowledge.livedoor.com/category/101006 Tue, 01 Dec 2009 14:14:08 +0900 Thu, 26 Nov 2009 03:11:05 +0900 http://knowledge.livedoor.com/ livedoor knowledge - プログラミング・言語 Copyright 1996- livedoor Co.,Ltd. http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com 43 43 http://knowledge.livedoor.com/43192 記事部分の幅変更後、ブログに反映されない 旧管理画面のデザインのカスタマイズのページで、 数値変更 プレビューで確認＞サンプルページで変更の確認してOK 「この内容に変更する」をクリック 左上の「デザインの反映」をクリック これでブログに反映されたはずですが、ブログを開くと以前のままです。 どうすれば変更を反映させることができますか。 Thu, 26 Nov 2009 03:11:05 +0900 http://knowledge.livedoor.com/43192 まはさん プログラミング・言語 32197 http://knowledge.livedoor.com/profile/32197 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 26 Nov 2009 23:43:48 +0900 http://knowledge.livedoor.com/43189 (ActionScript3.0)画像の移動の方法 ActionScript初心者です。 行き詰まってしまったため、皆さんのお力を借りたいと思っています。 http://www.pageboy-alicia.jp/#collection のように作りたく思っています。 知りたい事としましては、 １、上記サイトのように画像を並べるScript ２、上記サイトのように写真画像をマウスの動きに合わせて移動させるScript の２つです。 カーソルを置く場所によって、画像の移動スピードが変化したりなんかというのも、知りたいと思っています。 もしご存知の方がいましたら、 ご教示頂けますと幸いです。 製作環境は、 MacOX10.5,Flash CS4です。 よろしくお願いします。 Wed, 25 Nov 2009 12:13:52 +0900 http://knowledge.livedoor.com/43189 kabosu0618 その他 31290 http://knowledge.livedoor.com/profile/31290 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 http://knowledge.livedoor.com/42850 マシン語の命令形式についてですが・・・ 学校の記述問題で”オペランドの数により命令形式を分類せよ” という問題が出たんですが、どのように書けばいいんでしょうか？ ちなみに分類する形式は0、1と1/2,1,2,3アドレス形式です。 Sat, 31 Oct 2009 10:45:14 +0900 http://knowledge.livedoor.com/42850 tugasikao プログラミング・言語 32165 http://knowledge.livedoor.com/profile/32165 http://image.profile.livedoor.jp/icon/tugaru363_60.gif http://image.profile.livedoor.jp/icon/tugaru363_60.gif 1 Sun, 01 Nov 2009 01:15:30 +0900 http://knowledge.livedoor.com/42836 クリック投票について 質問させて頂きます。 http://matome.naver.jp/odai/2125574232258555473 のような、簡易なクリック投票が出来るシステムを自分のサイトに付けたいです。 投票後、同一IPによる再投票を24時間規制もしたいです。 どこか参考になるサイトをご教授して頂けませんか？ Fri, 30 Oct 2009 01:35:54 +0900 http://knowledge.livedoor.com/42836 new_releases ウェブプログラミング 31349 http://knowledge.livedoor.com/profile/31349 http://image.profile.livedoor.jp/icon/new_releases_60.gif http://image.profile.livedoor.jp/icon/new_releases_60.gif 1 Mon, 30 Nov 2009 06:10:02 +0900 http://knowledge.livedoor.com/42591 RSSの取得、表示をするPHPプログラムについて いわゆるRSSアンテナサイトというのを作りたいと思っています。 http://php.s3.to/net/ レッツPHP!さんの http://php.s3.to/net/rss/rssup.php.txt と http://php.s3.to/net/rss/rssv25.php.txt を一つのPHPにまとめて http://www42.tok2.com/home/nosebleed/test.php のように表示してみました(オワタあんてなさん風に)。 表示されない方はこちら http://www42.tok2.com/home/nosebleed/hoge.php 予定としては相当数のRSSを取得するつもりなのですが、 8個超えたぐらいから表示がだいぶ重くなり、 12個ぐらいでtok2がエラーを返してくるようになります。 とにかく、重いです。 何かいい解決法はないでしょうか？ ソースはhtml部分以外ほとんどそのまま繋ぎ合わせています。 必要でしたら貼り付けします(200行程度です)。 私のphpの知識はサンプルを動作確認しながら改変していける程度です。 どうかよろしくお願いします。 追記(コメント返信後) tok2のエラーの原因が構文エラーかもと思い立ち、 ApacheとPHP+PEARを自分のPC(WinXP32bit)にインストールして、実行してみました。 Warning: xml_parse() [function.xml-parse]: input conversion failed due to input error, bytes 0x87 0x55 0x81 0x40 in C:\WWW\Parser.php on line 546 と表示されつつも、一応全て表示されていました。 Parser.phpの546行目付近はこのようになっています。 function _parseString($data, $eof = false) { return xml_parse($this->parser, $data, $eof);←546行目 } Parser.phpは http://pear.php.net/package/XML_Parser/download ここから入手しました。 全く同じソースでRSSの取得数が少ないとこのエラーは出ませんでした。 Fri, 09 Oct 2009 01:08:32 +0900 http://knowledge.livedoor.com/42591 new_releases PHP 31349 http://knowledge.livedoor.com/profile/31349 http://image.profile.livedoor.jp/icon/new_releases_60.gif http://image.profile.livedoor.jp/icon/new_releases_60.gif 1 Mon, 26 Oct 2009 09:40:41 +0900 http://knowledge.livedoor.com/42568 MediaboxでのFLV再生(NonverBlaster使用) はじめまして。 ちょっとなかなか原因が突き止められないもので質問してみようかと思いまして。。宜しくお願いします。 MediaboxとNonverBlasterを使用してFLVを再生したいのですが、 NonverBlasterを使用するとBOX内に表示される動画のサイズがフルスクリーンのサイズになってしまい、BOXに表示されるのは左上の部分のみ、という状態になってしまいます。 FLV自体のサイズは655px / 480pxなんですが、試しにFLVのサイズを50%ほど小さくしてみましたら、若干大きいものの655px内にもうちょっとで収まるくらいのサイズで表示されました。 だったら300pxくらいにしたら、、という感じなんですが、その表示のされかたも、もともと300pxのものを655pxに引き延ばしているのでだいぶ画像が荒いです。 単純にどこかでオートでフルスクリーンにされているのかもしれませんが、ダウンロードしてきてからこれといってスクリプトはいじってないですし、原因が不明です、、。 追記：フルスクリーンのサイズで655pxのBOX内に表示されているものを、一度フルスクリーンボタンを押し、フルスクリーン表示した後、Escキーを押すなどして通常サイズで表示すると、FLV本来のサイズで表示されます。 どなたかお分かりになる方がいらっしゃいましたらご教授願えますでしょうか。 宜しくお願い致します。 mediabox : http://iaian7.com/webcode/mediaboxAdvanced NonverBlaster : http://nonverbla.de/blog/2008/09/15/nonverblasterhover/ Wed, 07 Oct 2009 09:12:59 +0900 http://knowledge.livedoor.com/42568 facade_net JavaScript 32016 http://knowledge.livedoor.com/profile/32016 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sat, 07 Nov 2009 06:10:31 +0900 http://knowledge.livedoor.com/42426 JavaScriptの仕様？について とあるプログラムを作成中に、行き詰って、検証してみたら、 h=0.1のとき、 for(var ii=-127;ii<1271;ii+=0.1*h){ alert(ii); } これを実行すれば、 [-127] [-126.99] [-126.98] ... となると思っていたのですが、Opera及びChromeで動作させると、そうなりません。 ... [-127.979999999] ... となります。 なぜなのか教えて下さい。 尚、回避策としてこうしたらうまくいきました。 for(var ii=-127;ii<1271;ii+=h/10){ alert(Math.floor(ii/(h/10))/(10/h)); } よろしくお願いいたします。 Sat, 26 Sep 2009 20:02:34 +0900 http://knowledge.livedoor.com/42426 NIPO 7.0 JavaScript 29221 http://knowledge.livedoor.com/profile/29221 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 27 Sep 2009 14:39:00 +0900 http://knowledge.livedoor.com/42352 ログの書き込み終了をVBScriptで捕らえることは可能でしょうか？ とあるシステムで3分ごとに書き込みが行われるログがあります。 それをプログラムでコピーしたいのですが書き込み最中にコピーはまずいですよね・・ （ロックはされるかもしれないが・・？？） 書き込みが終了した時点をプログラムで判断することは可能でしょうか？ Sun, 20 Sep 2009 22:28:54 +0900 http://knowledge.livedoor.com/42352 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 Wed, 21 Oct 2009 06:10:11 +0900 http://knowledge.livedoor.com/42351 VBScriptでExcelを操作するときfindを使うことが出来ません。 ExcelのA列に日付がずらずらと入っているのですがその中から「今日」に該当する部分を探したいと思っています。 findを使うことが出来ないでいます。 Const xlValues = -4163 Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.Workbooks.Open("C:\Book1.xls") strLastDay = Cstr(Date - 1) With objExcelApp.WorkSheets("Sheet1").Rangge("A8:A65535") Set objClm = .Find(Trim(strLastDay),,xlValues) If Not objClm Is Nothing Then intCol = objClm.Column intRow = objClm.Row このあとどうしたらいいかわかりません・・・お願いします。 Sun, 20 Sep 2009 22:21:04 +0900 http://knowledge.livedoor.com/42351 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, 19 Oct 2009 21:06:03 +0900 http://knowledge.livedoor.com/42218 VBScriptで指定した範囲の中で対象の文字列が含まれている件数を数えたいと思っています。 やり方が思いつかずわからないので助けてください。 ログの内容は下記のようになっています。 /*/*/*/*/*/*/*/*/*/*/* 2009/08/08 AM9:00 LOG START /*/*/*/*/*/*/*/*/*/*/* PC01 08:00 PC05 08:10 PC100 07:00 /*/*/*/*/*/*/*/*/*/*/* LOG END /*/*/*/*/*/*/*/*/*/*/* /*/*/*/*/*/*/*/*/*/*/* 2009/08/08 AM10:00 LOG START /*/*/*/*/*/*/*/*/*/*/* PC101 09:00 PC55 09:20 PC111 08:00 PC101 09:50 /*/*/*/*/*/*/*/*/*/*/* LOG END /*/*/*/*/*/*/*/*/*/*/* . . . 一時間ごとにログに情報が書き込まれているわけですが「LOG START」から「LOG END」までの間に指定文字列が含まれる行をカウントしたいと思っています。 その一時間後との値をエクセルに保存していきたいのですが・・・ ヒントなどいただけないでしょうか？ Thu, 10 Sep 2009 23:17:05 +0900 http://knowledge.livedoor.com/42218 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, 14 Sep 2009 22:45:08 +0900 http://knowledge.livedoor.com/41956 ifraameでのランダム表示時に不具合がでます ifraameでのランダム表示時に不具合がでます 下記のような記述で、ページを読み込むたびに、一部をランダムで別ページが表示されるようにしているのですが・・・ その際に、何回も読み込みをしカチカチとリンクをクリックした時のような音がし、1.htmlを表示したかと思えば3.htmlになったり5.htmlになったり（その時々で表示されるページは違いますが、多い時では５回以上変わります）します。 そして、ブラウザの戻るボタンを押しても一回では元のページに戻れなくなってしまいます。 ノートパソコンや、回線速度の遅い状況下で起こりやすいと思うのですが・・・ これはどうにかならないものでしょうか？ よろしくお願いします。 <script> tsURL=[]; tsURL[0]="1.html"; tsURL[1]="2.html"; tsURL[2]="3.html"; tsURL[3]="4.html"; tsURL[4]="5.html"; </script> <iframe style="margin-left:-3px;" width="620" height="142" name="tsz" align="center" frameborder="no" scrolling="no" onload="if(this.title==''){this.src=tsURL[Math.floor(Math.random()*5)];this.title=this.src;frm1=this;setTimeout('frm1.title=\'\';',1000)}"> </iframe> Thu, 20 Aug 2009 09:19:36 +0900 http://knowledge.livedoor.com/41956 龍也様 HTML 8978 http://knowledge.livedoor.com/profile/8978 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 25 Aug 2009 18:00:23 +0900 http://knowledge.livedoor.com/41638 ローマ字の入力方法を教えてください メールをする際のローマ字の入力方法が分かりません。 ワードでは、特殊文字から入力が出来るのですが メールの際は、コピーして貼り付けても表記されません。 伸ばして発音する＾を　小文字の上に乗せたいのですが どうすれば良いのか、教えてください。 Wed, 29 Jul 2009 01:49:24 +0900 http://knowledge.livedoor.com/41638 とんべい プログラミング・言語 31194 http://knowledge.livedoor.com/profile/31194 http://image.profile.livedoor.jp/icon/glasshopper0713_60.gif http://image.profile.livedoor.jp/icon/glasshopper0713_60.gif 4 Thu, 06 Aug 2009 17:46:49 +0900 http://knowledge.livedoor.com/41428 ３カラムのブログで、中央記事部分と右サイドバーがずいぶん下の方に表示されてしまいます。 すみません。おしえてもらえますか？ ブログをいじっていましたら、レイアウトが崩れ中央記事部分と右サイドバーがものすごく下に表示されるようになってしまいました。 ↓のサイトです。 http://dhalia.livedoor.biz/ 元に戻したいです。お願いします。 Wed, 15 Jul 2009 17:39:08 +0900 http://knowledge.livedoor.com/41428 弥音- ひろと HTML 31291 http://knowledge.livedoor.com/profile/31291 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 15 Aug 2009 06:10:22 +0900 http://knowledge.livedoor.com/41426 javascriptがブラウザでうまく表示されません（申し訳ありません、ネット初学者です） 長いこと探したのですが、 見つからなかったためご質問させて頂きます。 お恥ずかしいのですが、教えて頂きますと非常に助かります。。。 （??http://blog.livedoor.jp/dankogai/archives/50940292.html??を参考にしました） <input type="submit" value="Hello, World!" onclick="alert(this.value)"> がうまくブラウザで表示されません。 ブログにあるように本来ならばボタンが表示されると思うのですが、 <input type="submit" value="Hello, World!" onclick="alert(this.value)">とそのまま文字が出るだけになっています。 こちらは、なぜなのでしょうか？ また、どうしたら正しい表示をできるのでしょうか？ ご教示願います。 私のPCはMacで、 ブラウザはFireFoxを使用しました。 （他のブラウザでも同様でした） Wed, 15 Jul 2009 15:45:55 +0900 http://knowledge.livedoor.com/41426 kabosu0618 JavaScript 31290 http://knowledge.livedoor.com/profile/31290 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 17 Jul 2009 17:15:54 +0900 http://knowledge.livedoor.com/41090 C++のファイル検索について質問です。 現在辞書を作成しています。 ユーザーに検索したい語を入力させ、その語に見合う意味を、あらかじめ用意してあるファイルから検索して出力させたいのですが、方法が分かりません。 イメージとしては、 ・用意してあるファイルの中身 赤：トマト・リンゴ・日の丸 青：海・空 緑：草・山・ピーマン 例えばユーザーが「緑」と入力したら、用意してあるファイルから「緑」を検索し、「草・山・ピーマン」と出るようにしたいです。 環境はVC++6.0で、OSはWindowsXPです。 ご教授よろしくお願い致します。 Tue, 23 Jun 2009 23:13:00 +0900 http://knowledge.livedoor.com/41090 handphoto C・C++・C# 31064 http://knowledge.livedoor.com/profile/31064 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 24 Jul 2009 06:10:23 +0900 http://knowledge.livedoor.com/41005 C++について質問です。 今月からC++の勉強を始めた初心者です。 ソフトはVC++、OSはwindowsXPを使用しています。 #include <iostream> #include <string> using namespace std; int main(void) { while(true){ cout << "何か文字を入力してね"; string line; getline(cin, line); if(line.size() >= 2){ cout << "２バイト以上入力しないでね"; } else if(line[0]=='y'){ cout << "続けるよ"; } else if(line[0]=='n'){ cout << "やめるよ"; } else{ cout << "yかnを入力してね"; } } return 0; } 以上のソースを書いた時、始めに何か文字を入力してエンターを押しても何も表示されず、 続いてもう１度入力してエンターを押すと、そこで初めて表示がされます。 １度の入力でその内容に見合った表示を出力するには、 どのように直せば良いしょうか。 ご教授お願い致します。 Thu, 18 Jun 2009 01:25:20 +0900 http://knowledge.livedoor.com/41005 handphoto C・C++・C# 31064 http://knowledge.livedoor.com/profile/31064 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 23 Jun 2009 23:01:01 +0900 http://knowledge.livedoor.com/40970 JavaでUNICODEをShift-JISに変換して表示するプログラムを作りたいのですが、文字化けしてしまい、なかなか思うように動いてくれません。 どなたか、お詳しい方がおられましたら御助力をお願いいたします。 Tue, 16 Jun 2009 08:42:26 +0900 http://knowledge.livedoor.com/40970 たかし Java 31049 http://knowledge.livedoor.com/profile/31049 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 17 Jul 2009 06:10:14 +0900 http://knowledge.livedoor.com/40748 シーケンサのプログラムを組んだり、サーボモータを使って ｘ－ｙテーブルを自作して、自由に動かす 技術を身につけたい。 　よろしくおねがいします。 今、機械のマグネットスイッチを、取り替えたり することがあるくらいです。 　自己保持、インターロック　間にリミットいれたり、 して、機械修理する程度にしか、知識ありません。 　アセンブラ、ベーシック、ｃ　シーケンサー用の言語 も、各々どう関係するのかわかりません。 　ｃ　の独学の本で、画面に「hello」と、 表示させるってヤツやってます。 　これは、機械を動かすことと関係してくるのでしょうか、 シーケンサーのプログラムの力を習得するための、 第一段階として、いいんでしょうか。 　関係ないことをしているのでしょうか。シーケンサ メーカの、学習キットを買った方がいいのでしょうか。 　目的達成のために、なにを、消化していけばいいのか、 アドバイスください。 　機械を、動かすための、プログラムを自由に駆使したい。 パソコンのモニター上で利用するプログラムと、 機械を動かすシーケンサープログラムとは、 同一線上にあり、ｃ　を取得してから、シーケンサー のプログラム習ってみるって順番でいいってコトでしょうか。 　訪ねていること自体が、まともな問いになっているかも わかりません。 　目の前に、シーケンサとアンプとサーボモータをおいて 自由に扱えるようになるための道筋おしえてください。 　 　 Wed, 03 Jun 2009 15:52:02 +0900 http://knowledge.livedoor.com/40748 うーーーん、きつい。 その他 30909 http://knowledge.livedoor.com/profile/30909 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 04 Jul 2009 06:10:13 +0900 http://knowledge.livedoor.com/40475 ショッピングサイト構築システムのHTML宣言文について。 Webに関しての質問です。 有料のインターネットショップ構築サービスを利用してネットショップを作っているのですが、デザインが自由とうたっている割に自由度が狭くて困っています。 ショップ内にjqueryのSlide Toggleを使用しているのですが、windowsのブラウザで項目を収納する際、スライドが完了する直前に項目の内容が一瞬全部表示されてちらついてしまうというエラーが出ています。(IE6/IE7で確認) 調べたところhtmlの宣言文が原因とのことで、ショップサイトのサーバーとは別の場所で試しましたらエラーが回避されました。 しかし、ショップサイト構築サービスではhtmlそのものを編集できなく、bodyタグの上は編集できないような形になっています。 デフォルトではなんの宣言文もない<html>タグだけなので、どうにか<html>を置き換えるなどして宣言文を書きたいと思っているのですが、いい方法はありますでしょうか。 宜しくお願い致します。 Mon, 18 May 2009 19:01:12 +0900 http://knowledge.livedoor.com/40475 JavaScript 30741 http://knowledge.livedoor.com/profile/30741 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Jun 2009 06:10:15 +0900 http://knowledge.livedoor.com/40425 ブラウザに貼り付けれるモジュールされたコンテンツ配信アプリ ブラウザに貼り付けれるモジュールされたコンテンツ配信アプリを作りたいです。 どの言語の経験を持っていれば、 開発可能か教えてください 例 http://gizmo.anthill.jp/ GIZMO　（ブラウザに貼り付けれるモジュールされたコンテンツ配信アプリ） 上記と同じようなものが作りたいのです 例 http://gizmo.anthill.jp/gallery/　のようにギャラリーにあるような ものを配布したいのです ブラウザを再起動しても、常時　ブラウザに貼り付いてるモジュールされたコンテンツ配信アプリ を作りたいのです。 ガジェット配信アプリの上で不定期に　リンク付きのバナー広告を出すようなイメージ、 上記のアイデアを実現するにはGIZMOのシスエムを利用するのではなく 1からGIZMOのアイデアを真似して　コンテンツ配信アプリを作ったほうがいいと思いますが その為には、どんな言語、ソフトが必要だと思いますか？ コンテンツ制作者のための開発リソースを提供する規模まで考えていないです。 管理者が提供する　複数のGIF を　一般ユーザーに配布したいだけです Fri, 15 May 2009 13:07:05 +0900 http://knowledge.livedoor.com/40425 toto C・C++・C# 1554 http://knowledge.livedoor.com/profile/1554 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 15 Jun 2009 06:10:21 +0900 http://knowledge.livedoor.com/40398 html　一部だけ背景を変えたい HP作成で、画像Ａを背景として繰り返しで表示させつつ、一部だけ画像Ｂを背景にすることは可能でしょうか？ よろしくお願いします。 Wed, 13 May 2009 17:22:29 +0900 http://knowledge.livedoor.com/40398 趙鹿左衛門 HTML 30151 http://knowledge.livedoor.com/profile/30151 http://image.profile.livedoor.jp/icon/cammonegi_60.gif http://image.profile.livedoor.jp/icon/cammonegi_60.gif 2 Sun, 17 May 2009 16:38:24 +0900 http://knowledge.livedoor.com/40397 アクセス解析の利用ネットワークから詳細な属性を調べるにはどのHPがいいですか？ GOOGLE　アクセス解析を使っています。 利用ネットワークのデータを見るとほとんどがプロバイダですが、 一部　独自企業ネットワークから見ているユーザーもいると 思いますが、調査できるHPをご存知でしたら教えてください 例で、いうと下記のような利用ネットワークの詳細がでました。 このデータから、どのHPだったら、詳細な管理者の情報を詳細が調査できるか教えて欲しいのです。 japan network information center ntt communications corporation ocn provided by ntt-communications which is isp ucom corp. kddi corporation chubu telecommunications co. inc. japan nation-wide network of softbank bb corp japan nation-wide network of softbank bb corp. fujitsu limited nec biglobe ltd. vectant ltd. Wed, 13 May 2009 17:19:36 +0900 http://knowledge.livedoor.com/40397 toto ウェブプログラミング 1554 http://knowledge.livedoor.com/profile/1554 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 13 Jun 2009 06:10:14 +0900 http://knowledge.livedoor.com/40260 「hoge.DisplayStyle = fuga.None」 Visual C# 2008 Express Edition にて。 DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells; てなところを string hoge = "AllCells"; dataGridView1.AutoSizeColumnsMode = hoge; のような感じにしたいのだけど、型が違うと怒られてしまいました。 どんな策を取れば良いですか。 Wed, 06 May 2009 17:12:27 +0900 http://knowledge.livedoor.com/40260 Montale C・C++・C# 30611 http://knowledge.livedoor.com/profile/30611 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 06 May 2009 18:58:52 +0900 http://knowledge.livedoor.com/40215 パソコンの常中？プログラムについて パソコンの常中？プログラムをすべて、寝かせておきました。そして、元の状態にしたのですが、音声がでません。モニターには、「ハードウェアを追加してください。」と表示されますが、そこのハードウェア追加するところを、クリックしても、全く反応しません。どうしたら、音声が聞けるようになるか、教えてください。お願いいたします。 Sun, 03 May 2009 10:01:34 +0900 http://knowledge.livedoor.com/40215 糞 その他 29639 http://knowledge.livedoor.com/profile/29639 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Tue, 12 May 2009 10:12:35 +0900 http://knowledge.livedoor.com/39715 time関数で取得した値をファイル名として、任意のディレクトリにファイルを作成したいのですが、実装方法がわかりません お分かりの方、教えていただけませんでしょうか #include<stdio.h> #include <stdlib.h> #include <time.h> #include<sys/types.h> #include<unistd.h> time_t time(time_t *tloc); int main(void){ char keys[16] = "\x00"; time_t t; t = time(&t); printf("%ld\n", t); FILE *fp; fp = fopen(・・・・・ "w"); 　　　　： 　　　　： 　　　　： fclose(fp); Sun, 05 Apr 2009 04:36:14 +0900 http://knowledge.livedoor.com/39715 ぷらいむ C・C++・C# 30281 http://knowledge.livedoor.com/profile/30281 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 06 May 2009 06:10:05 +0900 http://knowledge.livedoor.com/39623 ★☆★☆私の作ったVBScriptプログラムを上司になったつもりでダメだししてくれる方お願いします★☆★☆ 厳しい言葉をいただけると幸いです。 プログラムの要件として ・MDBのデータを指定条件で抽出し表示する。 ・必要であればExcelへ転記する ・転記した場合フォルダを作成（その中へテキストも作りテンプレートに沿ったSQLを発行し記録する予定ですがそこはまだ出来て無いです） ここの処理やばくない？とかそういったことあったらどんどん言ってください。 プログラムのソース http://www10.atpages.jp/chiechie/RS.html MDB http://www10.atpages.jp/chiechie/db1.mdb 必要な配置箇所 C:\db1.mdb D:\レコード書き込みテスト.xls D:\TEST\案件.xls（B列に適当に数字１～２０くらい CとDの１行目に適当な文字列） 勝手にバナーのタグが入ってしまいます。５３７行目のBODY以降から５８９行目は削除してください。 P.S. あと今まで教えてくださった方に大変感謝しております。 Mon, 30 Mar 2009 22:05:26 +0900 http://knowledge.livedoor.com/39623 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 Thu, 30 Apr 2009 06:10:08 +0900 http://knowledge.livedoor.com/39499 Do While～Loopの脱出方法とコードのまとめ方について質問させてください。 このプログラムはあるサイトの隠しデータに値を飛ばします。 １の値が入ると指定ディレクトリにテキストファイルを作ります。 一定時間が経過するとテキストファイルを消して隠しデータに２を飛ばすと新たな処理を始めるといったものです。 ここで悩んでいる部分があるのですがテキストファイルは１の値が入った後の処理が終われば自動に消えるのですが、ときたま消えない時があります。その判断基準は１３０秒過ぎたらおかしいです。 テキストファイルがある間はグルグルループをしていますがテキストファイルが消去されない場合無限ループに陥ってしまいます。 このプログラムの処理が開始してから１３０秒経ってもループしていたら脱出するといった方法はどのようにすればいいでしょうか？ 脱出する際このプログラムでテキストを消し新たに値の１を飛ばすのを２回まで行うようにはしたいと思っています。 あとこのプログラムですが似通った部分があるなーと自分では考えてしまうのですがまとめようとするとうまく動きません。 Callで呼ぶ方法でやってみたのですが・・・プログラムのまとめ方にコツはありますか？ Set shell = CreateObject("Shell.Application") For Each objWindow In shell.Windows If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.Document.URL = "http://www.yahoo.co.jp/" Then objWindow.document.getElementById("name").value = "1" End If End If Next WScript.Sleep(3000) Set objFS = CreateObject("Scripting.FileSystemObject") Do While objFS.FileExists("D:\test\test.txt") WScript.sleep(250) Loop If objFS.FileExists("D:\test\test.txt") = False Then Set shell = CreateObject("Shell.Application") For Each objWindow In shell.Windows If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.Document.URL = "http://www.yahoo.co.jp/" Then objWindow.document.getElementById("name").value = "2" End If End If Next Set shell = Nothing End If Tue, 24 Mar 2009 22:36:23 +0900 http://knowledge.livedoor.com/39499 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, 30 Mar 2009 22:07:21 +0900 http://knowledge.livedoor.com/39465 HTMLのIFrameやらtargetやら ttp://cammonegi.web.fc2.com/index.html(一応h抜き) このサイトの主なのですが、トップページだけIFrameを使用せず、残りのページをIFrameで表示したいのですがどのような方法があるでしょうか？ よろしくお願いします。 Sun, 22 Mar 2009 23:29:11 +0900 http://knowledge.livedoor.com/39465 趙鹿左衛門 HTML 30151 http://knowledge.livedoor.com/profile/30151 http://image.profile.livedoor.jp/icon/cammonegi_60.gif http://image.profile.livedoor.jp/icon/cammonegi_60.gif 2 Wed, 25 Mar 2009 13:34:11 +0900 http://knowledge.livedoor.com/39447 HTML上のボタンをクリックしVBScriptの動作をキックさせたいと思っています。 HTAで出来たものでなくHTMLのボタンをクリックしJavaScript？でメッセージを出し起動させるというものです。 ボタンを押してVBスクリプトをキックさせるにはどうしたらいいでしょうか？ ボタンはこんな感じです。↓ <input type="button" id = start value="はじめ！" style="width:96;" Onclick=" If( Confirm('確認') ) { document.getElementById('hidSelect').value = '1' } "> <span id ="state"></span> <input type = hidden id = hidSelect value = ""> Sun, 22 Mar 2009 11:32:17 +0900 http://knowledge.livedoor.com/39447 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, 24 Mar 2009 22:35:52 +0900 http://knowledge.livedoor.com/39368 画像＋リンク＆文字のランダム表示 画像＋リンク＋文字のランダム表示について 復数ある画像、リンク、文字のなかからランダムで数個（かぶらないように）表示させたいのです。 それもテーブルタグの中に。 （画像Ａには必ずリンクＡと文字Ａがせっとになるようにです） 初心者なのでどのようにしたら良いのか、またこんな事ができるのかどうかもわかりませんが・・・ おわかりになる方、詳しく教えてください。 一応ＨＴＭＬでＨＰをつくっているので、このように書いたら良いよ・・・という見本のようなモノを作って頂けると幸いです。 宜しくお願いします。 解りづらいかもしれませんが、よろしくお願いします。 Wed, 18 Mar 2009 09:26:48 +0900 http://knowledge.livedoor.com/39368 HTML 30087 http://knowledge.livedoor.com/profile/30087 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 18 Apr 2009 06:10:08 +0900 http://knowledge.livedoor.com/39172 yesLanguageについてです。 すみません お世話になります。 マネックスの yes Languageエディタについてです。 わからなくて困っています。 “戦略”のファイルを作っていているのですが 自動売買で 買いのエントリーした時点から ひとつ前の ローソク足の終値 　　c[1]の値を 買った後、売りシグナルのときの if条件の中で使いたいのです。 呼び出し方？がわからず 困っています。 呼び出すには まず 格納？するのでしょうか？ 実は 格納の方法がわからず。 こつこつ打っている しまいです。 あるいは 別のやり方をするのでしょうか？ やり方をご存じの方 どなたかいらっしゃいましたら お力をかしてください。 プログラムは 初心者すぎて・・ 易しく説明していただけると とても助かります。 お待ちしております。 Thu, 05 Mar 2009 16:25:05 +0900 http://knowledge.livedoor.com/39172 muchiでごめんなさい プログラミング・言語 19387 http://knowledge.livedoor.com/profile/19387 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 05 Apr 2009 06:10:08 +0900 http://knowledge.livedoor.com/39117 ディベロップメントエンジニアとはどんな仕事ですか？ IT関連の仕事をいろいろ調べているのですが、「ディベロップメントエンジニア」という職種について教えていただけますか。 具体的にどういう仕事なのか、ITビギナーにも分かるように、できるだけかみ砕いた表現で教えて頂けると嬉しいです。よろしくお願いします<emoji:biccuri02> Mon, 02 Mar 2009 23:26:35 +0900 http://knowledge.livedoor.com/39117 沙羅 プログラミング・言語 13288 http://knowledge.livedoor.com/profile/13288 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 03 Mar 2009 19:20:01 +0900 http://knowledge.livedoor.com/39005 Javaアプレットの画像 Java勉強中の者ですが画像を表示させたいのですが出来ません。 package orz; import java.applet.Applet; import java.awt.*; public class orz extends Applet { Image imgs; @Override public void init() { imgs=getImage(getDocumentBase(),"会議.jpg"); } @Override public void paint(Graphics g){ int i; for (i=1;i<=10;i++){ g.drawImage(imgs, 10, 10, this); } } } と書いてエラー等も無いのですが、アプレットを実行してみると ビューアーが真っ白です。 何が原因なのでしょうか。よろしくお願いします。 Mon, 23 Feb 2009 17:58:55 +0900 http://knowledge.livedoor.com/39005 西達磨壮兵衛 Java 29385 http://knowledge.livedoor.com/profile/29385 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 01 Mar 2009 09:43:52 +0900 http://knowledge.livedoor.com/38942 プログラミングトレードは 難しいのでしょうか？？ お世話になります。 プログラミングというものが やってみたいのですが、 実は ほとんど知識がありません。 実際にパソコンを使って ごくごくシンプルなものから でいいです。 とにかく企画倒れは嫌なので おそらく 習うより慣れろの世界だろうということで、 実践的なものをやってみたいです。 初心者には難しいでしょうか？ 最近 株に興味があります。 お世話になっている マネックス証券 でプログラミングトレードができるのを見つけました。 プログラミングトレードなんていうのは プログラミングの勉強として こんな僕には無謀な題材でしょうか？ それをつかって儲けようなんて 不可能なので予定はないですが、 もし 無謀でなければ 文法？や基本みたいなものは どこで知ることができるのでしょうか？？ Sat, 21 Feb 2009 01:22:55 +0900 http://knowledge.livedoor.com/38942 muchiでごめんなさい プログラミング・言語 19387 http://knowledge.livedoor.com/profile/19387 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 25 Feb 2009 04:29:55 +0900 http://knowledge.livedoor.com/38922 VBScriptでサーバのメモリ監視用のプログラムですが本当に値が正しいのか微妙なものがあります。 物理メモリとコミットチャージなどで比較すればよいかと考えています。 物理メモリは下記のプログラムで取れました。 strComputer = "." Set wbemServices = GetObject("winmgmts://" & strComputer) Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration") For Each wbemObject In wbemObjectSet WScript.Echo "物理メモリの合計 (kb): " & wbemObject.TotalPhysicalMemory Next しかし、コミットチャージなのですが・・・ Set OSInfos = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem") For Each OSInfo In OSInfos Wscript.Echo "コミットチャージ: " & int((OSInfo.SizeStoredInPagingFiles - OSInfo.FreeSpaceInPagingFiles) / 1024) & "MB" Next でやるとタスクマネージャとほぼ一緒の値が出るマシンと出ないマシンがあります。 何故でしょうか？？ こういったメモリ情報を取得するときローカルからサーバの場合サーバの管理者権限を持ったアカウントと同じアカウントでローカルからやらなくては取得できないことはわかりました。 どうしてもそれは難しいので代替手段を考えているのですが思いつきません。 いい方法は無いでしょうか？ まだ、作り方は考えているのですがサーバにスクリプト自体を配置してローカルからコマンドでキックすれば可能かもしれないとは考えていますが・・・いい方法あったらお願いします。 Thu, 19 Feb 2009 23:12:45 +0900 http://knowledge.livedoor.com/38922 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 22 Mar 2009 06:10:12 +0900 http://knowledge.livedoor.com/38907 VBScriptでサーバのコミットチャージを取得したいと思っていますが・・・ どうしてもエラーが解決しません SWbemLocatorがアクセス拒否 80070005のエラーが出てしまいます。 いろいろ調べてみたのですがよくわかりません。 サーバのサービスでRPCが有効ではないのでは？というようなのを見つけたりしましたが・・・そんなことはありませんでした。 何がいけないのでしょうか？ Dim svc Dim sv Dim msg On Error Resume Next Set svc = CreateObject("WbemScripting.SWbemLocator") _ .ConnectServer("servername", , "administrator", "password") _ .ExecQuery("Select * from Win32_OperatingSystem") If Err.Number <> 0 Then msg = Err.Number & ":" & Err.Description Else For Each sv In svc msg = sv.TotalVisibleMemorySize & "/" & sv.FreePhysicalMemory Next End If WScript.Echo msg Thu, 19 Feb 2009 00:07:07 +0900 http://knowledge.livedoor.com/38907 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 22 Mar 2009 06:10:12 +0900 http://knowledge.livedoor.com/38820 HTML ApplicationからExcelを操作したいのですがどうにもうまく出来ないところがあります。 Excelを開きxlUPにて最終行を取得したいのですが何故か結果が返ってきません。 定数の宣言はちゃんと行っていますし、アクティブシートにしないと出来ないということもわかっているのですがどうにもこうにも動いてくれません・・・どうしたらよいのでしょうか？ objExcelPath = "D:\レコード書き込みテスト.xls" Set g_objExcelApp = GetObject(,"Excel.Application") If Err Then Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.WorkBooks.Open objExcelPath ElseIf g_objExcelApp.Workbooks.Count Then For Each i In g_objExcelApp.Workbooks If i.FullName = objExcelPath Then MsgBox objExcelPath & "が開いているので書き込めません。" & vbCrLf & vbCrLf & _ "保存して終了してください。", vbCritical, "警告" Exit Sub End If Next Else MsgBox "Excelは起動していますが" & objExcelPath & "を開いてないので開きます。" Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.WorkBooks.Open objExcelPath End If objExcelApp.WorkSheets("1nosheet").Activate Set objExcelSheet = objExcelApp.WorkSheets("1nosheet") RowNo = objExcelSheet.ActiveSheet.Range("J65536").End(xlUP).Row WScript.echo RowNo 'RowNoが出ないのは何故でしょうか？？ Sun, 15 Feb 2009 00:19:44 +0900 http://knowledge.livedoor.com/38820 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 15 Feb 2009 08:00:47 +0900 http://knowledge.livedoor.com/38814 Javaアプレットの初歩的すぎる質問 Javaでアプレットを作りたいのですが作り方が分りません。 NetBeansIDE6.5をインストールして ファイル→新規プロジェクト→Javaアプリケーション で新規プロジェクトを作ったあと package org.me.hello; import java.applet.Applet; import java.awt.Graphics; public class MyApplet extends Applet { public void paint(Graphics g) { g.drawString("Hello applet!", 50, 25); } } と書いてデバッグするのですが、主クラスが見つからないと出ます。上の他にも教本などのテキストをコピーしたりして試しているのですが結果は変わりません。どのようにすればいいのでしょうか？ よろしくお願いします Sat, 14 Feb 2009 21:29:00 +0900 http://knowledge.livedoor.com/38814 西達磨壮兵衛 Java 29385 http://knowledge.livedoor.com/profile/29385 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 15 Feb 2009 10:09:49 +0900 http://knowledge.livedoor.com/38764 サーバ上のコミットチャージ（それかメモリ使用量）をVBSで取得したいと思っています。 サーバで動いているシステムがあれば一概に判断できないと思いますが・・・コミットチャージは物理メモリの利用可能と比較して大きいようであれば状態は良くないということでしょうか？ また最大値が制限値をたびたび超えるのもまずいということでいいのでしょうか？ 一応コミットチャージを取得するプログラムを見つけたのですがサーバ上の物理メモリとの比較や最大値と制限値の比較方法が分かりません。 どなたか教えていただけ無いでしょうか？ Set OSInfos = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem") For Each OSInfo In OSInfos Wscript.Echo "コミットチャージ: " & int((OSInfo.SizeStoredInPagingFiles - OSInfo.FreeSpaceInPagingFiles) / 1024) & "MB" Next Fri, 13 Feb 2009 00:12:06 +0900 http://knowledge.livedoor.com/38764 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 16 Mar 2009 06:10:05 +0900 http://knowledge.livedoor.com/38741 VBScript（HTA）でSQLを発行しその結果をExcelへ転記させたいのですがどうもうまく出来ません。 http://www.google.com/notebook/public/06577523275749879902/BDSNYDAoQvJKurfYj?hl=ja このような感じで書いてみているのですがうまく結果が出てくれません。シートを指定していない？のが原因でしょうか？ それとも他にまずい部分がありますでしょうか？ Wed, 11 Feb 2009 23:19:45 +0900 http://knowledge.livedoor.com/38741 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 14 Mar 2009 06:10:06 +0900 http://knowledge.livedoor.com/38674 VBScriptでIEを開きあるサイトにアクセスしリンクをクリックするプログラムを作っています。 対象としているサイト（イントラですが）が動的？にリンクが増えてしまうので「getElementsbytagname」が使えないのかなと思っております。 今ソースをにらめっこしながらやっているのですがわかったことはJavaScriptで記述されていることだけで・・・・ どうリンクを取得してあげたらいいのかというところで全く分からず悩んでいます。 <span id="TurnOffAccessibility" style="display:none"> <a href="#" class="ms-acclink" onclick="SetIsAccessibilityFeatureEnabled(false);UpdateAccessibilityUI();return false</a></span> リンク部のソースはこんな感じです。 http://www.happy2-island.com/vbs/cafe02/capter00708.shtml この辺のサイトを参考にしてやってみていますがいまいちJavaScriptが分からなくて・・・（HTMLもですが） どのようにしたらいいでしょうか？ Sun, 08 Feb 2009 00:33:37 +0900 http://knowledge.livedoor.com/38674 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 Mar 2009 06:10:05 +0900 http://knowledge.livedoor.com/38522 VBAで入力規則の設定がうまくいきません　どなたかご教示ください。 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim A As String If Target.Column = 3 And Target.Row >= 77 And Target.Row <= 65536 Then If Target.Value <> "" Then Worksheets("Sheet2").Range("A1:Z5").Copy _ Destination:=Target.Offset(5, -1) For i = 5 To 9 For k = 5 To 23 Step 2 A = "=INDIRECT(" & Target.Offset(0, 3).Address & ")" Target.Offset(i, k).Validation.Delete Target.Offset(i, k).Validation.Add Type:=xlValidateList, Formula1:=A Next Next End If End If End Sub 「実行時エラー '1004' : アプリケーションの定義またはオブジェクト定義のエラー」が出てしまします。 A = "=INDIRECT(" & Target.Offset(0, 3).Address & ")" Target.Offset(i, k).Validation.Delete Target.Offset(i, k).Validation.Add Type:=xlValidateList, Formula1:=A "=INDIRECT(""" & Target.Offset(0, 3).Address & """)"こうすることや"INDIRECT(" & Target.Offset(0, 3).Address & ")"こうするとエラーは発生しません。これはバグなのでしょうか？ 上記だとリストに値がうまく設定されません。 このプログラムの意味ですが・・・ ttp://??www.relief.jp/itnote/archives/000822.php?? こちらにあるような物を参考にしています。 ドロップダウンリストを連動させて使いたいのです。 Sat, 31 Jan 2009 08:13:59 +0900 http://knowledge.livedoor.com/38522 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 02 Feb 2009 23:59:59 +0900 http://knowledge.livedoor.com/38503 VBAで入力チェッカーを作っているのですが、仕様の部分でなやんでいます。 Private Sub CommandButton1_Click() Dim i As Long lastRow = Range("A65536").End(xlUp).Row For i = 10 To lastRow If Range("A" & i).Value = "" Then Range("A" & i).Value = ??? Exit For End If Next i End Sub USERがあるセルにデータを入力するとA列に５行ごと自動に値が入ります。 しかし、入力忘れで５行飛ばしたりはたまた１０行空白が出来る場合があります。 その際のチェッカーの役割なのですが。。。 したから行を見ていってA１０～最終行までの間でどこか空白があったら下から空白を探し空白箇所から5個上のセルの値を基本的にコピーをしていれる。 もし5個上のセルにも無かったら10個上みたいにやりたいのですがどうしたらよいでしょうか？ Fri, 30 Jan 2009 00:58:07 +0900 http://knowledge.livedoor.com/38503 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 03 Feb 2009 00:00:31 +0900 http://knowledge.livedoor.com/38502 VBAで入力規則を設定したいのですが、うまくいきません・・・ 指定している範囲のセルに値が入った時にイベントが起きるようにしています。 値が入ると他のシートよりコピーをしてきて５列はなれたところから１列飛ばしで２３列まででそこから５行に入力規則を入れます。 その入力規則の通常の手作業の場合「元の値」にINDIRECT関数をいれて値をターゲットから３つずれたセルを参照したいのですがうまく出来ません。 ご教示いただけないでしょうか？？？ Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Column = 3 And Target.Row >= 77 And Target.Row <= 65536 Then If Target.Value <> "" Then Worksheets("Sheet2").Range("A1:Z5").Copy Target.Offset(5, -1) For i = 5 To 9 For k = 5 To 23 Step 2 Target.Offset(i, k).Validation.Add Type:=xlValidateList, Formula1:="=INDIRECT(target.offset(0,3))" '絶対にこんなやり方では無いですよね・・・？ Next Next End If End If End Sub Fri, 30 Jan 2009 00:46:06 +0900 http://knowledge.livedoor.com/38502 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 03 Feb 2009 00:00:54 +0900 http://knowledge.livedoor.com/38394 VBAでセルに値が入ったときにイベントを起こしたいのですが、躓いています・・・ Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long ' 変更したセルに値が入った場合条件成立 If Trim(Target.Value) <> "" Then ' 行番号が10以上65530以内のとき条件成立 If Target.Row >= 10 And Target.Row <= 65530 Then ' BCD列で、5の倍数の行のとき条件成立 If (Target.Column = 2) And (Target.Row Mod 5) = 0 Then If Target.Value <> "" Then For i = 0 To 4 Target.Copy Target.Offset(i, 10).PasteSpecial Paste:=xlPasteValues Next Worksheets("Sheet4").Range("A2:K6").Copy Target.Offset(5, -1) End If ElseIf (Target.Column = 3) And (Target.Row Mod 5) = 0 Then If Target.Value <> "" Then For i = 0 To 4 Target.Copy Target.Offset(i, 10).PasteSpecial Paste:=xlPasteValues Next End If ElseIf (Target.Column = 4) And (Target.Row Mod 5) = 0 Then If Target.Value <> "" Then For i = 0 To 4 Target.Copy Target.Offset(i, 10).PasteSpecial Paste:=xlPasteValues Next End If Else Exit Sub End If End If End If End Sub ここまでは何とか出来たのですが問題点があります・・・ ・複数セルを選択してDELすると実行時エラー13が出ます。 ・別シートより範囲指定したセルをコピーして張り付けるときも出ます。 ・B列には6桁の整数値しか入らないようにしたいけど整数値限定は可能？・・・その整数値を貼り付ける際日付型へのフォーマットが難しい などあります。ヒントをいただけないでしょうか？ Thu, 22 Jan 2009 23:25:49 +0900 http://knowledge.livedoor.com/38394 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 03 Feb 2009 00:01:25 +0900 http://knowledge.livedoor.com/38337 VBAでセルに入っている文字をカウントしていますが、問題に直面しています。 Dim cnt As Long Dim i As Long Dim lastRow As Long For i = 1 to 20 step 2 lastRow = Cells(65536, i).End(xlUP).Row cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i),Cells(lastRow, i), "お世話になっております") cnt = cnt + cnt Next Excelのセルを1列ずつ飛ばして列に「お世話になっております」が含まれたら件数をカウントしています。 そのカウント数が何故かリセットされてしまいます。 カウント数を足していきたいのですが・・・考え方自体が違うのでしょうか？ Mon, 19 Jan 2009 23:27:11 +0900 http://knowledge.livedoor.com/38337 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, 19 Feb 2009 06:10:07 +0900 http://knowledge.livedoor.com/38325 HTAでレコードを条件検索するプログラムを作っています。 【テーブルの作成※簡素化しています】 strMES = strMES & "<table id='strData'><tr>" & _ "<td class='c1' align=center>選択</td>" & _ "<td class='c2' align=center>時間</td></tr>" Do If objRS.Eof Then Exit Do strMES = strMES &"<tr>"& _ "<td class='c1'><input type='checkbox'>" & _ "</td>" & _ "<td class='c2'>" & objRS(7) & "</td></tr>" objRS.MoveNext Loop strMES = strMES & "</table>" objRS.Close 【取得】 For Each strTR In document.getElementByID("strData").getElementsByTagName("tr") Set strTDs = strTR.getElementsByTagName("td") For Each strCheckBox In strTDs(0).getElementsByTagName("input") If strCheckBox.Checked = True Then strID = strTDs(0).name'?getElementsByTagName("input")(0).Value strNAME = strTDs(2).Value'?getElementsByTagName("input")(0).Value strKEN = strTDs(3)'getElementsByTagName("input")(0).Value Msgbox "選んだのは" & vbcrlf & strID & "..." & strNAME & "..." & strKEN End If Exit For Next Next 「TD」内に含まれている文字列を取得する値としたいのですがオブジェクトがありませんとかいう風になってしまいます。 ValueかNameでOKかとやってみたのですがうまくいきません。それか文字列を抜き出す方が難しいでしょうか？ Sun, 18 Jan 2009 23:11:51 +0900 http://knowledge.livedoor.com/38325 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 Feb 2009 06:10:05 +0900 http://knowledge.livedoor.com/38283 VBScriptでウィンドウの操作をするプログラムを作っています。 JavaScriptでウィンドウサイズを変えているものを強制的にVBScriptでサイズ変更するのはテストサイトでは問題ないのですが・・・ 本当に対象としているサイトは社内インフォラサイト内なので見れないのですが・・・ http://www.google.com/notebook/public/06577523275749879902/BDQrTDAoQ6eTdiOwj?hl=ja テストサイトではobjWindow.Document.URL = URL2とすればabout:blankがURL2のサイトになるのですが・・・対象サイトのアドレスはどうしても入ってくれません。 URL2をグーグルのアドレスに変えてみればうまくいくのですがその対象サイトだけはどうしてもダメです。 そのサイトに入るにはテストサイト同様にリンクをクリックしてからでないと入れないようになっています。そのハイパーリンクで右クリックの対象ファイルを保存をすると「Internet Explorerでは、○○をダウンロードできません。インターフェイスがサポートされていません。」となるようなサイトです。 どうにかしてオープンする前にウィンドウサイズを指定してしまいたいのですがどうにもこうにもうまくいきません。 例えばなのですが、元サイトをいじることなく一旦JavaScriptなどで指定されているサイズを”一時的”に書き換えて立ち上げるとかは出来ないでしょうか？ Thu, 15 Jan 2009 23:19:23 +0900 http://knowledge.livedoor.com/38283 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, 18 Jan 2009 20:18:41 +0900 http://knowledge.livedoor.com/38233 HTAでレコードを条件検索するプログラムを作っています。条件によるレコード検索までは出来ているのですが、その結果の転記が出来ないでおります。 検索を実行するとHTA上にチェックボックスが作成されます。 チェックボックスにチェックがついたものだけをエクセルへ転記を行いたいのですがどのようにしたらいいのか・・・ ひょっとしたらHTAのオブジェクトを取得してHTA自分自身を操作？？なんておもってやってみたのですが何故かHTAのプログラムだけ結果が返りません。 それかこの考え自体が間違いでしょうか？どなたかヒントで構いませんので力になっていただけないでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDRomDAoQ8pekyuwj?hl=ja Mon, 12 Jan 2009 14:31:54 +0900 http://knowledge.livedoor.com/38233 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, 18 Jan 2009 20:15:38 +0900 http://knowledge.livedoor.com/38228 VBScriptでウィンドウの操作をするプログラムが出来ましたが・・・本当にこれで良いか自信がもてない部分があります。 JavaScriptでウィンドウサイズを変えているものを強制的にVBScriptでサイズ変更する方法は成功しました。 そこで新たに悩みがあるのですがobjWindow.document.getElementsByTagName・・・・ という一文がありますがobjWindowをobjIEという名前に変更してからクリック動作をさせたいと思っています。 objWindow = objIEと途中でやってみたりしていますが、オブジェクトがありませんといった怒られるエラーに遭遇します。 どこで変更すればよいのでしょうか？ またエラートラップを仕掛けていないのですが・・・どこでどんな風に仕掛けておくのがいいでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDQrTDAoQ6eTdiOwj?hl=ja Mon, 12 Jan 2009 01:16:50 +0900 http://knowledge.livedoor.com/38228 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 Thu, 12 Feb 2009 06:10:09 +0900 http://knowledge.livedoor.com/38227 HTA（VBScript）で作成しているプログラムがあるのですがなかなかうまく出来ないでおります。 物が出来てきましたがエクセルの転記について四苦八苦しております。 レコードを検索するとチェックボックスを含め表が作成されます。 そのチェックボックスをクリックし転記をすると選択したものがエクセルに転記されるようにしたいのですが、検索したときと表示を変えて転記したいと思っています。 例：HTA上に表示 objRS(2),objRS(3),objRS(4)としたら エクセルに転記 objRS(4),objRS(5),objRS(7)を転記 いい方法が思いつきません。 とりあえずチェックボックスのVALUEには名前のつけ方を工夫してみましたが・・・ 転記する前に自分自身のオブジェクトの取得？を考えてみていたのですがいつまでもうまくいかず困っています。 ヒントをいただけないでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDQtSDQoQkvvPiOwj?hl=ja Mon, 12 Jan 2009 01:08:35 +0900 http://knowledge.livedoor.com/38227 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 Thu, 12 Feb 2009 06:10:08 +0900 http://knowledge.livedoor.com/38182 VBScriptでIEのウィンドサイズの調整をすることに四苦八苦しています。 Dim URL Dim URL2 Dim objIE Dim objINPUT Dim Width Dim Height Dim X Dim Y Width = 500 Height = 600 X = 0 Y = 0 URL = "http://www10.atpages.jp/chiechie/football.html" URL2 = "http://www10.atpages.jp/chiechie/hello.html" Set objIE = WScript.CreateObject("InternetExplorer.Application") If Err.Number = 0 Then objIE.Navigate URL objIE.Left = X objIE.Top = Y objIE.Width = Width objIE.Height = Height objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop Else WScript.Echo "ERR" & Err.Description End If If objIE.Document.URL = URL Then Set objINPUT = objIE.document.getElementsByTagName("A") objINPUT(0).click 'クリックした時点で全画面表示で一回オープンされるはずです 'その状態だと画面がチラチラするので嫌な部分でもあります。 Else WScript.Echo "ERR" & Err.Description End If 'objIE.quit Set objIE = Nothing JavaScriptで出来たページなのですが全画面表示になるようサーバサイドで設定されています。 リンクをクリックして表示をすると全画面で立ち上がるかと思いますがこれを「VBScriptで強制的」に画面サイズを指定する方法は無いでしょうか？（このページと仕様は若干違いますが Dim URLのページが開いてないとDim URL2が開かないということで仮定してください）クリックする前に開くサイズを指定するプロパティとか見つからなくて・・・回避策に悩んでいます。 Fri, 09 Jan 2009 00:17:53 +0900 http://knowledge.livedoor.com/38182 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 Mon, 09 Feb 2009 06:10:07 +0900 http://knowledge.livedoor.com/38152 HTAで日付をフォームに入れたいのですがいまいちうまくいきません。 こんな感じでつくっていますがおかしい表示になってしまいます。 Sub IptToday() Dim dtmDate dtmDate = Year(Now()) & "-" & Right("0" & Month(Now()),2) & "-" & Right("0" & Day(Now()),2) msgbox dtmDate End Sub ・ ・ ・ ・ ・ ・ 【日付】 <input type="text" name="InputDay1" value="">    ～    <input type="text" name="InputDay2" value="">    <input type="button" name="go" value="今日" onclick="IptToday()"> Tue, 06 Jan 2009 23:35:45 +0900 http://knowledge.livedoor.com/38152 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, 09 Jan 2009 00:10:01 +0900 http://knowledge.livedoor.com/38137 ホームページ上で四則演算をさせるには ホームページ上で掛け算や足し算などの四則演算を するためのプログラムを組み込むことはできるのでしょうか？ 例えば・・・昔のお金の単位（江戸時代） １両＝８万円と設定して ４両はとか １朱 １分 １文などを計算させたい 詳しくは・・・・ http://www.edo.net/goinkyo/main.htmlの お江戸換算機「あきんど」をみてくれれば 質問の意味が分かると思います。 Mon, 05 Jan 2009 13:24:28 +0900 http://knowledge.livedoor.com/38137 喜志十郎 その他 16819 http://knowledge.livedoor.com/profile/16819 http://image.profile.livedoor.jp/icon/special_rapid2006_60.gif http://image.profile.livedoor.jp/icon/special_rapid2006_60.gif 2 Tue, 06 Jan 2009 15:25:13 +0900 http://knowledge.livedoor.com/37982 VBScriptでIEのウィンドウを操作するときサイズなどが指定できません。 objIE.Width = 200 objIE.Height = 200 このようにすれば普通はウィンドウを操作できますよね？ でも何故か出来サイトが存在していたりします。 いろいろ調査したりテストをしましたが一向にうまくいきません。 例えばもともとそのサイトがJavaScriptなどで開くサイズを指定されているものだとしたらサイズの調整はできないのでしょうか？ Tue, 23 Dec 2008 23:37:26 +0900 http://knowledge.livedoor.com/37982 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 23 Jan 2009 06:10:03 +0900 http://knowledge.livedoor.com/37923 間違っているVBのContinueの件で書き込みをしたのですが何故か消えてしまったので再度書きます。 教わったことを参考にやってみたのですがうまくいきません。 Continueの部分がうまくいくPCといかないPCがあるのでどうしたらいいか分からなくなってしまいました・・・ Option Explicit Dim objIE Dim objShell Dim objWindow Dim WinExist Dim strURL Dim strURL2 Dim Flug strURL = "http://www.yahoo.co.jp/" strURL2 = "http://www.google.co.jp/" WinExist = False Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) <> "HTMLDocument" Then ？？？？？ Continue ？？？？？ End If WinExist = True Set objIE = objWindow If objIE.LocationURL = strURL Then Flug = True Exit For End If Next If Flug = True Then msgbox "ヤフー存在" Else msgbox "別の処理を行なう" If WinExist = False Then 'IEが無い場合 起動する Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate strURL2 objIE.Visible = True Set objIE = Nothing End If End If Thu, 18 Dec 2008 23:54:02 +0900 http://knowledge.livedoor.com/37923 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 Sun, 18 Jan 2009 06:10:05 +0900 http://knowledge.livedoor.com/37913 VBでContinueを行いたいのですがよくわかりません。 このようなコードを使いたいのですが・・・ Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) <> "HTMLDocument" Then Continue End If これに対応したやり方というのを下記サイトで見つけました。 http://mga.cocolog-nifty.com/pc_info/2006/11/vbscript_tips1__7a8f.html ただどういうう風に書き直したらいいか分からなく困っています。 どなたか解説いただけないでしょうか？ Thu, 18 Dec 2008 00:58:44 +0900 http://knowledge.livedoor.com/37913 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 06 Jan 2009 23:30:54 +0900 http://knowledge.livedoor.com/37889 ID Group Name 0 A0 XXX 1 A1 AAA 2 A1 BBB 3 A2 CCC 4 A2 DDD 5 A3 EEE 6 A3 FFF というデータがあり http://www.hogehoge.com/test.phpとした場合： 0A0XXX 中略 6A3FFF test.php?group=A2とした場合は 3A2CCC 4A2DDD test.php?ID=1とした場合は1A1AAA test.php?name=BBBとした場合は2A1BBBと返答し test.php?group=A2andID=1とした場合は「該当データなし」と 返答させたいのですがtest.php、test.php?group=A1、test.php?ID=1は返すことが出来ましたがtest.php?name=BBBとした時と複数のパラメータを定義したときだけ返答できません <? $datas=Array( Array("ID"=>"0","Group"=>"A0","Name"=>"XXX") ,Array("ID"=>1,"Group"=>"A1","Name"=>"AAA") ,Array("ID"=>2,"Group"=>"A1","Name"=>"BBB") ,Array("ID"=>3,"Group"=>"A2","Name"=>"CCC") ,Array("ID"=>4,"Group"=>"A2","Name"=>"DDD") ,Array("ID"=>5,"Group"=>"A3","Name"=>"EEE") ,Array("ID"=>6,"Group"=>"A3","Name"=>"FFF") ); $g = $_REQUEST["group"]; $i = $_REQUEST["ID"]; $n = $_REQUEST["Name"]; foreach($datas as $data){ if(($g == "" AND $i == "") OR $g == $data["Group"] OR $i == $data["ID"] OR $n == $data ["Name"]){ echo $data["ID"].$data["Group"].$data["Name"]."<br>"; }elseif($g == $data["Group"] AND $i == $data["ID"]){ echo "該当データなし"; } } ?> どのように定義すればよいのでしょうか？ よろしくお願いします Wed, 17 Dec 2008 00:06:29 +0900 http://knowledge.livedoor.com/37889 hironori1979 PHP 29142 http://knowledge.livedoor.com/profile/29142 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 15 Jan 2009 07:42:07 +0900 http://knowledge.livedoor.com/37861 配列の要素の部分で例外処理を作りたいのですがどうしたらよいでしょうか？ 例えば AAAA(0) AAAA(1) AAAA(2) AAAA(3) この要素で３の要素だけ変えるにはどうしたらよいのでしょうか？ Mon, 15 Dec 2008 00:49:58 +0900 http://knowledge.livedoor.com/37861 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 Thu, 18 Dec 2008 23:37:34 +0900 http://knowledge.livedoor.com/37860 VBScriptの処理でログを出す処理作っているのですが処理中に何らかの原因で正常な処理が出来なかった 場合にエラーログを出したいのですが冗長にならないようにしたいのですが・・・どうすればよいでしょうか？ Option Explicit Const ForAppending = 8 Dim objFileSysFolder Dim objOutFile Dim objFileSysText Dim strScriptPath Dim strCheckPath Dim strCreatePath Dim strDate Dim strCreateFile ・ ・ ・ If XXXX then aaaa Else bbbb End If ・ ・ ・ If YYYY then CCCC Else DDDD End If ・ ・ ・ If ZZZZ then EEEE Else fffff End If Set objFileSysFolder = CreateObject("Scripting.FileSystemObject") strCheckPath = objFileSysFolder.BuildPath("D:\","TEST") strDate = CStr(Right("0000" & Year(Now),4) & Right("00" & Month(Now),2)) If objFileSysFolder.FolderExists(strCheckPath) = True Then Set objFileSysText = CreateObject("Scripting.FileSystemObject") strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"") strCreateFile = objFileSysText.BuildPath(strScriptPath,strDate & ".log") If objFileSysText.FileExists(strCheckPath) = True Then Set objOutFile = objFileSysText.OpenTextFile(strCreateFile,ForAppending) objOutFile.WriteLine "Date[" & date & "] " & _ "Time[" & time & "] " & _ "User[" & "OK" & "]" objOutFile.Close Else Set objOutFile = objFileSysText.OpenTextFile(strCreateFile,ForAppending) objOutFile.WriteLine "Date[" & date & "] " & _ "Time[" & time & "] " & _ "User[" & "NG" & "]"'ここでメッセージを変えたい objOutFile.Close End If End If Set objFileSysFolder = Nothing Set objFileSysText = Nothing Set objOutFile = Nothing こういったログのルーチンをあるとしますが、If～Else～End Ifの部分でElse以降の場合メッセージを変えるにはどうすればいいでしょうか？ Mon, 15 Dec 2008 00:42:28 +0900 http://knowledge.livedoor.com/37860 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 Thu, 18 Dec 2008 23:37:49 +0900 http://knowledge.livedoor.com/37858 インストーラーについて教えて下さい。VBScriptのプログラムを作ったのですがそれをインストールするような形にしたいと思っています。 インストールすると同時に指定のパスに起きたいといったことを考えています（プログラムの内容上指定のパスにしか置けないような？？） また同時にタスクスケジューラーにプログラムを動かす時間を同時に設定できるような感じも行いたいのですが・・・どうしたよいでしょうか？ Mon, 15 Dec 2008 00:25:26 +0900 http://knowledge.livedoor.com/37858 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 Thu, 15 Jan 2009 06:10:13 +0900 http://knowledge.livedoor.com/37823 VBScriptで指定するサイトが開いていなかった場合とある処理を行い、とあるサイトが開いていれば別の処理をし終了させることをやっていますがうまくいきません。 自分の考えとしては １・開いているIEをくるくるループ回して探す ２・その中にヤフーがあればフラグをTrue処理 　　それ以外はFalse処理 これだけで終わりにしたいのですが・・・ Dim objIE Dim objShell Dim objWindow Dim WinExist Dim strURL Dim Flug Dim strURL2 strURL = "http://www.yahoo.co.jp/" strURL2 = "http://www.google.co.jp/" 'IEが起動して無い場合プログラムが起動しないのでダミー立ち上げ Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" objIE.Visible = True Set objIE = Nothing WinExist = False Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) = "HTMLDocument" Then WinExist = True Set objIE = objWindow End If Next If objIE.LocationURL = strURL Then Flug = True Else If objIE.LocationURL <> strURL Then Flug = False Else WScript.sleep(1) End If If Flug = False Then Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate strURL2 objIE.Visible = True Set objIE = Nothing End If ' 'いろいろな処理があるが省く ' If Flug = True Then msgbox "ヤフー存在" End If End If 絶対にフラグがTrueになることがありません。 Excelでデバッグしてみましたがなぜうまくいかないのかが理解できておりません。 自分としては開いているIEをぐるぐるとまず回ってヤフーが開いていればTrue時の処理を行い終了、 なければFalse時の処理を行うという風にしたいです（無限ループではありませんでした） For eachを使っているので途中でIf Flug以降の処理を行ってしまうのも無駄な繰り返しで困ってしまいます。 そこでフラグを立てることを考えたのですがどうも思うようにいきません。 ボキャブラリが足りませんが、いい知恵を貸していただけないでょうか？ Fri, 12 Dec 2008 01:10:48 +0900 http://knowledge.livedoor.com/37823 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 Thu, 18 Dec 2008 23:38:22 +0900 http://knowledge.livedoor.com/37791 東京から下り列車と大阪からの上り列車が同時刻にそれぞれ東京、大阪を発車したとします。平均時速270kmで、ノンストップで進行したら、どこですれ違うか？ 平均時速270kmで、ノンストップで進行したら、どこですれ違うか？またそれは発車後何分か？また名古屋ー京都間の平均時速が60kmに落ちました。 Dim x, dx, y1, y2 As Double Dim dis_osaka, dis_tokyo, dis_kyoto, dis_nagoya As Double Dim d_speed270, d_speed60, d_speed1, d_speed2 As Double Dim drawpoint, drawtext As Double Dim pen As New Drawing.Pen(Color.Red, 1) x = 0.0 y1 = 0.0 、列車１の位置を表す変数 y2 = dis_osaka 、列車２の位置を表す変数 dx = 1.0 d_speed270 = 270.0 / 60.0 * dx 、時速270kmからdxの間に進む距離を求めている。 d_speed60 = 60.0 / 60.0 * dx 、同じく時速60kmの場合 d_speed1 = d_speed270 、列車１の初期の速度 d_speed2 = d_speed270 、列車２の初期の速度 Do While (y1 <= dis_osaka And y2 >= dis_tokyo) 、2つの列車が目的地に着くまで繰り返す。 drawpoint(Pen, x, y1) 、列車１の現在地に点を打つ drawpoint(Pen, x, y2) 、列車２の現在地に点を打つ If y1 > dis_osaka Then d_speed1 = 0.0 、列車１が大阪に着いたら、速度を０にする。 ElseIf y1 <= dis_kyoto And y1 >= dis_nagoya Then d_speed2 = d_speed60 、京都ー名古屋間なら速度を60kmにする。 Else d_speed2 = d_speed270 、上記以外では270km End Iｆ If y2 < dis_tokyo Then d_speed2 = 0.0 ElseIf y2 <= dis_kyoto And y2 >= dis_nagoya Then d_speed2 = d_speed60 Else d_speed2 = d_speed270 End If y1 = y1 + d_speed1 * dx 、列車１の次の位置を計算 y2 = y2 - d_speed2 * dx 、列車２の次の位置を計算、大阪から東京に向かっているので、引き算になっている x = x + dx If Math.Abs(y1 - y2) < 0.5 Then 、２つの列車の間の距離が0.5km以下になったらすれ違ったものと判断する。 drawtext(CStr(y1), x, y1) End If Loop End Sub End Class このままではdrawpointとdrawtextのところでエラーが出ます。どうすればいいですか？ Tue, 09 Dec 2008 11:59:36 +0900 http://knowledge.livedoor.com/37791 uiftysuftuduyted8yu VisualBasic 26391 http://knowledge.livedoor.com/profile/26391 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Fri, 09 Jan 2009 06:10:07 +0900 http://knowledge.livedoor.com/37789 visual studioで複数のグラフを重ね書きする問題なのですが。 y=ax^2という関数で、aの値の次の7通りに設定し、7本のグラフを重ね書きする。 a= -3, -2, -1, 0, 1, 2, 3 x軸の範囲は -5 ～ +5, y軸の範囲は-100 ～ +100 に設定します。 Tue, 09 Dec 2008 11:53:37 +0900 http://knowledge.livedoor.com/37789 uiftysuftuduyted8yu VisualBasic 26391 http://knowledge.livedoor.com/profile/26391 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 09 Jan 2009 06:10:06 +0900 http://knowledge.livedoor.com/37785 VBScriptで様々な処理をした後ログをはいているのですが、冗長になり悩んでいます。 考えてみたり調べてみたりしましたがいいヒントが見つかりませんでした・・・ http://www.google.com/notebook/public/06577523275749879902/BDRFtDAoQkI-_t-Ej?hl=ja 上記に自分で作ってみたログファイル作成のプログラムで一部抜粋になりますがこういった構成です。 _Subプロシージャで処理成功時に呼び出し ＿＿フォルダ有り ＿＿＿＿ログ有り ＿＿＿＿ログ無い ＿＿フォルダ無い ＿＿＿＿ログ有り ＿＿＿＿ログ無い _Subプロシージャで処理失敗時に呼び出し ＿＿フォルダ有り ＿＿＿＿ログ有り ＿＿＿＿ログ無い ＿＿フォルダ無い ＿＿＿＿ログ有り ＿＿＿＿ログ無い これだけ長いと・・・・みっともないですよね 自分としては ・通常ログとエラーログを分けて出したい ・処理中に止まる可能性がある箇所がいくつかあるので処理が止まった時点でエラーメッセージを変えたい ・もっと簡潔にしたい この３つがあります。 どなたかいいヒントをいただけないでしょうか？ Mon, 08 Dec 2008 23:42:02 +0900 http://knowledge.livedoor.com/37785 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 Thu, 18 Dec 2008 23:38:39 +0900 http://knowledge.livedoor.com/37784 VBScriptでフレームの名前を取得しようとすると下のようなエラーが出て困っています。 色々調べたのですがどう対策したらよいかわかりません・・・ :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: エラー: アクセスが拒否されました。 コード: 80070005 ソース: (null) :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Option Explicit Dim URL Dim objIE Dim Count Dim TextBody Dim strText Dim FindText FindText = "議長" URL = "http://www.shugiin.go.jp/index.nsf/html/index_kousei.htm" Set objIE = WScript.CreateObject("InternetExplorer.Application") If Err.Number = 0 Then objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop Count = objIE.Document.getElementsByTagName("frame").length Msgbox "対象タグは" & Count & "個" msgbox objIE.Document.frames(0).name msgbox objIE.Document.frames(1).name msgbox objIE.Document.frames(2).name msgbox objIE.Document.frames("f2_main").Document.Body.InnerText msgbox objIE.Document.frames(2).Document.Body.InnerText TextBody = objIE.Document.frames(2).Document.Body.InnerText strText = InStr(1, TextBody, FindText) If strText > 0 Then msgbox "いたいた！" Else msgbox "おーい息子さん探してきてよ" End If Else WScript.Echo " ダメ" & Err.Description End If テスト的に衆議院のページでやってみると出来るのですが・・・ 別ページ（公開は出来なくすみません・・・構成もよくわからないページです）だとどうしてもうまくいきません。 ただし、 Count = objIE.Document.getElementsByTagName("frame").length Msgbox "対象タグは" & Count & "個"でフレームの個数は拾ってくることが出来ます。 どうやら３つで構成されていることはわかりましたが、、、 フレームの名前を拾おうとするとどうしても上記のようなエラーが出ます。 どうしたらよいでしょうか？ Mon, 08 Dec 2008 23:33:19 +0900 http://knowledge.livedoor.com/37784 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 Thu, 18 Dec 2008 23:38:59 +0900 http://knowledge.livedoor.com/37766 VBScriptでフォームに値を入れることを繰り返したいのですがどうもうまくいかずに悩んでいます。いい方法を教えて下さい。 指定ページを開いた後に If objIE.Document.URL = strURL Then Set objIN = objIE.Document.getElementByTagName("INPUT") objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop Else objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop End If 以下省略 といったように1回でログインできなかった場合何度か入力するプログラムなのですが最初のElseIfの後のところで「オブジェクトがありません」となってしまいます。 ページも遷移してないのですが何故かオブジェクトがなくなってしまいます。 そういった対策をすればよいのでしょうか？ お願いします。 Sun, 07 Dec 2008 02:14:38 +0900 http://knowledge.livedoor.com/37766 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, 08 Dec 2008 23:36:02 +0900 http://knowledge.livedoor.com/37765 VBScriptでIEを探す処理をして指定したサイトがあれば処理を終了させたいのですがうまくいきません。どなたかいい方法を教えていただけないでしょうか？ Dim ObjIE Dim ObjShell Dim ObjWindow Dim WinExist Dim strURL strURL = "http://www.yahoo.co.jp" WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then WinExist = True Set ObjIE = ObjWindow End If MsgBox ObjIE.LocationURL If ObjIE.LocationURL <> strURL msgbox "開いてない" Call SHORI_strat() Else msgbox "開いている" Call WriteEndLog() End If Next ・ ・ ・ ・ もしヤフーのサイトが開いていなければ色々処理を行い、開いていればログに既に開いていることをログに書いて終了させたいのですがデスクトップにいろんなページを開いてあった場合繰り返してしまいなかなか終わりません。 あまり賢いやり方ではないと思うのでいい方法に直したいです。 １．最初にヤフーがあるかどうかをまず調べる。 ２．開いていなければ処理を行い終わった時点で全て終了。 ３．もし開いていればログを書いて終了としたいのです。 今は無駄に繰り絵してしまっているのでいい方法は無いですか？ Sun, 07 Dec 2008 02:09:16 +0900 http://knowledge.livedoor.com/37765 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, 07 Jan 2009 06:10:04 +0900 http://knowledge.livedoor.com/37712 VBScriptでBODY部のHTMLソースを取得したいのですが出来ない場合があって悩んでいます。 msgbox objIE.Document.Body.InnerTextというかたちで表示させています。 ほとんどのページで問題なく出来るのですが・・・・ フレームで出来ているページに関して取得が出来ません。 そういった場合どうすればよいのでしょうか？ 極論を言えば指定HTMLソースの中に文字検索が出来れば問題はないのですがソースが取得できないので検索しようがありません。 Wed, 03 Dec 2008 23:25:52 +0900 http://knowledge.livedoor.com/37712 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, 08 Dec 2008 23:36:35 +0900 http://knowledge.livedoor.com/37710 VBScriptのSubとEnd Subについて教えて下さい。 下記のようなプログラムはうまくいくのですがSubで囲むと何故か動作しなくなってしまいます。 使い方が間違っているのでしょうか？ Dim LogonID Dim Password Dim URL Dim objIE Dim objINPUT Dim BodyText Dim AriNashi LogonID = "XXXXXXXX" Password = "XXXXXXXXX" URL = "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.ya..." Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.document.URL = URL Then BodyText = objIE.document.body.innerTEXT AriNashi = InStr(1, BodyText, "Yahoo") If AriNashi > 0 Then Set objINPUT = objIE.document.getElementsByTagName("input") objINPUT(0).value = LoginID objINPUT(1).value = Password objINPUT(2).Click Else msgbox "NO" End If Else WScript.Echo " ダ メ" & Err.Description End If Set objIE = Nothing Wed, 03 Dec 2008 23:14:17 +0900 http://knowledge.livedoor.com/37710 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, 08 Dec 2008 23:37:00 +0900 http://knowledge.livedoor.com/37708 VBScriptで自動的にサイトログインを行うプログラムを作っています。ログイン時にエラーがあった場合の処理対策を考えていますがどうしようか悩んでいます。 Dim LogonID Dim Password Dim URL Dim objIE Dim objINPUT Dim BodyText Dim AriNashi LogonID = "XXXXXXXX" Password = "XXXXXXXXX" URL = "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.ya..." Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.document.URL = URL Then BodyText = objIE.document.body.innerTEXT AriNashi = InStr(1, BodyText, "Yahoo") If AriNashi > 0 Then Set objINPUT = objIE.document.getElementsByTagName("input") objINPUT(0).value = LoginID objINPUT(1).value = Password objINPUT(2).Click Else '??????????????????????????????????????????????????? '??????????????????????????????????????????????????? '??????????????????????????????????????????????????? End If Else WScript.Echo " ダ メ" & Err.Description End If Set objIE = Nothing ※タグは適当になっています。 手作業でログインするときフォームにLoginIDとPasswordを入れてクリックしたとき何らかのサーバーエラーでエラー表示になる場合と５回クリックしたときにエラーページが表示される場合があります。 そういった場合の対策はどうしたらよいでしょうか？ Wed, 03 Dec 2008 23:08:03 +0900 http://knowledge.livedoor.com/37708 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, 07 Dec 2008 02:04:01 +0900 http://knowledge.livedoor.com/37698 メール画面について。 livedoorのメール画面にいくと Internet Explorerの[言語..]の設定が空になっていないことを確認してください。 とでるのですが、 どうやって直すのか教えてください。 Wed, 03 Dec 2008 14:38:28 +0900 http://knowledge.livedoor.com/37698 ... その他 29075 http://knowledge.livedoor.com/profile/29075 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 09 Dec 2008 19:37:15 +0900 http://knowledge.livedoor.com/37669 VBスクリプトのオートログインで成功、失敗に関わらずログを出したいのですがいい方法はないでしょうか？ Set objLogin = objIE.Document.getElementsByTagName("INPUT") objLogin(0).value = ID objLogin(1).value = PASSWORD objLogin(2).click サイトにログインの可否をログに残したいのですが、どこでログの作成を入れたらよいのでしょうか？ ログを新規に作るとき月ごとにファイルを作るかと思います。 ログファイルを探す？方法はどうしたらよいでしょうか？ スクリプトを起動した瞬間に起動時間をいれログインできた時点でOKなり失敗した時点でNG入れるなんなりがあると思いますが・・・ どのようにすればよいでしょうか？ 一応下記を参考にしていますが・・・ ??http://www.happy2-island.com/vbs/cafe02/capter00204.shtml?? Sun, 30 Nov 2008 23:46:12 +0900 http://knowledge.livedoor.com/37669 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 Wed, 31 Dec 2008 06:10:05 +0900 http://knowledge.livedoor.com/37668 VBSでとある条件の時に処理をやらずに終了させる方法で悩んでいます。 Dim ObjIE Dim ObjShell Dim ObjWindow Dim WinExist WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then WinExist = True Set ObjIE = ObjWindow End If Next Set ObjShell = Nothing If Not WinExist = True Then Set ObjIE = CreateObject("InternetExplorer.Application") End If ・ ・ ・ ・ 例えばこのように起動しているIEを探します そこでもしYahoo！JAPANが起動していたら以降の処理をやらずに終わらせたいのですが・・・ どのような記述にすればよいでしょうか？ Sun, 30 Nov 2008 23:40:09 +0900 http://knowledge.livedoor.com/37668 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, 07 Dec 2008 02:03:13 +0900 http://knowledge.livedoor.com/37584 JavaScriptでオブジェクトがDOMかどうかを調べる方法 JavaScriptで任意のオブジェクトがDOMノードかどうかを調べる方法を教えてください。 ･･･と質問を書いているうちに、固有のプロパティ（例えばnodeTypeみたいな）の有無を調べればいいような気がしてきました <emoji:fish> instanceof演算子のようなもので調べる方法があるのかどうかや、一般的にどういう手法が使われているかなども知りたいので、取り下げないで質問してみます。 よろしくお願いいたします。 Tue, 25 Nov 2008 14:22:53 +0900 http://knowledge.livedoor.com/37584 imq JavaScript 13707 http://knowledge.livedoor.com/profile/13707 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 28 Nov 2008 11:40:57 +0900 http://knowledge.livedoor.com/37457 livedoorブログで本文にRSS2.0情報を取り入れたいのですが可能なのでしょうか？ livedoorブログで本文にRSS2.0情報を取り入れたいのですが可能なのでしょうか？ アダルトなブログですが私の見た限り本文にRSS情報を取り入れています。 どうすればこのような事が出来るのか教えて下さい。 どうか皆様宜しくお願いします。<emoji:smile> 分かりやすくそのサイトは blog.livedoor.jp/meruman/ です。 Sun, 16 Nov 2008 18:21:16 +0900 http://knowledge.livedoor.com/37457 jon PHP 28897 http://knowledge.livedoor.com/profile/28897 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Fri, 21 Nov 2008 01:07:51 +0900 http://knowledge.livedoor.com/37301 VBscriptをつかってHTA上で実行した結果をHTMLへ動的に表示させたいのですがうまく出来ずに悩んでおります。 一応VBの部分はちゃんと出来ていることは確認していますが表示が全くダメです。 どなたか教えて下さい。 Option Explicit Dim objAccess Dim objDB Dim objRS Set objAccess = CreateObject("Access.Application") objAccess.Visible = True objAccess.OpenCurrentDatabase("c:\happy\island.mdb") Set objDB = objAccess.CurrentDb Set objRS = objDB.OpenRecordset("SELECT COUNT(*) AS 件 FROM 住所録テーブル") WScript.echo "件数=" & objRS("件数") objRS.Close Set objRS = Nothing Set objDB = Nothing Set objAccess = Nothing 件数をWScript.echoではなくinnerhtmlで表示したいです。 またSQLを("SELECT * FROM 住所録テーブル")にした場合データをレコードセットで抽出し必要なデータを表にして表示をしたいのですが・・・（これもinnerhtmlを使いたい） Fri, 07 Nov 2008 00:36:09 +0900 http://knowledge.livedoor.com/37301 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, 03 Dec 2008 23:06:20 +0900 http://knowledge.livedoor.com/36826 ＣＳＳを修正したいのですが方法を教えてください。 W３ＣのＣＳＳ検証をしてみました。 質問１ 「Display＝文法解析エラーが発生しました block;」の意味をお教えください。カレンダーの表示でDisplay block;urlが正しく無いと評価されましたが、FirefoxでもIEでも問題なく表示されています。 質問２ 「二つのコンテキスト #links と #header td で、同じ色が前面色(color) と 背景色 (background-color) に使われています」などの警告が５０リストありました。 これはＷｅｂセーフカラーの色指定で前面色と背景色を 変えたほうがよいのでしょうか？ 初心者ですので分かりやすく解説していただけますでしょうか。 Tue, 14 Oct 2008 13:16:40 +0900 http://knowledge.livedoor.com/36826 EDDIE ウェブプログラミング 27576 http://knowledge.livedoor.com/profile/27576 http://image.profile.livedoor.jp/icon/manirrabrown12143_60.gif http://image.profile.livedoor.jp/icon/manirrabrown12143_60.gif 1 Thu, 16 Oct 2008 20:56:50 +0900 http://knowledge.livedoor.com/36825 visual studioでy=axの２乗のグラフにするにはどのようにすればいいですか？ aの値を次の7通りに設定し、7本のグラフを重ね書きします。 a =-3,-2,-1,0,1,2,3 x軸の範囲は　-5～+5、y軸の範囲は-100～+100です。 Tue, 14 Oct 2008 12:57:35 +0900 http://knowledge.livedoor.com/36825 uiftysuftuduyted8yu VisualBasic 26391 http://knowledge.livedoor.com/profile/26391 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 14 Nov 2008 06:10:11 +0900 http://knowledge.livedoor.com/36824 visual studioで　y=2xのグラフを表すにはどのようなコマンドが必要ですか？ x軸の範囲は-100～100です。y軸は適当に。 Tue, 14 Oct 2008 12:51:33 +0900 http://knowledge.livedoor.com/36824 uiftysuftuduyted8yu VisualBasic 26391 http://knowledge.livedoor.com/profile/26391 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 14 Nov 2008 06:10:10 +0900 http://knowledge.livedoor.com/36663 不審なリンクについて 先日、問い合わせフロムに不審なコメントが記述されていました。 <a>タグが付いているので何らかのリンクだと思うのですが 一番気がかりなのが下記のように rIxDLq <a href="http://sheemmlhdgug.com/">sheemmlhdgug</a>, [url=http://ubvrovyjmyqs.com/]ubvrovyjmyqs[/url], [link=http://gxananeuvsir.com/]gxananeuvsir[/link], http://xvelrqpxctrm.com/ 先頭に「rIxDLq」の見た事のないマークが付いています。 他にも「ccipMQ 」が有りました。 これらの書き込みは何なのでしょうか？ 教えて下さい！ Mon, 06 Oct 2008 14:18:04 +0900 http://knowledge.livedoor.com/36663 mr.kz その他 22607 http://knowledge.livedoor.com/profile/22607 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 27 Oct 2008 09:00:51 +0900 http://knowledge.livedoor.com/36596 JAVAでhttpsクライアントのアプレットを作るのに便利なライブラリ JAVAでhttpsクライアントのアプレットを作りたいのですが 適当なライブラリをご存じないでしょうか？ perlのNet::SSLeayとか phpのHTTP/Request.phpとかのようなものがほしいです。 perlにCPAN、phpにpearとかあるけど、 JAVA用のライブラリがまとまったサイトとかないんでしょうか？ Fri, 03 Oct 2008 11:34:01 +0900 http://knowledge.livedoor.com/36596 ひみつ Java 6798 http://knowledge.livedoor.com/profile/6798 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 06 Oct 2008 14:44:28 +0900 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 Fri, 10 Oct 2008 06:10:08 +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/35942 PHPで$_SERVER['REMOTE_USER']が取得できないんです。 ベーシック認証後のユーザ名を取得しようと思っています。 PHPで$_SERVER['REMOTE_USER']が取得できないんです。 var_dump($_SERVER)でも出てきません。 どなたかご教授下さい。 ApacheでPHP5です。 (カテゴリ...違ったかな) Tue, 26 Aug 2008 15:07:55 +0900 http://knowledge.livedoor.com/35942 エネマ PHP 27974 http://knowledge.livedoor.com/profile/27974 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 26 Sep 2008 06:10:07 +0900 http://knowledge.livedoor.com/35876 Image::MagickをPerlで使いたいが、インストールされない？ Perl/CGIで、Image::Magickを使おうと思って、公式サイトのリンクからダウンロードし、インストールしました。 use Image::Magickすると、エラーが出ます。 見れば、そんなライブラリ無い！とログ。 インストール時に、チェックを入れたんですが、どうもc:\usr\site\libのなかに入っていないようです。 どうすれば使えるようになりますか。 お願いいたします。 Fri, 22 Aug 2008 17:40:21 +0900 http://knowledge.livedoor.com/35876 NIPO.ASIA Perl 25022 http://knowledge.livedoor.com/profile/25022 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 12 Sep 2008 22:26:50 +0900 http://knowledge.livedoor.com/35859 新たにC++を習得したいのですが、お勧めの良書を教えてください。 ・Cを触ったことはありません。 ・CとC++との違いもいまいち分かりません。 ・JavaScriptとVBAとPerlを触ったことはあります。 ・それから、Cでは配列名と添え字を逆にしてもいいと聞きましたが本当ですか。 Thu, 21 Aug 2008 17:24:12 +0900 http://knowledge.livedoor.com/35859 NIPO.ASIA C・C++・C# 25022 http://knowledge.livedoor.com/profile/25022 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 06 Sep 2008 18:36:14 +0900 http://knowledge.livedoor.com/35736 関数内で生成したローカルな文字列変数をリターンしても問題ないのでしょうか？ JavaScriptの根本に関わる質問なのですが、 関数内で生成した文字列を返す関数（例 参照）について、 メモリを無駄に占有し続けたりなどの悪影響は及ぼさないものなのでしょうか？ C言語（ポインタ渡し）でこういう関数を書くと、メモリ領域が開放されて暴走の元になりますよね。 こういった関数を数十個持つ巨大プログラムを作ったので心配なのですが、 幾つかの書籍を調べましたがそういうことに関する説明は見つかりませんでした。 尚、他の書き方も数通り考えてみましたがどれもプログラムが冗長になり、できれば避けたいです。 例： function func() { var str; str = "文字列の"+"演算式"; return str; } var retstr = func(); Thu, 14 Aug 2008 16:15:50 +0900 http://knowledge.livedoor.com/35736 zeeeg JavaScript 27822 http://knowledge.livedoor.com/profile/27822 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 14 Sep 2008 06:10:14 +0900 http://knowledge.livedoor.com/35591 掲示板PHPサイトに回答で特定のAというURLを書き込んで回答したいのですが 掲示板PHPサイトに回答で特定のAというURLを書き込んで回答したいのですが ある掲示板PHPサイトに回答で特定のAというURLを書き込んで回答したいのですが、 管理者に毎回削除されてしまいます。 ユーザーの立場でAドメインを書き込みたいのです。 AからBドメインにリダイレクトで 飛ばすという方法以外で 管理者にAというURLを書き込んだということを知られないように 下記のような対策を考えました。 これ以外でも突破できる可能性がある対処方法があれば教えてください。 又はよりこうしたやり方を注意したほうが気づかれないかもというアイデアがあれば 教えてください。 ○ URLのテキスト名はできるだけ毎回キーワードの順番を変えてください。 例 東京エステだったら 時々エステ東京にしてみたりとか ○ 管理者側が消す気になれば、もちろん特定IDの回答全てを削除できる ○URL とURL の間は、文字を入れたほうがいい、 回答するときに本文を入れる際、管理側が文字数を見ている可能性がある。文字数が少ないとやばいかも ○ 連続投稿はやめたほうがいい、 1つの投稿と1つの投稿回答時間は数分できるだけ間隔を置いたほうがいい ○1つの投稿に対して文字数を多さを管理側は見ている可能性がある。文字数を多くする ○ 回答にたいして返答をするさい、できるかぎり 時間をおく。 Wed, 06 Aug 2008 21:01:20 +0900 http://knowledge.livedoor.com/35591 toto SQL 1554 http://knowledge.livedoor.com/profile/1554 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sat, 06 Sep 2008 06:10:09 +0900 http://knowledge.livedoor.com/35590 掲示板PHPサイトに回答で特定のAというURLを書き込んで回答したいのですが 掲示板PHPサイトに回答で特定のAというURLを書き込んで回答したいのですが ある掲示板PHPサイトに回答で特定のAというURLを書き込んで回答したいのですが、 管理者に毎回削除されてしまいます。 ユーザーの立場でAドメインを書き込みたいのです。 AからBドメインにリダイレクトで 飛ばすという方法以外で 管理者にAというURLを書き込んだということを知られないように 下記のような対策を考えました。 これ以外でも突破できる可能性がある対処方法があれば教えてください。 又はよりこうしたやり方を注意したほうが気づかれないかもというアイデアがあれば 教えてください。 ○ URLのテキスト名はできるだけ毎回キーワードの順番を変えてください。 例 東京エステだったら 時々エステ東京にしてみたりとか ○ 管理者側が消す気になれば、もちろん特定IDの回答全てを削除できる ○URL とURL の間は、文字を入れたほうがいい、 回答するときに本文を入れる際、管理側が文字数を見ている可能性がある。文字数が少ないとやばいかも ○ 連続投稿はやめたほうがいい、 1つの投稿と1つの投稿回答時間は数分できるだけ間隔を置いたほうがいい ○1つの投稿に対して文字数を多さを管理側は見ている可能性がある。文字数を多くする ○ 回答にたいして返答をするさい、できるかぎり 時間をおく。 Wed, 06 Aug 2008 20:43:34 +0900 http://knowledge.livedoor.com/35590 toto PHP 1554 http://knowledge.livedoor.com/profile/1554 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sat, 06 Sep 2008 06:10:08 +0900 http://knowledge.livedoor.com/35339 C言語独学者です。 どこがどうおかしいのか詳しく教えてください。 ファイルのデータと配列のデータを比較して、一致するかどうかを確認するし、その結果を表示するプログラムを作成しています。 しかし、ループの中の条件式がおかしい（と思います）ため、一致していても一致していないと出力されてしまいます。 何がどうおかしいのか、詳しく教えてください。 お願いします。 ↓今、作成しているプログラムです。↓ #include <stdio.h> struct test { char no[5]; char name[10]; char english[5]; char math[5]; }; int main(void) { FILE *fp; int i; char f_no[5], f_name[5]; struct test data[5] = { {"001","akemi","100","40"}, {"002","tadao","59","76"}, {"003","mika","94","69"}, {"004","hiroshi","54","98"}, {"005","kazu","39","57"} }; struct test *test_p; test_p = data; if ((fp = fopen("test.txt", "r")) == NULL) { printf("ファイルが見つかりません。\n"); } else { while (fscanf(fp, "%s%s", f_no, f_name) == 2) { for(i = 0; i<=5; i++) { if((test_p->no == f_no) && (test_p->name == f_name)) { printf("%s %s 英語%s 数学%sです。\n", f_no, f_name, test_p->english, test_p->math); } else { printf("%s %s 一致しません\n", f_no, f_name); break; } ++test_p; } } } fclose(fp); } ↓test.txtの中身↓ 001 akemi 002 kazuo 003 mika 005 yuri 006 xxx よろしくお願いします。 Sun, 20 Jul 2008 16:24:01 +0900 http://knowledge.livedoor.com/35339 flear C・C++・C# 27519 http://knowledge.livedoor.com/profile/27519 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Wed, 20 Aug 2008 06:10:07 +0900 http://knowledge.livedoor.com/35237 livedoorブログで中国語を表示する方法がありましたら教えてください。 ブログの文字コードがEUC-JPなので記事に簡体中国語を書くには文字をUNICODE値でエスケープする必要があると思いますが、 请多关照 と書いてもIE6では「・」と表示されて出てこない文字があります。日本語にない文字がだめみたいです。 他のブラウザではうまく表示されるので中文フォントが入っていないわけではないと思うのですが、原因が分かりませんでした。 IEの設定で表示できるようになるのでしょうか？ ちなみにハングルは表示できるようでした。 조금 기다려 OSは2000かXPです。 何かご存知の方はご教示いただけると助かります。 お手数ですがよろしくお願いいたします。 Mon, 14 Jul 2008 14:24:51 +0900 http://knowledge.livedoor.com/35237 imq HTML 13707 http://knowledge.livedoor.com/profile/13707 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 15 Jul 2008 13:49:50 +0900 http://knowledge.livedoor.com/35201 Mysql＆PHPでシステム構築していますが 列のデータを取り出す方法がわかりません。 列（テーブルの１フィールド）に格納された 文字列がカンマ区切りで入っています。 この複数のデータのどれかがマッチすれば という条件式がわからないで困っています。 データは数値がカンマ区切りで入っています。 （varchar型） 1,10,3,20 ←このなかでたとえば10か15にマッチする条件式がわかりません。 select treet from shop where treet ????; よろしくお願いします。 Sat, 12 Jul 2008 20:29:40 +0900 http://knowledge.livedoor.com/35201 SQL 27426 http://knowledge.livedoor.com/profile/27426 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 12 Aug 2008 06:10:08 +0900 http://knowledge.livedoor.com/34825 まだ未解決な質問がありますが、解決にしたら良いか迷っています。そうした場合どうしたら良いか教えてください 回答が１件ありますがどうも私の納得する回答になっていないようです。１度解決した事にして再質問したほうがいいですか？迷っています。 Sun, 22 Jun 2008 09:41:50 +0900 http://knowledge.livedoor.com/34825 yahi HTML 26515 http://knowledge.livedoor.com/profile/26515 http://image.profile.livedoor.jp/icon/yama2217_60.gif http://image.profile.livedoor.jp/icon/yama2217_60.gif 3 Mon, 23 Jun 2008 17:09:33 +0900 http://knowledge.livedoor.com/34722 変数の宣言はあっていますか？またこのコーディングについて解説がいただけたらうれしいです。 Dim lastRow As Long Dim t_day As Variant Dim serch As Variant Dim result As Variant Dim d_count As Long Dim r_count As Long lastRow = Range("G" & Rows.Count).End(xlUp).Row For Each t_day In Range("G12:G" & lastRow) If t_day <> "" Then If IsDate(t_day) Then serch = Application.Text(t_day, Range("D12").NumberFormat) Set result = Columns("D:D").Find( _ What:=serch, _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False) If Not result Is Nothing Then d_count = 0 r_count = 0 Do If Range("F" & result.Row - r_count) <> "★" Then _ d_count = d_count + 1 If d_count = 4 Then Exit Do r_count = r_count + 1 Loop Range("H" & t_day.Row) = Range("D" & result.Row - r_count) End If End If End If Next Set result = Nothing End Sub Mon, 16 Jun 2008 01:11:20 +0900 http://knowledge.livedoor.com/34722 mr-r00 プログラミング・言語 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Thu, 17 Jul 2008 06:10:12 +0900 http://knowledge.livedoor.com/34699 VBAで稼働日を求めたい件についてお世話になっております。 http://knowledge.livedoor.com/34674 ちょっと要件を変えて３稼働日前を出したいのですがうまくいきません。 ３稼働日前がでるつもりで計算をしているのですが何故か3稼働日以上マイナスしてしまっています。 また閏年の所を空欄にしているのですが空欄にしてしまうためおかしくなってしまいます。 どなたかご教示ください。 下記に作ったファイルをアップしてあります。 http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bcNR4HbBuvqy__Ra&.dir=/&.dnm=6.14.xls&.src=bc Private Sub CommandButton2_Click() Dim Count As Integer Dim k As Long Dim n As Long n = 12 Do While Cells(n, 7) <> "" k = DateDiff("d", Range("D12"), Cells(n, 7)) - 2 Count = 0 Do If Cells(k, 6) <> "休" Then Count = Count + 1 If Count = 3 Then If IsDate(Cells(k, 7)) Then Cells(n, 8) = Cells(k, 4) End If Exit Do End If End If k = k + 1 Loop n = n + 1 Loop End Sub Sat, 14 Jun 2008 17:48:49 +0900 http://knowledge.livedoor.com/34699 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Tue, 15 Jul 2008 06:10:07 +0900 http://knowledge.livedoor.com/34674 VBAで稼働日を求めたいのですがうまく出来ずに困っています。 A列：日付2008/1/1～2009/3/31まで入っています。 B列：『休』とお休みに該当した日をいれます。(土日とは限らない) 例として1月1日(A1セル)が休みとしたらB1セルに『休』と入れお休み表にします。 C列：適当な日を手入力します。(規則性は全く無し) D列：C列の3稼働日後を入れたいです。 AやB列からどうスキャンし3稼働日後を出したらよいのか… 説明だと分かりづらいかもしれませんのでこんな感じの結果を得たいエクセルがあるので見ていただいた方が分かるかとも思います。 どなたかヒントでもあれば教えて下さい。 お願いします。 http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bclxRHbB_q.izEUN&.dir=/&.dnm=%b2%d4%c6%af%c6%fc.xls&.src=bc Thu, 12 Jun 2008 22:23:08 +0900 http://knowledge.livedoor.com/34674 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sat, 14 Jun 2008 17:46:02 +0900 http://knowledge.livedoor.com/34644 VBAでDateaddの日付計算で困っていることがあるので助けていただけないでしょうか｡よろしくお願いします｡ シート： A列には”注射”という文字を入れるようにします。 B列には1月1日から12月31日まで入っています。 C列はB列の90日後を入れるようにします。 D列はC列の3日前を入れます。・・・としたいのですがその3日の間A列に”注射”が入っていたらその日を入れずに3日前にしたいのです。 稼働日みたいな感じでしょうか・・・・ どうしたらよいでしょうか？お願いします。 例えば、B列の「1月1日」の90日後はC列「3月31日」でD列は通常「3月28日」が入っていますがB列「3月30日」の左のA列に”注射”があったらそこを無視して「3月27日」と入れたいのです。 Sub count() Dim i As Long Dim lastrow As Long lastrow = Range("B1").End(xlDown).Row For i = 1 To lastrow Cells(i, 3).Value = DateAdd("d", 90, Cells(i, 2).Value) Next For i = 1 To lastrow Cells(i, 4).Value = DateAdd("d", -3, Cells(i, 3).Value) Next End Sub 説明が下手なのでもしよかったら実際作ったものを見ていただいた方が分かるかもしれません。 http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bcf8oGbB4FXgt88k&.dir=/&.dnm=1count.xls&.src=bc Tue, 10 Jun 2008 23:25:36 +0900 http://knowledge.livedoor.com/34644 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 17 Jun 2008 22:38:01 +0900 http://knowledge.livedoor.com/34535 ゴーグルのメールの文字の色を買えるにはどうやったらいいですか ゴーグルのメールを使っていますが文字の色を変えたいのですがどうやったらいいか分かりません教えてください わたしのいんたーねっとわIP7です Thu, 05 Jun 2008 17:33:34 +0900 http://knowledge.livedoor.com/34535 yahi その他 26515 http://knowledge.livedoor.com/profile/26515 http://image.profile.livedoor.jp/icon/yama2217_60.gif http://image.profile.livedoor.jp/icon/yama2217_60.gif 1 Wed, 25 Jun 2008 17:20:06 +0900