Subject: セルの色を変更したい
========================================
From: yosu
Date: 2000/09/30(土) 10:16:02

Excel2000を使っています。
アクティブセルの色を変更することは可能ですか?
Macは変更できるそうですが・・・。
Windowsはできないのでしょうか？
========================================
From: ミコ
Date: 2000/09/30(土) 10:21:26

yosuさん、こんにちは。ミコと申します。(^^)

操作だけでは出来ないです。
VBAの方法でよろしければ、こちらのスレッドにあります。　(^-^)/~~
　http://cgi.fuji.ne.jp/~fj2094/cgi-bin4/wwwlng.cgi?print+200009/00090454.txt
========================================
From: yosu
Date: 2000/09/30(土) 11:12:57

ミコさんありがとうございます。
やっぱり操作だけでは無理なんですよね・・・。
でもMacではできるみたいです。
なぜなんでしょう・・・。

VBAの方法試してみたのですが、背景の色も変わってしまうんですね。
枠の色だけを変えたいんです。
VBAは勉強不足で応用ができないので、
枠の色だけを変える方法がありましたら教えてください。
お願いします。
========================================
From: ミコ
Date: 2000/09/30(土) 13:10:45

こんにちは。(^^)

>枠の色だけを変えたいんです

それでしたら、こちらが参考になるかも。。。
　http://cgi.fuji.ne.jp/~fj2094/cgi-bin5/wwwlng.cgi?print+200009/00090043.txt

でも、根本的な解決策はないようですね。　　(^-^)/~~
========================================
From: とびいちそう
Date: 2000/10/01(日) 01:10:06

こんにちは。
実用性がないので、あくまで、お遊びということで…   条件付き書式を使ったやり方です。

A列と１行目は見出し用ということで、Ｂ２のセルに条件付き書式を設定します。
"条件を「数式が」「=CELL(""address"",b1)=CELL(""address"")」にします。"
書式は「罫線」で、補色を考慮して色を選択し、「外枠」を設定します。
条件付き書式を設定した後、Ｂ２のセルを適当に右方向と下方向にコピーします。

操作する場合ですが、条件付き書式は再計算されないとはたらき（変り）ませんので、
データを入れてEnterキー等を押して、アクティブセルを動かすことになります。
上記の設定は、アクティブセルを下方向に動かす（「ツール」「オプション」「編集」で
設定してください）場合ですが、矢印キー等で別の方向に動かせば、残念ながら外枠は
ついてこれません。なお、アクティブセルを右方向に動かす場合は、上の式の「ｂ１」を
「ａ２」にします。

太線で罫線を引ければもう少し見栄えがするんでしょうが…  どちらにしろ、アクティブ
セルの動きを限定しているので、使い物にはならないでしょうね。
========================================
From: ケイン
Date: 2000/10/01(日) 14:08:51

こんにちは
>枠の色だけを変える方法

Bykinさんのコードを拝借して、色付き罫線で囲うというマクロにしてみたつもりです。
バージョンが違うので動作確認ができませんが、うまくいかないなら捨ててください。

Private OrgColor As Integer
Private PrevCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Not PrevCell Is Nothing Then
"        PrevCell.BorderAround LineStyle:=xlNone, ColorIndex:=OrgColor"
    End If
    OrgColor = ActiveCell.Interior.ColorIndex
"    ActiveCell.BorderAround Weight:=xlMedium, ColorIndex:= 3"
    Set PrevCell = ActiveCell
End Sub

んー、なんかコードの順番が逆のような気もするし、だいいち実行速度が実用的でなさそうにも
思えるんだけど・・こちらで確かめようがないのが残念です。
では。
========================================
From: ミコ
Date: 2000/10/01(日) 16:49:53

こんにちは、ミコです。

