VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

121: 119 2015/10/29(木)03:59 ID:l3n8K/Sw(1) AAS
>>120
値は取得できてます。
これが本当にメッセージのハンドルなのか調べ方を知らないので合ってるかは分かりません。
FindWindowも間違ってないと思うのですが、こちらも調べてみます。

122(1): 2015/10/29(木)21:40 ID:Q2L1bFVS(1) AAS
WM_COMMANDの右2つの引数の指定の仕方が間違ってるのと
有効なウィンドウハンドルかどうかはIsWindowで取得できる

123: 119 2015/10/30(金)00:47 ID:ZHFQ9n4z(1) AAS
Rtn = SendMessage(hWnd, WM_COMMAND, 2, 0)

でうまく閉じてくれました。

>>122さんレスありがとうございます。

124(2): [age] 2015/11/03(火)17:46 ID:fVYiq8DO(1/2) AAS
質問が2つあります（長文すみませんm(_ _)m

○1点目：vbaを用いた自動化でdiv要素だけのボタンを押す方法
作業->ウェブのあるサービスにログインし、一定の操作をしてからログアウトする
問題->idとpassの入力はできたが、ボタンが押せない

構造的には下記アドレスのログインフォームと似ていて
外部ﾘﾝｸ:codepen.io
上記例の<button class="btn">Login</button>のような
button要素がなく、div要素のみで設計されています

javascript関係かと思い.fireEventや.Script.setTimeoutを調べてみたのですが
div要素には実行されるjavascriptやそのfunctionなどは何も無く、class名だけ書かれています

○2点目：ieオブジェクトのdocumentがローカルウインドウから参照出来ない
上の質問と関係し、ieオブジェクトのdocumentの中身を見ようとしたのですが
document以下が<変数なし>となっており参照出来ません
調べるとskydriveのadd-onを入れる、shellから持ってくる等情報がありますが、いずれでも解決出来ませんでした
なお<変数なし>とは出ていますが、debug.print ie.document.titleなどとすると中身は出力されます

