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

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

[[20120524220149]]: #score: 10177; @digest: 5843c8ce8dcc3f869956c37f3de8492e; @id: 59066; @mdate: 2012-05-27T08:33:12Z; @size: 7480; @type: text/plain; #keywords: myidx (38086), 他if (14647), ‾)/ (14096), 築" (14010), 較対 (11068), 後増 (6383), sheetchange (5688), 理ca (5509), 株) (5464), 建築 (5223), colorindex (5092), 有) (4603), ルd1 (4406), ト見 (3492), case (2919), 将来 (2656), 社名 (2526), tab (2525), す" (1866), 会社 (1733), 素人 (1674), マス (1595), 比較 (1528), 見出 (1523), sh (1503), すm (1368), ichinose (1239), の色 (1134), isnumeric (1078), workbook (1038), select (977), byval (909); 『シート見出しの色をマクロで』（素人） エクセル2010 以前ここで教えていただきありがとうございましたm(__)m それで一つ付け加えて頂きたくて教えてくださいm(__)m Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Select Case Sh.Range("D1") Case "インテリア" Sh.Tab.ColorIndex = 10 Case "(株)松本" Sh.Tab.ColorIndex = 5 Case "栄建設(有)" Sh.Tab.ColorIndex = 7 Case "(有)橋本" Sh.Tab.ColorIndex = 9 Case "荒浜" Sh.Tab.ColorIndex = 29 Case "谷建築" Sh.Tab.ColorIndex = 46 Case "工賃" Sh.Tab.ColorIndex = 16 Case "(株)大組" Sh.Tab.ColorIndex = 11 Case "まつおか" Sh.Tab.ColorIndex = 12 Case "(株)建築" Sh.Tab.ColorIndex = 3 Case "(有)ゾーン" Sh.Tab.ColorIndex = 25 End Select End Sub となっていますが上にある11の会社名以外が入った時には 15番の色を付けたいのですがどうやったらいいでしょうかm(__)m 11からまだ今後増えていくと思いますがとにかくそれ以外の言葉が入った時には 15番の色を付けたいのですがすみませんが教えてください m(__)m 宜しくお願い致しますm(__)m ---- Case Else 以下にヒントを。 Sub hint() Dim s As String s = "ABC" Select Case s Case "AAA" MsgBox "AAAです" Case "BBB" MsgBox "BBBです" Case "CCC" MsgBox "CCCです" Case Else MsgBox "その他です" End Select End Sub (ぶらっと) ---- ぶらっとさんありがとうございますm(__)m すみません知識がなく(>_<) すみません(>_<) よく意味が判らず申し訳ないですm(__)m Sub hint() Dim s As String s = "ABC" Select Case s Case "AAA" MsgBox "AAAです" Case "BBB" MsgBox "BBBです" Case "CCC" MsgBox "CCCです" Case Else MsgBox "その他です" End Select End Sub これを先に作ったものの下に張り付けましたが出来ませんでした(>_<) AAA とかBBBとかはこのまま入れずに会社名に置き換える?でしょうかm(__)m 今教えて頂いたのを追加して D1 に例えばですがリンゴ会社と入れてみましたがシート見出しの色は何も付きません(>_<) 本当にすみません教えてくださいm(__)m 何卒宜しくお願い致しますm(__)m ---- いやぁ・・・・（汗）ヒントということだったんだけどね。 Select Case 比較対象のもの Case ○○ 比較対象が ○○ だったらそのときの処理 Case ●● 比較対象が ●● だったらそのときの処理 Case ◎◎ 比較対象が ◎◎ だったらそのときの処理 ' '必要なだけ、この記述をして ' Case Else 比較対象が上で比較したもの【以外】だったらそのときの処理 End Select だから、今、持っているコードの End Select の前に Case Else Sh.Tab.ColorIndex = 15 こう、追加してもらおうとしたんだけどな。 (ぶらっと) ---- （素人）ぶらっとさんm(__)m いつもありがとうございます(^_^) m(__)m 出来ました\(‾o‾)/ でもさぞかし呆れられた(‾_‾;) と思いました(‾_‾;) すみません(‾_‾;) 意味が理解できず… (>_<) 関数とかマクロって難しいですねー何か凄い勉強になります(*^_^*) どうもありがとうございました(^_^) m(__)m m(__)m m(__)m 感謝いたします(*^_^*) ---- ちょっと記になったので・・・・。 >Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) > Select Case Sh.Range("D1") > ・ > ・このChangeイベント、セルD1に入力した時だけ処理をするのではないこと、理解されていますか? セルD1以外の入力でも常にセルD1の値でCase文が作動しています。実際、試してみると殆どストレスはありませんが、処理の流れを知っていての上記のコードという判断なら良いのですが、知らないと上記の記述だと大きいストレスが発生する場合もあるので注意してください。 >11からまだ今後増えていくと思いますがこれは、Case節を増やしていく予定があるということですね? プログラムの変更回数は、プログラムの品質を落とす要因になっています。よって、作成時に将来を予測し、変更を少なくする手法を選択しなければなりません。 Case文の理解を深めることは良いことです。が、既に >今後増えていくという予想がたつならば、増えていってもコードの変更をしなくても済む方法を見つけることも必要だと思いますが、検討してみてください方法としては、どこかのシートに一覧をつくり、その表をVlookup等で検索する方法が考えられます。この方法をとると、データが増えてもコードの変更は要らなくなります。 ichinose ---- ichinoseさんから貴重なアドバイスがでているので、是非、内容を理解してね。で、将来の追加も考えたときの対処案として、以下も参考に。マスタというシートを作って、A列に会社名、で、そのセルの背景色をその会社名のシートタブにしたい色にしておく。で、コードを以下のように。こうしておけば将来の追加時には、マスタシートに会社を追加し、そのセルに好みの色をつけるだけでコード変更は不要になる。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim x As Variant Dim myIdx As Long If Not Intersect(Target, Sh.Range("D1")) Is Nothing Then With Sheets("マスタ") x = Application.Match(Sh.Range("D1").Value, .Columns("A"), 0) myIdx = 15 'その他 If IsNumeric(x) Then myIdx = .Cells(x, "A").Interior.ColorIndex Sh.Tab.ColorIndex = myIdx End With End If End Sub (ぶらっと) ---- (素人） ichinoseさんぶらっとさんありがとうございます(^_^) 上のマクロのを入れてやってみました(^_^) うまくできました(^_^) 出来たので感動しました〜〜\(‾o‾)/ そこでですが一つ気が付いたのですが D1セルに入れた言葉を消してもシート見出しの色は消えないのですが D1を消したら見出しの色もまた空白に戻り… また別の会社名に変更したらその見出しの色もそれに伴った色に変更になる… 消したらまたシートタグの色も消える… などというのは出来るものでしょうかm(__)m こうなっていると便利だななどと素人考えで使っていて思ってしまいました(‾_‾;) 会社名を入れ間違えたりするとシート見出しの色をいったん透明にしてからまたD1 に会社名を入れなおす… という作業なのでパッと消えたりパっと変更になればいいな〜などと思ってしまいました(‾_‾;) これって出来るものでしょうかm(__)m すみませんが教えてください何卒宜しくお願い致しますm(__)m ---- じゃぁ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim x As Variant Dim myIdx As Long If Not Intersect(Target, Sh.Range("D1")) Is Nothing Then With Sheets("マスタ") myIdx = xlNone If Len(Sh.Range("D1").Value) > 0 Then x = Application.Match(Sh.Range("D1").Value, .Columns("A"), 0) myIdx = 15 'その他 If IsNumeric(x) Then myIdx = .Cells(x, "A").Interior.ColorIndex End If Sh.Tab.ColorIndex = myIdx End With End If End Sub (ぶらっと) ---- (素人）ぶらっとさ〜〜〜〜ん\(‾o‾)/ 出来ましたよ〜〜〜(*^_^*) \(‾o‾)/ 本当にありがとうございます〜〜凄いです〜〜\(‾o‾)/ 感謝でいっぱいです〜〜m(__)m 本当にどうもありがとうございました(^_^) 感謝いたします m(__)m m(__)m m(__)m \(‾o‾)/ ありがとうございました \(‾o‾)/ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201205/20120524220149.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