http://easy-excel.seesaa.net/ エクセルマクロを使っていますか？マクロを使えば、作業効率を大幅にアップさせる事ができます。エクセルで作業を行っている方、部下にエクセルで作業を行わせている方は必見です。 ja http://easy-excel.seesaa.net/article/108014631.html （作成例）まずは、"処理中"という名前のシートを作ります。作ったら、５行３列あたりに"処理中です"と入力して下さい。次に、実行するマクロの先頭に下記の２行を追加して下さい。Sheets("処理中").SelectApplication.ScreenUpdating = False 最後に、実行するマクロの最後に下記の２行を追加して下さい。（マクロ実行後に表示したいシートが"Sheet1"の場合）Sheets("Sheet1").SelectApplication.Scr... 日記 ぷろぐらまー 2008-10-13T15:11:52+09:00
（作成例）
まずは、"処理中"という名前のシートを作ります。
作ったら、５行３列あたりに"処理中です"と入力して下さい。

次に、実行するマクロの先頭に下記の２行を追加して下さい。

Sheets("処理中").Select
Application.ScreenUpdating = False

最後に、実行するマクロの最後に下記の２行を追加して下さい。
（マクロ実行後に表示したいシートが"Sheet1"の場合）

Sheets("Sheet1").Select
Application.ScreenUpdating = True

これでマクロを実行すると、"処理中です"と表示され、
終了すると"Sheet1"が表示されます。

尚、今回の様にマクロ実行中の画面を固定する事で、
マクロの実行速度が向上します。
]]> http://easy-excel.seesaa.net/article/107937803.html エクセル起動時にマクロを実行するには、Auto_openプロシージャを使います。（作成例）エクセルを起動したら、メニュバーから[ツール]-[マクロ]-[新しいマクロの記録] を選択します。マクロの記録というタイトルの画面がでてきます。マクロ名を確認し、何も変更せずに[OK]をクリックします。マクロの記録中になりました。何もせず、メニュバーから[ツール]-[マクロ]-[記録終了]を選択します。VisualBasicEditorを開きましょう。=== 開き方 === Visual... 日記 ぷろぐらまー 2008-10-11T21:01:51+09:00 Auto_openプロシージャを使います。

（作成例）
エクセルを起動したら、メニュバーから
[ツール]-[マクロ]-[新しいマクロの記録] を選択します。

マクロの記録というタイトルの画面がでてきます。
マクロ名を確認し、何も変更せずに[OK]をクリックします。

マクロの記録中になりました。

何もせず、メニュバーから[ツール]-[マクロ]-[記録終了]
を選択します。

VisualBasicEditorを
開きましょう。

=== 開き方 ===
VisualBasicのツールバーが表示されていなければ、
エクセルのメニュバーから[表示]-[ツールバー]-[VisualBasic]
でVisualBasicのツールバーを表示させます。
VisualBasicのツールバーの中にあるVisualBasicEditorを
クリックします。
これでVisualBasicEditorが開けました。

ウインドウのタイトルが"プロジェクト"で始まるものが
表示されていなければ、
メニュバーから[表示]-[プロジェクトエクスプローラ]を選択し、
表示させて下さい。

プロジェクトエクスプローラが表示されたら、
標準モジュールフォルダの中にあるModule1をダブルクリック
します。

作成したマクロの内容が表示されます。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/10/11 ユーザー名 :
'

'
End Sub

上記マクロを下記の様に修正して下さい。

Sub Auto_open()
'
' Macro1 Macro
' マクロ記録日 : 2008/10/11 ユーザー名 :
'

'
MsgBox "起動時処理"
End Sub

修正が終わったら、保存してファイルを閉じてください。

保存したファイルを起動すると、
"起動時処理"と記述されたメッセージが表示されます。
]]> http://easy-excel.seesaa.net/article/80778702.html 今回は前回作成したマクロの説明をします。前回作成したマクロは、Select Case文で1行1列の値を判定し80～100の時、"優"60～79の時、"良"30～59の時、"可" 0～29の時、"不可"を1行2列に代入します。但し、1行1列の値が0～100までの整数しか入力されていない事を前提としています。 1行1列に次のような値が入力されていた場合、正確に処理できません。未入力の時、0と判断し、"不可"を設定ブランクの時、何もしない。文字列混入時、何もしない。20.5を入力時... 日記 ぷろぐらまー 2008-01-26T22:18:04+09:00
前回作成したマクロは、
Select Case文で1行1列の値を判定し
80～100の時、"優"
60～79の時、"良"
30～59の時、"可"
0～29の時、"不可"
を1行2列に代入します。

