Excel VBA質問箱 IV

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

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


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

4227 / 76734

←次へ　｜　前へ→


	【78132】VBA >mouseover >click >mouseout

Ishizo

- 16/4/19(火) 9:08 -


	引用なし

	パスワード

りすりすさん　又は　どなたか教えてください。

【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>

4 hits

▼

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