タグ

vbaに関するpsychedesireのブックマーク (19)

  • accessclub.jp - このウェブサイトは販売用です! - アクセスクラブ リソースおよび情報

    psychedesire
    psychedesire 2009/12/04
    何回もこれ見てる気がする。まったく頭に入っていないあたり残念である。
  • クレジットカード現金化の高還元率の優良店を選ぶためには

    クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき

    psychedesire
    psychedesire 2009/12/04
    daoRS.Fiedls(a(i)).value = Me(a(i)).value でぶん回す感じ
  • VB 配列操作・データ分解編

    ●Split 関数 【機能】文字列を指定のセパレータで分解して配列へ格納する。 【書式】result = Split ( 文字列 , デリミッタ ) 【書式】result = Split ( 文字列 ) 【 例 】

    psychedesire
    psychedesire 2009/12/04
    Redim Preserve!!
  • すぐに役立つエクセルVBAマクロ集 - Excel VBA Macro Collection

    '================================================================================= Sub 選択したシートを印刷する() 部数 = 1 '印刷部数を指定する ※1 Sheets("SSS").PrintOut Copies:=部数 '指定部数を印刷する ※2 End Sub '--------------------------------------------------------------------------------- Sub アクティブシートを印刷する() ActiveSheets.PrintOut '印刷する(1部) End Sub '-----------------------------------------------------------------------------

    psychedesire
    psychedesire 2009/11/18
    これくらい手作業でやって欲しいところなんだけど、クソみたいなやつらばっかりだからここまでやらなきゃだめである。
  • 塗りつぶしの色番号: .xls

    ColorIndex番号, 色見, 色名, 16進数, RGB, Color番号 '赤の場合 ActiveCell.Interior.ColorIndex = 3 ActiveCell.Interior.color = RGB(255, 0, 0) ActiveCell.Interior.color = 255 1  ■ 黒 #000000 / RGB(0,0,0) / 0 2  ■ 白 #FFFFFF / RGB(255,255,255) / 16777215 3  ■ 赤 #FF0000 / RGB(255,0,0) / 255 4  ■ 明るい緑 #00FF00 / RGB(0,255,0) / 65280 5  ■ 青 #0000FF / RGB(0,0,255) / 16711680 6  ■ 黄 #FFFF00 / RGB(255,255,0) / 65535 7  ■ ピ

    psychedesire
    psychedesire 2009/11/18
    見やすいわかりやすい。
  • Office TANAKA - Excel 2007レビュー「ベンチマーク(1)」

    おそらく多くのユーザーが興味を持っているテーマだと思いますが、Webや雑誌などではあまり詳細に検証されるケースは少ないと感じます。今回は「新しいExcel 2007って、速度的にどーよ?」について書きます。ただ、Excel 2007は大きく仕様が変更されましたので、単純に同じマクロで検証するのは不適切なのかもしれません。そうした点も含めて、こうした動作速度の話は今後も何回かに分けて続けるつもりです。まずは、拙作「Excelベンチマーク」を使って測定してみました。「Excelベンチマーク」は、マクロで連続動作を自動的に実行し、終了までにかかった時間を計測する仕組みです。 xlBench2000では次のテストを行います。 描画テスト:ランダムな位置にオートシェイプを挿入 再計算テスト:3000個の参照式を再計算 UserFormテスト:テキストボックスやリストボックスなどの変更 グラフテスト:

    psychedesire
    psychedesire 2009/11/18
    ベンチマーク
  • Office TANAKA - Excel 2007レビュー「ベンチマーク(2)」

    Excel 2003とExcel 2007で、並べ替えの速度を比較してみました。 セル範囲A1:A60000にランダムな数値を入力し、この範囲を並べ替えます。 並べ替えのコードは、マクロ記録で生成されたコードを使いました。 まず、Excel 2003の結果からご覧ください。 Sub Macro1() ''マクロ記録で生成されたままのコード Dim i As Long, j As Long Dim Start As Long, Finish As Long Application.ScreenUpdating = False ''60000個の乱数を入力 For i = 1 To 10 For j = 1 To 60000 Randomize Cells(j, 1) = Int(Rnd() * 1000000) Next j Start = GetTickCount() ''マクロ記録で生成

    psychedesire
    psychedesire 2009/11/18
    ベンチマーク
  • 月々雑感: VBAマクロの動作が異常に遅いときの対処法

    psychedesire
    psychedesire 2009/11/18
    本当に遅いんで困る。 2003のソートを使うと、ソート結果が変わる。
  • CGI Error

    psychedesire
    psychedesire 2009/11/18
    これにハマった。ブレークポイント解除すればOK
  • ACCESSのVBAにてExcelのシートをコピーしたい - OKWAVE

    Private Sub CmdCopySheet_Click() 'Dim xlApp As Excel.Application 'Dim xlBook As Excel.Workbook 'Dim xlSheet As Excel.Worksheet Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim stFileName As String Dim stSheetName As String Dim lngCnt As Long 'ファイル名指定 stFileName = "C:\入庫.xls" 'コピーシート名指定 stSheetName = Format(Date, "dd") 'エクセル展開 'Set xlApp = New Excel.Application Set xlApp = CreateO

    ACCESSのVBAにてExcelのシートをコピーしたい - OKWAVE
  • 多次元配列

    このように名前が「佐藤」さんの住所は「東京都」で名前が「山田」さんの住所は「札幌市」です。このように1つの行に対して2つの項目があるものが2次元の配列となります。 このデータを配列に保存する場合には次のように2つの配列を用意する必要があります。 Dim clientName(3) As String Dim clientAddress(3) As String clientName(0) = "佐藤 一郎" clientAddress(0) = "東京都" clientName(1) = "山田 花子" clientAddress(1) = "札幌市" clientName(2) = "加藤 健一" clientAddress(2) = "名古屋市" clientName(3) = "中村 吾郎" clientAddress(3) = "東京都"

    多次元配列
    psychedesire
    psychedesire 2009/11/18
    redim preserve したりするとなんかうまく動かなかった気がする。
  • マクロを組んで作業するのは実力ではないですか?(1/5) - OKWAVE

    私の職業は一般事務(派遣)ですが 少しVBAがわかるのでルーチン化できるものはマクロを組んでいます。 そうすることによってエクセルで1時間かかる作業が1分で終わることがあります。 なので職場では「仕事が早い、仕事ができる」と評価されることがありますが 先日先輩に怒られました。 内容は ・VBAを使うのはずるい ・それは実力ではない ・仕事が早いというのは同じ環境でどれだけ間違いがなく効率よく作業ができるかだ。 ・マクロを組むのはズルとしているのを同じ と。 確かに手作業で行なえば周りの人と同じくらいの速さなので 周りと同じ環境であれば(マクロを組まなければ)仕事が早いとは言えないかもしれません。 しかし業務をどう効率よくして作業をするかを考え実践するのも仕事のうちだと思うのですが 私の考えは間違ってますか? 入力ミスもチェックするコードを書いたので、ミスはありません。 「マクロを組んだ方が

    マクロを組んで作業するのは実力ではないですか?(1/5) - OKWAVE
    psychedesire
    psychedesire 2009/11/06
    俺マクロを組んで仕事を効率化して、その功績で社員になった。一緒に働いてたバイトが3人クビなった。余った時間でこうやってネット見てぐーたらしてる。
  • VBA基本(配列変数)

    Excelはワークシート自身が「2次元配列変数」、ワークブックは「3次元(的?)配列変数」です。 これをマクロ内部で実現するのが配列変数です。 配列とは 配列とは、他に「テーブル」と呼ぶこともあります。1つの変数名にインデックスを付けておき、そのインデックスの値によって複数の内容を登録したり、呼び出したりする変数です。 '*************************************************************************************************** ' 配列処理のサンプル Module1(Module) ' ' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!] '*******************************************

  • スクリーンセーバーを起動及び解除・起動中かを取得する - VBレスキュー(花ちゃん) Visual Basic,VS6.0,VB6.0,サンプル,Tips

    時間が掛かるような処理をした後等に処理が終了した旨のメッセージを出しても、スクリーンセーバーが起動中だとメッセージが表示できない。そのような時にスクリーンセーバーが起動していたら、解除してメッセージを表示するような場合等にお使い下さい。 色んな方法が考えられるのですが、今回は稼動サンプルとして、プログラムが終了したらスクリーンセーバーが起動しているか調査し、起動していれば解除する、その後再びスクリーンセーバーが起動しないように50秒毎にマウス移動をする。終了時セーバーがまだ起動していまければ起動しないように監視する。 セーバーが起動しているか、どうかは、セーバーが起動してから待ち時間が経過した後でないと判断できない。従って再び起動した場合等は起動してから設定されている待ち時間を経過しないと起動しているか判断できない(起動していないと判断される) プログラムで起動した直後等は起動していないと

  • エクセルVBAでブック保護のUserInterfaceOnly:=Trueはダメ?

    merlionXX さん、こんにちは。 Wendy02です。 >ところでサンプルコードでUnprotectする直前にもProtectをしているのは何故ですか? それ自体は、あくまでも、Protect をして、Unprotect をするというのは、サンプルで作ったままでコードをアップしただけです。 ただし、理由は、以下のような流れからです。 今回は、関係ないかもしれませんが、xlSheetVeryHidden を使う場合に、前回、考えたのは以下のような手順です。 開いた時に、一旦、 Window プロテクトを解除して シートの Visible = xlSheetVeryHidden Window プロテクトにしてから、そのブックを保存して、 それから、次に、もう一度、Window プロテクトを解除して、 シートをVisible = xlSheetVisible Window プロテクトをしま

    エクセルVBAでブック保護のUserInterfaceOnly:=Trueはダメ?
    psychedesire
    psychedesire 2009/09/26
    Application.Interactive = False
  • DOS コマンドの実行結果をVBAで取得する方法

    概要 Access VBA と DOS コマンド。 昨今ではあまり馴染みのない組み合わせです。 主要 DOS コマンドは VBA に移植されていますし、VBA に移植されていないものは API や COM の Shell オブジェクト経由で呼べるので、「なんで今さら DOS コマンド?」という感覚が一般的かもしれません。 しかし、中には DOS コマンドの方が簡単に実行できるケースも有ります。 たとえば ping を打ってネットワーク上の任意のホストが生きているか確認したい場合や、あるフォルダの配下から、サブフォルダの中も含めて、特定の拡張子を持つファイルの一覧を取得したい場合などが該当します。 これらはいずれも VBA で実装可能ではありますが、複雑な再帰処理や API との連携が必要です。 一方 CUI であるコマンド インタープリタ上からであれば、たった 1 行の DOS コマンドを

  • 1GBレンタルサーバー・プロバイダー Amusement BiG-NET | www.big.or.jp/~seto/vbaref/vbaref14.htm

    こちらは独自ドメインからレンタルサーバー、フレッツ接続専用会員までトータルサポートのプロバイダー、BiG-NETです。 いつも弊社ユーザーのページにアクセスをして頂きましてありがとうございます。 http://www.big.or.jp/~seto/vbaref/vbaref14.htm 404 Not Found (ファイルが見つかりません) 申し訳ございませんが、お客様がアクセス要求されました上記ページは、現在アクセスが出来ません。 弊社では、なぜアクセスできないのかと言う第三者からのお問い合わせにはお答えすることが出来ません。 もしこのページの関係者をご存知でしたら、連絡を取ってみることをお薦め致します。 何卒ご容赦下さい。

  • 三流君VBAでOutlookを操作する

    私は、Outlook VBAで [メールの作成 や 読み込みを行いたい] / [予定 アポやスケジュールを管理したい] / [仕事・タスクを登録したい] / [アドレス帳や連絡先を管理したい] / [HELPからOutlookのプロパティやメソッドを探りたい] です。※目的の処理を選択してください。 ken3memo : Outlook関係の→ [メモ・記事をチェック] / [アウトルックの動画解説へ] 全ての質問には、答えられませんが、リクエストや質問があったら、[作者(三流君)に質問する] から 気軽に送ってください [三流君(TOP)] / [VBA(TOP)] / [Outlook操作(TOP)] まぁ、そんなに難しく考えないで、サンプルのソースを貼り付けて、遊んでみてください。 ファイル内ショートカット: [メールなどデータの作成] /[データを読み込む、データの指定方法] /[

  • 即効テクニック:Excel VBA グラフ操作|Excel VBAを学ぶならmoug

    即効テクニックでは、随時テクニックの追加・見直しを行っております。 更新コンテンツは、即効テクニックトップページでご確認ください。 ⇒ 即効テクニック トップページ

  • 1