[[20040521141055]]　『選択したセルの行に色をつける方法』（よっしー）　ページの最後に飛ぶ

『選択したセルの行に色をつける方法』（よっしー）

毎回初歩的な質問ですみません。

セルを選択したとき、それが何行目かがわかりにくいので色をつけたいのですが、どなたか
よろしくお願いします。

名前　　　読みがな　　　生年月日　　　住所　　　電話番号　　　　
　

Aさん

bさん

cさん

bさんの電話番号を指定したとき　その行全体に色がつき、一行下へ移動すると色も移動するような方法を知りたいのですが・・・

エクセル２００３　ｘｐです

 VBA を使うことになると思いますが、問題ないですか？

 あらかじめ色の付いているセルがあると、それらには対応できません。

  (INA)

 衝突しました。
 VBAでやったほうが良いかもしれませんが・・・。
挿入(I)＞名前(N)＞定義(D)　（ShortCut：Ctrl+F3）

名前
参照範囲

 リスト範囲を選択して、
書式(F)＞条件付書式(D)で
[数式が][=ROW()=ROW(INDIRECT(GTCEL))]
とします。
セル選択後、F9キー（再計算）で書式が変更されます。
さすがにこの方法だと再計算は省けません。
イベントマクロで下記を追加すればいいのですが、
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.Calculate
 End Sub
だったら、「ぜんぶVBAで作ったら？」とINAさんにいわれそう・・・。
(KAMIYA)

 >「ぜんぶVBAで作ったら？」とINAさんにいわれそう・・・。
 たしか、以前同じような質問があって、
 みんなでVBAのコードを掲載したような気が・・・・

  (INA)

 みつけました。

[[20030910025935]]『カーソルのある行・列を目立たせたい』（Achilley）

  (INA)

みなさんありがとうございました。

でも、VBAもマクロも全くわかりません。[20030910025935]も拝見させていただきましたが私には理解不可能なことばかりでした。私の力は○の数を数えたり、３０点以下なら赤字にする程度のものですので今回のやりたいことは心残りですが諦めることにします。

次回の質問の時にもどうぞよろしくお願いします。

1.たとえば↓をコピーします。

 Dim WsFlg As Byte, AtFlg As Byte
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As  Boolean)
    If AtFlg = 0 Then
        AtFlg = 1
        CommandBars("Cell").Enabled = False
    Else
        AtFlg = 0
        CommandBars("Cell").Enabled = True
    End If
 End Sub
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If AtFlg = 1 Then
        Dim Cl1 As Long, Cl2 As Long, Rw1 As Long, Rw2 As Long
        If WsFlg = 0 Then
            WsFlg = 1
            Cl1 = Range(Target.Address).Column
            Cl2 = Range(Target.Address).Columns.Count
            Rw1 = Range(Target.Address).Row
            Rw2 = Range(Target.Address).Rows.Count
            Application.ScreenUpdating = False
            Range(Range(Columns(Cl1), Columns(Cl1 + Cl2 - 1)).Address & "," & _
                  Range(Rows(Rw1), Rows(Rw1 + Rw2 - 1)).Address).Select
            Target.Activate
            Application.ScreenUpdating = True
        End If
        WsFlg = 0
    End If
 End Sub

2.Excelを立ち上げ、Altキーを押しながらF11キーを押し、VBEを開きます。

3.左上にVBAProjectという欄から、Sheet1をダブルクリックします。

3.右に出た白いところをクリックして、先にコピーしたコードを貼り付けます。

4.VBEは×で終了し、Excelのシート1のどこかのセルでダブルクリックします。

以降はダブルクリックをするたびに、通常モードと行列を目立たせるモードが切り替わります。

 （ramrun）

（ramurun）さん有り難うございました。できました！

どこを押さえても面白いように色がつくので笑えてきました。

こんな初心者にもできるように詳細に教えていただいて感謝！です。

すぐに忘れてしまいますのですぐにこの文章ごと保存しました。今までの分も全部
保存してあります。大夫たまってきました。このコーナーが病みつきになってしまい
毎日何時間も見ています。

ramrunさん

好きだよ。

初心者への愛情を感じるぜ。

(sourcebaretokumei)

コメント返信：