オートフィルターでデータを文字列で絞り込む方法データ範囲をオートフィルターを使用して指定した文字列でデータを絞り込むには、 Range【ﾚﾝｼﾞ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】メソッドを使用します。 2列目をA地区で3列目を鈴木では無いデータの抽出例 コードと解説 Sub 文字列抽出() ActiveSheet.AutoFilterMode = False With Range("A1") .AutoFilter Field:=2, Criteria1:="A地区" .AutoFilter Field:=3, Criteria1:="<>鈴木" End With End Sub 2行目【ActiveSheet.AutoFilterMode = False】 Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilterMode【ｵｰﾄﾌｨﾙﾀｰﾓｰﾄﾞ】プロパ

AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを取得するには、Range【ﾚﾝｼﾞ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】メソッドを実行して取得します。 また、オートフィルターが設定されているワークシートのオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを取得するにはWorksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティを使用します。 AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティワークシートに設定されているオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを取得するには、Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティを使用します。値の取得のみ可能

数値が入力されているセルのみ値をクリアする方法データ内の数式や文字列は残したまま入力された数値のみ削除したい場合があります。 方法としては、データ範囲を参照するRange【ﾚﾝｼﾞ】オブジェクトのCurrentRegion【ｶﾚﾝﾄﾘｼﾞｮﾝ】プロパティでデータ範囲を参照し、特定のセルを参照するRange【ﾚﾝｼﾞ】オブジェクトのSpecialCells【ｽﾍﾟｼｬﾙｾﾙｽﾞ】メソッドを使用して「値が数値のセル」を参照し、参照したセルの値を削除するRange【ﾚﾝｼﾞ】オブジェクトのClearContents【ｸﾘｱｺﾝﾃﾝﾂ】メソッドを使用して参照した「値が数値のセル」の値を削除します。 SpcialCells【ｽﾍﾟｼｬﾙｾﾙｽﾞ】メソッド参照したセル範囲の中で引数Type【ﾀｲﾌﾟ】に指定したセルの種類を満たす、すべてのセルを参照するには、Range【ﾚﾝｼﾞ】オブジェクトのSpci

VBAでセルに値を設定や取得する場合と、セルに数式を設定や取得する場合とでは使用するプロパティが異なります。 セルの値を取得、セルに値を設定するプロパティ一覧

セルやセル範囲に格子罫線をひく方法セルに罫線(けいせん)を引く操作をマクロ記録すると膨大なコードが生成されます。手動で罫線を設定するとき、わかるように罫線はセルの4辺を別々に設定できます。また、複数のセルに罫線を引く場合は外枠と内側が区別されます。さらに、セル内には斜めに罫線を引くこともできます。このように、セルの罫線は多くのパーツから構成されているのでマクロ記録では、そのすべての設定値が記録されてしまい、膨大なコードになります。 セルの罫線は　Border【ﾎﾞｰﾀﾞｰ】オブジェクトで表され、Range【ﾚﾝｼﾞ】オブジェクトのBorders【ﾎﾞｰﾀﾞｰｽﾞ】プロパティによって呼び出されます。 Borders【ﾎﾞｰﾀﾞｰｽﾞ】プロパティセルの上下左右に設定されている罫線を表すBorder【ﾎﾞｰﾀﾞｰ】オブジェクトを参照するには、Range【ﾚﾝｼﾞ】オブジェクトの Borders【

セルに罫線【けいせん】を設定する方法VBAで罫線を扱うには、Border【ﾎﾞｰﾀﾞｰ】オブジェクトが持つ各種のプロパティで線のスタイルや太さ、色などを設定します。 また、Range【ﾚﾝｼﾞ】オブジェクトのBorderaround【ﾎﾞﾀﾞｰｱﾗｳﾝﾄﾞ】メソッドを使用すると セル範囲の外枠の線の種類や太さ、色を一度に設定できます。 Borders【ﾎﾞｰﾀﾞｰｽﾞ】プロパティセルの上下左右、斜めに設定されている罫線を表すBorder【ﾎﾞｰﾀﾞｰ】オブジェクトを取得するには、Range【ﾚﾝｼﾞ】オブジェクトのBorders【ﾎﾞｰﾀﾞｰｽﾞ】プロパティを使用します。 Border【ﾎﾞｰﾀﾞｰ】オブジェクトを取得するには、Borders【ﾎﾞｰﾀﾞｰｽﾞ】プロパティで対象となる罫線の位置を引数で参照する必要があります。Borders【ﾎﾞｰﾀﾞｰｽﾞ】プロパティで引数を省略した場合は

