最小のキーワードサーチ

誰でもできる！Excelマクロ（データ間引き（最大・最小・平均）編））(p.1)

誰でもできる !!!
誰でもできる !
Excel マクロ
マクロ

Vol.2

『データを間引く最大・最小・平均）
』
『データを間引く
・最小・平均）
（最大
（最

編

例えば・・・インラインで厚み検査をしていて、その測定結果を基に
レポートを作成したい。実際のデータはワークの表面の凹凸で多少
ばらついているが、レポートには厚みの傾向だけグラフ化させたい。
単純にデータを間引くのではなく、例えば 100 点毎の平均値を
間引いていきたいなぁ・・・。
インラインでの厚み測定

ばらついているデータも・・・安定したデータになります！

では、実際にマクロを作ってみましょう！！

next

誰でもできる！Excelマクロ（データ間引き（最大・最小・平均）編））

ページトップへ

誰でもできる！Excelマクロ（データ間引き（最大・最小・平均）編））(p.2)

マクロの作成手順

Vol.1 で作成したシートを Excel で
1 開きます。
きます。

誰でもできる！Excelマクロ Vol.1
！

Vol.1でVBAマクロを使った間引きの
テクニックを紹介しています。

Visual Basic Editor を起動します。
2 メニューから【ツール（T）→ 】【マクロ（M）→】
【V isual B asic E dit o （ V）を選び V isu al
r 】
Basic Editorを起動します。

WorksheetFunction プロパティを用いて、マクロ上で Excel 関数を利用することが可能です。
Excel 豆知識例えば、最大 (MAX 関数 ) を用いて A1 セルに A2:A11 の最大値を取り込む時は、
マクロで Excel の関数を Cells(1,1).Activate 'A1 セルをアクティブにします。
ActiveCell = Application.WorksheetFunction.Max(Range("A2:A11"))
利用する
と記述します。
簡単に Excel の関数を用いることができるのが VBA のメリットです。

Excel 関数を用いて最大・最小・平均を間引く単位毎に演算し
3 書き込むルーチンを書き足します。
Do ' 必要回数繰り返し

' 終了判定
If Cells(Now_Row, 1) = "" Then ' データがあれば OK
Cells(1, 1).Activate 'A1 セルをアクティブに
Exit Do
追加部分
End If

' 最大最小演算
Cells(Now_Row, 2).Activate ' 最大値書き込みセル指定
ActiveCell = Application.WorksheetFunction.Max(Range(Cells(Now_Row,1), Cells(Now_Row + MABIKI_P - 1, 1)))
'Excel 関数を用いて最大値演算しセルに書き込み
Cells(Now_Row, 3).Activate ' 最小値書き込みセル指定
ActiveCell = Application.WorksheetFunction.Min(Range(Cells(Now_Row,1), Cells(Now_Row + MABIKI_P - 1, 1)))
'Excel 関数を用いて最小値演算しセルに書き込み
Cells(Now_Row, 4).Activate ' 平均値書き込みセル指定
ActiveCell =Application.WorksheetFunction.Average(Range(Cells(Now_Row, 1), Cells(Now_Row+ MABIKI_P - 1, 1)))
'Excel 関数を用いて平均値演算しセルに書き込み

' 間引き処理
DEL_Top = Now_Row + 1 '1/10 にする場合現在行 +1 ∼現在行 +(10-1)
現在行から現在行 + 間引き数 -
DEL_End = Now_Row + (MABIKI_P - 1) ' まで削除します。その範囲の設定です。
1 行までの平均 ( 最大最小 ) 値を
求めます。
Rows(DEL_Top + ":" + DEL_End).Select ' 間引き範囲選択
Selection.Delete Shift:=xlUp ' 間引き

Now_Row = Now_Row + 1 ' 現在位置更新

Loo

実行します。
4 Visual Basic Editorを終了しBookを保存します。
ワークシートにデータを貼付け
Ctrlキーを押しながらsを押してマクロの動作確認をします。

2

誰でもできる！Excelマクロ（データ間引き（最大・最小・平均）編））

ページトップへ

誰でもできる！Excelマクロ（データ間引き（最大・最小・平均）編））(p.3)

Line Up
高速高精度レーザ変位計

・マイクロヘッド型分光干渉レーザ変位計
LK-G5000シリーズＳＩシリーズ
NEW NEW

■ 世界最高 392kHz
■ クラス最高１ｎｍ

■ 業界最高精度 ±0.02%
■ 世界最小 φ２ｍｍ

■ クラス最高繰返し精度 0.01ｕｍ
■ 業界初分光干渉方式

高精度2次元レーザ変位計
精度2次元レーザ変位計高速高精度デジタル寸法測定器

・ LJ-Gシリーズ
J - GシリーズＬＳ−７000シリーズ

■ 多点高さ測定
■ 高速・高精度

