dokinhimeのプロフィール

データーを入力しているシートがあり、マクロのボタンをクリックする データの空白行をアクティブになるようにしたいのです。 具体的に B列のデーターが入力されていない行をアクティブにして他のシートのデーターを張り付ける作業をしたいのですが・・よろしくお願いします。

まず以下のコードを見てください(一部を抜粋） objIE.Navigate URL02 Do While objIE.Busy = True DoEvents Loop objIE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT objIE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT Application.Wait Now() + TimeValue("00:00:05") objIE.Quit Worksheets("商品情報").Select Range("A2:J100").Clear Range("A2").Select Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys "^v", True とりあえずこれで使えてはいるのですが、これだと一度IEを終了することになるので、終了せずにエクセルのシートにペーストしたいと思いobjIE.Quitを削除しました。 そうしたらコピーまではするのですがペーストしなくなってしまいました。 なんとかIEを起動したままでペーストしたいのですが、どう直したらいいですか？教えてください。 宜しくお願いします。

データ数が可変の場合の合計式について御指導お願い致します 様式（１１行目から時系列で入力） H列に摘要を入力 K列に日毎の売上金額を入力　←　１１行目から時系列で入力し空欄なし L列に入金額を入力　←　入金時入力の為空欄あり ユーザーフォームで作成した入力フォームで入力し、登録時一行挿入しています '最下行に一行挿入する insertRow = .Rows.Count .Rows(insertRow).Insert Shift:=xlDown 閉め日に下記のように行ないたく御指導お願い致します。 明細の次の行の各列に下記表示をしたい H列　→　合計と表示したい K列　→　明細の合計を表示したい L列　→　入金の合計を表示したい 宜しく御願いいたします。

エクセル2003ＶＢＡと関数を使い問題作成をしようとしています。あらかじめ問題は数十問登録をしておき、ランダムで抽出しようとしています。ここまではできたのですが、次のことがわからないので質問させて頂きます。 例えば ・信号の色は黄色と（　　）と（　　）である。 上記の（　）の中にア若しくは(1)を入れたいのですが、ランダムで問題がでてくるのであらかじめ(1)やアをいれておくと、２問目にでてきたときに(1)やアが表示されたり、１問目に３やウが表示されるので困っています。（回答用紙は別にあるので、問題用紙には答えを書くことはありません） ちなみに、上記の問題はひとつのセルに問題が書かれております。 解決方法はあるのでしょうか？ よろしくお願いします。

本などのデータベースを作っているのですが、表紙の画像データを表示したい場合、簡単で良い方法はないでしょうか？ 具体的には、テーブルに画像用のフィールドを設けて、そこをクリックすると画像が表示されるようにしたいのです。 フォームで表示させるのでは無く、レコードの一覧が見れるテーブルやクエリで利用したいです。 ＶＢＡはよくわからないので使えません。 こうやったら簡単に出来るのではと、自分でいろいろ試してみたのですが、出来ない部分があります。 試した内容を記しますのでアドバイスを頂けたら幸いです。 もちろん、その他の簡単な方法があればその方法を教えてくださっても結構です。 今まではＯＬＥオブジェクト型を使用して画像ファイルからドラック＆ドロップで埋め込んでいたのですが、レコードが増えてファイルサイズが大きくなってしまいました。 ですので、今回リンクを使って画像を表示させたいと思い、２種類の方法を試しました。 １つ目はＯＬＥオブジェクトのフィールドを設けてオブジェクトをリンクで入れてみました。画像は表示されるのですが、パソコンの買い替えなど、他のパソコンにＤＢファイルをコピーするとリンク先が変わるので表示できません。リンク先を簡単に変更することは可能でしょうか？ ２つめは、ハイパーリンクのフィールドを設けて行ったのですが、クリックすると画像がＩＥで表示されます。フォトギャラリーなど、別のソフトで開けないでしょうか？さらに、こちらもリンク先の変更が簡単に出来ません。良い方法はありますか？ つたない説明で申し訳ありませんがよろしくお願いいたします。