但し、1行1列の値が0～100までの整数しか
入力されていない事を前提としています。

1行1列に次のような値が入力されていた場合、
正確に処理できません。

未入力の時、0と判断し、"不可"を設定
ブランクの時、何もしない。
文字列混入時、何もしない。
20.5を入力時、0～29と判断し、"不可"を設定
29.5を入力時、何もしない。
110を入力時、何もしない。

人が入力したデータは誤っている可能性がある為、
エラーチェックが必要となりますが、
データベース等のデータで、
決まった値しか入力されていないのであれば、
エラーチェックは不要となります。

ではまた・・・
]]> http://match.seesaa.jp/ot_listing.pl?aid=476781&sid=easy-excel&tid=seesaa_hotspot&k=%E3%82%B0%E3%83%A9%E3%83%B3%E3%83%BB%E3%83%88%E3%83%AA%E3%83%8E&hid=35 映画 | クリント・イーストウッド | ウォルト | イーストウッド | タオ | いい | アメリカ | 主演 | 監督 | 人生 ]]> 2008-01-26T22:18:04+09:00 ads by Seesaa http://easy-excel.seesaa.net/article/78406164.html 前回、前々回は入力した値によって以下の判定を行いました。①未入力またはブランクの時 "未入力エラー"②文字列混入時 "文字列混入エラー"③少数混入時 "少数混入エラー"④80～100の整数値 "優"⑤60～79の整数値 "良"⑥30～59の整数値 "可"⑦0～29の整数値 "不可"⑧0～100ではない整数値 "範囲外エラー"もしも、0～100の整数値しか入力されていなければ、上記④～⑦だけの判定で十分となります。この場合の分岐処理は、ElseIfを用いたIf文より、Selec... 日記 ぷろぐらまー 2008-01-14T11:13:44+09:00
前回、前々回は入力した値によって
以下の判定を行いました。

①未入力またはブランクの時 "未入力エラー"
②文字列混入時 "文字列混入エラー"
③少数混入時 "少数混入エラー"
④80～100の整数値 "優"
⑤60～79の整数値 "良"
⑥30～59の整数値 "可"
⑦0～29の整数値 "不可"
⑧0～100ではない整数値 "範囲外エラー"

もしも、0～100の整数値しか入力されていなければ、
上記④～⑦だけの判定で十分となります。

この場合の分岐処理は、ElseIfを用いたIf文より、
SelectCase文を使うほうが、より自然です。

[初期設定]
ファイル名:Book1.xls
シート名:Sheet1
下記の値を設定する
1行A列:35

[マクロの処理]
1行A列の値を判定し、判定結果を1行B列に設定する。
判定方法は上記④～⑦を参照して下さい。

尚、0～100の整数値以外が入力されていた場合、
1行B列に設定されるメッセージは考慮していません。


まずは、下記のMacro1を作成して下さい。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/01/14 ユーザー名 :
'

'判定処理
Select Case Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1)
Case 80 To 100
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "優"
Case 60 To 79
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "良"
Case 30 To 59
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "可"
Case 0 To 29
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "不可"
End Select


End Sub

1行A列に0～100までの整数値を入力した場合、
正しく判定される事を確認してください。

0～100までの整数値以外を入力した場合、
正しく判定されない事を確認してみて下さい。

ソースコードについては、次回説明します。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/77992494.html 今回は前回作成したマクロの説明をします。前回作成したマクロは1行A列の値を判定し、判定結果を1行B列に設定します。判定方法と1行B列の設定値は以下の8パターンです。①未入力またはブランク "未入力エラー"②文字列混入時 "文字列混入エラー"③少数混入時 "少数混入エラー"④80～100の整数値 "優"⑤60～79の整数値 "良"⑥30～59の整数値 "可"⑦0～29の整数値 "不... 日記 ぷろぐらまー 2008-01-12T13:48:41+09:00
前回作成したマクロは1行A列の値を判定し、
判定結果を1行B列に設定します。

