エクセルマクロについて



◇-?エクセルマクロについて-alet(2005/05/17-00:06)No.261505
 ┣?!Re:エクセルマクロについて...-もるお(2005/05/17-01:09)No.261528
 ┗?!Re:エクセルマクロについて...-まっちゃん244(2005/05/17-21:32)No.261718

▲このページのトップに戻る
261505エクセルマクロについてalet 2005/05/17-00:06

メーカー名:SOTEC ソーテック
OS名:Windows98 SecondEdition
パソコン名:PC STATION M366
ソフト関連:ソフトの使い方がわからない
--
初めましてこんばんは、aletと申します。
今回知りたいことなのですが、エクセルのマクロを使用して、あるセルに数値又は文字列
が入力されているかチェックをしたいのです(A2になにかしら記入があった場合A1のセル
に"○"を出すなど)一つだけならif関数使えばあっという間なのですが、複数のチェック
項目がある場合大変なので、実行すると簡単にチェックできるマクロは作ることが出来る
のでしょうか?さらに条件付(例えば日付が記入されており、その日付が、別セルに記入
されている所定日より3週間以内ならば"○"など)というのも可能でしょうか?
漠然とした質問で申し訳ありませんが、教えていただければ幸いです。

▲このページのトップに戻る
261528Re:エクセルマクロについてもるお 2005/05/17-01:09

記事番号261505へのコメント
>あるセルに数値又は文字列が入力されているかチェックをしたいのです
>(A2になにかしら記入があった場合A1のセルに"○"を出すなど)
>一つだけならif関数使えばあっという間なのですが、複数のチェック
>項目がある場合大変なので、実行すると簡単にチェックできる
>マクロは作ることが出来るのでしょうか?

'A2の値が空でなければA1に○を表示する
With ActiveSheet
If .Cells(2, 1).Value = "" Then
.Cells(1, 1).Value = "○"
End If
End With

項目数が多いほどシート上でIFのが速いと思いますが?
てよりVBAはどう組んでもワークシート関数よりは遅いので。

>さらに条件付(例えば日付が記入されており、その日付が、別セルに記入
>されている所定日より3週間以内ならば"○"など)というのも可能でしょうか?
>漠然とした質問で申し訳ありませんが、教えていただければ幸いです。

日付の形式(例えばyyyy/mm/ddとかddとか)を
もう少し具体的にしていただいたほうが、、、
両者(日付A2と所定日B2とします)が同じ形式なら単純に引き算で求められた差を
判定してやればいいんじゃないかと。
的外れならごめんないさい。

▲このページのトップに戻る
261718Re:エクセルマクロについてまっちゃん244 2005/05/17-21:32

記事番号261505へのコメント
aletさんは No.261505「エクセルマクロについて」で書きました。
>メーカー名:SOTEC ソーテック
>OS名:Windows98 SecondEdition
>パソコン名:PC STATION M366
>ソフト関連:ソフトの使い方がわからない
>--
>初めましてこんばんは、aletと申します。
>今回知りたいことなのですが、エクセルのマクロを使用して、あるセルに数値又は文字列
>が入力されているかチェックをしたいのです(A2になにかしら記入があった場合A1のセル
>に"○"を出すなど)一つだけならif関数使えばあっという間なのですが、複数のチェック
>項目がある場合大変なので、実行すると簡単にチェックできるマクロは作ることが出来る
>のでしょうか?さらに条件付(例えば日付が記入されており、その日付が、別セルに記入
>されている所定日より3週間以内ならば"○"など)というのも可能でしょうか?
>漠然とした質問で申し訳ありませんが、教えていただければ幸いです。

これくらいの処理なら関数の方が断然早いです。
1つ目は、IF、ISBLANKの関数と論理関数を組めば比較的簡単です
一例
=IF(AND(ISBLANK(セル1),ISBLANK(セル2),ISBLANK(セル3)),"","○")
参照するセルが増えれば逐次ISBLANK(セル)を増やしてください。
2つ目は
=IF(日付のセル-所定日のセル<21,"○","×")
これを結果を出したいセルに組みます。
あなたの求めている結果と反対の結果が出るのであれば
論理関数を変更してみたり、不等号または日付のセルを
入れ替えてみてください。

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて来た   数度目(2〜4) 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

何か一言(本ページで参考になったならないを含めて残してあります)
◎:解決 ○:参考になった ×:参考にならなかった !:アドバイスあり

参考回数投稿日時何か一言