tom04のプロフィール

Excel2013でマクロ実行するのですが、最後のstepの「条件付き書式」のcopyが上手く行きません。どなたかご教授お願いします。 A～J列ｘ約4000行(1行～5行まではTytle行)のsheetです。 A列は日付で、過去からの日付となって居ます。 このsheetを見易くする為にA6行に 「条件付き書式」 =mod(month(A6),2)=0 を設定し、下記のmacro式でA6～J4000にCOPYするのですが、結果は上手く行きません。 ※１：偶数月行のA列のみ正確に書式設定されるが、全列（A～J)にならない。 ※２：奇数月のところどころ（列）に書式が設定される。 の不具合が生じます。 考えられる原因は何でしょうか？、ご教授願えませんでしょうか？。 与えたmacro Range("A6").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=MOD(MONTH(A6),2)=0" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 11200714 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = True Selection.Copy Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A6").Select End Sub

画像のように左の表から右の表に変更する数式みないなものがあればご教授いただきたく思っております。 クラスは複数あると過程して（数百～数千）、また数字もこの画像ですと５つまでですが、 実際のものは数十あります。 以上よろしくお願いいたします。

EXCELでシフト表を作成していますが次の操作をVBAで処理したいと考えていますが初心者で難しく教えて頂きたく宜しくお願いいたします。 1.sheet1でB1～AF1に日付、A2～A15に名前、日ごとに担当者を決め役割を記号(1)、(2)、（1）、（2）、等の記号をセルに入れてAさんは1日には(1)2日は(2)とこんな感じでシフト表を作成しています 2.Sheet2のB1～AF1に日付、A2に(1)、A3に（１）、A4に(2)～と記号を入れ、シフト表の逆で例えば1日の(1)は誰が担当者かを分かるようにSheet1のシフト表からSheet2のセルに担当者を代入する表を作りたいのです（ここの構文を教えて頂きたい）。Range("A1").Valueでお願いしますRC形式だと分からないのです勝手で説明が下手ですいません、何卒宜しくお願いたします。

EXCELでシフト表を作成していますが次の操作をVBAで処理したいと考えていますが初心者で難しく教えて頂きたく宜しくお願いいたします。 1.sheet1でB1～AF1に日付、A2～A15に名前、日ごとに担当者を決め役割を記号(1)、(2)、（1）、（2）、等の記号をセルに入れてAさんは1日には(1)2日は(2)とこんな感じでシフト表を作成しています 2.Sheet2のB1～AF1に日付、A2に(1)、A3に（１）、A4に(2)～と記号を入れ、シフト表の逆で例えば1日の(1)は誰が担当者かを分かるようにSheet1のシフト表からSheet2のセルに担当者を代入する表を作りたいのです（ここの構文を教えて頂きたい）。Range("A1").Valueでお願いしますRC形式だと分からないのです勝手で説明が下手ですいません、何卒宜しくお願いたします。

Excel上のVBAで資料作成をおこなっているのですが、一部、どうしたら良いのかわかりません。 アドバイスをお願いいたします。 ■やりたいこと 　・Excelの一覧表で、行ごとに1番大きい値と2番目に大きい値を取得する。 　・取得する際、項目名（1行目にある値）も併せて取得する。 　・取得数の上限は2件のため、1番目、2番目がそれぞれ複数ある場合、 　　あらかじめ用意してある、優先順位の表にしたがって上位2件を取得する。 ■例 　・図のような成績表があった場合、取得結果は以下を想定しています。 　　Aさん→国語：100、英語：90 　　Bさん→数学：100、社会：90 　　Cさん→国語：80、数学：60 　※ 　　・Aさん： 　　　・最大値→国語：100 　　　・2番目→英語：90 　　　最大値、2番目ともに、そのまま取得でOK。 　　・Bさん： 　　　・最大値→数学：100 　　　　そのまま取得でOK 　　　・2番目→理科と社会の90 　　　　優先順位で社会が上位にあるため、社会を取得。 　　・Cさん： 　　　・最大値→国語と英語の80 　　　　優先順位で国語が上位にあるため、国語を取得。 　　　・2番目→数学と理科の60 　　　　優先順位で数学が上位にあるため、数学を取得。 よろしくお願いします。