Excel VBAでWebサービス - YouTube APIで動画を検索しよう
はじめに 今回は、動画サイトで有名な「YouTube」を操作するためのAPIを利用します。入力キーワードから、ExcelのVBAで検索結果リストを作成する方法を紹介します。ワークシート上の一覧表にまとめることで、目的の動画が探しやすくなります。もちろん、タイトルをクリックすると、実際の動画をブラウザで見られます。 動作確認は、Windows 7、Excel 2010、VBA 7.0およびWindows XP、Excel 2007、VBA 6.5で行っています。 Excel VBAでWebサービス - 天気予報を取得してみよう Excel VBAでWebサービス - MSNマネーから株価の推移を取得しよう Excel VBAでWebサービス - Excelで書籍情報を検索・取得してみよう YouTube APIによる動画の検索リクエスト 検索リクエストは、次のURLに、GETリクエストを送信
VBAのイベントであるWorkbook_Open()は「保護されたビュー」によって阻害される - リク君のITなブログ
エクセルマクロ，VBAでぶち当たった壁を共有します． いろいろな理由で，以下のメッセージがエクセルファイルを開いた時に表示されます． このファイルは、インターネット上の場所から取得されており、安全でない可能性があります。 クリックすると詳細が表示されます。" このメッセージの右側に[編集を有効にする]とあるのでクリックすると編集できるようになります． このメッセージがあると，本来ファイルを開いた時にフックされるWorkbook_Open()は正常に動作せず，エラーを吐く可能性が非常に高いです． メッセージが出る場合は以下の理由に該当しているはずです． ■インターネット上の場所にあるファイルを開いた ■メーラーの添付ファイルであり，かつポリシーで送信元が安全ではないと定義されている ■安全でない場所（フォルダなど）にあるファイルを開いた ■ファイル制限機能によって制限されているファイルである
Excel VBAで関数名に変数を使う方法
Excel VBAで関数名に変数を使う方法を紹介します。 １．問題点 仕事で、セルに設定した1から10の値を関数名の一部（call_1,call_2…）として起動させる必要が生じました。 具体的には、次のように関数Testの中でセルの値を変数nameに保持し、その値を使って関数call_1やcall_2を起動させなければなりません。 Sub Test() Dim name As String Dim i As Integer For i = 2 To 11 name = Worksheets("Sheet1").Cells(i, 2).value '??? Next i End Sub Sub call_1() '... End Sub Sub call_2() '... End Sub （中略） Sub call_10() '... End Sub もう少し簡単なサンプルに修正して不明点
エクセルVBA高速化手法｜ランキング
ＨＯＭＥ > VBA高速化 > ランキング VBA高速化ランキング一覧 以下は、「GoGo エクセルマクロをはじめよう！」を運営するWATエクセルカスタマイズセンターが実施した速度計測 ベンチマークテストによる結果を基にした高速化手法テクニックを順位付けして発表するものです。 第1位 154秒→11秒に、圧倒的な実に14倍の差が出ました。・・・画面更新の非表示 でも、ちょっと見せる工夫もしてみる。・・・画面更新の「半」非表示 第2位 超裏わざで、2万行が6秒に短縮する。・・・CSVの高速取り込み 第3位 Excelを使えば、圧倒的に速くなる。・・・大量データのソート 第4位 Rangeでダイレクトに値を取り出す。・・・セルの指定 第5位 サンプル１では34秒が、サンプル２は1.3秒でした。・・・不要行の削除 重要！ マクロ高速化の正しい手順とVBAの書き方・・・高速化チューニングの手順 番
Office TANAKA - VBAの実行時エラー[○○クラスの××メソッドが失敗しました。(など)(エラー番号：1004)]
Sub Sample1() Range("A1").AutoFit End Sub いろいろなケースで発生するエラーです。 上のコードは、セルA1に対して"列幅の自動調整(AutoFitメソッド)"を実行しようとしたためエラーになりました。AutoFitメソッドは、行単位または列単位に対して実行しないといけないからです。正しくは、次のようにします。 Sub Sample1() Range("A1").Columns.AutoFit End Sub または Sub Sample1() Range("A1").EntireColumn.AutoFit End Sub みたいに。 Excel 2007のVBAでは[ヘルプ]ボタンをクリックしても、解説ページが開きませんでした。 Excel 2003のVBAヘルプでは、次のように記載されています。 マクロ エラー 実行中のマクロにエラーが発生しまし
エクセルVBA ScreenUpdatingとEnableEventsを戻し忘れないクラス - チリペヂィア
処理速度的に画面更新を停めたくてApplication.ScreenUpdatingを切ったり、セルチェンジイベントの発生が循環したらイヤンな時にApplication.EnableEventsを切ることが良くあります。一方、エラーなど複雑な分岐でExit Subをやると、しょっちゅうどっかで戻し忘れてしまいます（私だけ？）Application.EnableEventsなんかはとくに「アレ、アレレ？」なことになります（アレやっぱり私だけ？ 注意力の話はともかく既知のヒューマンエラーを放置するのは良くないので、こんな時こそオブジェクト指向。処理の途中で呼び出したサブルーチンや関数がその中で再びクラスを多重生成しても大丈夫な、参照カウンタクラスのようなものを作ってみました。クラスの生成時にグローバルなカウンタを回し、その際カウンタがゼロだったらScreenUpdatingをFalseにします
[Excel] 結合セルを含んだ行の高さを自動調整するVBA - インフラメンコ
[Excel] 結合セルを含んだ行の高さを自動調整するVBA Mar022010 Author: ゴリ丸 Categories: その他, IT関連 Tags: Excel, VBA, 変換 Bookmarks: 人が登録 Prev Page: ThunderbirdでURLをクリックしてもブラウザが開かなくなった場合の対処 Excelの仕様で、結合セルを含んだ行に対しては、高さの自動調整がうまく動作しません。 VBAではRangeオブジェクトにAutoFitメソッドがありますが、これも結合セルでは同じく正常に動作しません。 それを解決するVBAを作りました。といっても、元ネタは以下のページのコードです。 エクセルで結合したセルの高さの自動調整方法？(1/1) | OKWave いくつか改善したポイントがあります。 行全体選択、列全体選択、シート全体選択時でも、処理対象セルが膨大にならない
Excel VBA で条件付き書式がずれる | ITプロデュース熊本
ある案件で、Excelシートを全自動で作る必要が出ました。 まあ、その程度はVBAで解決・・・、と思ったら、条件付き書式に指定した式がずれてしまう・・・。 初めは凡ミスかと思ってコードを確認しても、おかしな点は見当たらない。 で、ネットで調べてみたら、マイクロソフト公認のExcelのバグでした。 バグの概要 バグが発生する条件は、 Excel2000以降（少なくとも2007では発生） 条件付き書式はVBAで指定する 条件は 相対セル参照 で指定する 選択したセル以外に条件付き書式を指定する というもの。詳細はマイクロソフトのページをみてください。 回避方法 今回の案件では、上の3つはどうしても回避できない項目でした。 （マイクロソフトのページでは、「VBA使うな」とか「絶対参照で書け」なんて回避方法が紹介されてました） でも、最後の「選択したセル以外に～」という項目は回避できます。 要は、
VBA(EXCEL)でタイマー処理 SHOJI's Code - 各種言語のプログラミングコード
私は仕事でエクセルを使いVBAマクロをよくプログラミングするが、一定時間ごとに処理したいときなどがよくある。 処理した後でApplication.OnTimeを使えば可能であるのだが、その度に一瞬砂時計になったり、ファイルを閉じてもまた起動したり、と、あまり私は好きではない。 ところが、この前Win32のSetTimer関数を利用してマクロの関数を呼び出すことができることを知り、試しにプログラミングしてみた。 (標準モジュール) Public Declare Function SetTimer Lib "USER32" _ (ByVal hwnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTi
エクセルのVBAで新しくブックを開いた上でさらに… - OKWAVE
特別に公開します。 '★★☆ マクロにマクロを作らせる ☆★★ Option Explicit Sub start() '新しいブック作成 Workbooks.Add [C1] = "私の名前は " & ActiveWorkbook.Name & " です" [C1].Font.ColorIndex = 3 'マクロ起動用ボタンの作成 ActiveSheet.Buttons.Add(50, 30, 320, 30).Select Selection.OnAction = ActiveWorkbook.Name & "!SUMPLE" Selection.Characters.Text = "私は新ブックに新しく作られた新マクロ実行ボタンです" [A1].Select '標準モジュールを挿入 ActiveWorkbook.VBProject.VBComponents.Add vbext_ct
Office TANAKA - Excel VBA Tips[ファイルを検索する]
Excelは表計算ソフトですから表だけ計算してればいいんですが、ときには「何でExcelでそんなことまでするの？」ということもあります。まあ、Excelでゲーム作ったりしてる私が言えるセリフではありませんけど…。 それでも、Excelでちゃんとしたシステムを作ろうとしたら、表の計算以外にもたくさんの機能が必要になります。ここでは、ファイルを検索するテクをご紹介しましょう。きっと何かのときに役立つと思いますよ。 ファイルを検索するにはFileSearchオブジェクトを使います。厳密に言うとFileSearchオブジェクトはExcelのオブジェクトではなく、Officeシステム全体のオブジェクトです。ここでは、検索した結果をシートに出力していますが、UserFormを使っても便利ですね。 【追記】 Excel 2007からは、FileSearchオブジェクトが使えなくなりました。Excel 2
VBA応用(フォルダ内のファイル一覧の取得)
単一フォルダと配下のフォルダを含めたファイル一覧を取得します。 ここでは、古くからあるDir関数を用いた単一フォルダ内のファイル一覧の取得を行なうサンプルと、FileSystemObject(FSO)を使って指定フォルダから配下の全サブフォルダも含めてファイルの一覧を取得する2つのサンプルを紹介します。 まずは、Dir関数を用いた単一フォルダ内のファイル一覧の取得です。 フォルダの指定はInputBoxで入力してもらうことにします。実際の一覧取得とシートへの展開を行なっている記述は下半分だけです。 '*************************************************************************************************** ' 指定したフォルダ内のファイルの一覧を取得 Module1(Module) ' ' 作成者:
7.マクロのパスワードを忘れたとき
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
Excel VBA FAQ 一覧
[一覧] [入門編1] [入門編2] [入門編3] [実践編] [トラブル編] 入門編1 マクロ記録とヘルプ Visual Basicのヘルプの項目が見つかりません マクロでXXXXしたいのですが マクロを作りたいのですが、まったく方法がわかりません おすすめの参考書はありませんか？ 記録されたマクロを実行するとエラーになります Sheet1とかThisWorkbookとかいろいろありますが、マクロはどこに書けばよいのですか？(Excel97) ワークシートにコントロールを作りましたが、ヘルプやマニュアルに書いてあるプロパティやメニューが見つかりません(Excel97) マクロ記録の[記録開始位置設定]が見つかりません(Excel97) 実行制御 シートを削除するとき、確認のメッセージを表示したくないのですが ファイルを閉じるとき、確認のメッセージを表示したくないのですが マクロの実行中に
複数行をまとめてコメントアウト:VBE(Visual Basic Editor)
VBA（Visual Basic for Applications）に限らず、コーディングをしているときに複数の行をまとめてコメント化したいということがあります。 そんなときにいちいち行の先頭に「'」（シングルクォーテーション）を入力するのは、かなり面倒です。
◎ExcelVBAで特定セルを画像(jpeg/gif)ファイル変換
◎ExcelVBAで特定セルを画像(Jpeg/Gif)ファイルに変換する ここのところ、”VBAを使わずに・・・・”というシリーズを多く公開していたせいか、ExcelVBAのページが疎かになっていました。 深く反省しております。 で今回は、指定したセル範囲を画像ファイル（JPEGやGIF等）にVBAで自動的に変換する方法をお教えいたします。 例によって、このページが皆さんによって少しでも有意義なものであれば幸いかと存じます。 作者 ： 畑本 賢治 ＊ある偶然が画像ファイルに・・・・・ 「Excelで図面を作成しているのだが、その図面の範囲だけを画像ファイルに変換できないだろうか？」 という相談を友人から受けて、色々やってみました。 これがなかなかうまいこといきまへんなぁ〜！！ いろいろ試行錯誤の末、直接的に画像ファイルを生成するのではなく、エクセルであるものに変換した 時にその副産物と
三流君VBA:Excelのグラフをgifへ変換 .Exportメソッド使用
[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧] －－＞ No.028 Excelのグラフをgifへ変換 .Exportメソッド使用 .ExportメソッドでExcelグラフをGIFにできたので、 少し、テストして遊んでみます。 メルマガ発行内容 ↓解説・テスト動画↓ ＜Excelのグラフをgifへ変換 .Exportメソッド使用＞ こんにちは、三流プログラマーＫｅｎ３です。 今回は、 Excelのグラフをgifへ変換 して遊んでみます。 /* * １. ActiveChart.Export ("C:\samp.gif") */ 昔か書いてたメルマガに、 Excelのグラフをgifへ変換 があったので、今回は、これをネタに話を大きくしてみます。 ＊昔のメルマガも整理しないとなぁ Excel97 で、グラフが表示されています。 このグラフを画像ファイルとして保存したいの
セル 位置指定で Excelへデータ出力する方法：SampleFile204
This webpage was generated by the domain owner using Sedo Domain Parking. Disclaimer: Sedo maintains no relationship with third party advertisers. Reference to any specific service or trade mark is not controlled by Sedo nor does it constitute or imply its association, endorsement or recommendation.
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://yaplog.jp/purplish-blog/archive/1838
MSN Japan - ニュース, 天気, メール (Outlook, Hotmail), Bing検索, Skype