判定方法と1行B列の設定値は以下の8パターンです。

①未入力またはブランク "未入力エラー"
②文字列混入時 "文字列混入エラー"
③少数混入時 "少数混入エラー"
④80～100の整数値 "優"
⑤60～79の整数値 "良"
⑥30～59の整数値 "可"
⑦0～29の整数値 "不可"
⑧0～100ではない整数値 "範囲外エラー"

この様に複数の条件で処理が分岐する場合、
ElseIfを用いたIf文を使用します。

処理の流れとしては、
①から順番に判定していき、
条件に当てはまったら、1行B列に値を
設定してIf文を終了します。

⑧の条件はElseを使っていますので、
①～⑦まですべて満たされなければ、
必ず⑧の処理が行われます。

以下にこのIf文の補足事項を示します。

まず、③では、
少数が混入しているかチェックする為に
InStr関数を使っています。

InStr(1, work, ".", vbTextCompare)

InStr関数に上記の様な四つの引数を設定した場合、
変数workの1文字目から少数点を検索し、
見つかった場合は検索位置を返します。

例えば、workの値が0.5であれば、
少数点は左から２文字目なので、2を返します。

見つからなかった場合は、0を返します。

1行1列の値が整数なら、少数点が見つからず、
InStr関数は0を返します。

その為、下記ElseIf文を満たさず、④の判定に
進みます。

ElseIf 0 <> InStr(1, work, ".", vbTextCompare) Then

1行1列の値が少数なら、変数work内で
少数点が見つかり、InStr関数は0以外を返します。
その為、ElseIfの条件を満たし、
1行B列に"少数混入エラー"を設定し、
If文を終了します。

InStr関数の詳細な説明はヘルプファイル等を
参照してみて下さい。

次に④～⑦の判定ですが、ここでは
AND演算子を使っています。

AND演算子はAND演算子の前後の条件を
満たした場合のみ、
条件を満たした事になります。

下記は④の判定処理ですが、
ANDを使っている為、
変数workが80以上かつ100以下という
二つの条件を満たす必要があります。

ElseIf 80 <= work And work <= 100 Then

AND演算子に対し、OR演算子があり、
こちらは、二つの条件のうちどちらか
一つでも満たせば、条件を満たした
事になります。

AND演算子、OR演算子についても、
ヘルプファイル等で調べてみてください。

ではまた・・・
]]> http://match.seesaa.jp/ot_listing.pl?aid=476781&sid=easy-excel&tid=seesaa_hotspot&k=%E9%A8%92%E9%9F%B3%E8%A6%8F%E5%88%B6&hid=35 規制 | 生産終了 | バイク | 影響 | 排出ガス規制 | 二輪 | クリア | マフラー | モデル | 輸入車 ]]> 2008-01-12T13:48:41+09:00 ads by Seesaa http://easy-excel.seesaa.net/article/77323108.html 第５回では、入力した数値が70以上なら合格、70未満なら不合格という判定でした。今回は以下の４段階評価を行います。・・・①80 ～ 100 優60 ～ 79 良30 ～ 59 可 0 ～ 29 不可さらに今回は以下のエラー処理も追加します。・・・②未入力またはブランク入力時、未入力エラー数字でない文字列混入時、文字列混入エラー少数混入時、少数混入エラー0～100ではない整数混入時、範囲外エラー[初期設定]ファイル名:Book1.xlsシート名:Sheet1下記の... 日記 ぷろぐらまー 2008-01-09T05:55:33+09:00 70以上なら合格、70未満なら不合格
という判定でした。

今回は以下の４段階評価を行います。・・・①

80 ～ 100 優
60 ～ 79 良
30 ～ 59 可
0 ～ 29 不可

さらに今回は以下のエラー処理も追加します。・・・②

未入力またはブランク入力時、未入力エラー
数字でない文字列混入時、文字列混入エラー
少数混入時、少数混入エラー
0～100ではない整数混入時、範囲外エラー


