Web：今、ブログで話題の大学を比較

Web

Webに関する関連サイト、関連ブログ、関連動画をご紹介します。

関連Q&A

アメブロについての質問です！アメブロで友達のブログでカーソルの指がかわいいピンクの指になっていてハートがついてきていた指がありました。http://ameblo.jp/coco-yagibusibusi/↑のこのブログです・・・。この子のブログの指は白くて水玉みたいなのがついてきます。したいのですがよくわからないので教えてください！あと、もうひとつなんですが、音楽を自動再生するのができません・・・。やり方が分からないので詳しく、わかりやすく教えてくれたらありがたいです。webからのメッセージとか文字が横に自動に動くやつとかもおしえてくれたらすごくうれしいです！: アメブロ内のぐるっぽで、ブログ改造のぐるっぽがあるのはご存知ですか？それらに入れば、カーソルを可愛くするタグなどが置いてますよ！もちろん自動再生もあります。自分オリジナルの自動再生を作りたい場合は、ミニユーチューブというのも作れます。自分の好きな色にもできますよ。私の使ってるサイト↓（ミニユーチューブ）http://computernlife.blog.fc2.com/blog-entry-21.htmlカラーバリエーションも豊富ですよ。これらのタグは、サイドバーの設置からフリープラグインで入れれば、ブログが改造できてます！分かりづらかったらごめんなさい。http://ameblo.jp/sid-mao-shinj/↑私のブログです。ウェブページからのメッセージについては分かりませんが・・・、ぐるっぽではそのことについてあるスレッドもあると思うので、分からないことがあったらそちらもどうぞ！

エクセルマクロを使ったwebクエリの自動取得について、砂時計で止まってしまう現象を解決したいのです。【パソコンについて】OS：Windows XP ProCPU：AMD Phenom(tm)Ⅱ×4 965 Processor 3.4GHzメモリ：3200MBMicrosoft Office：2010気象庁の雲量、水蒸気圧のデータを1時間ごとに1ヵ月ほどのスパンで自動的に取得するため、マクロを用いてデータを取得し雲量と水蒸気圧をそれぞれ別のシートに貼り付けようとしました。マクロの流れとしては、Sheet2のセルをクリア、Sheet2にwebクエリを貼り付け、指定した範囲のセルをSheet1（水蒸気圧）とSheet3（雲量）にコピー＆ペースト、以降日付を変更し、for文を用いて1ヵ月分繰り返すというものです。以下作成マクロ------------------------------------------------Sub dataMuroran()y = 2000m = 1i = 1For d = 1 To 31 Sheets("Sheet2").Select Sheets("Sheet2").Cells.Clear With ActiveSheet.QueryTables.Add(Connection:= _ "url;http://www.data.jma.go.jp/obd/stats/etrn/view/hourly_s1.php?prec_no=21&prec_ch=%92_%90U%92n%95%FB&block_no=47423&block_ch=%8E%BA%97%96&year=" & y & "&month=" & m & "&day=" & d & "&elm=hourly&view=", _ Destination:=Range("A1")) .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "3" .Refresh BackgroundQuery:=False End With Worksheets("Sheet2").Activate Range("G5:G28").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet1").Cells(i, 8) Worksheets("Sheet2").Activate Range("P7").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet3").Cells(i + 2, 9) Worksheets("Sheet2").Activate Range("P13").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet3").Cells(i + 8, 9) Worksheets("Sheet2").Activate Range("P19").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet3").Cells(i + 14, 9) Worksheets("Sheet2").Activate Range("P25").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet3").Cells(i + 20, 9) i = i + 27 NextEnd Sub実行した結果、数日分のデータは取得出来ているようですが、すぐにエクセルのステータスに「webに接続中」と表示され、ポインタに砂時計が表示されたまま数時間以上もそのままの状態が続き、ためしに一日放置しても変化がなく、取得できませんでした。原因と対策が分からず困っています。: step_wind_kkさん> 原因と対策が分からず困っています。Webクエリとのことですが、Internet Explorer（IE）のバージョンは何でしょうか？IE7以上であれば、キャッシュサイズの制限がありますので、定期的にキャッシュを削除したほうがいいと思います。http://www2s.biglobe.ne.jp/~iryo/kabu/info/QA/qindex.htmlなお、抜本的な対策としては、WebQuery とは別の方法でデータを取り込む方法があります。昔、知人向けにアメダスのデータを取得するマクロを作成したことがありますので、細かい要件をお聞かせいただければ、方法はご紹介できると思います。興味があれば、ご連絡いただければと思います。

>>さらに結果を検索結果をみる

<< 2012年02月 >>
日	月	火	水	木	金	土
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29

Webについて紹介！

Webに関するブログ記事、関連商品などを掲載しています。

Web