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

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

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

107(1): 2015/10/12(月)23:35 ID:oCa7NkmO(1/2) AAS
>>105
もう既に出来ているんじゃないか？

108(1): 2015/10/12(月)23:36 ID:Xy8ebFp6(2/3) AAS
>>106
縦軸と横軸を入れ替えたいのです。
画像として90度回転させたいわけではないのです。

109: 2015/10/12(月)23:40 ID:Xy8ebFp6(3/3) AAS
>>107
>>105は1枚めの画像を左に90度回転させ2枚めの画像としています。
現在、エクセルで1枚目のようなグラフがあるのですが、
縦軸と横軸を入れ替えたような(2枚目画像のような)グラフをエクセルで作りたいのです。
自分なりにいろいろ試したのですができませんでした。

110(1): 2015/10/12(月)23:41 ID:oCa7NkmO(2/2) AAS
>>108
入れ替えたグラフを既に作っているじゃないですか?それで完成しているのでは？

111(1): 2015/10/13(火)00:02 ID:X9js2iKE(1/3) AAS
>>110
ああ、ごめんなさい。
>>105の2枚目の画像は1枚目の画像を画像ビューワーソフトで左回転させたものなんです。
2枚目のようなグラフをエクセルで作成したいんです。
（今は1枚目のようなグラフをエクセルで作った段階です）

112: 2015/10/13(火)15:10 ID:v0mnZW8d(1/2) AAS
>>111
私も、できてると思うんですが？

113(2): 105 2015/10/13(火)18:10 ID:X9js2iKE(2/3) AAS
改めて質問させてください。

エクセルで↓のようなグラフがあります。
画像ﾘﾝｸ

このグラフの縦軸と横軸を入れ替えたグラフを（エクセルで）作成したいのですがやり方がわかりません。
作成したいグラフのイメージは↓のようなものです(この画像は画像ビューワーで作成したものです）
画像ﾘﾝｸ

わかりづらくてすみません。

114(1): 2015/10/13(火)18:27 ID:jBFoqp2r(1) AAS
>>113
Excel グラフ回転
でググるとやり方でてくるけど、これじゃ駄目？

115(1): 105 2015/10/13(火)21:52 ID:X9js2iKE(3/3) AAS
>>114
今エクセルを試せる環境ではないので検索してみた結果を眺めたところ、
線グラフや面グラフの縦軸と横軸の反転は非常に難しそうな印象を受けました。
難しいというか無理やりというか。
そこまでの労力をかけないと望む結果が得られないということはなんとなくわかりました。
そうであるならば現状を受け入れるしかないのかと思っております。
今回は諦めます。ありがとうございました。

116: 2015/10/13(火)22:05 ID:v0mnZW8d(2/2) AAS
>>115
散布図でやってみるとか？

117(1): 2015/10/13(火)23:07 ID:/7qkRhU+(1) AAS
>>113
Excelの質問かよ…
じゃあなんでExcelの質問スレじゃなくてここで質問するんだ
後出し条件出してくんなカス

118: 2015/10/14(水)00:34 ID:psNeOyD5(1) AAS
>>117
あ〜〜VBA質問スレか・・・
すいません誤爆というかなんというか全く気づかず・・・

119(4): 2015/10/27(火)14:53 ID:EXphczgr(1) AAS
某サイトへのアクセスを1日1回、定時に行うためにIE操作を行うマクロを作っています。
必要な情報を取得した最後にそのサイトをログアウトしてIEを閉じたいのですが、ログアウトをしたときにJavascriptから？のログアウトしましたとの情報メッセージが表示されます。
ググッて調べたところ、以下の様な感じで閉じられるとあったのですが、SendMessageだけがうまくいきません。
ハンドルの値は入っています。
IE11を使っていますが、仕様が変わったのでしょうか？(Windows Updateでの最新)

このメッセージを閉じないとその後の閉じるためのVBAは進んでいるものの、実際の動作をしてくれなくて困っています。
(手動でメッセージを閉じたらその後のIEを閉じる操作が終わった状態にまで一気に進む)

わかる方いましたら教えて下さい。

Const WM_COMMAND As Long = &H111

hWnd = FindWindow("#32770", "Web ページからのメッセージ")

If hWnd <> 0 Then
Rtn = SendMessage(hWnd, WM_COMMAND, vbOK, 0)
End If

120(1): 2015/10/28(水)14:22 ID:Dygk5TrA(1) AAS
>>119
ハンドル違うんじゃね？

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

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

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

ぬこの手ぬこTOP 0.013s