エクセルの学校：全文検索：Hyper Estraier：選択　セル　目立たせる

Results of 1 - 1 of about 33 for 選択　セル　目立たせる (0.023 sec.)

選択 (24685), セル (67549), 目立たせる (54)

[[20040521141055]]: #score: 11245; @digest: 3340e66685e6f0b4285a37a1efbccb06; @id: 6771; @mdate: 2004-05-21T15:04:48Z; @size: 3740; @type: text/plain; #keywords: atflg (17052), wsflg (10731), 20030910025935 (8928), 常モ (5223), 目立 (2537), enabled (2347), commandbars (2035), 式( (1446), address (1265), 話番 (1216), selectionchange (1187), 電話 (1062), 解不 (977), target (975), 再計 (974), ルク (926), ダブ (849), モー (833), 択後 (810), 行下 (718), 行全 (695), も全 (583), columns (553), screenupdating (539), ル選 (472), ・・ (444), ブル (433), 拝見 (427), リッ (424), worksheet (423), クリ (420), 行列 (414); 『選択したセルの行に色をつける方法』（よっしー）
毎回初歩的な質問ですみません。セルを選択したとき、それが何行目かがわかりにくいので色をつけたいのですが、どなたかよろしくお願いします。名前読みがな生年月日住所電話番号 Aさん bさん cさん bさんの電話番号を指定したときその行全体に色がつき、一行下へ移動すると色も移動するような方法を知りたいのですが・・・エクセル2003 xpです ---- VBA を使うことになると思いますが、問題ないですか? あらかじめ色の付いているセルがあると、それらには対応できません。 (INA) ---- 衝突しました。 VBAでやったほうが良いかもしれませんが・・・。挿入(I)＞名前(N)＞定義(D) （ShortCut:Ctrl+F3） :名前: GTCEL :参照範囲: =GET.CELL(1)&REPT("",NOW()*0) リスト範囲を選択して、書式(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]も拝見させていただきましたが私には理解不可能なことばかりでした。私の力は○の数を数えたり、30点以下なら赤字にする程度のものですので今回のやりたいことは心残りですが諦めることにします。次回の質問の時にもどうぞよろしくお願いします。 ---- **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) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200405/20040521141055.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