エクセルの学校：全文検索：Hyper Estraier： cell filename

Results of 1 - 1 of about 295 for cell filename (0.001 sec.)

cell (1170), filename (1984)

[[20140611141444]]: #score: 11157; @digest: 005a1c1171874580e200e47e2011484c; @id: 65358; @mdate: 2014-06-11T22:30:23Z; @size: 3114; @type: text/plain; #keywords: sheet001 (26885), sheet003 (14536), sheet00 (13180), 太文 (12986), 列se (6877), 象文 (5859), 準→ (5007), fontstyle (4986), 正案 (4289), 応修 (4065), 太字 (3932), を太 (3319), 字" (3208), スエ (2293), jera (2059), findnext (1773), 索対 (1663), 右隣 (1624), デッ (1056), 「sh (1036), filename (953), 2014 (883), 記入 (876), ト名 (868), 囲( (861), 「a (846), address (843), 「00 (832), ンデ (784), 一セ (778), 003 (771), 象範 (771); 『シート名の一部を取得してセルの値を太文字にする』（なっち）
お世話になってます。シートが3つ、シート名は「Sheet001」「Sheet002」「Sheet003」です。全てのシートの中のセルに、文字列で「001」」「002」「003」がランダムの位置に記入されています。（位置は不特定）その記入された数値の右隣には全て「A」と記入されています。シート名の数値が「Sheet001」の場合、シートの中から001を見つけて「A」の文字を標準→太文字に変更したいです。 Sheet001 の場合 001 A ←これを太文字にする 002 A 003 A Sheet003 の場合 001 A 002 A 003 A ←これを太文字にする詳しい方、よろしくおねがいします。＜使用 Excel:Excel2013、使用 OS:WindowsXP ＞ ---- 一例です。 Sub sample() Dim i As Long, j As Long, f As Range Dim s1 As String, s2 As String, ad As String For i = 1 To 3 'シート数 s1 = "00" & i & " A" '検索対象文字列 s2 = "A" '変更対象文字列 Set f = Sheets("Sheet00" & i).Cells.Find(s1, , , 1) If Not f Is Nothing Then ad = f.Address Do j = InStr(f, s2) If j Then f.Characters(j, Len(s2)).Font.FontStyle = "太字" Set f = Sheets("Sheet00" & i).Cells.FindNext(f) Loop Until ad = f.Address End If Next i End Sub （Jera） 2014/06/11(水) 16:06 ---- 標準機能の例で。シートのどこかにシート名を置いて(例えばAA1) B1をクリックしてから対象範囲(B:Z)を選択し、条件付書式の数式で =RIGHT($AA$1,3)=A1 で書式で太字でどうでしょうか。 AA1 には =RIGHT(CELL("filename",A2),LEN(CELL("filename",A2))-FIND("]",CELL("filename",A2))) などでシート名表示はできます。（Mook） 2014/06/11(水) 16:14 ---- Jeraさん、ありがとうございます。やってみましたが、「インデックスが有効範囲にありません。(Error 9)」とエラーになってしまいうまくいきませんでした。。それと「A」ですが、セルに記入されているのは「A」とは限らず、右隣のセルに入力されている文字を太文字にしたいです。「A」はサンプル文字です。 Mookさん、ありがとうございます。試してみます。。（なっち） 2014/06/11(水) 16:26 ---- Mookさん、出来ましたぁ! ありがとうございました! また教えてください。。（なっち） 2014/06/11(水) 16:37 ---- あぁ、同一セルに"001 A"と入力されていて、セルの一部だけ太字にしたいのかと思ってました。 ※一応修正案を出しておきます。インデックスエラーは実際のシート名が"Sheet001"のようになっていないのでしょうね。 Mookさんの案で解決されたようなので、これでも大丈夫かな… Sub sample() Dim i As Long, f As Range Dim s As String, ad As String For i = 1 To Worksheets.Count s = Right$(Sheets(i).Name, 3) '検索対象文字列 Set f = Sheets(i).Cells.Find(s, , , 1) If Not f Is Nothing Then ad = f.Address Do f.Offset(, 1).Font.FontStyle = "太字" Set f = Sheets(i).Cells.FindNext(f) Loop Until ad = f.Address End If Next i End Sub （Jera） 2014/06/11(水) 16:46 ---- Jeraさん、おはようございます。修正案確認しました、出来ました! ありがとうございました! また教えてくださいね。。（なっち） 2014/06/12(木) 07:30 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201406/20140611141444.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