環境
Windows8.1 pro 64bit
excel 2013 32bit：参照設定MS Internet Controls/MS HTML Object Library/OLE Automation
　　　　　　　　　Visual Basic For Applications/ MS Excel 15.0 Object Library/ MS office 15.0 Object Library
ie 11 64bit(32bitでも変わらず）

125(1): 2015/11/03(火)19:21 ID:elW9O1dh(1/2) AAS
パワポでソフトトーク使いたいんだけど『開発』タブ出すところまではできてもVBAでマクロを記述〜っていうのができない。インポートするファイルの在り処か作成法を情弱にも理解できるように教えてほしい…

126: 2015/11/03(火)19:22 ID:elW9O1dh(2/2) AAS
参考にしてるのはこれ。
パワポも２ちゃんも初心者でごめんなさい…
外部ﾘﾝｸ:needtec.exblog.jp

127: 2015/11/03(火)19:41 ID:fVYiq8DO(2/2) AAS
>>125
Alt + F11

128(1): 2015/11/04(水)15:38 ID:DjYXAcy0(1) AAS
127
Visual Basicのウィンドウは出てきたしテキストもコピペしたけど
wavが自分のファイルに保存されない。
マクロ実行しても何も起こらずウィンドウが閉じるだけ。パワポのファイルにも音源は見当たらない。

129(1): 2015/11/04(水)15:56 ID:Y61Iie1f(1) AAS
>>124
1点目はソースがないとなんとも。

2点目はHTMLDocumentあたりで定義したオブジェクト(変数?)にSetしてやれば参照できるよ。
理由はしらんがie.Documentみたいなままだと参照できない。

130: 2015/11/04(水)21:25 ID:NpxeN+NQ(1/2) AAS
>>128
何をしてどうなったのか具体的に書いてもらわないとわかりません
パワポにマクロを組み込んで、softTalkのパスを指定して
スライドのノートに文章を書いて、マクロ実行、までは出来たという理解でOK？

131(1): 2015/11/04(水)21:55 ID:NpxeN+NQ(2/2) AAS
>>129
レスありがとうございます
2点目はアドバイスの通り、set objDoc = objIe.Document.allとかしたら中身読めました。ありがとうございます！

1点目は情報少なくて申し訳ないです
業務用なので詳細は一部フェイク入れますが、htmlにはinputタグがあるだけで
<input id="id" class="input-text" type="text" ime-mode="disabled"></input>
はあるのですが、idとpassを入れた後に押すボタンが
<div class="btn-control-outer">
<div class="btn-control-inner">
<div class="btn-control-message">OK</div>
</div></div>
というタグだけで作られています
（なおこのタグはjsで動的に作られているようで、IEの要素チェックで確認したものをコピペしています。ソースだとこのタグがありません）
リンク要素のように.clickが出来るものがなく、setTimeOutするにも、タグの中にjavascript:alert();のような記述も見当たりません

トップページのソースでjsを外部参照していたので、改行がないjs（minify化？）ファイルを読み解いていますが
上のdivタグとどうに関係しているのかわからず詰まっている状態です。

132(1): 2015/11/05(木)10:30 ID:HwmEl5Ub(1/3) AAS
>>131

div ボタンでぐぐったらこんなサイトがあって
外部ﾘﾝｸ[html]:lilia-study.com
ここのサンプルが言っているdivのみのボタンかと思う。
外部ﾘﾝｸ[html]:lilia-study.com

For Each tag In ie.Document.getElementsByTagName("div")

Next

133: 2015/11/05(木)10:32 ID:HwmEl5Ub(2/3) AAS
途中だった

For Each tag In ie.Document.getElementsByTagName("div")
if tag.ID = "aaa" Then
tag.Click
end if
Next

でクリックできた。
そちらのサイトでも動くんでないか？

134(1): 2015/11/05(木)21:56 ID:CDrat58l(1) AAS
パワーポイントで、すべてのシートについて青い文字だけを黒い文字に変換するようなマクロを
作っていただけないでしょうか。

135(1): 2015/11/05(木)23:31 ID:5frd9spB(1) AAS
>>132
アドバイスいただいた方法で出来ました！
div要素をclick出来るとは思っておりませんでした。
本当にありがとうございます。

その後の処理も上で>>119さんのやりとりから調べて目的とする動作が出来ました
合わせて感謝します。

136: 2015/11/05(木)23:51 ID:HwmEl5Ub(3/3) AAS
>>135
こちらもdivがボタンにできるのを初めて知ったので勉強になったよ。
ちなみに119もオレw

137: 124 2015/11/06(金)07:09 ID:I5IXDGW5(1) AAS
！Σ（・ω・ノ）ノ
お礼伝わり良かったですｗ

138: 2015/11/08(日)22:46 ID:yp780VFR(1) AAS
access2013でフォームからの入力期間の金額を集計してレポート作成をしようとしています。
vbaでレポートボタンを押下した動作と同じコードは存在しますでしょうか。

139: 2015/11/09(月)00:38 ID:lpQ26d6h(1) AAS
レポートボタンってのが何の事かわからんが DoCmd.OpenReport使えとかそういう事か？

とりあえずACCESS VBAはそれ用のスレがあるからそっちで聞け

140: 2015/11/09(月)02:05 ID:rGXYqJ1u(1) AAS
>>134
すべてのシートの、
すべてのテキストの文字色を、一つずつ調べていき、
(または、1文字ずつ調べながら、)

もしそれが青なら、黒に変更する

141: 2016/02/17(水)15:13 ID:cyifogYg(1) AAS
パワポのVBAでお願いします。
ファイル→情報→メディアの圧縮
わVBAからやりたいのですがどのオブジェクトのどのメソッドからやればいいのかわかる方いたら教えて下さい。

音声ファイルの圧縮がやりたいのです。

142(3): 2016/02/24(水)21:04 ID:faCUrUaa(1/2) AAS
141507
140712
140715
141512
141207
141215
140708
140709
141508
140807
140703
141509
140815
141503
141208
140907
140315
141209
140915
141203

競馬の三連単の買い目がこのようにある時、マークシート記入枚数を減らすために
14-7,12,15-3,7,8,9,12,15
14-8,9-7,15
140315
とまとめたいのですが、どのように処理すればよいでしょうか？
いずれは金額も考慮したいと考えていますが、現段階では難易度を下げるために同一金額としてください。
同じ理由でここでは頭を固定で例を作成させていただきました。

よろしくお願いします。

143(1): 2016/02/24(水)22:34 ID:7wWguvAi(1/2) AAS
>>142
VBA関係ないじゃん
書き込むスレ間違ってるよ

144(1): 2016/02/24(水)22:39 ID:faCUrUaa(2/2) AAS
>>143
他にそれらしいスレがみつからなかったことと、この買い目を出す処理をVBAで行っているのでここで聞いたのですが
適切なスレがありましたら移動しますので、誘導願います

145: 2016/02/24(水)23:05 ID:7wWguvAi(2/2) AAS
>>144
ごめん、>>1 読む限りだとこのスレで問題なさそうね…
すまんかった

146: 2016/02/24(水)23:07 ID:gEXn5/E8(1) AAS
でもEXCEL VBAに行ったほういい気がする
どうせEXCELだろ

147(1): 2016/02/25(木)00:31 ID:lxjkiQUf(1) AAS
>>142
そういうのはアルゴリズム系スレの方が受けがいいかと
あんま言語関係ないし
データ構造,アルゴリズム,デザインパターン総合ｽﾚ 2
2chｽﾚ:tech

148: 142 2016/02/27(土)08:28 ID:SRIIhbK2(1) AAS
>>147
了解

149(1): 2016/03/07(月)19:56 ID:IDkrJnKk(1) AAS
ミリ秒より短い時間の計測ってどうやるの？

150: 2016/03/07(月)20:49 ID:UbdDFkp+(1) AAS
>>149
何を計測したいの？

上下前次 1-新書関写板覧索設栞歴

あと 852 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.026s