vbaに関するJUZOのブックマーク (15)

  • エクセルで結合したセルの高さの自動調整方法?

    merlionX さん、こんにちは。 ちょっと考えてみました。 以下のプロシージャは単独で動くものですが、この下にある、Selection を、Target[正しくは、With Target.Cells(1) ] にして、イベント(Worksheet_Change())に入れてみたらいかがでしょうか?一応、これは、フォント9~12 の書式スタイルで検証してみました。 ただ、確か、Excelでは、印刷する場合に、調整高が連続した行にあると、セルの中の最後の行が隠れてしまうという現象がありますので、「縦の調整」に、数字を入れて調整してみてください。だいたい、調整高の余分として、そのフォントの高さの1~1.5倍(例:フォント11で、13.5) ぐらいを入れてみてください。 'フォントの高さの定数 Private Const Font12Ht = 14.25 Private Const Font1

    エクセルで結合したセルの高さの自動調整方法?
    JUZO
    JUZO 2009/11/29
  • Excel VBA を学ぶなら moug モーグ | 即効テクニック | ワークシートにグラフを挿入する

    JUZO
    JUZO 2009/11/29
    場所を指定してAddする
  • VBAグラフ

    13.グラフの作成 ←基デ−タ ←例で作成のグラフ Excel操作の出来る者であれば簡単に自動作成し、記録出来るので特にグラフ 関係の関数等を覚えなくともよい。 ここでは自動作成したVBAを修正する時参考になる事項を中心に記述。 (1)グラフの大きさ指定 この図は指定の位置関係を示す '[1]チャ−トを作成時指定 ActiveSheet.ChartObjects.Add(25, 125, 338, 220).Select '[2]既に作成済みのチャ−トに対し指定 ActiveWindow.Visible = False ActiveSheet.DrawingObjects(cnam).Select Selection.Width = 429 Selection.Top = 112.5 Selection.Height = 222 Range(

    JUZO
    JUZO 2009/11/29
  • ◎ExcelVBAで特定セルを画像(jpeg/gif)ファイル変換

    ExcelVBAで特定セルを画像(Jpeg/Gif)ファイルに変換する ここのところ、”VBAを使わずに・・・・”というシリーズを多く公開していたせいか、ExcelVBAのページが疎かになっていました。 深く反省しております。 で今回は、指定したセル範囲を画像ファイル(JPEGやGIF等)にVBAで自動的に変換する方法をお教えいたします。 例によって、このページが皆さんによって少しでも有意義なものであれば幸いかと存じます。 作者 : 畑 賢治 *ある偶然が画像ファイルに・・・・・ 「Excelで図面を作成しているのだが、その図面の範囲だけを画像ファイルに変換できないだろうか?」 という相談友人から受けて、色々やってみました。 これがなかなかうまいこといきまへんなぁ〜!! いろいろ試行錯誤の末、直接的に画像ファイルを生成するのではなく、エクセルであるものに変換した 時にその副産物と

    JUZO
    JUZO 2009/11/22
    なんか2007版は動かないけど、参考になる。
  • Excel VBA を学ぶなら moug モーグ|

    JUZO
    JUZO 2009/11/20
    別エクセルのマクロを実行するときに使うRunメソッドで引数を渡す方法
  • 汝の隣人のブログを愛せよ | LOVELOG

    JUZO
    JUZO 2009/11/20
  • WSHスクリプトから動かしたEXCEL・VBAマクロでWSHスクリプトを停止する方法

    #1です。 ちょっと検証してみました。 BookA.xls の標準モジュールに Test マクロを書き、Cドライブに保存 Sub Test() Randomize Worksheets(1).Range("A1").Value = Int((2 * Rnd) + 1) End Sub 下記内容の BookA.vbs を何度か実行すると一瞬開いて閉じるか、開いたままになるかで分岐出来ましたよ。 Set objExcelApp = CreateObject("Excel.Application") objExcelApp.visible=True Set objWbk = objExcelApp.Workbooks.Open("C:\BookA.xls",True) objExcelApp.Run("BookA.xls!Module1.Test") if objWbk.Worksheets(1

    WSHスクリプトから動かしたEXCEL・VBAマクロでWSHスクリプトを停止する方法
    JUZO
    JUZO 2009/11/17
    これはちゃんと動いた。VBSからVBAを呼び出す方法。
  • VBSからVBAを実行してみる - 猫にWeb

    VBSとVBAでそれぞれツールを作っていたのですが、 両方とも一度に実行したいと思い、VBSからVBAを呼ぶ事にしてみました。 VBSでVBAのマクロ呼び出しのボタンを押下し、保存するところまでを行います。 ExcelのApplicationオブジェクトである「Excel.Application」のオブジェクトを作成します。 Dim ExcelApp Dim ExcelBook Dim FilePath FilePath = "ExcelVba.xls" Set ExcelApp = CreateObject("Excel.Application") Set ExcelBook = ExcelApp.Workbooks.Open(FilePath) ExcelApp.ActiveWorkbook.Worksheets("マクロ呼び出しのボタンのあるシート名").select ExcelAp

    VBSからVBAを実行してみる - 猫にWeb
    JUZO
    JUZO 2009/11/17
     なぜかマクロが二回実行されてしまうのでダメ。
  • クレジットカード現金化の高還元率の優良店を選ぶためには

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

    JUZO
    JUZO 2009/11/17
  • クレジットカード現金化の高還元率の優良店を選ぶためには

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

    JUZO
    JUZO 2009/11/11
  • Office TANAKA - Excel VBA Tips[FTPで送受信する]

    このテクニックはBASP21を使います。 BASP21については、ご自身で調べてくださいな。 FTPサーバーに対してファイルを送受信するときは、BASP21のFTPオブジェクトを使います。 FTPサーバーへの接続…Connectメソッド ファイルの送信…PutFileメソッド ファイルの受信…GetFileメソッド FTPサーバーとの接続を切断…Closeメソッド 処理は、(1)FTPサーバーと接続する(Connect)→(2)任意の処理を行う→FTPサーバーとの接続を切断する(Close)となります。 ファイルを送信する まずConnectメソッドを実行してFTPサーバーとの接続を確立します。Connectメソッドの構文は次の通りです。 rc = ftp.Connect(Dest,User,Pass) 引数Destには、接続するFTPサーバー名を指定します。 引数Userと引数Passは

    JUZO
    JUZO 2009/11/11
  • VBA応用(テキストデータの読み込み)

    デザイン済みのシートにデータを直接読み込むことができます。 ここでは、古くからのBASICのステートメントの記述方法と、FSO(FileSystemObject)を操作する方法で、テキストファイルを読み書きする方法を解説します。 例えば、CSV形式のファイルを直接開くと、見出しもないデータの羅列がワークシートに展開されてしまいますが、ここでのサンプルの方法であればデザインしたワークシートの見出しの下の行からデータを読み込んで表示させたり、ワークシートに表示させないで内部処理を行なうなどのことができます。 なお、これから新しく取り組む方は古いステートメントではなく、最初からFSO(FileSystemObject)を学んで下さい。 まずは、「古くからあるステートメント」の方法です。 通常の文書のようなテキストデータを改行(CRLF)単位に1行ずつ読み込みます。 動作確認をされる場合は、Asc

    JUZO
    JUZO 2009/10/27
  • VBA/テーブルの使い方 - TOBY SOFT wiki

    2020-06-02 Comments/Subversion/TortoiseSVNメモ/コミットしたログメッセージが編集できない 2020-03-31 ゲームを作る上でのバッドノウハウ/十字キーがボタンとして認識される 2019-11-12 Comments/Wiki/PukiWiki/スパム(spam)を防止する方法 2019-11-01 Delphi/XML/Delphi付属のXMLライブラリ 2019-08-27 Comments/SaGa2 秘宝伝説/モンスター一人クリア 2019-07-11 Comments/git/git rebaseを元に戻す方法 2019-06-08 VBA/関数呼び出し時に「オブジェクトが必要です。」というエラーが出る 2019-03-07 Comments/PhotoShop/「下のレイヤーとグループ化」はどこいったの? 2019-02-06 Rub

    JUZO
    JUZO 2009/10/19
  • http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=59307;id=excel

    JUZO
    JUZO 2009/10/13
    IEで表示されるダイアログを自動でOKを選択する方法
  • 三流君VBA:URLDownloadToFile APIを使用してWebからファイルをダウンロードしてみた

    <URLDownloadToFile APIを使用してダウンロードしてみた> 今回は、 Web上のpdfファイルをダウンロードしてみたいと質問をもらったので、 チャレンジしてみます。 サンプルファイルは、 http://www.ken3.org/vba/lzh/vba120.lzh にvba120.xlsが保存されています。 その他サンプル: [Document.Images の 一覧から 画像ファイルをダウンロード] ← Webページ内の画像をDocument.Imagesから取り出し、URLDownloadToFileでダウンロードしたサンプル。 [VBA IE操作 リンクの取り出し と ダウンロード IE6+Excel2003] ←ダウンロードとの組み合わせとサンプルファイルです。 サンプルにキレがないけど こちらも合わせてみてください /* * 1. 今回のキッカケ */ 掲示板

    JUZO
    JUZO 2009/10/13
    ページをダウンロード
  • 1