[初期設定]
ファイル名:Book1.xls
シート名:Sheet1
下記の値を設定する
1行A列:35

[マクロの処理]
1行A列の値を判定し、判定結果を1行B列に設定する。
判定方法は上記①と②を参照して下さい。

まずは、下記のMacro1を作成して下さい。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/01/09 ユーザー名 :
'

'1行1列の値を変数workに格納
Dim work As String
work = Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1))

'workの値を判定し、判定結果を1行2列に格納
If "" = work Then
'未入力またはブランク入力時
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "未入力エラー"
ElseIf False = IsNumeric(Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1)) Then
'文字列混入時
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "文字列混入エラー"
ElseIf 0 <> InStr(1, work, ".", vbTextCompare) Then
'少数混入時
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "少数混入エラー"
ElseIf 80 <= work And work <= 100 Then
'80～100の整数値
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "優"
ElseIf 60 <= work And work <= 79 Then
'60～79の整数値
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "良"
ElseIf 30 <= work And work <= 59 Then
'30～59の整数値
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "可"
ElseIf 0 <= work And work <= 29 Then
'0～29の整数値
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "不可"
Else
'0～100ではない整数値
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = "範囲外エラー"
End If



End Sub

1行A列に35を設定し、マクロを実行してみて下さい。
1行B列に"可"が設定される事を確認して下さい。

1行A列にあらゆる値を設定して、
仕様どうりに動作しているか確認して下さい。

ソースコードについては、次回説明します。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/76248355.html 今回は前回作成したマクロの説明をします。前回作成したマクロは、判定条件である70、表示文字列である合格、不合格をシート上で設定しています。その為、判定条件や表示文字列を変更する場合、シート上に設定した値を変更するだけです。ただ、変更しやすい反面、だれかにいじられる可能性も高くなります。ソースコードについては、シート上で設定した値を変数に格納して処理を行っています。定数ではなく変数を使う理由は、定数はシート上で設定した値を格納できないからです。尚、判定条件や表示文字列を格納する... 日記 ぷろぐらまー 2008-01-03T20:28:08+09:00
前回作成したマクロは、判定条件である70、
表示文字列である合格、不合格を
シート上で設定しています。

その為、判定条件や表示文字列を変更する場合、
シート上に設定した値を変更するだけです。

ただ、変更しやすい反面、だれかにいじられる
可能性も高くなります。

ソースコードについては、シート上で設定した値を
変数に格納して処理を行っています。

定数ではなく変数を使う理由は、
定数はシート上で設定した値を格納できないからです。

尚、判定条件や表示文字列を格納する場所として、
テキストファイル、データベース等もあります。

状況に応じて使い分けて下さい。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/76116500.html 前回は、修正しやすいマクロを作るために定数を使いました。今回はさらに修正が簡単な方法として、ワークシート上で値を設定します。[初期設定]ファイル名:Book1.xlsシート名:環境設定下記の値を設定する1行A列:合格基準点 B列:702行A列:合格時のメッセージ B列:合格3行A列:不合格時のメッセージ B列:不合格ファイル名:Book1.xlsシート名:Sheet1下記の値を設定する1行A列:35[マクロの処理]Sheet1の1行A列の数字が、環境設... 日記 ぷろぐらまー 2008-01-03T02:02:20+09:00
前回は、修正しやすいマクロを作るために
定数を使いました。

今回はさらに修正が簡単な方法として、
ワークシート上で値を設定します。

[初期設定]
ファイル名:Book1.xls
シート名:環境設定
下記の値を設定する
1行A列:合格基準点 B列:70
2行A列:合格時のメッセージ B列:合格
3行A列:不合格時のメッセージ B列:不合格

ファイル名:Book1.xls
シート名:Sheet1
下記の値を設定する
1行A列:35

[マクロの処理]
Sheet1の1行A列の数字が、環境設定の1行B列の数値未満
ならSheet1の1行B列に環境設定の3行B列の値を設定、

Sheet1の1行A列の数字が環境設定の1行B列の数値以上
ならSheet1の1行B列に環境設定の2行B列の値を設定する。


まずは、下記のMacro1を作成して下さい。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/01/03 ユーザー名 :
'

