bunsekiのプロフィール

ウェブサイト(amazonのアフェリエイトバナー)をExcelシート上に表示するマクロを作成しています。 現在、以下の処理に悩んでいます。 1.端末のオンライン・オフライン状態を取得し、オフラインの場合プログラム終了 　→オンライン状態を取得する方法 2.シート上表示したMicrosoft Web browser上のリンクをクリックした際 Web browserコントロールではなくIEを起動させる。 　→強制的にIEにてリンク先を開く方法 どうぞご回答よろしくお願いします。

鉄、プラスチックの材料価格が、月ごとに表に、グラフになっているホームページを、どなかかご存知ではないでしょうか？ 今、どのくらいの価格とか、去年、前月と比べてどのくらい上がっているのかしりたいです。

はじめまして。 会社からレポートを提出するように言われたのですがどう書いていいのかまったくわからず、教えていただければと思い書き込みをしています。 先日、会社でイベントを行い様々な職種や年代のお客さんに来ていただきました。昼は何人、男女比、金額に対してのお客さんの反応（適切、やや適切、あまり適切でない、全く適切でない）などをまとめて、営業ツールとして使えるレポートに仕上げるように言われました。 この場合、グラフとかを書けばいいのでしょうか？それとも文章も考察的なことが必要なのでしょうか。 どういう風に書けばいいのかまったく想像がつかず困っています。 どなたか教えてください！

ガソリンの値段が急騰していますが、備蓄基地に備蓄されている原油は入れ替えをしているとおもいますが、日本が消費する１年分くらいの備蓄設備と聞いたことがあります。とすると今売られているガソリンは1年くらい前の原油なのでしょうか。とすると石油会社は莫大な利益を得ているのでしょうか？

商品管理のためにＶＢＡを利用しようとしているのですが、わからないことが多すぎでこまっています。 　 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2007/12/1 ユーザー名 : 101 ' Dim meiend As Integer Dim code As Integer Sheets("商品名").Select Range("A4").Select Selection.End(xlDown).Select meiend = Selection.Row() For l = 4 To meiend Step 2 For r = 2 To 3 code = Cells(l, r).Value Select Case code Case 1 To 1999 sheet_neme = "1000" Case 1 To 1999 sheet_neme = "2000" Case 1 To 1999 sheet_neme = "3000" Case 1 To 1999 sheet_neme = "4000" Case 1 To 1999 sheet_neme = "5000" End Select Next Next End Sub 　このように、商品番号がエクセル上の（Ｂ４、Ｂ５）　（Ｃ４、Ｃ５）（Ｄ４，Ｄ５）（・・）（・・） というようにきさいされているのですが、（この順序は変更できないようになっています）ＶＢＡを使い商品番号が１０００番台ならばシートの1000をセレクトし、２０００番台ならばシート2000をセレクトするＶＢＡを作りたいのですが、目的のシートに移動しません。 どなたか、お詳しい方教えていただけないでしょうか？ かってですが、基本的な構文は変更せずにどこに問題があってシート移動しないのか教えていただければありがたいです。