エクセルの学校：全文検索：Hyper Estraier：（素人）

Results of 1 - 1 of about 159 for （素人） (0.001 sec.)

[[20100824022156]]: #score: 10177; @digest: 227c4e8489d05446a6f04e30eb827a20; @id: 51014; @mdate: 2010-08-25T11:00:27Z; @size: 8998; @type: text/plain; #keywords: 積一 (60335), 谷建 (28639), 中建 (22290), 設" (17590), 設", (16636), 建築 (15669), d102 (15209), 田建 (14706), 建設 (13997), 今入 (11161), コタ (10172), 見積 (8638), colr (8185), 表シ (5163), 色付 (4612), ト保 (4453), 前教 (4383), 了if (4329), 覧表 (4227), 社名 (3970), タさ (3454), ル入 (3005), 会社 (2503), 一覧 (2247), 定値 (1986), トb (1828), 保護 (1751), colorindex (1591), シー (1496), 山田 (1438), の色 (1361), トa (1356); 『マクロのやり方』（ゆき）
[[20100821224618]] でせっかく教えて頂いたのですが大変申し訳ありません最初出来ていたと思ったのですが一行だけで調べていまして今2行目3行目と打込んでいったらその時その時に ALTとF8 を押して実行を押さないと色が変わらないんです。すみません(^_^;) それと D3:D102 とE3:E102 は山田建設とか田中建設とかいう文字を隣のシートBから抽出してくるのですがその隣のシートBの田中建設とかを一旦入力して色の変わる方のシートAの色が一旦変わるのですが、シートBの山田建設というのを消して、他の会社名にするとシートAの方の色の変わるセルは色が最初に付いてしまった色から変わりません。すみませんよく私は打ち間違えとかをするので何度会社名を変えても色がその都度変わるようになるものでしょうか? 大変すみません私のマクロの設定の仕方?とかやり方が変なのだと思いますすみませんが宜しくお願い致します m(__)m ---- こんにちは。 [[20100526142441]]『セルに入る文字によってセルの色を変えたい』（素人） こちらと同じように、入力した時点で色付けしたいということですね。（解決したと書かれていたので、静観してました）＞私のマクロの設定の仕方?とかやり方が変なのだと思いますいいえ、そもそもマクロの起動方法には、手動と自動の2種類あり、・Mookさんの書かれたコードは手動で、（マクロの名前は、YukiPaint のように任意）・『セルに入る文字によってセルの色を変えたい』で提示されたコードは自動（マクロの名前は、Workbook_SheetChange のように既定）だったのです。（正確には、自動というより、何かのExcel操作（※）に連動してマクロが起動するということですけど。 ※イベントと呼ばれ、セルに入力する、選択範囲を変える、シートを開くなどがあります）なので、ご質問される時点で、どのような方法でマクロを起動したいかを書いておくとよかったですね。ところで、今回もセル入力によってマクロ起動する場合、1つ懸念があって、同じイベント（この場合、セル入力）について、複数のマクロは書けない、のです。つまり、今回のブックが、『セルに入る文字によってセルの色を変えたい』で提示されたコードが書かれているブックと同じなら、そのコード自体を変更しないといけないのです。（別のブックなら新たに追加すればいいだけですけど）今回のブックと、『セルに入る文字によってセルの色を変えたい』のブックは同じでしょうか? （コタ） ---- （ゆき）コタさんありがとうございます。見てくださって嬉しいです。実はコタさんの言われるとおりです。前コタさんが教えて下さったマクロを入れて同じように作ってみたのですがやはり難しかったです (^_^;) MOOKさんにもせっかく教えて頂いたのに私の知識不足で申し訳ない限りです(^_^;) 今入っているのは以前教えて頂いたもので '色付けマクロ（シート保護追加） Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim colr As Integer '↓複数セルをまとめて変更したら終了 If Target.Count > 1 Then Exit Sub '↓D1セル以外の変更なら終了 If Target.Address <> "$D$1" Then Exit Sub '↓D1セルの値によって色を指定 Select Case Target.Value Case "山田建設" colr = 10 '緑 Case "近藤建設" colr = 5 '青 ' 設定を増やすときは、↓の2行を☆行の上にコピペして、 ' 会社名と数値を変更する Case "田中建設" colr = 7 '桃 Case "橋本工務店" colr = 9 '茶 Case "浜建築" colr = 29 '紫 Case "谷建築" colr = 46 '橙 Case "工賃" colr = 16 '灰 Case "大組" colr = 11 '畳 Case "たたみ" colr = 12 '畳 Case "谷建築工房" colr = 3 '赤 Case "" colr = xlNone '色なし '☆ '↓上記以外の入力またはブランクのとき Case Else colr = 41 '水色 End Select '↓色付け直前にシート保護を解除（2010/7/22追加） Sh.Unprotect '↓D1セルのパターンを指定値に変更 Target.Interior.ColorIndex = colr '↓開いているシートのタグ色を指定値に変更 Sh.Tab.ColorIndex = colr '↓色付け直後にシート保護を設定（2010/7/22追加） Sh.Protect End Sub です。それで今回はシートAのD3:D102 に入った会社名で D3:D102 とE3:E102 の両方の色を変えたいです。いつもありがとうございます見てくださってありがとうございます(*^_^*) 宜しくお願い致します (*^_^*) ---- ＞今入っているのは以前教えて頂いたものでやはり、同じブックでしたか。それでは変更にあたって、いくつか確認しますね。・今入っているマクロは、全てのシートについて、 D1セル（とシートタブ）だけ色を付けるもの・・・これを処理Aと呼びますです。今回追加するのは、 D3:D102 とE3:E102全てに対して色を付ける・・・これを処理Bと呼びますのですが、これは特定のシートについてのみ行うのでしょうか。もしそうであれば、特定シートについて以下を教えてください。（1）名前は? （2）処理Aは行わない? （3）シート保護は行う? ・色付けのルール（どの会社名にどの色をつけるか）は、今のマクロと同じでよい? （逆に変えると分かりづらいですよね）・D3:D102に入力やコピーするとき、まとめて複数行うこともよくある? （今のマクロはセル1つにしか対応していない）（コタ） ---- （ゆき）コタさんありがとうございます。同じブックではなく見積書として[[20100719154733]] で教えて頂いたものです。この見積一覧表シートを 152行だったのを 102行に直しました。 150枚のシートから見積一覧表シートにくるようにしていました。それで 150枚は多かったので 100枚に直し、見積一覧表シートの行数も 152行から 102行に直しました。それと見積一覧表の、D列とか他何列かを追加したりしました。それで、前教えて頂いたマクロを、使ってみようとしまして、100枚のシートのD1に会社名を入れたら文字の色と、シートの見出しの色が変わるようになるかと入れてみましたら、なりました。自分でもびっくりしました。コタさんのおかげです m(__)m それで今回は見積一覧表の方の DとEに会社名が入りますがよく考えてみたら E列だけの色が変わればよかったです。Dは色が変わらなくても良かったです。すみませんそれとシート保護は最初からこの見積一覧表はかまったら駄目と思ってシート全体にロックをかけましたそれと色付けのルールは上と同じがいいです。 >D3:D102に入力やコピーするとき、まとめて複数行うこともよくある? （今のマクロはセル1つにしか対応していない）これはシート100枚を続けて3枚とか5枚とか打つときもあるので複数がDとE列に入ることはありますコタさんどうもありがとうございます (*^_^*) いつもお世話になりますありがとうございます(*^_^*) ---- ・関連スレ [[20100821224618]] 『会社別に色をつけたい』（ゆき） [[20100719154733]] 『会社別に抽出したいのですが』（素人） [[20100526142441]] 『セルに入る文字によってセルの色を変えたい』（素人） ＞同じブックではなく見積書として[[20100719154733]] で教えて頂いたものですおっと、別のブックでしたか。＞今回は見積一覧表の方の DとEに会社名が入りますがということだと、セル入力によってマクロを起動する方法は、使いづらいですね。では、見積一覧表シートを開いたときに、まとめて色付けしましょう。そうすれば、「シート100枚を続けて3枚とか5枚とか」打っても問題ないですし、今入っているマクロは、変更不要になります。 ↓のマクロを、今入っているのと同じ場所（上でも下でも可）にコピペしてから、 Excelのシートに戻って、見積一覧表シートを開きなおしてみてください。（Dictionaryの使い方は、Mookさんのコードを参考にさせていただきました） ○【ThisWorkbook】モジュール ↓ここから '見積一覧表色付けマクロ Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim dic As Object Dim v As Variant Dim i As Long '↓見積一覧表以外を開いたら終了 If Sh.Name <> "見積一覧表" Then Exit Sub Set dic = CreateObject("Scripting.Dictionary") ' 設定を増やすときは、↓の行をコピペして、 ' 会社名と数値を変更する dic.Add "山田建設", 10 '緑 dic.Add "近藤建設", 5 '青 dic.Add "田中建設", 7 '桃 dic.Add "橋本工務店", 9 '茶 dic.Add "浜建築", 29 '紫 dic.Add "谷建築", 46 '橙 dic.Add "工賃", 16 '灰 dic.Add "大組", 11 '濃青 dic.Add "たたみ", 12 '濃黄 dic.Add "谷建築工房", 3 '赤 '↓会社名のある範囲（D列）※ここは必ず1行目から v = Sh.Range("D1:D102").Value '↓色付け直前にシート保護を解除 Sh.Unprotect '↓E列のパターンを指定値に変更 For i = 3 To 102 '3〜102行目 With Sh.Cells(i, "E").Interior If v(i, 1) = "" Then '↓ブランクのとき .ColorIndex = xlNone '色なし ElseIf dic.exists(v(i, 1)) Then '↓上で設定した会社名のとき .ColorIndex = dic(v(i, 1)) '各色 Else '↓上記以外のとき .ColorIndex = 41 '水色 End If End With Next '↓色付け直後にシート保護を設定 Sh.Protect Set dic = Nothing End Sub ↑ここまで（コタ） ---- （ゆき）コタさん凄いです出来ました!!良かったですーー★ 本当にありがとうございます。いつもいつも感謝致しております(*^_^*) 素人の私にいつも判りやすく教えて頂いて本当に感謝で一杯です。どうもありがとうございます m(__)m 又どうか宜しくお願い致します m(__)m ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201008/20100824022156.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