'*********** 環境設定 ***********
'合格基準点
Dim hantei As Integer
hantei = Workbooks("book1.xls").Worksheets("環境設定").Cells(1, 2)
'合格時のメッセージ
Dim ok_word As String
ok_word = Workbooks("book1.xls").Worksheets("環境設定").Cells(2, 2)
'不合格時のメッセージ
Dim ng_word As String
ng_word = Workbooks("book1.xls").Worksheets("環境設定").Cells(3, 2)
'***********************************

'判定処理
If hantei <= Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1) Then
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = ok_word
Else
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = ng_word
End If


End Sub

マクロを実行して処理を確認してみて下さい。

シート(環境設定)で設定した値を変えることによって、
処理結果が変わる事を確認してみて下さい。

ソースコードについては、次回説明します。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/75705587.html 今回は前回作成したマクロの説明をします。前回作成したマクロは、1行1列に入力した数値が70以上なら合格、70未満なら不合格と表示します。(第５回と同じ処理です)現状は70以上で合格となるわけですが、例えば、30以上で及第点、30未満で落第点とマクロの仕様を変える必要になるかもしれません。仕様変更が必要となった場合、当然ソースコードの修正が必要となります。第５回のソースコードであれば、ソースコードの解析が必要となります。前回のソースコードであれば、ソースコードの解析は必要ありま... 日記 ぷろぐらまー 2007-12-31T19:10:01+09:00
前回作成したマクロは、1行1列に入力した数値が
70以上なら合格、70未満なら不合格と表示します。
(第５回と同じ処理です)

現状は70以上で合格となるわけですが、
例えば、30以上で及第点、30未満で落第点
とマクロの仕様を変える必要になるかもしれません。

仕様変更が必要となった場合、当然ソースコードの
修正が必要となります。

第５回のソースコードであれば、ソースコードの解析
が必要となります。

前回のソースコードであれば、ソースコードの解析は
必要ありません。
定数に設定した値を変えるだけで十分です。

具体的には、前回のマクロの下記部分

'*********** 環境設定 ***********
'合格基準点
Const hantei As Integer = 70
'合格時のメッセージ
Const ok_word As String = "合格"
'不合格時のメッセージ
Const ng_word As String = "不合格"
'***********************************

を次のように変更するだけです。

'*********** 環境設定 ***********
'合格基準点
Const hantei As Integer = 30
'合格時のメッセージ
Const ok_word As String = "及第点"
'不合格時のメッセージ
Const ng_word As String = "落第点"
'***********************************

定数は変数に似ていますが、
①宣言時にConstを先頭につける
②宣言時に値を代入する
③宣言時に代入した値を別の値に代入しなおす事
はできない

といった点で変数と異なります。

第５回の時には、判定条件である70、
表示文字列である合格、不合格をそのまま
ソースコードとして記述していましたが、
前回の様に定数とする事でソースコードの解析の
必要がなくなりました。

修正しやすいマクロを作成するために
定数を活用してみて下さい。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/75541448.html マクロを作成した後も、マクロの修正作業は起こりえます。マクロの作成時には、後々の修正作業についても考慮すべきです。今回はマクロの修正を簡単にする為、定数を使ってみます。下記マクロは第５回のマクロと全く同じ処理内容ですが、定数を使っています。Sub Macro1()'' Macro1 Macro' マクロ記録日 : 2007/12/30 ユーザー名 :''*********** 環境設定 ***********'合格基準点Const hantei As Integer = ... 日記 ぷろぐらまー 2007-12-30T21:37:26+09:00
マクロの作成時には、
後々の修正作業についても考慮すべきです。

今回はマクロの修正を簡単にする為、定数を使ってみます。

下記マクロは第５回のマクロと全く同じ処理内容ですが、
定数を使っています。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/30 ユーザー名 :
'

'*********** 環境設定 ***********
'合格基準点
Const hantei As Integer = 70
'合格時のメッセージ
Const ok_word As String = "合格"
'不合格時のメッセージ
Const ng_word As String = "不合格"
'***********************************

'判定処理
If hantei <= Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1) Then
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = ok_word
Else
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = ng_word
End If


End Sub

マクロを実行し、第５回と同じ処理内容である事を
確認して下さい。

