Office TANAKA - VBAでVBEを操作する[CodeModuleのプロパティ]
一般的なSubプロシージャやFunctionプロシージャを指定するときは0を指定します。 Sub Sample10() Dim Cnt As Long Cnt = ThisWorkbook.VBProject.VBComponents("Module1"). _ CodeModule.ProcBodyLine("Sample10", 0) MsgBox Cnt End Sub ProcCountLinesプロパティは、指定したプロシージャの行数を返します。 指定する引数はProcBodyLineプロパティと同じです。 ProcCountLinesプロパティは、指定したプロシージャの宣言行(Sub ○○やFunction××など)以前にある空白行やコメント行から、プロシージャの終了行(End SubやEnd Functionなど)までの行数を返します。指定したプロシージャがコードモジュール内
VBA応用(CDOでメール送信)
その後「ダウンロード」の方に移転しております。 (この画像をクリックすると、該当ページにジャンプします。)
SystemWatanabe ExcelPro工程表
【Excel Pro 工程表 V4】 Microsoft Excel(エクセル)のVBAを利用して作成した工程表作成ソフトです。 １ヵ月・３ヵ月・６ヵ月・12ヵ月工程表が簡単作成できます。 工程の開始日・終了日を入力するだけで、工程期間線(ガントチャート)が自動表示されます。 予定と実績の工程期間を入力・表示できます。 また、指定した年・月により、瞬時に日メモリと工程期間線が再計算表示されますので、月が替わった時の工程表の作り直しの手間が省けます。 フリー版(無料)もご利用いただけます。(フリー版はVBAマクロ非公開およびシート保護解除不可) 正規版は、VBAソース公開およびシート保護解除可能なファイルをご入手いただけますので VBAおよびExcelの知識のある方であればカスタマイズしてご使用も可能です。 ※Windows用Excelが必要です。[Excelのバージョン・使用環境について]
連動したドロップダウンリスト−INDIRECT関数:Excel(エクセル)の使い方/データの入力規則
Excelで、入力規則を設定してドロップダウンリストからデータを入力できるようにするのは、とても便利な機能です。 このドロップダウンリストから入力させる機能を、2つのリストを連動させてできないのか？というご質問も時々いただきます。 例えば一つ目のリストに「総務部」「営業部」「開発部」と表示されるようにし、この中から「総務部」を選んだときに二つ目のリストに総務部に所属する課だけが表示され、「営業部」を選んだときには営業部に所属する課、「開発部」を選べば開発部の課だけが表示されるようにすることはできないのかという質問です。 ▼操作手順：連動したドロップダウンリストを作成する ※Sheet1にドロップダウンリストに表示されるデータを入力し、Sheet2のA1セルのドロップダウンリストから「総務部」を選択したらA2セルのドロップダウンリストに総務部に所属する課の名称が表示されるようにする例 She
Office TANAKA - 今さら聞けないVBA[Option Explicitって何？]
それが書かれているモジュールでは、変数を宣言しないと使えませんという命令です。 Option Explicit を書いていないモジュールでは エラーになりません。 変数は、絶対宣言してください。自分のためです。変数の宣言が難しいと感じて、宣言をしないで使っている方、難しいのは「宣言」ではなく「変数の型」ではありませんか？だったら、変数の型指定は省略してもかまいません。その代わり「宣言」だけはします。「Dim A」のように。これなら難しくありませんよね。 変数宣言の重要性と、なぜ多くの方は宣言をしないのかの考察については、下記ページをご覧ください。 変数って宣言しなくちゃいけないの？ Option Explicitは、宣言セクションに記述します。宣言セクションとは、マクロを書くウィンドウの中で、先頭のプロシージャよりも上の部分です。 すべてのモジュールで、宣言セクションにOption Exp
Office TANAKA - Excel VBA関数[VarType]
引数varnameにユーザー定義型を指定することはできません。 サンプル 次の例は、バリアント型変数の内部処理形式を表示します。 Sub Sample() Dim var As Variant var = "ABC" MsgBox VarType(var) '８を表示します var = 123 MsgBox VarType(var) '２を表示します var = 123.456 MsgBox VarType(var) '５を表示します var = Array("A", "B", "C") MsgBox VarType(var) '8204を表示します End Sub
三流君VBAで楽しくプログラミング
[三流君(TOP ken3.org へ戻る)] 三流君 ＶＢＡで楽しくプログラミング 挨拶:AB型の変わり者・三流プログラマーのＫｅｎ３（三流君）が不定期で ＶＢＡを使ったプログラムを失敗談や指摘を受けながら、解説してます。 肩の力を抜いて、気楽に読んでください。 Menu中分類 リンク先紹介 おおまかな分類 リンクです。 過去の記事一覧(バックナンバー)は [ VBA系記事 バックナンバー ] を見てください。 ＶＢＡで楽しくプログラミング ＶＢＡ系の解説グループです。最近はキレがなく、あまり楽しんでないけど(笑) やはり、楽しみながら作る、そんな余裕がほしいですね。 CreateObjectで他のアプリを操作 [VBAからIEを自動操作 CreateObject(" InternetExplorer.application" )]・・・VBAでIEを操作するサンプルです [Access
VBA変数
４．変数と定数 ４ー１変数と定数の宣言方法 Const fil1 As String = "c:\４月PKG.xls" '定数の例 Public Const dva As String = "b:" '共通定数 ' Dim aaa As Integer '整数型 Public xxx As Integer '整数型（共通の場合） Dim bbb As Long '長整数型 Dim ccc As Single '単精度浮動小数点数型 Dim ddd As Double '倍精度浮動小数点数型 Dim eee As String '文字列型 Dim fff As Date '日付型 Dim ggg As Currency '通貨型 Dim hhh As Object '任意の型のオブジェクト Dim iii As Variant 'バリアント型 Dim jjj 'バリアント型 Dim kk
Findメソッド,Like演算子を使った検索:Excel VBA入門
Findメソッドでのデータ検索 Topへ データを検索し発見されたセル（Rangeオブジェクトを返します）。無い時はNothingを返します。 expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat) 引数 LookIn、LookAt、SearchOrder、および MatchByte の設定は、このメソッドが使われるたびに保存されます。 次にこのメソッドを使うときに、これらの引数の指定を省略すると、保存された設定が使われます。 これらの引数の設定を変更すると、[検索と置換] ダイアログ ボックスに表示される設定が変わります。 また、[検索と置換] ダイアログ ボックスで設定を変更すると、保存されている設定が変わります。 こ
ＶＢＡで既にある図形を選択し、コピーし、指定のセルに貼り付ける方法を教えて下さい - ＞ＶＢＡで既にある図形を選択し、コ... - Yahoo!知恵袋
＞ＶＢＡで既にある図形を選択し、コピーし、 以下のような方法があります。 【A案】 '名前で選択する場合 With ActiveSheet.Shapes("Rectangle 1") .Left = Range("C3").Left .Top = Range("C3").Top End With ---------------------- 【B案】 Dim myShape As Shape '↓アクティブシートのシェイプの中で For Each myShape In ActiveSheet.Shapes '↓K5に左上がある図形を移動する場合 If myShape.TopLeftCell.Address(0, 0) = "K5" Then myShape.Left = Range("C3").Left myShape.Top = Range("C3").Top End If Next い
Office TANAKA - セルの操作[セルのコピー]
マクロ記録の落とし穴 マクロによるセルのコピーは、ビギナーとベテランで最も差が出るコードのひとつです。たとえば、セルA1をセルC2にコピーするコードを考えてみましょう。この操作をマクロ記録すると、次のようなコードが生成されます。 Sub Macro1() Range("A1").Select Selection.Copy Range("C2").Select ActiveSheet.Paste End Sub なるほど、確かに間違っていませんが、決して美しいコードではありません。このコードを参考にして、Sheet1のセルA1をSheet2のセルC2にコピーするコードを作ってみましょう。おそらく次のようになると思います。 Sub Sample1() Worksheets("Sheet1").Select Range("A1").Select Selection.Copy Worksheets
1GBレンタルサーバー・プロバイダー Amusement BiG-NET | www.big.or.jp/~seto/vbaref/vbaref13.htm
こちらは独自ドメインからレンタルサーバー、フレッツ接続専用会員までトータルサポートのプロバイダー、BiG-NETです。 いつも弊社ユーザーのページにアクセスをして頂きましてありがとうございます。 http://www.big.or.jp/~seto/vbaref/vbaref13.htm 404 Not Found (ファイルが見つかりません) 申し訳ございませんが、お客様がアクセス要求されました上記ページは、現在アクセスが出来ません。 弊社では、なぜアクセスできないのかと言う第三者からのお問い合わせにはお答えすることが出来ません。 もしこのページの関係者をご存知でしたら、連絡を取ってみることをお薦め致します。 何卒ご容赦下さい。
VBA Tips
VBAコンテンツ Home Excel VBA Excel VBA Tips セル セルが選択されているか判定する アクティブでないシートのアクティブセル 結合セルを調べる 簡単に罫線を引く セルのValue2プロパティ あるセルがセル範囲に含まれるかどうか セル範囲の操作 確実に選択されているセルを操作する 入力されているデータの最終セルを取得する 複数のセルを選択する 特定のセル範囲内を検索する 非表示のセルを検索する すべて検索する 日付を検索する 1と001の問題 Range(左上セル, 右下セル)の使い方 セルの罫線に関すること new オートフィルタ 書き方の基本 文字列で絞り込む 数値で絞り込む 日付で絞り込む 色で絞り込む 作業列で絞り込む 絞り込んだ結果をコピーする 絞り込んだ結果を集計する 絞り込んだ結果の行を操作する オートフィルタの状況を判定する 数式のエラーで絞り
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
第 14 章 オートメーションと Visio オブジェクト モデル)
VBA の機能で VBScript に含まれていない機能
Excelマクロによる、seleniumテストケースの自動生成（1）
PC
ワークシートのイベント:Excel VBA入門
http://www.excellenceweb.net/vba/
エクセルVBAマクロ集