エクセルの学校：全文検索：Hyper Estraier：条件付き書式

Results of 1 - 1 of about 4506 for 条件付き書式 (0.007 sec.)

[[20140428091532]]: #score: 3703; @digest: 1631e11a48541f9ab290c5ec0fa3bf6c; @id: 65050; @mdate: 2014-04-28T06:21:52Z; @size: 2558; @type: text/plain; #keywords: allowformattingcells (6527), 合後 (4764), 合解 (4319), 縦2 (3676), ル結 (3666), 該セ (3417), ッテ (2798), 見付 (2471), 在行 (2379), コッ (2032), xlinsidehorizontal (1973), 解除 (1960), formatconditions (1955), 結合 (1949), スコ (1754), unprotect (1620), とa4 (1612), 数枚 (1509), typename (1502), 件付 (1491), protect (1467), 除後 (1434), 当該 (1112), xlcontinuous (992), 今現 (989), selection (953), 次第 (836), き書 (810), linestyle (782), ト検 (773), 書式 (707), activesheet (689); 『セル結合→解除後の条件付き書式』（スコッティ）
いつもお世話になっております。 A3セル以降に、「数式が」「=MOD(INT((ROW()-1)/2),2)=1」と言う 条件付き書式を設定し、2行毎にセルに色を付けるようにしています。縦2行は必要に応じて結合したり解除したりする事があります。一部のセルにロックをして、シートに保護をかけました。セルの結合等を行う為に、ネット検索で見付けたコードをほぼそのままに以下のコードを作成しました。それぞれボタンに登録して使用しています。 Sub セル結合() If TypeName(Selection) = "Range" And Selection.Cells.Count > 1 Then ActiveSheet.Unprotect Selection.Merge ActiveSheet.Protect , AllowFormattingCells:=True End If End Sub Sub セル結合解除() If TypeName(Selection) <> "Range" Then Exit Sub ActiveSheet.Unprotect With Selection 'セル結合解除 .UnMerge '内側の水平方向の罫線を引く With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin End With End With ActiveSheet.Protect , AllowFormattingCells:=True End Sub A3とA4行以外のセルはセル結合や解除を行っても問題ないのですが、 A3とA4行だけ、結合後に解除をしようとマクロを実行すると、 A4行の条件付き書式の設定が消えてしまいます。消えた後に当該セルを選択して条件付き書式を再び設定し直せば良いのですが、何度か繰り返す事を考えるとどうにか回避する方法がないかと思った次第です。何か解決方法が御座いましたらご教示頂ければ幸いです。どうぞ宜しくお願い致します。＜使用 Excel:Excel2003、使用 OS:Windows7 ＞ ---- >A3とA4行だけ、結合後に解除をしようとマクロを実行すると、 A4行の条件付き書式の設定が消えてしまいます。消えた後に当該セルを選択して条件付き書式を再び設定し直せば良いつまり、解除マクロの最後に条件付き書式を再び設定するコードを足せばよろしいのでは? （___） 2014/04/28(月) 14:20 ---- ___ 様有難う御座います。その方法は、下から3行目と4行目の間にマクロの記録から取った以下のコードを挿入して今現在行っている方法なのですが、色だけ変えたものが複数枚あるので、何とか消えない方法があればと思いお聞きした次第です。質問を端折ってしまいお時間を頂く結果となり誠に申し訳ないです。 '条件付き書式再設定 With .FormatConditions .Delete .Add Type:=xlExpression, Formula1:= "=MOD(INT((ROW()-1)/2),2)=1" End With .FormatConditions(1).Interior.ColorIndex = 34 やはり現行のコードで運用する事に致します。またお世話になる事があるかもしれませんが、どうぞ宜しくお願い致します。（スコッティ） 2014/04/28(月) 15:21 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201404/20140428091532.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