DOUGLAS_ の回答履歴

こんにちわ。 掲題の件なんですが… Set objIE = WScript.CreateObject("InternetExplorer.Application","IE_") objIE.Visible=True を頭にスクリプトをLoopさせてるのですが、IE終了時に、簡単に書くと以下のような感じにしてます。 Sub IE_OnQuit() MsgBox "終了しました",,msgTitle WScript.Quit() End Sub で、質問したい内容は、ループ中にIEを閉じて再起動させたいのですが、ループ中に objIE.quit を書き込むと、当然サブプロシージャに飛んでしまいます。 これを回避する方法はないでしょうか？ 出来ればIE_OnQuit()を書かずに、Alt + End とかを押すとIEを閉じるようにして、スクリプトを終了したいのですが、バカな私の頭ではいくら調べてもできませんでしたので。 すみませんが、ご教示頂けませんでしょうか。

いつも回答ありがとうございます。 FINDを使用した検索方向の変更についての質問です。以下のFINDの記述方法で、上から一発目に捉えられたキーワードではなく、下から一発目に捉えられたキーワードに変更するにはどうしたらよろしいでしょうか？それとも、FINDの記述方法を大幅に変えなければいけないのでしょうか？御指導の程宜しくお願い致します。 Sub TEST() Dim d As Integer Dim e As Integer Worksheets("一覧").Activate d = 3 e = 3 Do While Worksheets("一覧").Cells(d, 2).Value <> "" Dim c As Variant Dim R As Range Dim s As Range With Worksheets(Worksheets("一覧").Cells(d, 2).Value) Set c = .Columns("H").Find("増", , xlValues, 1) If Not c Is Nothing Then Set R = .Range(c.Offset(1, -4), .Cells(Rows.Count, "D").End(xlUp)) Set s = c.Offset(, -5) With Worksheets("編集用一覧") .Range(.Cells(e, 4), .Cells(e, 5)).ClearContents .Cells(e, 4).Value = s .Cells(e, 5).Value = Application.Sum(R) End With End If End With d = d + 1 e = e + 4 Loop End Sub

