またもや「Excel VBAと関係ねぇじゃねーか！」と言われそうですが、今回はMS-DOSコマンドの標準出力を変数に取得する方法を解説します。これはもう、Excelとは関係ないVB系のネタなんですね。ただ実行環境がExcelってだけで(^^; ま、いーや書いちゃえ。MS-DOSって何のことだかわからない人は、自分で調べてください(^^; なお、ここではWindows XP Home Editionを例に解説します。 MS-DOSのコマンドには今でも便利に使えるものが多いですし、何よりネットワークを管理されている方は必須コマンドです。VBやVBAからMS-DOSコマンドを実行するときには、問題が2つあります。1つめはShell関数で起動できないことです。MS-DOSコマンドはいわゆるDOS窓で起動する仕組みになっていますので、Shell関数では起動できません。2つめの問題は、実行結果もDOS

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

運営会社 - お問い合せ - 広告掲載 - プライバシーポリシー - サイトマップ - リスキリング支援 All rights reserved by Odyssey Communications Inc. Microsoft、Windows、およびMicrosoft Officeは Microsoft Corporationの米国及びその他の国における登録商標です。 また、その他システム名、プログラム名などは、一般に各社の登録商標です。

◆最大の行数・列数を求める VBA でマクロを組む場合、セルの操作を For ループ等で廻して処理するのが一般的 だと思います。 その時に最大の行数や列数をカウントできなければ、汎用性の高いアプリケーションを 作成できません。 その方法について、いくつか紹介します。 Excelの最大行数は 64K 65,536 となっています。 以下は、A列の最後の行から上に向かって空白でないセルを探します。 Function EffectiveRow() As Long ' 行の最大数を求める A列固定 ' Excelの最大行数(65536)から上方向(xlUp)に空白でないセルを探す EffectiveRow = Range("A65536").End(xlUp).Row End Function 以下は列・行を変数にしたり、WookBook、Sheet を指定できるようにしたものです。 Functi

[一覧] [入門編1] [入門編2] [入門編3] [実践編] [トラブル編] ブックとシートの操作 同じ名前のシートがあるかどうか調べるには？ アクティブブックのWorksheetsコレクションを、For Each Nextループで調べるサンプルです。 Sub SheetCheck1() Dim oSheet As Worksheet Dim sSheetName As String Dim bFound As Boolean sSheetName = "Sheet1" bFound = False For Each oSheet In ActiveWorkbook.Worksheets If oSheet.Name = sSheetName Then bFound = True Exit For End If Next If bFound Then MsgBox sSheetName

Array 関数 変数をたくさん宣言しなければならないときには、この関数を使ってコードをすっきりと見やすくしましょう。 構文　Array(arglist) arglist　… 変数に保存する値。必ず指定します。 変数myRetにArray関数を使って配列を作成します。 値のリストをカンマで区切って指定します。値は左側から順に0・1・2・3・・・とインデックスが自動で付けられます。 このときに注意する点は、変数はバリアント型で宣言するということです。 Array 関数の使用例 Dim myRet as Vriant myRet = Array("txtフィールド名1","txtフィールド名2","txtフィールド名3") ※例：myRet(2)はtxtフィールド名3となります。 UBound と LBound 関数 Ａｒｒａｙ関数を使って作成した配列変数をもとにループ

SubプロシージャやFunctionプロシージャの引数で使う、ByValとByRefの意味なんて、 VB・VBAの超初心者ではない限り知っていると思います。 （ByValが値渡しで、ByRefが参照渡し。） しかし、引数が基本型（※１）の場合はいいのですが、オブジェクト型（※２）の場合、意味を知っている人は少ないと思います。（※３） ということで、いい加減に解説します。 え、そんなこと知らなくてもいいんじゃないかって？ でも、知らなかったら、例えば、引数にワークシートを指定したいとき、引数はシート名（String型）にしちゃうけど、 Worksheetクラスにした方が処理速度、可読性がいいと思う。（※４、５） ※１：Boolean,Byte,Integer,Long,Single,Double,Currency,Date,String。（JavaではStringはオブジェクト型

本稿で紹介する「テキストファイルの操作」は、Shift-JIS形式のテキストファイルを対象にしています。UTF-8形式のファイルを扱うときは、下記ページをご覧ください。 UTF-8形式のテキストファイルから読み込む UTF-8形式のテキストファイルに書き込む ファイル操作の最後に、テキストファイルへの読み書きテクニックをご紹介します。VBAでマクロを作成していると、たまにテキストファイルへデータを書き込むと便利なケースに遭遇します。たとえば、現在の設定を保存して後で利用したり、ユーザーが行った操作のログを残したり・・・。テキストファイルの操作は Excelのシートやセルの操作とは異なり、どちらかというとVisual Basic的なテクニックです。詳細に解説しているマニュアル本も少ないかもしれません。ここでは、テキストファイルからデータを読み込むときのセオリーや、テキストファイルにデータを書

アクティブシートの使われているセルに表示されている値のみ新規ブックに貼り付けます。 Sub Sample() ActiveSheet.UsedRange.Select Selection.Copy Workbooks.Add Range("A1").Select Selection.PasteSpecial Paste:=xlValues End Sub

プロシージャを他のプロシージャから呼び出して使用する場合に、指定する引数が呼出す毎に異なる場合、ParamArrayキーワードを用いて引数を指定します。 ParamArrayキーワードを用いた引数はVariant型配列として扱われ、データ型の宣言は出来ません。したがって、宣言は・・・ Sub/Function (ParamArray 引数名()) As ・・・ のようになります。 以下のサンプルではFunctionプロシージャ”MySum”に任意の数の引数を与え、すべてを合計した値を返します。”TEST”プロシージャを実行してください。 （サンプル） Function MySum(ParamArray MyVal()) As Currency Dim i As Long Dim Amount As Currency For i = LBound(MyVal) To UBound(MyVal

Excelに関するサイトが数ある中、お越しいただいてまことにありがとうございます。 こちらは仕事に「Microsoft Excel」を活用しようという方を応援するサイトです。 一般事務作業でもプログラム開発分野でも、Microsoft Excelは非常に利用頻度の高いソフトです。 Excelは、ワープロソフトのような単なる文書作成ツールではなく、「データ処理」を行なうことができるもっとも身近なツールです。 豊富なツールや計算式、マクロ等を活用して仕事の合理化・迅速化・精度向上に役立ててもらいたいと思います。 そのために、各ジャンルで目的別のワンポイント集をできるだけ網羅しようとしています。ある程度Excelの経験がある人でも、目的を逆引きに利用していただくと面白い内容が見つかると思います。 また、「ダウンロード」コーナーには、Excelがインストールされていない環境でも利用できるフリーソフ

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

6ページ 6ページ 3ページ 6ページ 9ページ 7ページ 11ページ 2ページ 2ページ 3ページ 4ページ 2ページ