ソースコードについては、次回説明します。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/74997238.html マクロを作成した後、当然動作確認をする必要があります。今回は、第18回の重複エラーチェック処理のテスト方法を考えてみます。このマクロは最初に1行1列が未入力かチェックを行います。その為、下記のテストケースが必要です。①1行1列が未入力の場合②1行1列にスペースのみ入力されていた場合次に1行1列に文字列が入力されていた場合は、F列に同じ文字列が存在するか検索します。その為、検索できなかった場合と検索できた場合のそれぞれについてテストケースを考えます。F列から検索できなかった場合... 日記 ぷろぐらまー 2007-12-27T21:51:12+09:00 当然動作確認をする必要があります。

今回は、第18回の重複エラーチェック処理の
テスト方法を考えてみます。

このマクロは最初に1行1列が未入力か
チェックを行います。
その為、下記のテストケースが必要です。
①1行1列が未入力の場合
②1行1列にスペースのみ入力されていた場合

次に1行1列に文字列が入力されていた場合は、
F列に同じ文字列が存在するか検索します。

その為、検索できなかった場合と検索できた場合の
それぞれについてテストケースを考えます。

F列から検索できなかった場合として、
下記テストケースが必要です。
③F列が0件の場合
④F列が1件の場合
⑤F列が2件の場合

また、F列から検索できた場合として、
下記テストケースが必要です。
⑥1行1列とF列の1行目が同じ文字列の場合
⑦1行1列とF列の2行目が同じ文字列の場合
(⑦のF列の1行目は1行1列とは別の文字列を設定する)

①～⑦までのテストケースは最低限必要だと思います。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/74452765.html 前回作成した重複エラーチェックのソースコードについて説明します。Sub Macro1()'' Macro1 Macro' マクロ記録日 : 2007/12/23 ユーザー名 :''重複チェックする文字列を格納するDim chk_word As Stringchk_word = Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1))'1行1列が未入力またはブランクの場合、エラーメッセージを出力、処理終了If ... 日記 ぷろぐらまー 2007-12-24T19:44:48+09:00 について説明します。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/23 ユーザー名 :
'

'重複チェックする文字列を格納する
Dim chk_word As String
chk_word = Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1))

'1行1列が未入力またはブランクの場合、エラーメッセージを出力、処理終了
If "" = chk_word Then
MsgBox "1行1列が未入力です", vbOKOnly, "エラーメッセージ"
Exit Sub
End If

'F列検索用ループカウンタ
Dim ctr As Long
ctr = 1

'F列を1行目からデータが無くなるまで検索
Do Until "" = Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(ctr, 6))
'1行1列と同じデータがF列にあったらエラーメッセージを出力、処理終了
If chk_word = Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(ctr, 6)) Then
MsgBox "既に登録済みです", vbOKOnly, "エラーメッセージ"
Exit Sub
End If
ctr = ctr + 1
Loop

MsgBox "登録可能です", vbOKOnly, "インフォメーション"

End Sub

上記が重複エラーチェックのソースコードです。

最初に行う処理は、String型の変数chk_wordの宣言と、
chk_wordに1行1列の値を格納する事です。

String型の変数chk_wordを可変長で宣言しているので
約２０億個までの文字を格納できます。

変数のサイズは、格納した文字列の長さにより変化します。
文字数 x 2byte + 10byte

String型には固定長で宣言する事もできます。

Dim chk_word As String * 30
上記の様に宣言すると、変数のサイズは、
30 x 2byte = 60byteとなり、
可変長の70バイトより小さくて済みますが、
30文字未満の文字列を
格納した場合でも文字列の後ろをブランクで
埋めて30文字にして格納しますし、
30文字を超える文字列を格納した場合、
文字列の左から30文字しか格納されません。

処理内容に応じて固定長にするか可変長にするか
判断して下さい。
尚、固定長の場合、65526文字までが限界です。

次に1行1列の内容が未入力またはブランクでないか
チェックします。

1行1列に文字列が無いとこのマクロを実行する意味が
無いので、ここでチェックしています。

1行1列に文字列が入力されていた場合、同じ文字列がF列に
存在するかチェックします。

