[[20100423090548]]　『条件に合致したら警告ﾒｯｾｰｼﾞを表示させたい』（ひろ）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『条件に合致したら警告ﾒｯｾｰｼﾞを表示させたい』（ひろ）

OS:WinXP　EXCEL2003　
ｴｸｾﾙを開いた時に特定の範囲のｾﾙの値が一箇所でもﾏｲﾅｽ表示だった場合に、ﾀﾞｲｱﾛｸﾞで警告ﾒｯｾｰｼﾞを表示するようなVBAを作成したいのですが可能でしょうか？　
さらに範囲は同じBook内の複数のSheetを選択したいです。

警告ﾒｯｾｰｼﾞは、"Sheet名"の値がﾏｲﾅｽ表示です！というような表示にしたいです。
よろしくお願いします

---

特定の範囲に入力規則でマイナスを入力できないようにするのは
いかがですか？
警告メッセージも指定できますよ。

（ウエッジウッド）

---

ありがとうございます。

 入力規制はわかるのですが、それだとﾏｲﾅｽ表示になると先へ進めなくなりますので別の方法を探しています。
 一旦、ﾏｲﾅｽ表示のまま保存して、再度EXCELを開いた時に警告ﾒｯｾｰｼﾞを表示したい。方法を探してます
（ひろ）

---

 >ﾀﾞｲｱﾛｸﾞで警告ﾒｯｾｰｼﾞを表示するようなVBAを作成したいのですが可能でしょうか？
　さらに範囲は同じBook内の複数のSheetを選択したいです。 
 WorkbookのイベントプロシージャWorkbook_Open
 For〜Eachステートメント
 If 条件式 Then
 MsgBox関数
 等をを使用すると可能です
(PON)

---

 ありがとうございます。
 PONさんの内容を式にしたいのですが教えてください。
 内容はEXCEL起動時にSheet1から6の各SheetのG列の値にﾏｲﾅｽ値が存在したら、警告ﾒｯｾｰｼﾞで"Sheet名"の数値がﾏｲﾅｽです。"と表示するための式を教えてほしいです。
 よろしくお願いします（ひろ）

---

 参考程度・・　(mitsu)
※以下を、ThisWorkBookモジュールへ貼り付け。

 Private Sub Workbook_Open()
 Dim ws As Worksheet
    For Each ws In Sheets(Array(1, 2, 3, 4, 5, 6))
        If Application.CountIf(ws.Columns("G"), "<0") Then
            MsgBox ws.Name & "の値がマイナス表示です！"
        End If
    Next
 End Sub

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.