Name【ﾈｰﾑ】プロパティフォント名を取得または設定をするには、セルの書式設定を表すFont【ﾌｫﾝﾄ】オブジェクトの Name【ﾈｰﾑ】プロパティを使用します。 Name【ﾈｰﾑ】プロパティの書式と設定値の説明【取得】 オブジェクト.Name 【戻り値】文字列型(String) 【設定】 オブジェクト.Name = 設定値 オブジェクト Range【ﾚﾝｼﾞ】オブジェクトのFont【ﾌｫﾝﾄ】プロパティで取得した、Font【ﾌｫﾝﾄ】オブジェクトを指定します。設定値 フォント名を表す文字列を設定します。「セルの書式設定」ダイアログボックスの「フォント」タブにある「フォント名」の一覧にあるフォント名を指定します。半角や全角の違いやスペースなども正確に指定しないと正しく設定できません。 A1セルから始まるデータ範囲のフォントをHG丸ｺﾞｼｯｸM-PROに設定するコード例Sub フォント設定

HorizontalAlignment【ﾎﾘｿﾞﾝﾀﾙｱﾗｲﾒﾝﾄ】プロパティセル内の文字の横方向の配置を取得または設定するには、Range【ﾚﾝｼﾞ】オブジェクトのHorizontalAlignment【ﾎﾘｿﾞﾝﾀﾙｱﾗｲﾒﾝﾄ】プロパティを使用します。 HorizontalAlignment【ﾎﾘｿﾞﾝﾀﾙｱﾗｲﾒﾝﾄ】プロパティの書式と設定値の説明【取得】 オブジェクト.HorizontalAlignment 【設定】 オブジェクト.HorizontalAlignment = 設定値

セルに表示形式を設定する方法セルに入力されているデータの表示形式は、「セルの書式設定」ダイアログボックスの「表示形式」タブで設定します。 VBAで表示形式を変更するには、Range【ﾚﾝｼﾞ】オブジェクトのNumberFormatLocal【ﾅﾝﾊﾞｰﾌｫｰﾏｯﾄﾛｰｶﾙ】プロパティを使用します。 NumberFormatLocal【ﾅﾝﾊﾞｰﾌｫｰﾏｯﾄﾛｰｶﾙ】プロパティ指定したセルの表示形式を取得または、設定するには、Range【ﾚﾝｼﾞ】オブジェクトのNumberFormatLocal【ﾅﾝﾊﾞｰﾌｫｰﾏｯﾄﾛｰｶﾙ】プロパティを使用します。 NumberFormatLocal【ﾅﾝﾊﾞｰﾌｫｰﾏｯﾄﾛｰｶﾙ】プロパティの書式と設定値【取得】 オブジェクト.NumberFormatLocal 【戻り値】バリアント型 (Variant) 【設定】 オブジェクト.NumberForma

データ内で空白セルが含まれる行全体を削除する方法データ内で空白セルがあった場合その空白セルを含む全体行を削除したい場合があります。つまり、一つのデータ固まりを表すレコード内に空白セルがあった場合にそのレコードを削除する方法について解説します。 方法としては、データ範囲を参照するRange【ﾚﾝｼﾞ】オブジェクトのCurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティでデータ範囲を参照し、特定のセルを参照するRange【ﾚﾝｼﾞ】オブジェクトのSpecialCells【ｽﾍﾟｼｬﾙｾﾙｽﾞ】メソッドを使用して「空白セル」を参照し、参照したセル範囲の行全体を参照するRange【ﾚﾝｼﾞ】オブジェクトのEntireRow【ｴﾝﾀｲﾔﾛｳ】プロパティを使用して参照した空白セルが含まれる行全体を参照して、Range【ﾚﾝｼﾞ】オブジェクトのDelete【ﾃﾞﾘｲﾄ】メソッドで参照されている行全

