Public Sub GrepBooks() Dim shtMain As Worksheet ' ワークシート Dim strPath As String ' フォルダパス Dim strPassword As String ' パスワード Dim strSheetName As String ' 検索対象シート名 Dim strDsShtName As String ' 検索除外シート名 Dim strWords As String ' 検索文字列 Dim int...
ホスト項目ではないクラスを VBA に公開する場合は、プロジェクトの任意のホスト項目のGetAutomationObjectメソッドをオーバーライドし、非ホスト項目のクラスのインスタンスを返します。 たとえば、次のコードでは、DocumentUtilitiesという名前のクラスを VBA に公開することを想定していま...
'Acrobatアプリケーションを起動する。 lRet = objAcroApp.Show 'PDFファイルを開いて表示する。 lRet = objAcroAVDoc.Open("フォルダアドレス\ファイル名.pdf", "") 'PDDocオブジェクトを取得する Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() 'JavaScriptオブジェクトを作成す...
ActiveSheetの取得 MsgBox ActiveSheet.Name シートの選択 Sheets(“Input”).Select 変数にセット Dim wsas Worksheet Set ws= ActiveSheet 名前/名前の変更 ActiveSheet.Name = “NewName” シートの追加 Sheets.Add シートと名前を追加 Sheets.Add.Name = “NewSheet” ...
(ByValpathAsString)AsString'拡張子を除いたファイル名を取得'C:\foo\bar\hoge.txt -> hogeDimFSOAsObjectSetFSO=CreateObject("Scripting.FileSystemObject")GetBaseName=FSO.GetBaseName(path)EndFunctionPublicFunctionGetExtensionName(ByValpathAsString)AsString'拡張子を取得'C:\foo\bar\hoge.txt -> txtDimF...
VBA – ワークブック内のすべてのシートを一覧表示するマクロ VBA – すべてのワークシートの非表示を解除する VBA シート全体をクリアする VBA ワークシートのコピー VBA ワークシートの削除とクリア VBAシート名の取得と変更 VBA ワークシートの保護と保護の解除 VBA ワークシ...
If...Then...Else ステートメントを使用する コードでかっこを使用する Select Case ステートメントを使用する アドイン マネージャーを使用する With ステートメントを使用する VarType 定数 Visual Basic の名前付け規則 アプリケーション間で連携させる ...
Excel表の1行目部分を自動的にカラム名として読み取って、レコードセット(rs)に格納しています。 レコードの内容は、rs![カラム名]という形で取得することができます。 詳細は後述します。<出力結果>イミディエイト みかん, 40 じゃがいも, 50 にんじん, 70 りんご, 150 キャベツ, 180...
第18回.最終行の取得(End,Rows.Count) 1-4. If条件分岐 第20回.条件分岐(If) 第21回.条件分岐(ElseIf) 第22回.条件分岐(Select Case) 1-5. 関数とは、引数とは 第23回.メッセージボックス(MsgBox) 第24回.インプットボックス(InputBox) 第25回.名前付き引数について 1-6. ブック、...
シートのプロパティに、AutoFilterModeプロパティがあります。 このロティに値を設定することで、オートフィルターの状態を取得・設定できます。 True: シートにオートフィルターの下向き矢印を表示します。 False: シートにオートフィルターの下向き矢印を消します。 Auto...