具体的には、F列の1行目から2行目、3行目と
F列が空になるまで処理を繰り返し、
1行1列と同じ文字列があれば、既に存在していると
判断し、エラーメッセージ出力、処理終了となります。

F列が空になるまで処理を繰り返しても
1行1列と同じ文字列がF列にない場合、
重複チェックエラーとはならず。
登録可能です
とメッセージを表示し、処理終了します。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/74232005.html 前回、前々回とエラーチェックについて説明しました。今回は重複チェックを行います。たとえばメールアドレスの設定時、正しく入力しても既に使われてしまっている場合、設定できません。今回は入力した文字列が既に登録済みかチェックするマクロを作成します。[初期設定]ファイル名:Book1.xlsシート名:Sheet1下記の値を設定する1行A列:あああ1行F列:あああ2行F列:いいい3行F列:ううう4行F列:えええ5行F列:おおお[マクロの処理]まずは、1行A列が入力されているかチェックす... 日記 ぷろぐらまー 2007-12-23T13:16:19+09:00 今回は重複チェックを行います。

たとえばメールアドレスの設定時、
正しく入力しても既に使われてしまっている場合、
設定できません。

今回は入力した文字列が既に登録済みか
チェックするマクロを作成します。

[初期設定]
ファイル名:Book1.xls
シート名:Sheet1
下記の値を設定する
1行A列:あああ

1行F列:あああ
2行F列:いいい
3行F列:ううう
4行F列:えええ
5行F列:おおお

[マクロの処理]
まずは、1行A列が入力されているかチェックする。
入力されていない場合、メッセージボックスで、
1行1列が未入力です
と表示し、マクロを終了する。

1行A列が入力されている場合、
F列に同じ文字列が存在するかチェックする。

F列に同じ文字列が存在する場合、
メッセージボックスで、既に登録済みです
と表示する。
F列に同じ文字列が存在しない場合、
メッセージボックスで、登録可能です
と表示する。

まずは、Macro1を下記の様に作成して下さい。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/23 ユーザー名 :
'

'重複チェックする文字列を格納する
Dim chk_word As String
chk_word = Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1))

'1行1列が未入力またはブランクの場合、エラーメッセージを出力、処理終了
If "" = chk_word Then
MsgBox "1行1列が未入力です", vbOKOnly, "エラーメッセージ"
Exit Sub
End If

'F列検索用ループカウンタ
Dim ctr As Long
ctr = 1

'F列を1行目からデータが無くなるまで検索
Do Until "" = Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(ctr, 6))
'1行1列と同じデータがF列にあったらエラーメッセージを出力、処理終了
If chk_word = Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(ctr, 6)) Then
MsgBox "既に登録済みです", vbOKOnly, "エラーメッセージ"
Exit Sub
End If
ctr = ctr + 1
Loop

MsgBox "登録可能です", vbOKOnly, "インフォメーション"

End Sub

マクロを実行すると1行1列の"あああ"が
既に1行F列に存在する為、
既に登録済みです
とメッセージが出力されます。

1行1列やF列のデータを書き換えて、
マクロを実行してみて下さい。

マクロのソースコードについては次回説明します。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/72910723.html 前回作成したエラーチェックのソースコードについて説明します。Sub Macro1()'' Macro1 Macro' マクロ記録日 : 2007/12/14 ユーザー名 :''過去に行ったチェック処理結果を削除する。'(B列を選択し、セル内の値を削除する)Columns("B:B").SelectSelection.ClearContents'B列のセル幅を18にセットColumns("B:B").ColumnWidth = 18'行カウンタをの宣言Dim gyo_ctr A... 日記 ぷろぐらまー 2007-12-15T07:17:52+09:00 について説明します。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/14 ユーザー名 :
'

'過去に行ったチェック処理結果を削除する。
'(B列を選択し、セル内の値を削除する)
Columns("B:B").Select
Selection.ClearContents
'B列のセル幅を18にセット
Columns("B:B").ColumnWidth = 18

'行カウンタをの宣言
Dim gyo_ctr As Integer

