タグ

VBAに関するzephyrcradleのブックマーク (21)

  • Windows/Office関連/Excel/セルの値をクリップボードにコピー - Let's( ^ω^)study IT!

    Windows標準のコピー([Ctrl] + [C])コマンドでなく、ボタンコントロールなどを押したタイミングでセルの内容をクリップボードにコピーする方法についてのメモです。 簡単な内容であれば、普通にセルをコピーで問題ないですが、加工した結果などをセルに出力せずにクリップボードに入れる時などに使えるTIPSだと思います。 内容 実際のクリップボードの操作 Private Sub SendToClipBoard(vStr As String) Dim oDO As New DataObject Call oDO.SetText(vStr) Call oDO.PutInClipboard Set oDO = Nothing End Sub まずクリップボードの内容にアクセスするためのDataObjectオブジェクトを生成します。 作成したオブジェクトにテキストデータをセットし、クリップボード

    Windows/Office関連/Excel/セルの値をクリップボードにコピー - Let's( ^ω^)study IT!
    zephyrcradle
    zephyrcradle 2009/06/24
    何故かうちのExcel2000では動かなかったけども。
  • Office TANAKA - VBA高速化テクニック[個別に呼ばない]

    昔、項で比較したかったのは、要するに「For Next と For Each って、どっちが速いの?」ってことです。1995年にMicrosoftから出版されたVBAに関する公式に「For Each の方が速いよ~理由はね~」って書いてあったからです。その頃調べた結果では、確かに For Each の方が速かったです。でも、時代は変わりました。と同時に、パソコンの性能も飛躍的に向上しています。理論的に速くても、体感速度として、あるいは計測結果としては、どうなんでしょう。 まず、For Next と For Each で比較してみましょう。 Sub Test1() Dim i As Long For i = 1 To 10000 Cells(i, 1) = 100 Next i End Sub Sub Test2() Dim c As Range For Each c In Range(

    zephyrcradle
    zephyrcradle 2008/12/05
    For NextよりFor Eachのほうが若干早いみたい。なるべくはこっちを使えってことで。
  • 重庆强瀚纺织-专注缝纫线_绣花线批发[量大从优]

    zephyrcradle
    zephyrcradle 2008/12/04
    myAnsがLong型でもmyAns = 1000 * 1000はオーバーフローする。のでその対処。どうやら定数というのはデフォルトでInteger型のようで。
  • AddinBox(プログレスバー)

    1.プログレスバー(ProgressBar)とは 時間の掛かる処理を実行している時には、「今動いてるのか?止まっているのか?」という思いで ユーザーは不安になるものです。そこで、その不安を解消するとともに、「どの位進んだのか」を知ら せる為のインターフェースとして使われるのが『プログレスバー』です。エクセルブックを開く時や、 インターネットでダウンロードする時に表示される『青く伸びるバー』の事です。 VBAで『プログレスバー』を使うには、いくつかの方法がありますので順に説明していきます。 (1) ウィンドウ左下のステータスバーを利用する (2) プログレスバーコントロールを利用する (3) ラベルコントロールを使ってプログレスバーを自作する (4) アドインソフトを利用する (5) ループ処理をUserFormモジュールに移さないで、UserFormのプログレスバーを動か

    zephyrcradle
    zephyrcradle 2008/11/28
    Excel VBAでプログレスバーを使う方法。ステータスバー使うのも良いなあ。
  • Office TANAKA - Excel VBA Tips[正規表現によるマッチング]

    VBAから正規表現を使うには、VBScriptが便利です。ただし、正規表現をサポートしているVBScriptはVer5.0からですから、IE5.0がインストールされているパソコンでないと使えません。 VBScriptの中で正規表現エンジンを提供しているのはRegExpオブジェクトです。参照設定によるEarly Bindingか、CreateObject関数を使ったLate Bindingで参照します。ここではLate Bindingによるサンプルを紹介します。 まずは、正規表現で使用するオブジェクトとプロパティやメソッドを整理しましょう。 RegExpオブジェクトのプロパティとメソッド

    zephyrcradle
    zephyrcradle 2008/11/26
    VBAによる正規表現使用法。マーベラス。
  • [Excel]VBAのClassってコンストラクタ作れるの?

    VBAのClassってコンストラクタ作れるの……? 文法を知らべてもClassについて書いてるサイトが少ない……

    zephyrcradle
    zephyrcradle 2008/11/18
    コンストラクタ:Class_Initialize、デストラクタ:Class_Terminate。そっかVB6で調べれば早かったんだ。
  • フォルダを作成する ・ 削除する - アプリケーションとしてのVBA

    ◆フォルダを作成する ・ 削除する フォルダを作成するには、 MkDir ステートメントを使用します。 MkDir Path フォルダを削除する場合には、 RmDir ステートメントを使用します。 RmDir Path 削除したいフォルダ内にファイルが存在していると、エラーが発生します。 この場合は、Kill ステートメントを使用してフォルダ内のすべてのファイルを 削除してから RmDir ステートメントを使用します。 Sub DeleteFolde() Dim Folder_Path, FileName_InFolder As String 'フォルダのパスを取得 Folder_Path = FolderPath 'フォルダ内のすべてのファイル指定 FileName_InFolder = Folder_Path & "\*.*" 'ファイルの削除 Kill FileName_InFold

    zephyrcradle
    zephyrcradle 2008/11/17
    「削除したいフォルダ内にファイルが存在していると、エラーが発生します」てとこで躓いた。
  • VB INI ___ APIによるiniファイルの読み書き

    Visual Basic 中学校 > VB6 中級講座 > 8.ini 今回はiniの話です。iniはアプリケーションの設定やちょっとした情報を保存するのに便利なものです。通常は一度アプリケーションを終了させると記憶させておいたデータはファイルに保存しない限り消えてしまうのですが、iniに保存しておけば大丈夫です(iniもファイルですけど・・・)。iniは「イニ」と読む人が 多いようです。当は「Initialize」(イニシャライズ:初期化)の略なので「初期化ファイル」と呼ぶ人もいます。 1.はじめに 具体的な説明に入る前に知っておいた方がいいことがあります。Microsoft社(マイクロソフト社)はアプリケーションがその設定や情報を保存するなどの目的でINIを使用することを推奨していません。Microsoft社によるとそのような目的には「レジストリ」を使うようにとのことです。この意

    zephyrcradle
    zephyrcradle 2008/11/12
    VBAにもあるのね、専用API!
  • サービス終了のお知らせ

    サービス終了のお知らせ いつもYahoo! JAPANのサービスをご利用いただき誠にありがとうございます。 お客様がアクセスされたサービスは日までにサービスを終了いたしました。 今後ともYahoo! JAPANのサービスをご愛顧くださいますよう、よろしくお願いいたします。

    zephyrcradle
    zephyrcradle 2008/11/12
    コピー操作系。コピーの解除方法とかで見た。
  • http://www.mothprog.com/prog/exceldb/

    zephyrcradle
    zephyrcradle 2008/11/11
    Excel VBAでOOP(継承)する方法とか。まあ擬似的にだけど。
  • CodeRepos::Share – Trac

    Twittexceler スクリーンショット これは何ですか? Excel VBA でかかれた Twitter クライアントです。 お仕事中とかにもこっそり使えるかもしれませんがどうでしょうね。 動作環境 Excel 2003 以降で動くんじゃないかと思いつつVista+Excel 2007でしか確認していません。 ダウンロード http://www.misuzilla.org/~mayuki/dist/Twittexceler_r460.zip (Excel 2003/xls形式) http://svn.coderepos.org/share/platform/excel/Twittexceler/Twittexceler.xlsm ライセンス MIT License 作った人 Committer:mayuki

    zephyrcradle
    zephyrcradle 2008/11/04
    「Excel VBA でかかれた Twitter クライアントです。お仕事中とかにもこっそり使えるかもしれませんがどうでしょうね」
  • 三流君VBA:Excel 起動オプションのお話(引数的なラブレターを渡したい)

    [三流君] --> [VBAで楽しく] --> [バックナンバー一覧] --> No.086 Excel 起動オプションのお話(引数的なラブレターを渡したい) 結局、うまくできなかったので、 Set oApp = CreateObject("Excel.Application") oApp.Run "関数名", パラメータ で渡したように見せただけでした・・・ ※もっとスマートな方法がありそうですが、何かの参考となれば幸いです。 メルマガ発行内容 <Excel 起動オプションのお話(引数的なラブレターを渡したい)> どうも、三流プログラマーのKen3です。 今回は、 Excelの起動オプションのお話です /* * 1.今回のキッカケ */ http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi 掲示板に、下記の質問が来ました。 ------------

    zephyrcradle
    zephyrcradle 2008/10/29
    完璧ではないけれど、渡そうと思えば渡せるもんなのね。
  • 404 Page Not Found. - GMOインターネット

    404 Error - Page Not Found. 指定されたページ(URL)は見つかりません GMOインターネットのページへ戻る Copyright (c) 2020 GMO Internet, Inc. All Rights Reserved.

    zephyrcradle
    zephyrcradle 2008/10/06
    GPLなので、オープンしないならコードをそのまま使わないように。
  • SpinNet : Notice of Service Termination

    ご訪問いただいたお客様へのお知らせ Information for customers visiting this Web site from SpinNet アクセスいただいたWebサービスは提供を終了いたしました。 長年にわたり、多くの皆様にご利用いただきましたことを心よりお礼申し上げます。 SpinNetトップページへ The Web service you are trying to access has been terminated. We would like to thank all of you for your patronage over the years. Go to the SpinNet

    zephyrcradle
    zephyrcradle 2008/10/06
    定数と列挙型について。とっても便利。
  • SpinNet : Notice of Service Termination

    ご訪問いただいたお客様へのお知らせ Information for customers visiting this Web site from SpinNet アクセスいただいたWebサービスは提供を終了いたしました。 長年にわたり、多くの皆様にご利用いただきましたことを心よりお礼申し上げます。 SpinNetトップページへ The Web service you are trying to access has been terminated. We would like to thank all of you for your patronage over the years. Go to the SpinNet

    zephyrcradle
    zephyrcradle 2008/10/06
    データ型について。Variantばっかり使うなと。
  • Office TANAKA - VBA Tips

    VBAコンテンツ Home Excel VBA Excel VBA Tips セル セルが選択されているか判定する アクティブでないシートのアクティブセル 結合セルを調べる 簡単に罫線を引く セルのValue2プロパティ あるセルがセル範囲に含まれるかどうか セル範囲の操作 確実に選択されているセルを操作する 入力されているデータの最終セルを取得する 複数のセルを選択する 特定のセル範囲内を検索する 非表示のセルを検索する すべて検索する 日付を検索する 1と001の問題 Range(左上セル, 右下セル)の使い方 セルの罫線に関すること new オートフィルタ 書き方の基 文字列で絞り込む 数値で絞り込む 日付で絞り込む 色で絞り込む 作業列で絞り込む 絞り込んだ結果をコピーする 絞り込んだ結果を集計する 絞り込んだ結果の行を操作する オートフィルタの状況を判定する 数式のエラーで絞り

    zephyrcradle
    zephyrcradle 2008/10/06
    数は多いけどどれも限定的なので、それほどお世話にはなってない。
  • K窓 Excel技<Excel Tips> Excel編

    E03M110(Excel2003) 項目 イメージコントロールの画像を保存する 内容説明 UserForm等のコントロールのPictureプロパティに設定された画像をファイルとして保存するサンプルを示します。 SavePictureステートメントを用いることで簡単に処理出来ます。 但し、保存するファイル形式はビットマップ(.BMP)及びメタファイル(.emf)です。 (Pictureプロパティに設定されている画像のファイル形式に依存します) ファイル名に"xxx.jpg"等と他形式の拡張子を指定してもファイル形式はビットマップ或いはメタファイルで保存されます。 WEBや書籍等でVBAのSavePictureステートメントがjpgやgifでも保存出来ると言う記述を見かけますが間違っていますのでご注意下さい。 'Pictureプロパティの画像をファイルとして保存するサンプル 'Use

    zephyrcradle
    zephyrcradle 2008/10/06
    ちょっと用途が限定的過ぎるかも。
  • http://excel.geo.jp/tips/tipsmenu.html

    zephyrcradle
    zephyrcradle 2008/10/06
    何度お世話になったかわからない。困ったときはまずここ。
  • 404 Page Not Found. - GMOインターネット

    404 Error - Page Not Found. 指定されたページ(URL)は見つかりません GMOインターネットのページへ戻る Copyright (c) 2020 GMO Internet, Inc. All Rights Reserved.

    zephyrcradle
    zephyrcradle 2008/10/06
    VBAでの16進計算
  • Accessの良さを活かした「使えるプログラムの簡単な作り方」を紹介 Access アクセス

    zephyrcradle
    zephyrcradle 2008/10/06
    ページタイトルに反して、VBAで日付情報を取得する方法。