ExcelのVBAでPDF保存する方法 - くじらぶろぐD
Excelマクロで、PDFの保存をやってみました。 Sub Macro1() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "c:\\xxx.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub ふむふむ。ちなみに、xlTypePDF=0 でした。JScriptでかくと、以下の感じです。 function convertToPDF(sheet, fname) { try { sheet.ExportAsFixedFormat(0/*xlTypePDF*/, fname); } catch (e) { } } 参考) 1
変換
vab excel の基本は、Range Cells プロパティです。 vba excel range cells 簡単です！ 変換 vba excel rangeと cells プロパティは、相互に変換できます。 Range.Address プロパティ は、番地を表す文字列型 (String) の値を返します。 一方、Cellsプロパティは、一つひとつのセルを返します。 Range(Cells(1, 2).Address)は、Range("A2")を表します。 したがって、 CellsプロパティをRangeプロパティで表すことができ、変換できたことが分かります。 一方、Rows(2) は、アクティブシートの２行目を表す Rangeオブジェクトです。 このオブジェクトによりA2セルにアクセスできません。 Rwos(2).Cells(1, 1) のようにCellsによって、初めてA2セルにア
VBAで正規表現を使う
はじめに 改めて言うまでもないことですが、文字列処理で正規表現が使えると非常に便利です。VBAで正規表現を利用する方法を紹介したいと思います。 対象読者 VBAで正規表現を使用したい方 VBAで煩雑な文字列処理の行う必要のある方 なお、「正規表現についてよくわからない」という方は、以下のページの解説などを参考にしてください。 サルにもわかる正規表現入門 必要な環境 Windows VistaまたはWindows XP VBA開発環境 正規表現を使う前に VBAで文字列比較を行う場合、標準の機能としてStrComp関数やLike演算子があります。 特にLike演算子は、ワイルドカードなどによるパターンマッチングが行えます。正規表現よりも柔軟性は劣りますが、実現したい機能がLike演算子で済むのならば、無理に正規表現は使わずLike演算子を使った方がよいと思います。詳しくは、ヘルプにあるLik
Office TANAKA - セルの操作[セル範囲の取得]
操作の対象セル範囲が不定の場合 ここまでの解説では、操作の対象を「セルA1に」とか「セル範囲A1:C3に」などと簡単に決めてきました。もちろん解説なのですから、それは勘弁していただきたいのですけど、実際のマクロ作成では操作の対象を特定することに苦労するものです。操作の対象セルを、どう的確に特定するかが、VBAのビギナーとベテランで差が出るところでもあります。たとえば、次のようなデータを考えてみましょう。 このデータをマクロでクリアします。ただし、データが何行何列あるかは、そのときによって異なります。セルをクリアするにはRangeオブジェクトのClearContentsメソッドを使います。次のコードはセル範囲A1:D5をクリアします。 Sub Sample1() Range("A1:D5").ClearContents End Sub クリアすべきセル範囲の左上はセルA1です。したがって、セ
クレジットカード現金化の高還元率の優良店を選ぶためには
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
No.8 ワークシートの最終行、最終列を取得する
ワークシートの最終セル（最終行、最終列）を取得する… VBAをはじめた人は誰しも最初に引っかかる問題ではありますが、幸いにもインターネットで検索するといくつもの解決法が見つかります。 ところが…動いたり動かなかったり、想定外の動作をすることがあります。そもそもいくつもの解決法があること自体おかしい、いったい本当の答えはどれ？この際、白黒はっきりさせようじゃないかというのがこのページの趣旨です。 <S1> ワークシートの最大行、最大列を取得する MaxRow = Rows.Count MaxCol = Columns.Count まず基本からですが、ワークシートの最大行、最大列を取得するコードです。もちろんこれ自体は最終行、最終列を取得するものではありません。 Rowsはワークシートの行全体をあらわすオブジェクトで、Columnsは列全体をあらわすオブジェクトです。そのメソッドCountは数
第6回 指定フォルダ内のファイル名一覧をExcelに書き出す
■ Microsoft Excel 2000/2003（FileSystemObjectが使えるWindows）。うまく動作しないときはWSHをバージョンアップしてみてください。 プログラミングをしていると，「プログラム・ファイルの構成一覧をExcelで用意してくれ」と言われることがよくあります。手作業だと面倒なんですよね，こういう作業。で，ExcelのVBA（Visual Basic for Applications）を使う方法を紹介しちゃいます。マクロだったら記入漏れやミスタイプもありません。 今回作成するファイル一覧生成マクロは，Excel/VBAを使って，指定されたフォルダ（ディレクトリ）にあるファイルの名前とファイル種別，最終更新日，コメント用の空欄を自動で生成します（図1[拡大表示]）。大量のHTMLファイルや画像ファイルを扱う，PHP，PerlなどのWebプログラマの方なら，
Office TANAKA - FileSystemObject
FileSystemObjectオブジェクトは、ドライブ・フォルダ・ファイルなどを操作できるオブジェクトです。FileSystemObjectオブジェクトは、Scrrun.dllファイル内のスクリプティングタイプライブラリとして提供されます。 VBAからFileSystemObjectオブジェクトを利用するには、CreateObjectメソッドを実行してFileSystemObjectオブジェクトのインスタンスを作成し、そのインスタンスに対してプロパティの設定やメソッドを実行します。ここでは、FileSystemObjectオブジェクトのプロパティやメソッドのリファレンスと、使い方のサンプルを解説します。 なお、本文の内容はExcel VBAでの操作を前提に書きますが、AccessなどのVBAや、VisualBasic(VB)からも同じ考え方でFileSystemObjectオブジェクトを
Office TANAKA - VBA講座：ファイルの操作(ファイルの一覧を取得する)
任意のフォルダに存在するすべてのファイル名を取得するには、Dir関数にワイルドカードを指定します。次のコードは、C:\Sampleフォルダに存在するすべての「*.xlsx」をアクティブシートに書き出します。 Sub Sample1() Dim buf As String, cnt As Long Const Path As String = "C:\Sample\" buf = Dir(Path & "*.xlsx") Do While buf <> "" cnt = cnt + 1 Cells(cnt, 1) = buf buf = Dir() Loop End Sub Dir関数にワイルドカードを指定して実行すると、まずそのワイルドカードに一致するファイル名が返ります。次に、Dir関数の引数を省略して実行すると、前回に指定されたワイルドカードが指定されたものとしてファイルを探します。そ
Excel VBA 入門講座 文字列操作関数
Replace("対象文字列","置換前の文字(列)","置換後の文字(列)",検索開始位置(省略可),置換回数(省略可),比較モード(省略可)) strSamp = "123456789" strSamp = Replace(strSamp, "123", "000") '000456789を返す strSamp = "111122223333111122223333" strSamp = Replace(strSamp, "1111", "0000", 5) '22223333000022223333を返す strSamp = "111122223333111122223333" strSamp = Replace(strSamp, "1111", "0000", 1, 1) '000022223333111122223333を返す strSamp = "111122223333111
1GBレンタルサーバー・プロバイダー Amusement BiG-NET | www.big.or.jp/~seto/VBA/vba-p1.htm
こちらは独自ドメインからレンタルサーバー、フレッツ接続専用会員までトータルサポートのプロバイダー、BiG-NETです。 いつも弊社ユーザーのページにアクセスをして頂きましてありがとうございます。 http://www.big.or.jp/~seto/VBA/vba-p1.htm 404 Not Found (ファイルが見つかりません) 申し訳ございませんが、お客様がアクセス要求されました上記ページは、現在アクセスが出来ません。 弊社では、なぜアクセスできないのかと言う第三者からのお問い合わせにはお答えすることが出来ません。 もしこのページの関係者をご存知でしたら、連絡を取ってみることをお薦め致します。 何卒ご容赦下さい。
エクセルでチェックボックスをクリックしたらセルに数値を入力＆消去
もう回答してもいいんでしょうか・・・？ コントロールツールボックスのチェックボックスはデザインモードならコピーできるはずです。 ただし、この場合は各チェックボックス毎にコードを書く必要があります。共通ルーチンを呼ぶようにできますが、イベントをまとめてつかまえられないので、コントロールの数分イベントを書く必要があるでしょう。VBAには、VBのようにコントロール配列がないからです。（ユーザーフォーム上ではコントロール配列風な書き方もできますが、シート上では行ったことがありません。余りその気ももおきませんが・・・） フォームのチェックボックスを使えば、チェックボックスを貼り付けるだけで、コードを追加しなくても（１つのコードで）対応可能です。下はその例です。１つのマクロしかありませんが、理屈では何個のチェックボックスがあってももかまいません。必要な分だけチェックボックスをコピーしてください。（何個
ExcelのVBAでカタカナをチェックしたい - OKWAVE
> 具体的なコーディング例を教えていただけませんでしょうか？ 参考までに・・・。↓ Option Explicit Option Compare Binary Public Const MaxRow = 65536 Public Const AscKuten As Integer = &HA1 '半角句点のAscii文字コード Public Const AscDakuOn As Integer = &HDE '半角濁音 〃 Public Const AscHanDakuOn As Integer = &HDF '半角半濁音 〃 Public Sub Test(ByRef wkSht As excel.Worksheet, _ ByVal colNumber As Long, _ Optional ByVal startRow As Long = 2, _ Optional ByVal
英数字だけ半角にする:エクセルマクロ・Excel VBAの使い方/ユーザー定義関数
ASC関数と［ふりがな］機能とPHONETIC関数を合わせて利用することで、そこそこの手間でカタカナは全角、英数は半角という状態にできることをご紹介しました。 一発で英数字だけ半角にしたいのならば、VBA（Visual Basic for Applications）でユーザー定義関数を作成しましょう。 「英数字だけ半角にしたい」という要望をよく聞いてみると、実は記号類も半角にしてカタカナだけ全角にしたいという要望だったりするので、ここではカタカナだけを全角にして、他の半角が存在する文字はアルファベットも数字も記号類もすべて半角にするユーザー定義関数をご紹介します。 カタカナは全角、英数字は半角にするユーザー定義関数 Function AscEx(strOrg As String) As String Dim strRet As String Dim intLoop As Integer D
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
RegExpオブジェクト:Excel VBA入門
FileSystemObjectのGetFolderで取得できるファイルの並び順 - Visual Basic - 教えて！goo
contents30505
Excel VBA(エクセル マクロ) 小技集その�C AdvancedFilterで複数の抽出条件を指定
http://www.vbalab.net/vbaqa/data/excel/log/tree_753.htm
Excel2007(エクセル2007)基本講座:フォーム コントロールのチェックボックスの使い方