■ 多点段差測定
■ 高耐久性

■ 厚み測定
■ 測定ポイントが見える

■ 形状測定
■ 透明体ワーク測定

■ 幅測定
■ ＮＧ値履歴機能

■ 位置決め測定ｅｔ
・・ｃ・
etc・
・
・

※幅・段差を同時に測定できます。

FAX 06-6379-1130
F A X コミュニケーション受付

会社名部署名・役職
ふりがな

お名前
〒 −

所在地

E-mail

TEL FA X

ご希望の資料にチェックしてください。
□ 無料テスト機貸出し希望 □ カタログ希望 □ 見積り希望 □ 詳細説明希望

当社は個人情報保護に関する法令などを遵守し、お客様の住所部署氏名等の個人情報は、

・・生産や研究開発における効率化や改善提案等の情報のご案内に限って使用させていただいております。

本社研究所／APSULT事業部

・ 0120 - 66 -3000
フリーダイヤル
この商品に関する
〒 533-8555 大阪市東淀川区東中島1- 3 -14 Tel 0 6 - 6379 - 1131 Fax 0 6 - 6379 - 1130 お問い合わせは

AP7-0108
www.keyence.co.jp 仕様は改良のため予告なく変更することがあります。

Copyright ⃝ 2 009 KEYENCE CORPORATION. All rights reserved.
C K2181F-0039-1

3

誰でもできる！Excelマクロ（データ間引き（最大・最小・平均）編））

ページトップへ

【新商品】世界最小セーフティレーザースキャナ誕生！！ 0905(p.2)

これなら使える能力、ズ、
サイ価格

小さて
く軽い

世界最小レーザスャナ
キ
最大保護領域 4.2ｍ

4.2ｍ

2

【新商品】世界最小セーフティレーザースキャナ誕生！！ 0905

ページトップへ

世界最小！タイプ3セーフティレーザスキャナ SZシリーズ(p.2)

これなら使える能力、ズ、
サイ価格

小さて
く軽い

世界最小レーザスャナ
キ
最大保護領域 4.2ｍ

4.2ｍ

2

世界最小！タイプ3セーフティレーザスキャナ SZシリーズ

ページトップへ

【新商品】世界最小セーフティレーザースキャナ誕生！！ 0905(p.16)

関連商品

『見える化』イカーテ
ラトン Type4 SIL3

Ｓ -Ｖリーズ
Ｌシ

見る、
ある表示灯
世界初

『見る、
ある表示灯』ってライカーテンの存在が分かりやすくり、
によトな
不注意による遮光を防止できます。らに点灯、
さ点滅によってライカーテンの
ト
状態も分かりやすくり
なます。

ラインナップも充実

SL-VLシリーズ
SL-VFシリーズ SL-VHシリーズ
最小検出体φ45
最小検出体φ14 最小検出体φ25

堅牢防水タイプ

・

NEW NEW
SL-VFMシリーズ SL-VHMシリーズ SL-VLMシリーズ
最小検出体φ14 最小検出体φ25 最小検出体φ45

簡単確実

・カテゴリ4セーフテコト
ィンローラ
SCシリーズ
SIL3
カテゴリ4を
簡単確実に構築可能

・
■ 省配線

■ 省スペース

■ 工数削減

■ 部品点数削減
増設タプ新登場
イ
非常停止スイッチや
ドアスイッチとの接続に便利

仕様は改良のため予告なく変更することがあります。
0089-3 214-001

【新商品】世界最小セーフティレーザースキャナ誕生！！ 0905

ページトップへ

世界最小！タイプ3セーフティレーザスキャナ SZシリーズ(p.16)

関連商品

『見える化』イカーテ
ラトン Type4 SIL3

Ｓ -Ｖリーズ
Ｌシ

見る、
ある表示灯
世界初

『見る、
ある表示灯』ってライカーテンの存在が分かりやすくり、
によトな
不注意による遮光を防止できます。らに点灯、
さ点滅によってライカーテンの
ト
状態も分かりやすくり
なます。

ラインナップも充実

SL-VLシリーズ
SL-VFシリーズ SL-VHシリーズ
最小検出体φ45
最小検出体φ14 最小検出体φ25

堅牢防水タイプ

・

NEW NEW
SL-VFMシリーズ SL-VHMシリーズ SL-VLMシリーズ
最小検出体φ14 最小検出体φ25 最小検出体φ45

簡単確実

・カテゴリ4セーフテコト
ィンローラ
SCシリーズ
SIL3
カテゴリ4を
簡単確実に構築可能

・
■ 省配線

■ 省スペース

■ 工数削減

■ 部品点数削減
増設タプ新登場
イ
非常停止スイッチや
ドアスイッチとの接続に便利

仕様は改良のため予告なく変更することがあります。
0089-3 214-001