'1 行目から5行目まで処理を繰り返す。
For gyo_ctr = 1 To 5
'数字でなければ、B列に"数字を入力して下さい"を設定する。
If False = IsNumeric(Trim( _
Workbooks("book1.xls").Worksheets("sheet1").Cells(gyo_ctr, 1))) Then
Workbooks("book1.xls").Worksheets("sheet1").Cells(gyo_ctr, 2) = _
"数字を入力して下さい"
End If
Next

End Sub

上記がエラーチェックのソースコードです。

最初に行う処理は、B列に入力されている値の削除と
B列の幅を18に設定する事です。

B列に入力されている値を削除することで、
過去に行ったエラーチェック処理のエラーメッセージを
削除できます。

B列の幅を18に設定する事で、エラーメッセージを
表示するのに十分な幅となります。

これらの処理はマクロの記録時に手作業を行えば、
自動生成されます。

次にエラーをチェックする処理ですが、
今回の処理は1行目から5行目まで繰り返します。

第７回で使用したDo Until～Loopを
使うこともできますが、
より自然なFor～nextを使います。

For gyo_ctr = 1 To 5
(中略)
Next
上記の文は、For文とNext文の間の
処理を５回繰り返しますが、
その際、gyo_ctr の値は
まず1を設定し、処理を繰り返すごとに
1加算されます。

For文の中にはIf文が１つあります。
セルの値をTrim関数で余分なスペースを削除し、
その値をIsNumeric関数に渡しています。
IsNumeric関数は渡された値が数字か判断し、
数字ならTrue、数字でないならFalseを返します。
この時点で、
IsNumeric(Trim( _
Workbooks("book1.xls").Worksheets("sheet1").Cells(gyo_ctr, 1)))
はTrueかFalseになり、その後、If文の判定が行われます。
IsNumeric関数がFalseを返していた場合のみ、
B列にエラーメッセージが設定されます。

ではまた・・・
]]> http://easy-excel.seesaa.net/article/72740462.html 例えば、数値データを手入力してもらい、それをマクロで処理するとしましょう。数値データを手入力する時、当然入力ミスが起こりえます。入力ミスについては、可能な限り、マクロでチェックすべきでしょう。今回は、入力したデータが数字であるかチェックするマクロを作成します。[初期設定]ファイル名:Book1.xlsシート名:Sheet1下記の値を設定する1行A列:352行A列:AAA3行A列:1004行A列:あああ5行A列:70R[マクロの処理]1行A列が数字ならなにもしない。1行A列が数... 日記 ぷろぐらまー 2007-12-14T07:04:45+09:00 それをマクロで処理するとしましょう。

数値データを手入力する時、
当然入力ミスが起こりえます。

入力ミスについては、可能な限り、
マクロでチェックすべきでしょう。

今回は、入力したデータが数字であるかチェックする
マクロを作成します。

[初期設定]
ファイル名:Book1.xls
シート名:Sheet1
下記の値を設定する
1行A列:35
2行A列:AAA
3行A列:100
4行A列:あああ
5行A列:70R

[マクロの処理]
1行A列が数字ならなにもしない。
1行A列が数字でないなら1行B列に
"数字を入力して下さい"を設定する。

2行目から5行目も同様の処理を行う。

まずは、Macro1を下記の様に作成して下さい。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/14 ユーザー名 :
'

'過去に行ったチェック処理結果を削除する。
'(B列を選択し、セル内の値を削除する)
Columns("B:B").Select
Selection.ClearContents
'B列のセル幅を18にセット
Columns("B:B").ColumnWidth = 18

'行カウンタをの宣言
Dim gyo_ctr As Integer

'1 行目から5行目まで処理を繰り返す。
For gyo_ctr = 1 To 5
'数字でなければ、B列に"数字を入力して下さい"を設定する。
If False = IsNumeric(Trim( _
Workbooks("book1.xls").Worksheets("sheet1").Cells(gyo_ctr, 1))) Then
Workbooks("book1.xls").Worksheets("sheet1").Cells(gyo_ctr, 2) = _
"数字を入力して下さい"
End If
Next

End Sub


マクロを実行し、処理結果を確認して下さい。

B列に"数字を入力して下さい"と表示された行は、
A列を数字に直して再度マクロを実行してみて下さい。

マクロのソースコードについては次回説明します。

ではまた・・・
]]>