Excel2000で、ケインさんのマクロ動作確認させていただきました。
それで、いい感じなのですが、
１つ目のセルを選んだ時は、うまく枠に色がつきますが、
２つ目を選んだ時に、ここの所が黄色くなって
"　PrevCell.BorderAround LineStyle:=xlNone, ColorIndex:=OrgColor"
「実行時エラー　'1004'」
「Range クラスの BorderAround メソッドが失敗しました」
って出ました。

うまく改良できれば便利そうなのですが、私では……（^^；；
========================================
From: ケイン
Date: 2000/10/01(日) 17:53:54

>うまく改良できれば便利そうなのですが、私では……（^^；；
あら、あたしだってできないわ! bykinさんに聞いてみたいわねぇ、むふふ・・
とか言いながら、よーく見てみると

>OrgColor = ActiveCell.Interior.ColorIndex
これを消さずにいたのが原因かも? (^_^;;
だってセルの色は関係ないですもんね。従ってとりあえず

>If Not PrevCell Is Nothing Then
">        PrevCell.BorderAround LineStyle:=xlNone, ColorIndex:=OrgColor"
>    End If
>    OrgColor = ActiveCell.Interior.ColorIndex
を
　If Not PrevCell Is Nothing Then
        PrevCell.BorderAround LineStyle:=xlNone
  End If
としてみますかな? どんなもんでしょ。(いずれにしても他人の作ったコードってのはどうもよくわからん、正直言って)
では。
========================================
From: ミコ
Date: 2000/10/01(日) 18:41:37

こんにちは。(^^)

ケインさん、エラーは消えましたです。(^^)v

ところが、選んだセルが、次々に色がついていくので、
アクティブなセルだけって言うのは、難しいでしょうか。
その前のセルは、色を消す事ができれば完璧！！　　(^-^)/~~
========================================
From: ケイン
Date: 2000/10/01(日) 19:42:39

こんばんは
>その前のセルは、色を消す事ができれば
と言われても、こちらでは限界ですぅ〜。なんたって３世代も前のバージョンですから、イベント
の種類が、６・７種類ぐらいしかないんですよー。Ver2000には、きっと DeActivate とかなんとか
あると想像してるんですがねぇ・・。そちらで、それらしいイベントの書き方を考えてみて
くださーぃ!
なお、マクロから他のマクロを呼び出すには、Call プロシージャ名　というコードを使います。
参考になるかな ?
んじゃ。
========================================
From: ミコ
Date: 2000/10/01(日) 20:46:56

こんばんは。

ケインさん、無理ばっか言って、ごめんね。m(_ _)m
私も今日はちょっと時間がないけど、また考えてみます。

今日は、私のわがままに付き合ってくれて、ありがとう! (^-^)/~~
========================================
From: TamTam
Date: 2000/10/01(日) 20:49:48

ミコさんの
>選んだセルが、次々に色がついていくので
についてですが、ケインさんのコードの上に４行（？）と下に１行加えてみました。
ケインさんコードをそのまま乗せるのは反則？
もしそうならばケインさん申し訳ありません。この方が、分かり易いかと思いまして、

Private OrgColor As Integer
Private PrevCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static Patc As Range
    
    If Not Patc Is Nothing Then
        Patc.Borders.LineStyle = xlNone
    End If
    If Not PrevCell Is Nothing Then
"        PrevCell.BorderAround LineStyle:=xlNone, ColorIndex:=OrgColor"
    End If
"    ActiveCell.BorderAround Weight:=xlMedium, ColorIndex:=3"
    Set PrevCell = ActiveCell
    Set Patc = ActiveCell
End Sub

と言う感じで当方での確認としては良いのかなと思います。一応当方もExcel2000使用です。
========================================
From: TamTam
Date: 2000/10/01(日) 21:07:11

追記です。
ブックをクローズするときにも、罫線を消すのを忘れないようにしてください。
あるいは、ブックをオープンした時または、シートがアクティブになった時に、
変数Patcを取得するのでも良いかと思いますが、私的には、クローズする時かな
と思います。
========================================
From: ミコ
Date: 2000/10/01(日) 21:46:46

こんばんはー。(^^)

TamTamさん、はじめまして。
時間がないなどと言いながら、また出てきちゃいました。（^^；

ＵＰして頂いたコードでやってみたら、バッチリ出来ました (^^)v!
やっぱ、できる人がやればできるんですねー （変な日本語（^^；）

おっしゃるとおり、クローズする時に罫線が残っちゃいますよね。
>変数Patcを取得するのでも良いかと思いますが、私的には、クローズする時かな
でも、そのシートでクローズすればいいのですが、他のシートでクローズする場合や、
複数のシートでこのマクロを使っている場合は、Workbook_BeforeCloseでは
罫線が残ってしまいました。

それで、クローズする時ではなく、ケインさんのおっしゃっていられた、DeActivate 
を使ったコードを、追加すると、うまく行きました。

Private Sub Worksheet_Deactivate()
   Set Patc = ActiveCell
   If Not Patc Is Nothing Then
        Patc.Borders.LineStyle = xlNone
   End If
End Sub

TamTamさんのコードに、くっつけて使ってくださいね。　 (^-^)/~~
========================================
From: TamTam
Date: 2000/10/02(月) 00:16:40

ミコさんこんばんわです。
すいません、追記の所はですね、ただこんな感じかなと言う感じで書いてしまいました。
ちょっとやることが有ったので・・・。

>やっぱ、できる人がやればできるんですねー 
まだまだ、できる人と呼ばれるには遠き道のりがあるのです。でもうれしいひびきだ・・・。VBAはまだExcel2000から覚え始めたばかりな様なもので、出来たのはたまたまの様な物です。

で話は戻るのですが、やることやった後、風呂に入りながら、ふと頭をよぎりました。私も
Deactivateだと・・・。それとWorkbook_BeforeSaveです。Workbook_BeforeSaveを記述
しないと、次にオープンした時に残ってしまうからです。で少し変えました。

標準モジュールを挿入するとModule1が出来ますよね。そこに
Public Patc As Range

Sub Setpatc(ByVal Target As Range)
    Set Patc = Target
End Sub
を記述して

Workbookのモジュールシートに
"Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)"
    Patc.Borders.LineStyle = xlNone
End Sub
を記述して

Sheet1のモジュールシートに
Private OrgColor As Integer
Private PrevCell As Range

Private Sub Worksheet_Deactivate()
    Patc.Borders.LineStyle = xlNone
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static Patc2 As Range
    
    If Not Patc Is Nothing Then
        Set Patc2 = Patc
        Patc2.Borders.LineStyle = xlNone
    End If
    If Not PrevCell Is Nothing Then
"        PrevCell.BorderAround LineStyle:=xlNone, ColorIndex:=OrgColor"
    End If
"    ActiveCell.BorderAround Weight:=xlMedium, ColorIndex:=3"
    Set PrevCell = ActiveCell
    Setpatc Target
End Sub
を記述です。

と言う感じにしたのですが、どうでしょうか？
何かコードの内容等々が変だったらご指摘、ご指導下さい。
========================================
From: ミコ
Date: 2000/10/02(月) 04:02:06

TamTamさん、こんばんはー。(^^)

ごめんなさーい。m(_ _)m
やっぱり私の上の方法だと、次に開いた時に罫線が残っちゃいました。（^^；

それで、TamTamさんの上の３つのコードでやったところ、
パッチリ出来ましたー。(^^)v!

>VBAはまだExcel2000から覚え始めたばかりな様なもので、
そうなんですか！　う〜ん、でもさすがです。

>何かコードの内容等々が変だったらご指摘、ご指導下さい。
こ、これはもちろん私ではなくて、
ケインさん始め、ベテランの先輩方にですよね！　（^^；；

私も、春頃から始めたばかりで、まだまだ初心者です。
これからもどうぞ、よろしくお願いしまーす。(^-^)/~~
========================================
From: TamTam
Date: 2000/10/02(月) 10:10:50

Sheet1のモジュールを変えました。
なぜかと言うとですね、複数のセルを選択したときに罫線の色が１つのセルにしか適用
されないためです。以下に書き換えしてください。もっとも先のコードで宜しければ
必要有りませんが・・・。

Private OrgColor As Integer

Private Sub Worksheet_Deactivate()
    Patc.Borders.LineStyle = xlNone
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static Patc2 As Range
    
    If Not Patc Is Nothing Then
        Set Patc2 = Patc
        Patc2.Borders.LineStyle = xlNone
    End If
"    Target.BorderAround Weight:=xlMedium, ColorIndex:=3"
    Setpatc Target
End Sub

と言う事で・・・。
========================================
From: ごえもん
Date: 2000/10/02(月) 23:07:44

みなさん、こんばんは　ごえもんともうします。(注．初級者です(^^;))
非常に興味をもって拝見させてもらっていました。(悪趣味かなー　ごめんなさいm(_ _)m)
じつはTamTamさんのコード　うまくいったと思っていたのですが、罫線のある場所にくる
と、逆に罫線がすべて消えていきます。どうしてかなー
ひょっとして私のやりかたがわるいのかも知れませんが、念のため。
では、(^^)/~~~
========================================
From: TamTam
Date: 2000/10/03(火) 00:06:48

>逆に罫線がすべて消えていきます
その通です。私も途中から参加させて貰いましたが、ミコさんの2000/10/01(日) 18:41:37の
>選んだセルが、次々に色がついていくので
と言う事項について書き換えたのでその様に成っています。後は選択した全てのセルの罫線
情報を変数に格納してやれば出来ると思うのですが・・・。

>ひょっとして私のやりかたがわるいのかも知れませんが
その様な事はありません。
========================================
From: ミコ
Date: 2000/10/03(火) 00:07:25

ごえもんさん、こんばんは。(^^)

>罫線のある場所にくると、逆に罫線がすべて消えていきます。
それは私も消えました。やり方が悪い訳ではないですよ。

でも、このマクロだとこういうものだと思います。
アクティブセルだけに色をつける為、アクティブでなくなったセルの罫線を
消していきます。やむをえないと思います。
つまり、罫線のあるシートでは、使えないということですね。　(^-^)/~~
========================================
From: ごえもん
Date: 2000/10/03(火) 11:05:17

こんにちはミコさん、ごえもんです。
下のスレッドでやっていた私とBykinさんのコードでは色付きのセルの上を通過して
色が変わっても通過してしまえば元の色に戻っていたのですが(罫線ではなくてセル
の色ですが)。
　ンーー、やはりちょっと不満です。元からある罫線はやはり元の罫線に戻ってほし
いですね。勝手なこといってごめんなさい。実は私も罫線の場合をセルの色の場合と
同じように挑戦してみたのですが挫折しました。それで期待していたもので。(^_^)v

http://cgi.fuji.ne.jp/~fj2094/cgi-bin4/wwwlng.cgi?print+200009/00090454.txt

もう少し、様子をみていよっと！(^_^)v(^_^)v
========================================
From: ケイン
Date: 2000/10/03(火) 15:25:57

こんにちは
またオジャマします。
>選択した全てのセルの罫線
>情報を変数に格納してやれば出来ると思うのですが・・・。
↓不完全ではありますが、こんなものが参考になりませんか ?

Sub TestLineS()
   OrgLine1 = ActiveSheet.UsedRange.Borders(xlTop).LineStyle
   OrgLine2 = ActiveSheet.UsedRange.Borders(xlBottom).LineStyle
   OrgLine3 = ActiveSheet.UsedRange.Borders(xlLeft).LineStyle
   OrgLine4 = ActiveSheet.UsedRange.Borders(xlRight).LineStyle
   With ActiveSheet.UsedRange
       .Borders(xlTop).LineStyle = xlNone
       .Borders(xlBottom).LineStyle = xlNone
       .Borders(xlLeft).LineStyle = xlNone
       .Borders(xlRight).LineStyle = xlNone
   End With
"   MsgBox ""罫線を元に戻します"""
   With ActiveSheet.UsedRange
       .Borders(xlTop).LineStyle = OrgLine1
       .Borders(xlBottom).LineStyle = OrgLine2
       .Borders(xlLeft).LineStyle = OrgLine3
       .Borders(xlRight).LineStyle = OrgLine4
   End With
End Sub

では。
========================================
From: TamTam
Date: 2000/10/04(水) 18:29:41

ケインさん、御助言有り難う御座います。

そして、ごえもんさん、私はまだまだ初級者なので、これで限界です。ご期待に添えるのか
どうか、わかりませんがこの位で・・・。すいません・・・。

ミコさん、何度となく私のコードの動作確認有り難う御座いました。ついでと言っては何な
のですが、新しくしましたのでこんなのどうでしょうか？ごえもんさんへのコメントにも
書いたように私にはこれくらいが限界なので、これが最後ですのでお付き合い頂けたら幸い
です。

で、本題ですが、私も最初はケインさんと同様な形で考えていたのですが、ちょっとコード
が多く成りすぎる様なので、ちょっと（かなり？）変えました。以下のようです。

先ず標準モジュールシートに下記を貼り付けてください。
Public Patc As Range
Dim pbord() As XlBordersIndex
Dim patcc As Long

Sub Setpatc(ByVal Target As Range)
    Set Patc = Target
    patcc = Patc.Cells.Count
"    ReDim pbord(1 To 18, 1 To patcc)"
    For i = 1 To patcc
        With Patc.Cells(i)
        For i2 = 5 To 10
            With .Borders(i2)
                i3 = i2 * 3 - 14
                i4 = i3 + 1
                i5 = i4 + 1
"                pbord(i3, i) = .LineStyle"
"                pbord(i4, i) = .Weight"
"                pbord(i5, i) = .ColorIndex"
            End With
        Next i2
        End With
    Next i
End Sub

Sub Setpatc2()
    Dim patc2 As Range
    Set patc2 = Patc
    Application.ScreenUpdating = False
    For j = 1 To patcc
        With Patc.Cells(j)
            For j2 = 5 To 10
                With .Borders(j2)
                    j3 = j2 * 3 - 14
                    j4 = j3 + 1
                    j5 = j4 + 1
"                    .LineStyle = pbord(j3, j)"
"                    .Weight = pbord(j4, j)"
"                    .ColorIndex = pbord(j5, j)"
                End With
            Next j2
        End With
    Next j
    Application.ScreenUpdating = True
End Sub

そして、Sheet1モジュールシートに
Private Sub Worksheet_Deactivate()
    Setpatc2
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Patc Is Nothing Then
        Setpatc2
    End If
    Setpatc Target
"    Target.BorderAround Weight:=xlMedium, ColorIndex:=3"
End Sub

そして、最後にThisworkbookモジュールシートに
"Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)"
    Setpatc2
End Sub

をそれぞれ貼り付けてください。

以上の様な感じにしたのですが、どうでしょうか？
何かコードの内容等々が変だったらご指摘、ご指導下さい。宜しくお願いします。
========================================
From: ごえもん
Date: 2000/10/04(水) 18:48:34

TamTamさん　ご苦労様でした。かなり難しそうですね　わがままいってすみません。
また、どこかのレスでお会いしましょう。
それでは。
========================================
From: ミコ
Date: 2000/10/04(水) 18:51:20

こんばんは。(^^)

ケインさん、懲りずにまた来て下さってありがとうございまーす。(^^)v!
TamTamさん、今回のマクロ、すごいです。大作ですね。
ここまで来ると、私には何がどうなっているのかもう、さっぱりですぅ(@_@)

>ミコさん、何度となく私のコードの動作確認有り難う御座いました
とんでもないです。偉そうなことしちゃって、ごめんなさいね。
でも、せっかくお呼びいただいたので、またやらせていただきました。

今回のマクロでは、既存の罫線を消すことなく、
アクティブなセルにだけ、色をつける事が出来ました。

ただ、後から罫線を引くと、セルを選択した時点で、
引いた罫線が消えてしまいます。
罫線を引く時は、シートのモジュールに書いたマクロを一旦削除してから
行うといいと思います。

TamTamさん、お疲れ様でした〜。　(^-^)/~~
========================================
From: 実験君
Date: 2000/10/04(水) 20:08:24

みなさんこんばんは

いやぁ〜面白そうなので、私もやってみたら見事にハマってしまいました。(^ ^;;;

>挑戦してみたのですが挫折しました。それで期待していたもので。(^_^)v
ごえもんさん、挫折するなよ〜。ミコさん、「私では・・・」なんか言わないでよ〜
やれば出来る！！・・・・・はず。と言う私も期待組でしたけど・・・

>元からある罫線はやはり元の罫線に戻ってほしいですね。
と言う事で、元に戻るサンプルです。罫線関係をいじくるのは初めてなので、変なところが
あれば適当に修正して下さい。なんか無駄な処理もやっている様な気もするんで・・・

作ってみての感想；
「作ったものの速いマシンで無いとコリャ使えん。それに、罫線をいちいち再描画するんで
　連続にセルの移動をすると酔いそう」です。ActiveCellに背景色でもつけたほうが吉？
　私の中の結論：作ったものの「コリャ使えん。失礼しました。」
TamTamさん　のがスマートそう・・・

※全部シ−トモジュール内に記述しました。作成Excel2K

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call Waku
End Sub

Sub Waku()
'アクティブセルの枠に色をつける
Static PrevCell As Range
Static PreStyle As Variant
"Static PreTopColor, PreBottomColor, PreLeftColor, PreRightColor As Variant"
"Static PreTopStyle, PreBottomStyle, PreLeftStyle, PreRightStyle As Variant"
Static PreTopWeight As Long
Static PreBottomWeight As Long
Static PreLeftWeight As Long
Static PreRightWeight As Long

Application.ScreenUpdating = False
    
    If IsEmpty(PreStyle) Then
        GoTo Dainyu
    End If
    '前のセルに罫線のデータが無かったら
    If PreTopStyle = xlLineStyleNone And PreBottomStyle = xlLineStyleNone And _
            PreLeftStyle = xlLineStyleNone And PreRightStyle = xlLineStyleNone Then
        PrevCell.Borders.LineStyle = xlLineStyleNone
    Else    'LineStyleが設定されていたら
        With PrevCell
            .Borders.LineStyle = xlLineStyleNone
            If PreTopStyle <> xlLineStyleNone Then
                .Borders(xlEdgeTop).LineStyle = PreTopStyle
                .Borders(xlEdgeTop).ColorIndex = PreTopColor
                .Borders(xlEdgeTop).Weight = PreTopWeight
            End If
            If PreBottomStyle <> xlLineStyleNone Then
                .Borders(xlEdgeBottom).LineStyle = PreBottomStyle
                .Borders(xlEdgeBottom).ColorIndex = PreBottomColor
                .Borders(xlEdgeBottom).Weight = PreBottomWeight
            End If
            If PreLeftStyle <> xlLineStyleNone Then
                .Borders(xlEdgeLeft).LineStyle = PreLeftStyle
                .Borders(xlEdgeLeft).ColorIndex = PreLeftColor
                .Borders(xlEdgeLeft).Weight = PreLeftWeight
            End If
            If PreRightStyle <> xlLineStyleNone Then
                .Borders(xlEdgeRight).LineStyle = PreRightStyle
                .Borders(xlEdgeRight).ColorIndex = PreRightColor
                .Borders(xlEdgeRight).Weight = PreRightWeight
            End If
        End With
    End If

Dainyu:
    With ActiveCell
        PreStyle = .Borders.LineStyle
        PreTopStyle = .Borders(xlEdgeTop).LineStyle
        PreBottomStyle = .Borders(xlEdgeBottom).LineStyle
        PreLeftStyle = .Borders(xlEdgeLeft).LineStyle
        PreRightStyle = .Borders(xlEdgeRight).LineStyle
        PreTopColor = .Borders(xlEdgeTop).ColorIndex
        PreBottomColor = .Borders(xlEdgeBottom).ColorIndex
        PreLeftColor = .Borders(xlEdgeLeft).ColorIndex
        PreRightColor = .Borders(xlEdgeRight).ColorIndex
        PreTopWeight = .Borders(xlEdgeTop).Weight
        PreBottomWeight = .Borders(xlEdgeBottom).Weight
        PreLeftWeight = .Borders(xlEdgeLeft).Weight
        PreRightWeight = .Borders(xlEdgeRight).Weight
    End With

'    Debug.Print PreTopStyle; PreBottomStyle; PreLeftStyle; PreRightStyle
"    ActiveCell.BorderAround Weight:=xlMedium, ColorIndex:=3"
    Set PrevCell = ActiveCell
Application.ScreenUpdating = True	

End Sub	

ケインさんへ＞	
&gt;DeActivate とかなんとかあると想像してるんですが	
とありましたのでXL2000のワークシート オブジェクトのイベントを全部書いておきます。	
Activate 	
BeforeDoubleClick	
BeforeRightClick	
Calculate	
Change 	
Deactivate	;グラフまたはブックが非アクティブになったときに発生します。
FollowHyperlink	；ワークシートのハイパーリンクをクリックすると発生します
SelectionChange	

長くなりました。

それでは
========================================
From: ケイン
Date: 2000/10/04(水) 20:50:12

こんばんは
&gt;私の中の結論：作ったものの「コリャ使えん。失礼しました。」
おぉ!やっぱりそうなんだーって思わず言っちゃいました。このたぐいの質問内容は、遊びとして
面白いかどうか、という次元を出るものではありませんね。赤い色にしないと見えない、見ずらい
どうにかして変えたいというほどの切実な希望じゃないでしょ。はっきりいってエクセルは
手品の道具じゃないんだから、回答者が苦労して難しい技を駆使して解決するのを面白がって
悪乗りしないで欲しい! これだけやって、出てきた結論は予想どおりじゃないですか。
子供の遊びにつきあってるヒマはありません。仕事の上で悩んでる人もいっぱいいるんですから。

&gt;XL2000のワークシート オブジェクトのイベントを全部書いておきます
ありがとう。お気持ちだけいただいときます。実際には使えないので覚えようとは思いません。

では。
========================================
From: TamTam
Date: 2000/10/04(水) 22:02:39

みなさん、こんばんわ。
ミコさん、私のわがままにお付き合いしてくれて有り難う御座います。
&gt;ただ、後から罫線を引くと、セルを選択した時点で、引いた罫線が消えてしまいます。
そうそう、これなんですが、未確認でした。でも途中動作確認とかしているときは、
確かマクロを無効にしていたりしていたんですよ。なんて私はバカなんでしょ。
ですが、
&gt;罫線を引く時は、シートのモジュールに書いたマクロを一旦削除してから行うといいと
&gt;思います。
と書いてありますが、マクロを一旦削除ではなく、ＶＢＥで中断のボタンを押せばマクロを
無効に出来ます。そうすれば罫線は書けます。

でも、確認してくれたお陰で、”完成はしていないんだな”と言うのが分かっただけでも
良かったです。有り難う御座いました。でも先にも書いたとおり、私にはもう限界なので
これにて退散します。
========================================
From: ごえもん
Date: 2000/10/04(水) 23:12:26

ケインさんにも　おしかりをこうむったことだし　この件については
みなさん、この辺でおひらきにしませんか。ただ初級者にしてはこう
いうのってけっこう勉強になるんですよね。(^_^)v　ではまたの会う日を。