Q&Aサイト横断検索「IE7??G'+AnD+sLeep(3)+ANd+'1」で検索した結果

Yahoo!知恵袋 解決済み

読み込み中・・・
マクロの修正方法がわかりません。 マクロで組んだヤフーファイナンスからの複数銘柄の株価を同時に時系列で一覧(エクセル表)にするものが、使えなくなりました。どこを修正すればよいのでしょう。(第三者が作ったものを流用していたので、私自身マクロについては全くの素人です。) 尚、ヤフーの時系列サイトリニューアルにともない、URLが「http://info.finance.yahoo.co.jp/history/?code=」に変更されているようです。 Sub 時系列用() '----------消去 範囲 = Range("A" & Rows.Count).End(xlUp).Row If 範囲 < 39 Then 範囲 = 39 Rows("39:" & 範囲).ClearContents '----------IE起動 Set myIE = CreateObject("InternetExplorer.Application") myIE.Visible = True '----------何列の銘柄があるか確認 範囲 = Cells(37, Columns.Count).End(xlToLeft).Column For Each コード In Range("B37:" & Cells(37, 範囲).Address) '----------Yahoo用のURL生成 ページ = "http://table.yahoo.co.jp/t?c=" _ & Range("B33") & "&a=" & Range("D33") & "&b=" & Range("F33") & "&f=" _ & Range("B34") & "&d=" & Range("D34") & "&e=" & Range("F34") & "&g=d&s=" _ & コード & ".t&y=0&z=" & コード & ".t" '----------ページ表示 myIE.Navigate ページ Do Until myIE.Busy = False Loop '---------- スイッチ = False 書列 = コード.Column 書行 = 39 '----------1行ずつ確認 For Each myTAG In myIE.document.getElementsByTagName("TR") myTR = myTAG.innerText '----------「* 分割による」の文字が出たら スイッチOFF If InStr(1, myTR, "* 分割による") = 1 Then スイッチ = False '----------明細行がスタートしていたら書き込む If スイッチ Then 列 = 0 For Each myTAG2 In myTAG.getElementsByTagName("TD") 列 = 列 + 1 '----------明細の1列目は日付 If 列 = 1 Then Cells(書行, 1) = myTAG2.innerText End If '----------明細の5列目は終値 If 列 = 5 Then Cells(書行, 書列) = myTAG2.innerText 書行 = 書行 + 1 End If Next End If '----------「日付」の文字が出たら 次から明細行 スイッチON If InStr(1, myTR, "日付") = 1 Then スイッチ = True Next Next myIE.Quit: Set myIE = Nothing MsgBox "完了" End Sub
V系の音楽グループはたくさんあると思いますが、 いったいどのグループがそうなのですか? 具体的に教えて頂きたいです。 ちなみにUVERworldはそうですかね? お願いします^^
悲しい、憤りが感じられる洋楽を教えて下さい! アップテンポのものがいいです!! よろしくお願いいたします。
おすすめバンドありませんか、高校生です 高校生バンドマン御用達のSiM、coldrain好きです。 あとは、BreakingBenjamin、Slipknot、ChildrenOfBodom、Slayer、CROSSFAITH、Neverlost、ArchE nemyとかが好きです。 ここにあるようなヘビーで叫ぶ系の、CDが安いのでできれば洋楽がいいです、YouTubeのリンクとかもよければお願いします。 ワンオク、RAD、BUMP、マンウィズ、セカオワ、サカナクションとかそのへんの邦ロック大好き高校生が聴くようなバンドは全部嫌いです。
洋ロックについて。 洋楽を聞きたいのですがオススメをおしえてください。 日本の英語で歌ってるバンドだと ONE OK ROCK MY FIRST STORY MAN WITH A MISSION SiM BLUE ENCOUNTらへんが好きです Sum41は数曲って感じです よろしくお願いします!!
久しぶりにMステ観たんですけど、ランキングみてもあんまり良い音楽なくないですか? AKB系は学園祭の出し物レベルだしあとは韓国あたりで、 なんかもっと才能ある人いないんですかね? オススメのアーティストいたら教えてください。お願いします。
VBAのAPIを使って、Window上の指定座標のRGB値取得についての質問です。 環境;Windows7 Excel2010 VBA 下記コードにて、ヤフーHPのPixel(900,300)のRGB値を取得するテストをしていま すが、結果として(255,0,0)が取得されてしまいます。 ColorPickerで(900,300)のRGBを調べると(1,172,252)なのですが、Pixelをどの点 に指定しても(255,0,0)となってしまいます。 よろしくお願いします。 Sub Test1() 'IE起動 Set objIE1 = CreateObject("InternetExplorer.Application") objIE1.Visible = True objIE1.navigate "http://www.yahoo.co.jp/" 'Yahooに移動 Do While objIE1.Busy = True Or objIE1.readyState <> 4 DoEvents 'IEを待機 Loop Set objShell = CreateObject("Shell.Application") wkhwnd = GetForegroundWindow 'Hwnd取得 Maxit = ShowWindow(wkhwnd, 3) '最大化 objIE1.Visible = True CursorRet = SetCursorPos(900, 300) '色の取得座標指定 GetCursorPos p '座標取得 SetCapture wkhwnd 'CP開始 ScreenhDC = GetDC(wkhwnd) 'DC取得 If ScreenhDC = 0 Then MsgBox "DC取得失敗!" End If 'MsgBox "Screen座標=" & "(" & p.x & "," & p.y & ")" pc = GetPixel(ScreenhDC, p.x, p.y) '色取得 r = CByte(pc And &HFF) '3byteTh g = CByte((pc \\ 256&) And &HFF) '2byteTh b = CByte((pc \\ 65536) And &HFF) '1byteTh Worksheets("Sheet1").Range("A1").Interior.Color = RGB(r, g, b) Worksheets("Sheet1").Range("B1") = r & "," & g & "," & b ReleaseDC wkhwnd, ScreenhDC 'DC解放 ReleaseCapture objIE1.Quit 'Windows閉じる End Sub
邦楽のコピーについて(バンド) バンドでコピーをしようと思うのですが、なかなかいいのが見つかりません・・・ 編成はボーカル、ギター2、ベース、ドラムです。 このメンバーでできそうで、そんなに難しくない(簡単でなくてもいい)アーティストを教えてください。 よろしくお願いします。
オススメの邦楽を教えて下さい 他の方も質問されていますが、もっと多くのアーティストに出会いたく質問しました。 皆さんのオススメの「アーティスト&曲名」を教えて下さい。 下記は私がよく聴くアーティスト一覧です Agitato、Asriel、Bigmama、The Bawdies、Base ball bear、[Champagne]、Chikago poodle、Deardrops、Dirty old men、Doping panda、Fox loco phantom、Go!go!7188、Granrodeo、Last alliance、Little non、Locofrank、Marbell、Nico touches the walls、One ok rock、Scandal、Supercell、Triplane、Unchain、Unison square garden、Unlimits、Urchin farm、Wrong scale、音速ライン、きくこ、サクラメリーメン、樹海、相対性理論、椿屋四重奏、東京事変、10-feet、9mm parabellum bullet 書きすぎました。見づらくてすいません。 他にもまだまだありますが、自重します。 これらを好きな方々がオススメして下さるアーティストを期待しております! 上記以外のアーティストでご回答お願いします。 また、テンポの速い曲(DustboxやNorthern19、Totalfatなど)はあまり好みではありません。その点も配慮していただき、重ねて回答よろしくお願いします。
V系で自分のお気に入りのアーティスト教えてください! そのアーティストのいい曲があればそれもおねがいします。
V系バンドでオススメを教えて下さい! V系が好きです ・Royz ・12012 ・デイジーストリッパー ・Dir en grey ・GACKT ・HERO ・Janne da arc ・NoGoD ・SuG ・ガゼット ・Vistlip ・ViViD ・金爆 ・雅-miyavi- ・己龍 ・摩天楼オペラ ・アンカフェ ・ギルガメッシュ ・ダウト ・妃阿甦 を聴きます 特に妃阿甦の寄生虫がものすごくよかったです 妃阿甦見たいなバンドはDirくらいだと思うのですが、Dirだと何かが足りません・・・ 妃阿甦のようなバンド、もしくわ曲があれば教えて下さい デスボやシャウトが好きなのでオススメをお願いします!
何かオススメのV系バンドはありますか? そのオススメのアーティストとオススメの曲を教えてください!!
おススメのV系バンドを教えてください!!
V系でオススメなバンドを教えて下さい 僕は金爆とアンカフェをよく聞きます
オススメのアーティストを 教えてください
皆さんのオススメのアーティストを教えてください!!
皆さんのオススメのアーティストとその曲を教えてください! できたら、あまりテレビに出てるようなアーティストより、 失礼ながらあまり知られてないような…。 ジャンルは特に問いません!できたら沢山教えて下さい!
V系の曲でオススメの曲を教えてください!!
カラオケで盛り上がる歌を教えてください。 このまえゴールデンボンバーの女々しくてを歌ったら、すごく盛り上がりました。 女々しくてみたいなテンポで盛り上がる曲を教えてください。 できれば5個以上あげてくれると嬉しいです。 あと純粋にいい歌も教えてください。 V系は好きですけど、デスメタルみたいなのはあまり好きじゃありません。 よく聞く歌は シド 夏恋 ゴールデンボンバー 女々しくて ゴールデンボンバー 毒グモ女 VIVID キミコイ とかです。 質問多くてすいません。 ご回答お待ちしております。
V系でオススメバンド 教えてください(^^) ちなみに好きなバンドは *金爆 *R指定 *ロリヰタ *HERO *ヴィドール *DIAURA *ガゼ *ギルガメ *彩冷える とか バラード的な曲が 主に好きです!(b^ー°)
私にオススメのV系探してくれませんか? ↓こんな感じが理想です ○基本ロックかポップ ○かっこいい系 ○カラフル系&グロ系じゃない ○ネオV系(2004年以降に結成したバンド) ○歌詞が綺麗事す ぎない 今好きなV系↓ Alice Nine/vistlip/ViViD/the GazettE/ゴールデンボンバー ↑参考にして下さい♪ よろしくお願いします*
私が好きそうなオススメの曲を教えてください。 出来ればカラオケに入っている曲をお願いします。 好きなアーティストが Janne Da Arc 椎名林檎 です。 なんでも聴きますがV系や和風ロックなどを好みます。 バラードも好きですが透明感のある感じが良いです。 ストーリー物の歌詞や悲しい歌詞(not失恋)が好きです。 独特な声や独特な音を好みます。 (秘密結社コドモAが好き) AKBやグループ物は聴きません。 ヴォーカルは多くて3人まででお願いします。 多いとは思いますが上記の内容で私に合いそうな曲をオススメしてもらえないでしょうか? 全て当てはまらなくても良いです。 私と好みが合いそうな方お願いします。
V系ロックバンド おすすめ おすすめのV系教えてください! よく聴くのは、アリス九號、BORN、ダウト、ViViD、the GazettE、vistlipです 馴染めなかったのは、SuG、金爆、摩天楼オペラなどなど・・・ 条件的には、2000年以降結成のバンド。 1年以内には曲だしている。 活動している。 激しい系がいいです。 ユナイトなど最近気になってます。 沢山の回答おねがいしますm(_ _)m

->Yahoo!知恵袋 解決済みに移動

教えて!Goo

読み込み中・・・
検索結果:0件

->教えて!Gooに移動

はてな

読み込み中・・・
検索結果:0件

->はてなに移動


▲ページ先頭へ(再検索する)