こんにちは　エクセル97の利用しています。 X月Y日の9；00から17；00までの件数をカウントする関数を作成しました。 例　9/1から12/30で9；00～17：00までのカウントする関数。 =COUNTIF($K$5:$K$54,">=2012/09/01 9:00:")-COUNTIF($K$5:$K$54,">2012/09/01 17:00"） =COUNTIF($K$5:$K$54,">=2012/09/02 9:00:")-COUNTIF($K$5:$K$54,">2012/09/02 17:00"） =COUNTIF($K$5:$K$54,">=2012/09/03 9:00:")-COUNTIF($K$5:$K$54,">2012/09/03 17:00"） しかし毎回、日付+時間の関数を1つ1つ作成するのは大変なので引数を利用したいのですがうまくいきません。 =COUNTIF($K$5:$K$54,">=A1")-COUNTIF($K$5:$K$54,">B1"）　　NG 　　　　　A　　　　　　　　　　　B 1　2012/09/01 9:00　2012/09/01 17:00　 どなたか、簡単に複数の関数作成する方法をおしえてください。 どうぞよろしくおねがいします。 （カウントする数値例） 　　　　　K 5　2012/9/1 10:12 6　2012/9/1 10:57 7　2012/9/1 12:14 8　2012/9/3 9:31 9　2012/9/3 11:13 ・　2012/9/3 18:16 ・　2012/9/3 19:22 ・　2012/9/3 12:57 ・　2012/9/3 14:03 ・　2012/9/3 14:53 ・　2012/9/4 12:26 ・　2012/9/4 15:53 ・　2012/9/5 14:53 ・　2012/9/5 19:00 　　　　　・　 　　　　　 ・ 　　　　　 ・

都道府県・市・区・群 などに分けようと思い作成したのですが 市川市などの市がいくつかある場合がどうしても思いつきません。

タイトルの通りです。 通常youtubeプレイヤーは再生ボタンをクリックして動画を再生したりシークバーをドラッグして動画をシークさせますよね。 どの動作もマウスが必要ですが、これをマウス以外の方法でできるか、というのが今回の質問です。 例えば「スペースキーを押すと動画が自動で再生する」方法です。 一応、動画再生ページを表示する前にhtmlを解析し、「スペースキーが押されれば再生を実行する関数を呼ぶ関数」を埋め込んで動的に表示すればいけるんじゃないかな、と自分では考えています。 また、今回対象とするの他サイトの埋め込みプレイヤーではなくyoutube本サイトの動画再生ページのプレイヤーなので、youtubeのAPIは使えないと思います。 言語は特に問いませんが、できればjavascriptで書きたいです。 よろしくお願いします。

ボトムスを買うときに、股上にいつも迷います。 股上が深いとリラックスしたシルエットになりますよね？ 自分は身長が低いので、深いと身長の低さが目立つ気がします。 かと言って浅いものを選ぶと股間に違和感が・・・。 トップスやアウターとのバランスも考えないといけないので、すごく迷います。 アドバイスおねがいしますm(_ _)m

都道府県・市・区・群 などに分けようと思い作成したのですが 市川市などの市がいくつかある場合がどうしても思いつきません。

こんにちわ。 掲題の件なんですが… Set objIE = WScript.CreateObject("InternetExplorer.Application","IE_") objIE.Visible=True を頭にスクリプトをLoopさせてるのですが、IE終了時に、簡単に書くと以下のような感じにしてます。 Sub IE_OnQuit() MsgBox "終了しました",,msgTitle WScript.Quit() End Sub で、質問したい内容は、ループ中にIEを閉じて再起動させたいのですが、ループ中に objIE.quit を書き込むと、当然サブプロシージャに飛んでしまいます。 これを回避する方法はないでしょうか？ 出来ればIE_OnQuit()を書かずに、Alt + End とかを押すとIEを閉じるようにして、スクリプトを終了したいのですが、バカな私の頭ではいくら調べてもできませんでしたので。 すみませんが、ご教示頂けませんでしょうか。

あるwebシステムで 現在の予約数を表示するようなhtmlを作成しています。 tableを使って、td内に予約できる数をcolspanで指定して、 現在の予約状況がひとめでわかるように表示しているのですが なぜか、正しく表示できなくなってしまいました。 ブラウザもie6からie8にはなったのですが。 いろいろ検索してみると、似たような質問はたくさんされていましたし、 それぞれにwidth指定もすればよい・・・のように記載されていて解決されているようでした。 でも、同じように試してみましたがダメでした。（表示結果は同じ） サンプルとしまして、（全体で92がMAXの予約数として　です） <table width="319" border="1" cellpadding="0" cellspacing="0"> <tr> <td width="100" height="25" colspan="2" align="center">日時</td> <td width="100" colspan="50" align=right>50</td> <td width="84" colspan="42" align=right>92</td> <td width="35" height="25" align="center" bgcolor="#ffd37d">空き</td> </tr> <tr> <td rowspan="12" width="55" align=center valign=top>11月26日</td> <td width="45" align=center>0時</td> <td width="110" colspan="55" bgcolor="#ff4500" align="center">55</td> <td width="74" colspan="37" bgcolor=white><br></td> <td width="35" align=center><font color=navy>37</font></td> </tr> <tr> <td width="45" align=center>1時</td> <td colspan="55" bgcolor="#ff4500"align="center">55</td> <td colspan="37" bgcolor=white><br></td> <td width="35" align=center><font color=navy>37</font></td> </tr> <tr> <td width="45" align=center>2時</td> <td colspan="55" bgcolor="#ff4500" align="center">55</td> <td colspan="37" bgcolor=white><br></td> <td width="35" align=center><font color=navy>37</font></td> </tr> <tr> <td width="45" align=center>3時</td> <td colspan="70" bgcolor="#ff4500" align="center">70</td> <td colspan="22" bgcolor=white><br></td> <td width="35" align=center><font color=navy>22</font></td> </tr> 　・ 　・ 　・ のような場合、<tr>内の2つめの<td>のcolspan=70も55も同じ幅で表示されます。 違う・・・といえば、align=centerでそれぞれ数字を表示させていますが 55のテキストが少し左寄り、70がcenterに表示されてるように見えます。 また、赤背景色の幅も微妙に0.xミリくらいは colspan=70の方が広いです。 tableのwidthがborderの幅を考慮していないのですが これも問題でしょうか？ みなさん、似たような問題がでても解決されているようなのですが 自分の場合、どうやってもなかなか解決できません。 tableの幅を広めに取ったり、style指定したり、widthを入れたり・・・ 因みに依然（今年の春頃まで？）は、width無しのcolspan指定だけで、 思い通りに表示できていました。 その後、ブラウザのバージョンアップがありました。 最初（春頃）はstyleで table{ table-layout:fixed; } を指定したらなんとかうまく表示できました。 今回は春頃のバージョンのままで特に変更なく動かせるはずだったのですが。。。 そのままではダメなようです。 どのような方法があるのかアドバイスいただければと思います。 よろしくお願いします。

以前もhttp://oshiete.coneco.net/qa7767797.htmlで質問した者です。 その節はありがとうございました。 今度は、VBでIEを立ち上げ、ブラウザを最大化したいのですが その方法がわかりません。 Ｆ１１ではなく、最大化ボタンを押したのと同じ状態にしたいです。 ご回答よろしくお願いします。

リコーのスキャナーを使っているのですが http://xx.xx.xxx.xxx/web/guest/ja/websys/webArch/mainFrame.cgi を開いて、 javascript:wsMenu_jumpUrl('../../webdocbox/docListPage.cgi',10000) をクリックしたいのですが、どのように行えばよろしいでしょうか？ objIE.Navigate "javascript:wsMenu_jumpUrl('../../webdocbox/docListPage.cgi',10000)" をしてもダメなので、 Sub スキャナー() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://xx.xx.xxx.xxx/web/guest/ja/websys/webArch/mainFrame.cgi" objIE.Visible = True Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop Debug.Print objIE.Document.Links.Length objIE.Quit Set objIE = Nothing End Sub で、リンクの数を数えて、ひとつずつクリックして確認してみようと思ったのですが 0が返ってきてしまいます。 VBAでjavascript:wsMenu_jumpUrl('../../webdocbox/docListPage.cgi',10000) を押す方法を教えてください。

「OuterText」と「「innerText」」の違いは何でしょう？ エクセルＶＢＡです。 Sub test() Dim objLINK As Object Dim objIE As InternetExplorer Dim i As Long Set objIE = CreateObject("InternetExplorer.Application") objIE.GoHome objIE.Visible = True Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop For Each objLINK In objIE.Document.Links i = i + 1 Cells(i, 1) = objIE.Document.Links(i - 1).OuterText ' Next objIE.Quit Set objIE = Nothing End Sub のOuterTextをinnerTextに変えても結果は同じなのですが、 「OuterText」と「「innerText」」の違いはなんでしょう？ ヘルプを見ようと思ったのですが なぜか見れないので教えてください。

https://ca.omc-card.co.jp/member/omcplus_login.html のサイトにログインしたいのですが、ログインボタンが押せません。 ソースは、 ********************************************************************************** <FORM action="../member/xt_mem_top_login.asp" method="post" name="form1"><input type="hidden" name="sid" value=""><input type="hidden" name="pw" value="">　 　　　～～～省略～～～ <TABLE border="0" cellspacing="0" cellpadding="5" class="tab_button_bottom15"> <TR> <TD><A href="javascript:checkInput(document.form1);"><IMG src="../img/button/login.gif" alt="ログイン" width="160" height="35" border="0"></A></TD> </TR> </TABLE> </FORM> ********************************************************************************** です。 --------------------------------------------------------------------------------- Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://ca.omc-card.co.jp/member/omcplus_login.html" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.forms(0).Item("sid_input").Value = "×××" objIE.Document.forms(0).Item("pw_input").Value = "×××" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop 'objIE.Document.forms(1).submit 'エラーになる objIE.Document.all.Item("document.form1").Click 'エラーになる objIE.Document.forms(0).getElementsByTagName("input")(0).Click 'エラーにならないけどクリックもされない。 objIE.Document.forms(0).getElementsByTagName("input")(1).Click 'エラーにならないけどクリックもされない。 objIE.Document.forms(0).getElementsByTagName("document.form1")(1).Click 'エラーになる objIE.Document.forms(1).getElementsByTagName("input")(1).Click 'エラーになる Set objIE = Nothing End Sub --------------------------------------------------------------------------------- テキストにＩＤとＰＷを入れるところまでは出来たのですが、 ログインボタンを押すことができません。 すいませんがご教授ご回答よろしくお願いしますｍ（　）ｍ

エクセルVBAでシート2のL2～Ｌ５までに ”取消済” という文字が入ってるセルがあったら、そのセルの１１個左のセル（Ａ行）の数字（１６桁） とネットのホームページ上にあるチェックボックスのvalueに同じ数字を含んでいるものがあったらそれにチェックをいれたいです。 ちょっとややこしくてわからなくなってしまったのでマクロを教えていただけると嬉しいです。。。 下のはチェックボックスのソースです <tr class="odd"> <td><input type="checkbox" name="selectedOrderId" id="cancelOrder1" value="2012052308652039" onclick="changeButtonStatus();"></td> <td>2012052308652039</td>

excel2010 VBAを使ってFC２のログインをしたいと思います。 色々と試してみましたが、ログインボタン押下を無視されているようです。 何か良い方法は、ありませんか。 'ログイン ie.Navigate "http://fc2.com/login.php?ref=blog" waitIE ie Sleep 1000 ie.document.getElementById("id").Value = Worksheets("ブログリスト").Range("C" & num).Value ie.document.getElementById("pass").Value = Worksheets("ブログリスト").Range("D" & num).Value 'ie.document.all.INPUT.Click 'クリックメソッドを実行 ie.document.forms(0).Submit 'ie.document.getElementsByTagName("image").Item(0).Click 'ie.document.getElementById("image").Click 'ie.documant.all.Item("image").Value.Click 'ie.Document.form_login.Submit waitIE ie Sleep 1000 上記のコメントアウトは実行してエラーになりました。 良い手立てがありましたら、ご教示ください。

お世話になります。 当方あと一歩のところでつまづいています。 下記の点についてご存知の方おられましたらぜひ教えてください。 VBScriptにてHTMLページを生成しています。 その際に背景に画像を設定したいのですが、 どのページを探しても出てきません。 ちなみにInternetExplorerをCreateObjectしたオブジェクト(ie)で ie.style.backgroundImageやie.backgroundでxxx.jpgを設定しても 以下のようなエラーで設定できません。 エラー：　オブジェクトでサポートされていないプロパティまたはメソッドです。 ソースの一部です。 ie.Width = 800 ie.Height = 500 ie.Top = 200 ie.Left = 300 ie.ToolBar = false ie.StatusBar = false ie.Resizable = true ie.background = "DSC_0010.jpg"　←例えばこのような ie.Document.Body.InnerHTML = html ie.Document.Title = "Atlas Batch Schedular" objWSH.AppActivate("about:blank") ここさえできれば完成です。 HTMLを文字列で定義したものをinnerHtmlで生成していますが、 こちらでbackgroundなどを設定しても生成された際に全く反映されませんので、 上記の方法しかないと思いました。 どうぞ宜しくお願い致します。

VBSによりコンピュータ名やIPアドレスやプロキシなどの情報を、PC.txtに出力させました。 以下のツールを作りたいのですが、ご教示いただけないでしょうか。 まずC:\PC配下に上記PCx.txtを複数格納しております。(内容はそれぞれのPCのもの) ツール実行後、テキストファイルを一つ一つ読み込み、 "IPアドレス"という検索文字に該当した行をその検索文字列とスペースを省いた値(xxx.xxx.xxx.xxx)を Csvに出力させます。 次に同じように他の出力したい項目を検索していきます。 イメージとして(IPアドレス，, , , ,・・・)とcsvに出力していきます。 次に2個目のテキストファイルを読み、次の行に同じく出力していきます。 最終的にテキストファイル数=CSVの行数となるようにしたいと思います。 ある場所のテキストの文字を検索する、そして必要部分のみCSVに出力するという方法のイメージがつきませんのでご教示頂けますでしょうか。

シングルクオーテーションで囲われた文字列のシングルクオーテーションの前に文字を追加するように、正規表現を用いて置換しようと考えています。 全角文字は[^\x01-\x7E]で検索できるのはわかったのですが、シングルクオーテーションで囲われて、全角文字を含む場合という表現ができません。 下記のような、文字列を対象としています。置換をするのは、全角文字を含む文字列のみです。 　全角文字のみ 　半角文字のみ 　全角半角文字両方 下記ののように置換したいです。 置換前： '全角文字や半角文字','testです','test'.'テスト'.'てすとtest','123' 置換後： A'全角文字や半角文字',A'testです','test'.A'テスト'.A'てすとtest','123' よろしくお願いします。

ExcelのVBAで、A1～A10 のセルに入っている数値を下記 URL の「お問い合せ番号」の入力欄に自動でセットして、「検索」のボタンを押したいのですが、方法が分かりません。 http://www2.fukutsu.co.jp/inq/INQJJ120.html 下記のプログラムで表示までは出来るのですが、それから先の入力とボタンクリックの方法が分かりません。 何かアドバイスを頂けると幸いです。 > Dim oIE As Object > > 'IE起動 > Set oIE = CreateObject("InternetExplorer.Application") > oIE.Visible = True > > '目的のURLへ > oIE.Navigate "http://www2.fukutsu.co.jp/inq/INQJJ120.html" > > '完全表示まで待つ > While oIE.Busy: Wend > While oIE.document.readyState <> "complete": Wend

先に質問させていただきましたが、表現が適切でありませんでした。 以前は添付写真の右側の様に文字色コマンドに１４４色がありましたが 何かの設定をいじったのか、今は左の色しか表示されません。 　　　よろしくお願いいたします