Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4298 / 76807

←次へ　｜　前へ→


	【78134】Re:VBA >mouseover >click >mouseout

Ishizo

- 16/4/20(水) 11:25 -


	引用なし

	パスワード

りすりすさん
他の先生様

本件取り下げます。色々ぐじゅぐじゅやっていると解決しました。問題は全く別のところにありました。ありがとうございました。

Ishizo

▼Ishizo さん：
>りすりすさん　又は　どなたか教えてください。
>
>【21578】- 05/1/24(月) 15:48 -
>Re:IEへのアクセスについて
>kawataさんのりすりすさん宛の質問
>>mouseover
>>click
>>mouseout
>のところを詳しく教えてください。お願いします。定年後株をやっていますが、注文と返済をボタンを押すと自動でできるようにしたいと思っています。次のHTMLに対し、次のVBAを書きました。テーブルのセルには入るのですが、注文確認ボタンを押すと消えてしまい、数量がありませんとエラーになります。これはたぶん>mouseover　>click　>mouseoutの設定がないためですね。どのように書けばいいか全くわかりません。教えていただけないでしょうか。よろしくお願いします。ishizo
>
>　　' 一日信用返済注文入力画面で返済注文確認画面に行く
>　　
>　　Set objFRAME = objIE.document.frames
>　　Set objDOC = objFRAME("CT").document
>　　Dim objTD As Object
>　　Set objTD = objDOC.all.tags("TD")
>　　Dim n As Integer
>　　For n = 0 To objTD.Length - 1 。
>　　　　If objTD(n).innerText = "返済数" Then Exit For
>　　Next
>　　'注文数量を入れる
>　　For i = n + 6 To objTD.Length - 1 Step 5
>　　　　If Left(objTD(i).innerText, 1) <> "株" Then Exit For
>　　　　　　objTD(i).innerText = objTD(i - 4).innerText
>　　Next
>
>
><TR align="center" bgcolor="#EBF1E4">
><TD nowrap width="10%">建区分<BR>（種類）</TD>
><TD nowrap width="10%">建株数<BR>[株]</TD>
><TD nowrap width="15%">建単価<BR>[円]</TD>
><TD nowrap width="15%">建日<BR>期日</TD>
><TD nowrap width="17%">評価損益<BR>[円]</TD>
><TD nowrap width="33%">返済数</TD>
></TR>
><TR align="right" bgcolor="#FFFFFF">
><TD nowrap align="center" bgcolor="#FFFFFF" rowspan="1">売建<BR>（一日）</TD>
><TD nowrap align="right">100</TD>
><TD nowrap>160.7</TD>
><TD nowrap align="center" bgcolor= "#FFFFFF">16/04/18<BR>16/04/18</TD>
><TD nowrap>10</TD>
><TD>
><INPUT type="text" name="nominal_18411020160418172160.7" maxlength="9"
>size="12" value="" style="ime-mode:disabled">株
><SPAN name="btn_up" style="{border:1px gray solid;background-color:
>#ffffff;position:relative;top:3px;text-align:center;padding-bottom:
>1px;padding-top:1px;height:18px;width:18px;cursor:pointer;-moz-border-radius:
>3px;}" onClick="javascript:orderNominalCalculate('form' ,
>'nominal_18411020160418172160.7', 'orderNominalData0', 1);
>" onMouseover="javascript:inEffect(this);" onMouseout="javascript:
>outEffect(this);"><img src="/static/image/bt_up.gif" width="12"
>height="12" border="0"></SPAN>
><SPAN name="btn_down" style="{border:1px gray solid;background-color:
>#ffffff;position:relative;top:3px;text-align:center;padding-bottom:
>1px;padding-top:1px;height:18px;width:18px;cursor:pointer;
>-moz-border-radius:3px;}" onClick="javascript:orderNominalCalculate
>('form' , 'nominal_18411020160418172160.7', 'orderNominalData0', 2);
>" onMouseover="javascript:inEffect(this);" onMouseout="javascript:
>outEffect(this);"><img src="/static/image/bt_down.gif" width="12"
>height="12" border="0"></SPAN>
><DIV id='orderNominalData0' style="display:none;">[{key:"INITDATA",
>value:"100"},{key:"UNITDATA",value:"100"},{key:"MINDATA",value:"100"},
>{key:"MAXDATA",value:"100"}]</DIV><BR>
></TD>
></TR>

1 hits

▼

【78132】VBA >mouseover >click >mouseout Ishizo 16/4/19(火) 9:08