a0u283mitgのプロフィール

賃貸・タウン情報の「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でログインして、マイページが表示されるまで待つには、 どのようなコードを入れればいいのでしょうか？

10店舗の入荷、移動、売り上げがシート1に、入力されています。 これを、 シート2にA店の入荷、移動、売り上げ シート3にB店の入荷、移動、売り上げ シート4に。。 というように表示させるには、どうしたら良いですか？ 店はコードで101、201という風に管理。 入荷、移動、売り上げは入荷20、移動30という風に管理されています。 よろしくお願いします。

Excel VBAでデータの入っている最後の列を知りたい。 下記のように A1 形式では、大丈夫でした。 temps="C3" LastColumn = ActiveSheet.Range(temps).End(xlToRight).Column ところが、サーチする箇所を変数にしたいため、下記のように記述すると 「実行時エラー1004　アプリケーションの定義またはオブジェクト定義のエラーで す。」となってしまいます。 I=2,J=3 LastColumn = ActiveSheet.Range(cells(i,j)).End(xlToRight).Column 何か良い方法は無いでしょうか。

本職ではない日曜プログラマならばRubyとPythonのどちらを学ぶべきでしょうか？ 前提として、英語はできるのでそちらの情報も読み解けますが、やはり日本語の方が楽です。 また、何か（Webアプリとテキスト・ファイル処理）を作るにしても基本一人です。 コードを書くのが楽しいと聞くので、チームではないことからもRubyを選びたいのですが、 GoogleとAmazonはクラウドベースでPythonを使うと聞きます。実際にどのように利用してよいのか未勉強ですが、この点は見逃せないように思います。 現在のスキルはVBAとSQL程度です。RubyとPython両方学べばよいのでしょうが、日曜プログラマですのでそこまでの時間がありません。また、これで食べていこうとかいうのではありません。 アドバイスよろしくお願いいたします。