vbaに関するjimmy0024koのブックマーク (5)

  • Excel VBAでWebサービス - YouTube APIで動画を検索しよう

    はじめに 今回は、動画サイトで有名な「YouTube」を操作するためのAPIを利用します。入力キーワードから、ExcelVBAで検索結果リストを作成する方法を紹介します。ワークシート上の一覧表にまとめることで、目的の動画が探しやすくなります。もちろん、タイトルをクリックすると、実際の動画をブラウザで見られます。 動作確認は、Windows 7、Excel 2010、VBA 7.0およびWindows XP、Excel 2007、VBA 6.5で行っています。 Excel VBAWebサービス - 天気予報を取得してみよう Excel VBAWebサービス - MSNマネーから株価の推移を取得しよう Excel VBAWebサービス - Excelで書籍情報を検索・取得してみよう YouTube APIによる動画の検索リクエスト 検索リクエストは、次のURLに、GETリクエストを送信

  • [FROG ふろっぐ][VB&VBA][日付時刻 VBやVBAで使用するDate関数やTime関数をUNIX(ユニックス)タイムにする]

    日付時刻 VBやVBAで使用するDate関数やTime関数をUNIX(ユニックス)タイムにする

  • 『パスワード設定』(trio) エクセル Excel [エクセルの学校]

    [[20110609153419]] 『パスワード設定』(trio) ページの最後に飛ぶ [ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ] 『パスワード設定』(trio) Excelブックで使う人によって機能制限を設ける為に、パスワードをもうけたいのですが このパスワードをマクロの修正無しに、変更可能としたいのですが、セルにおいてそのシートをマクロから非表示にしています。(パスワードがないと表示出来ない) ブック名test.xls 例えばその位置をs_passシートのb5セルとすると。 Aさんが、test.xlsをコピーしてtest_A.xlsとしてパスワードを設定します。 Bさんが、test.xlsをコピーしてtest_B.xlsとしてパスワードを設定します。 AさんとBさんは、お互いのパスワードを知られたく無いようにしたいのですが、 上の方法ですと、シートは開け

    jimmy0024ko
    jimmy0024ko 2012/05/25
    MD5に変換するサンプル
  • EUCからUnicodeに変換(Excel VBA編) - ardarimのブログ

    XMLHTTPを使うと、Excel VBAからでも任意のURLからデータを取得できる。 (とりあえずIEコンポーネントの一部なのでIEカテゴリにしてみる) 問題になるのは、XMLHTTPでHTMLをダウンロードした時に、文字コードがそのままでは正しくExcel VBAでは扱えない点。 Excel VBAで扱う文字列型はUnicodeであり、Unicode以外の文字列を扱うには工夫(というか自作)が必要。それでもExcel VBAには変換を行う最低限のローレベル関数が用意されているので何とかなる。 今回ヤフオクの検索データをExcelシートにしたくて ヤフオク検索→Excelシートに転記 するスクリプトを書いてみたのでついでに副産品のEUC→Unicode変換サブルーチンを紹介する。(ヤフオクはEUCを使ってるのだ) XMLHTTPでダウンロードしたデータは、どうやらダウンロードしたそのもの

    EUCからUnicodeに変換(Excel VBA編) - ardarimのブログ
    jimmy0024ko
    jimmy0024ko 2011/11/29
    文字化け後のデータを文字化け前に戻す
  • VBA高速化検証:セルの塗りつぶし

    ソフト作成の過程で、VBAの処理スピードに関する検証を行いました。 今回は『選択範囲内の該当データセルを塗りつぶす』というケースで、一般に使われているであろう方法から、そうでない方法まで、6つの方法の検証テストを行いました。 スピード検証テスト 下の表とグラフは、私のパソコン※でスピード検証テストを行った結果です。 ※Vista / intel Core2 Duo / Excel2003 結果を見て分かる通り、Test_6のケースが断トツに速いことが分かります。 セル20万個、内、色を塗りつぶす該当データセル10万個でも、1秒未満です。 では、Test_1~6の詳細コードを紹介していきます。 Test_1 テスト1は、選択範囲のセルを塗りつぶす場合に、一般的に使うであろうコードです。 For Each ~ Next とRange変数を使用し、Selection内を検索します。Range変数

  • 1