VBAで列を挿入する場合はセルを表すRange【ﾚﾝｼﾞ】オブジェクトのInsert【ｲﾝｻｰﾄ】メソッドを使用します。Insert【ｲﾝｻｰﾄ】メソッドは指定したセル範囲にセルを挿入するメソッドです。列を挿入する場合は挿入する場所にあるセルの移動方向を設定する引数Shift【ｼﾌﾄ】に右方向にシフトする定数を指定します。また、Columns【ｶﾗﾑｽｽ】プロパティやEntireColumn【ｴﾝﾀｲﾔｶﾗﾑ】プロパティを使用して指定の列全体を参照し、Insert【ｲﾝｻｰﾄ】メソッドを使用すると列全体が挿入されます。 Insert【ｲﾝｻｰﾄ】メソッドInsert【ｲﾝｻｰﾄ】メソッドの書式と設定値(引数)の説明[]内は省略可能です。 オブジェクト.Insert[(Shift,CopyOrigin)] オブジェクト 列を表すプロパティで参照した行やセル範囲をRange【ﾚﾝｼﾞ】オブジェ

シートを参照するプロパティExcel2007からのシートは、ワークシートとグラフシートの2種類があります。Worksheets【ﾜｰｸｼｰﾂ】プロパティは、ワークシートを参照でき、Charts【ﾁｬｰﾂ】プロパティは、グラフシートを参照できます。その他にVBAでは、シートの種類を問わずに参照できるSheets【ｼｰﾂ】プロパティがあります。 Sheets【ｼｰﾂ】コレクションとは同じ種類のオブジェクトの集まりを「コレクション」といいます。Worksheet【ﾜｰｸｼｰﾄ】の集まりは、Worksheets【ﾜｰｸｼｰﾂ】コレクション、グラフシートの集まりは、Charts【ﾁｬｰﾂ】コレクションすべてのシートの集まりは、Sheets【ｼｰﾂ】コレクションになります。 Sheetsコレクション概略図 Worksheets.Addメソッド新規ワークシートを追加するには、Worksheetsコレクシ

アクティブシートではないワークシートのセルを、セルを表すRange【ﾚﾝｼﾞ】オブジェクトの Select【ｾﾚｸﾄ】メソッドで選択するとエラーが発生します。 sheet1がアクティブでsheet2のA1セルを選択したコードSub セル選択1() Worksheets("sheet2").Range("A1").Select End Sub 実行結果 エラーの原因は、セルをSelect【ｾﾚｸﾄ】メソッドで選択する場合やセルをActivate【ｱｸﾃｨﾍﾞｲﾄ】メソットでアクティブにする場合は、「アクティブシートのセル」しか操作できないからです。したがって、このケースの場合はsheet2をアクティブにしてからA1セルを選択する必要があります。 選択できる場合Sub セル選択2() Worksheets("sheet2").Activate Range("A1").Select End Su

InputBOx画面表示の違い(Excel2016の表示例)InputBox関数の場合 InputBoxメソッドの場合 コード表記の違い上記の表示例のコードInputBox関数の場合Sub sample1() Dim 名前 As String 名前 = Inputbox("お名前を入力してください。") End Sub InputBoxメソッドの場合Sub sample2() Dim 名前 As String 名前 = Application.Inputbox("お名前を入力してください。") End Sub InputBoxメソッドを利用する場合はApplication【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトを記述します。InputBoxの前に記述がない場合は、InputBox関数になります。戻り値を受け取るので引数は「()」カッコで囲みます。 InputBox関数メッセージテキストとデータを

MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数は、警告や注意などのアイコン「はい」や「OK」ボタンなどを表示したメッセージを表示します。 クリックしたボタンによって一定の戻り値が返るため、戻り値を使って条件分岐をして処理を振り分けることができます。 MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数の書式と設定値(引数)の説明[]内は省略可能です。 MsgBox( Prompt[, Buttons, Title, Helpfile, Context ]) Prompt【ﾌﾟﾛﾝﾌﾟﾄ】（必須） ダイアログボックスに表示するメッセージとなる文字列を指定します。Buttons【ﾎﾞﾀﾝｽﾞ】（省略可） 定数を使用して「ボタンの種類」「アイコンの種類」「メッセージボックスの状態」などを指定します。 複数の定数を指定する場合は算術演算子のプラス「+」を使用して定数を加