Office TANAKA - シートの操作[保護/解除する]
ProtectメソッドとUnprotectメソッド ワークシートを保護するにはProtectメソッドを実行します。次のコードはアクティブシートを保護します。 Sub Sample07() ActiveSheet.Protect End Sub 保護を解除するにはUnprotectメソッドを実行します。次のコードはアクティブシートの保護を解除します。 Sub Sample07_2() ActiveSheet.Unprotect End Sub パスワード付きの保護 シートを保護するときはパスワードを設定できます。パスワード付きで保護されたシートは、解除するときにもパスワードが必要です。権限を持たないユーザーにはシートの内容を見せたくないときなどに有効ですね。パスワードを付けてシートを保護するには、Protectメソッドの引数Passwordにパスワードを指定します。次のコードはアクティブシー
Office TANAKA - その他のテクニック[ネットワークドライブにChDriveする]
VBAでカレントフォルダを移動するにはChDirステートメントを使います。カレントドライブの移動ならChDriveステートメントです。詳しくは「VBAでファイルの操作」をご覧ください。 ただし、このChDriveステートメントは、ドライブ文字を割り当てていないネットワークドライブに、カレントドライブを変更することはできません。ChDirやChDriveは、MS-DOS時代からある超古典的なコマンドですからね。その当時は、ネットワークドライブなんて一般的ではなかったのかもしれません。 「\\マシン名\ドライブ名\フォルダ名」のように、ドライブ文字を割り当てていないネットワークドライブにカレントドライブを移動するには、WindowsのAPIか、WSH(Windows Scripting Host)を使います。 【APIを使うやり方】 Declare Function SetCurrentDir
If OpenFileName <> "False"とIf OpenFileName <> Falseの違い
開くブックをユーザーに選択してもらう場合は、[ファイルを開く]ダイアログボックスを表示するといいでしょう。 Sub Sample1() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open OpenFileName End Sub [ファイルを開く]ダイアログボックスを表示するには、ApplicationオブジェクトのGetOpenFilenameメソッドを使います。GetOpenFilenameメソッドによる[ファイルを開く]ダイアログボックスは、ユーザーが選択したファイルのフルパスを返すだけで、自動的には開きません。GetOpenFilenameメソッドの書式は次の通りです。 GetOpenFilename Fil
Office TANAKA - Excel VBA Tips[オートフィルタ[書き方の基本]]
大量のデータを絞り込むには、オートフィルタが便利です。ここでは、VBAからオートフィルタを使い倒すテクニックをご紹介します。なお、ボリュームがありますので、以下の項目にページを分けて解説します。なお、ここで解説するオートフィルタは、通常のワークシートに設定されているとします。テーブルでオートフィルタを操作するときは、また別の考え方が必要です。VBAでテーブルを扱う方法に関しては「VBAでテーブルの操作」をご覧ください。 書き方の基本 (←このページ) 文字列で絞り込む 数値で絞り込む 日付で絞り込む 色で絞り込む 作業列で絞り込む 絞り込んだ結果をコピーする 絞り込んだ結果を集計する 絞り込んだ結果の行を操作する オートフィルタの状況を判定する 数式のエラーで絞り込む まずは、オートフィルタを操作するマクロの基本的な書き方を解説します。 対象には1つのセルを指定する オートフィルタを操作す
Office TANAKA - Excel VBA Tips[重複しないリストを作る(1)]
「キー」と「値」がセットになっていて、「神奈川県」というキーで「横浜市」という値を検索できるような仕組みです。Dictionaryオブジェクトでは、こうした連想配列にデータ(キーと値のセット)を追加したり、検索したり、任意のキーがすでに存在しているかどうかを調べことなどができます。なお、連想配列では同じキーを登録できません。 Dictionaryオブジェクトを使って重複しないリストを作成するには、次のように考えます。 セルA2からセルA8まで順にデータを取得します 取得したデータが連想配列に登録されていなかったら登録します 取得したデータが連想配列に登録されていたら何もしません 流れはこんな感じです。さて登録するデータですが、連想配列では「キー」と「値」の二つが必要です。今回のケースでは「名前」データしかありません。「名前」を「キー」にするとして、「値」には何を登録したらいいのでしょう。
Office TANAKA - シートの操作[表示/非表示する]
ある程度しっかりしたシステムをマクロで作成するとき、シートを非表示にするケースがよくあります。それは作業用に一時的なシートを使うような場合です。何らかの複雑な計算したり、グラフ用にダミーのリストを作成したりするとき、その動作をユーザーに見せたくありません。そんなときは、作業用として新しいワークシートを挿入し、そのシートを非表示にしてしまうと便利です。 シートの表示はVisibleプロパティ シートの表示と非表示を切り替えるには、WorksheetオブジェクトのVisibleプロパティを操作します。VisibleプロパティにTrueを設定すると表示され、Falseで非表示になります。次のコードはSheet2を非表示にしてメッセージを表示した後で、Sheet2を再表示します。 Sub Sample06() Worksheets("Sheet2").Visible = False MsgBox
Office TANAKA - 変数の使い方[複数のデータ型をまとめるユーザー定義型]
ユーザー定義型は、C言語でいう構造体のような仕組みです。 一般的な変数には、1つの値しか格納できません。配列には複数の値を同時に格納できますが、それは同じ型の値です。名前(文字列型)と年齢(長整数型)のように、異なる型の値をセットにして格納するには、配列ではなくユーザー定義型が便利です。ユーザー定義型は、次のようにして使います。 Type ○○ 要素1 As 型 要素2 As 型 End Type Sub Sample() Dim 変数名 As ○○ 変数名.要素1 = 値 変数名.要素2 = 値 End Sub ユーザー定義型の定義は、宣言セクションでします。宣言セクションとは、モジュールの一番上に記述したプロシージャの、さらに上の部分です。変数の宣言を強制するオプションを設定したとき、モジュールに挿入されるOption Explicitや、APIの宣言やパブリック変数の宣言などをするの
Office TANAKA - Excel VBA関数[Array]
構文 Array(arglist) 引数arglistには、配列として格納するデータをカンマ（,）で区切って指定します。 解説 配列を格納したバリアント型を返します。 配列として宣言していないバリアント型変数に代入して、バリアント型変数を配列と同じように操作できます。 引数を指定しないと、長さ0の配列を返します。 サンプル１ 次の例は、バリアント型変数aに配列を代入し、４番目のデータThuを表示します。 Sub Sample() Dim a As Variant a = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") MsgBox a(3) End Sub ※Tips 配列で使用されるインデックスの最小値は、Option Baseで指定します。
Office TANAKA - Excel VBA Tips[ブックのドキュメントプロパティを操作する]
ドキュメントプロパティとは ブックには「タイトル」や「作成者」などの情報を記録できます。 こうした情報を、ブックのドキュメントプロパティと呼びます。 ドキュメントプロパティには、「タイトル」や「作成者」など、Excelがあらかじめ定義している「組み込みのドキュメントプロパティ」と、任意の名前やデータを記録できる「ユーザー設定のドキュメントプロパティ」の2種類があります。 どちらのドキュメントプロパティもDocumentPropertyオブジェクトなのですが、「組み込みのドキュメントプロパティ」はBuiltinDocumentPropertiesコレクションで操作し、「ユーザー設定のドキュメントプロパティ」はCustomDocumentPropertiesコレクションで操作します。 組み込みのドキュメントプロパティ 組み込みのドキュメントプロパティを操作するときは、BuiltinDocume
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Office TANAKA - FileSystemObject[Folderオブジェクト]
Office TANAKA - FileSystemObject[Driveオブジェクト]
Office TANAKA - FileSystemObject[FileSystemObjectオブジェクト]