賃貸・タウン情報の「Q&A広場」 で教えてgooを使っているのですが
２個目のie_waitが機能しないというか意味がない状態になります。
**********************************************************
Sub test()
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://hiroba.chintai.net/login?return_url=http%3A%2F%2Fhiroba.chintai.net%2Fmypage#tabs"
Call ie_wait '1個目
objIE.Document.all("mailaddress").Value = "あああ"
objIE.Document.all.Password.Value = "1111"
objIE.Document.all.login_skip.Click
objIE.Document.Forms(1).submit
Call ie_wait '２個目
End Sub
--------------------------------------------------
Sub ie_wait()
Const READYSTATE_COMPLETE As Long = 4
Do Until objIE.ReadyState = READYSTATE_COMPLETE
Loop
Do While objIE.Busy = True
DoEvents
Loop
End Sub
**********************************************************
二個目のie_waitは、
ie_waitの操作が完了しないのに次のコードへ進んでしまいます。
一個目のie_waitは、
objIE.Navigate "http://hiroba.chintai.net/login?return_url=http%3A%2F%2Fhiroba.chintai.net%2Fmypage#tabs"
が表示さえるのを待つコードですが、
objIE.Document.Forms(1).submitでログインして、マイページが表示されるまで待つには、
どのようなコードを入れればいいのでしょうか？
エクセル2013を使っています。マクロ初心者です。グラフも普段あまり扱いませんので不慣れです。よろしくお願いします。
マクロの記録を使ってグラフのデータ範囲を変更したら、下記コードが記録されました（○○○はシート名です）。
ActiveSheet.ChartObjects("グラフ 2").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.FullSeriesCollection(1).Values = "='○○○'!R189C37:R199C37"
ActiveChart.FullSeriesCollection(2).Values = "='バ○○○'!R189C38:R199C38"
この189と199に変数を下記のように入れました。
Dim r As Integer
r = Range("A1").End(xlDown).Row
Dim i As Integer
Dim s As Integer
s = r - 10
i = ActiveCell.Value
ActiveSheet.ChartObjects("グラフ 2").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.FullSeriesCollection(1).Values = "='○○○'!R" & s & "C37:R" & r & "C37"
ActiveChart.FullSeriesCollection(2).Values = "='○○○'!R" & s & "C38:R" & r & "C38"
これを実行すると、エラーコード400になっていまいます。
どうすればいいのでしょうか？
エクセル2013を使っています。マクロ初心者です。グラフも普段あまり扱いませんので不慣れです。よろしくお願いします。
マクロの記録を使ってグラフのデータ範囲を変更したら、下記コードが記録されました（○○○はシート名です）。
ActiveSheet.ChartObjects("グラフ 2").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.FullSeriesCollection(1).Values = "='○○○'!R189C37:R199C37"
ActiveChart.FullSeriesCollection(2).Values = "='バ○○○'!R189C38:R199C38"
この189と199に変数を下記のように入れました。
Dim r As Integer
r = Range("A1").End(xlDown).Row
Dim i As Integer
Dim s As Integer
s = r - 10
i = ActiveCell.Value
ActiveSheet.ChartObjects("グラフ 2").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.FullSeriesCollection(1).Values = "='○○○'!R" & s & "C37:R" & r & "C37"
ActiveChart.FullSeriesCollection(2).Values = "='○○○'!R" & s & "C38:R" & r & "C38"
これを実行すると、エラーコード400になっていまいます。
どうすればいいのでしょうか？
