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 　　　　優先順位で数学が上位にあるため、数学を取得。 よろしくお願いします。

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

生年月日（F3：F187）から85歳6か月になる人を（I3:I187)に☆を入力する構文を教えてください。 sheet名は入力です。よろしくお願いします

マクロ付ファイルを開いたときに セキュリティの警告　マクロが無効にされました。　コンテンツの有効化 が表示される時と表示されない時があるのですが、 どういう基準なのでしょうか？ ファイルによって何か設定があるのですか？

エクセルで特定の範囲内の数値にあてはまるデータを別のシートに新たな表として作成したいのですが、簡単な方法があれば教えてください。 例えば Sheet１ 　　A　　　B　　　　 C　 1　25　　ミカン　　　3000 2　30　　リンゴ　　 4500 3　 5　　メロン　　　9800 4　17　　ブドウ　　 1800 5　50　　バナナ　　1000 このようなデータを次のような表にしたいのです。 A列の数値が10～30のみ行ごと抜粋する Sheet2 　　A　　　B　　　　 C　 1　25　　ミカン　　　3000 2　30　　リンゴ　　 4500 3　17　　ブドウ　　 1800　 よろしくお願いいたします。

VBAと関数の両方を教えていただきたいです。 シート”DATA”に以下の入力フォームがあります。 A列には日付 B１には”りんご”、B2以降には数量 C１には”みかん”、C2以降には数量 D１には”なし”、D2以降には数量 シート”照会”に以下の照会画面があります。 B１には開始日、D１には終了日 A2には”りんご” A3には”みかん” A4には”なし” B2以降はそれぞれの開始日から終了日までの個数が入るようにしたいのです。 例えば、シート”DATA”に毎日10が入力されていて、シート”照会”のB1に1/1、D1に1/3と入力されたら30、B１はそのままでD１が1/10なら100と果物ごとに表示されるようにしたいのですが、どうすればよいでしょうか。 よろしくお願い致します。

シート１に顧客の名簿がずらっと一覧で入っているとします。 例えばA列…名前、B列…住所、C列…買った物（いちご、メロン、すいかの３種類）、D列…備考 　　A列　　　　　　B列　　　　　C列　　　　D列 　山田太郎　　　山梨県　　　いちご　　　新規さん（５月） 　鈴木良子　　　北海道　　　メロン　　　　 - 　田中浩史　　　東京都　　　すいか　　　常連さん 　高橋幸恵　　　京都府　　　すいか　　　　- 　本田一郎　　　長崎県　　　バナナ　　 　- 　… というような一覧が数百人分入っているとします。 これをC列の要素によって、シート２～４に自動的に振り分けたいのです。 例えば「シート２」は「いちごを買った人一覧」に、「シート３」は「メロンを買った人一覧」にしたい、 それが、C列に「いちご」などと入力した瞬間に自動的にシート２に反映されるようにしたいです。 もちろんA列やB列、D列の要素をともなったまま。 また隙間を空けずにいちごを買った人が全部で52人なら52行でぴたりと収まるようにしたいです。 そのためにはシート２（もしくは３～４）のC列に、何らかの関数を入れればいいでしょうか？ またどんな関数を入れたらいいでしょうか。 よろしくお願い申し上げます。

シート１に顧客の名簿がずらっと一覧で入っているとします。 例えばA列…名前、B列…住所、C列…買った物（いちご、メロン、すいかの３種類）、D列…備考 　　A列　　　　　　B列　　　　　C列　　　　D列 　山田太郎　　　山梨県　　　いちご　　　新規さん（５月） 　鈴木良子　　　北海道　　　メロン　　　　 - 　田中浩史　　　東京都　　　すいか　　　常連さん 　高橋幸恵　　　京都府　　　すいか　　　　- 　本田一郎　　　長崎県　　　バナナ　　 　- 　… というような一覧が数百人分入っているとします。 これをC列の要素によって、シート２～４に自動的に振り分けたいのです。 例えば「シート２」は「いちごを買った人一覧」に、「シート３」は「メロンを買った人一覧」にしたい、 それが、C列に「いちご」などと入力した瞬間に自動的にシート２に反映されるようにしたいです。 もちろんA列やB列、D列の要素をともなったまま。 また隙間を空けずにいちごを買った人が全部で52人なら52行でぴたりと収まるようにしたいです。 そのためにはシート２（もしくは３～４）のC列に、何らかの関数を入れればいいでしょうか？ またどんな関数を入れたらいいでしょうか。 よろしくお願い申し上げます。

excel vbaでセル幅、高さを小さくした画面のその上に指定したところから指定したところに別に用意した複数の数値により自動で複数の斜線を引きたいのですが，下記の参考コードを見つけ検討しましたが、目的の結果が得られません、どなたか方法を教えて頂けませんか、 参考コードでは、下段のコード部分で、セルの縦幅(側辺）をポイント指定でセルの任意の位置から位置に引けますが上段部分のコードでは、セルの始端、終端の位置のみに対応できてセルの横辺（セルの横幅）についてのポイント指定ができません。 下段のコードのポイント指定は 　　　Ｆｏｒ　cnt = 20 to 30 等で複数指定しますと自由に複数の横線を引くことができます。 質問 １・ セルの横幅（横方向）にはポイントという位置付はないのでしょうか。もしあるとしたらどの様に 指定するのでしょうか。また１セルのポイントはいくつでしょうか。 2・ セルの始端、終端の位置を利用する場合、range（"c10"),range("g10")の内容を自動で、変える 方法はありませんか。 ------------------------------ 参考としたコード Dim rngstart As Range, rngend As Range Dim BX As Single, BY As Single, EX As Single, EY As Single 'shape を配置するための基準となるセル Set rngstart = Range("c10") Set rngend = Range("g10") 'セルのleft,top,widthプロパティを利用して位置決め BX = rngstart.Left BY = rngstart.Top EX = rngend.Left + rngend.Width EY = rngend.Top '直線 ActiveSheet.Shapes.AddLine BX, BY, EX, EY With ActiveSheet.Shapes.AddLine(BX, BY + 10, EX, EY + 10).Line .ForeColor.RGB = vbRed .Weight = 0.8 .EndArrowheadStyle = msoArrowheadTriangle End With End Sub 　以上。です。　よろしくお願いいたします。

excel vbaでセル幅、高さを小さくした画面のその上に指定したところから指定したところに別に用意した複数の数値により自動で複数の斜線を引きたいのですが，下記の参考コードを見つけ検討しましたが、目的の結果が得られません、どなたか方法を教えて頂けませんか、 参考コードでは、下段のコード部分で、セルの縦幅(側辺）をポイント指定でセルの任意の位置から位置に引けますが上段部分のコードでは、セルの始端、終端の位置のみに対応できてセルの横辺（セルの横幅）についてのポイント指定ができません。 下段のコードのポイント指定は 　　　Ｆｏｒ　cnt = 20 to 30 等で複数指定しますと自由に複数の横線を引くことができます。 質問 １・ セルの横幅（横方向）にはポイントという位置付はないのでしょうか。もしあるとしたらどの様に 指定するのでしょうか。また１セルのポイントはいくつでしょうか。 2・ セルの始端、終端の位置を利用する場合、range（"c10"),range("g10")の内容を自動で、変える 方法はありませんか。 ------------------------------ 参考としたコード Dim rngstart As Range, rngend As Range Dim BX As Single, BY As Single, EX As Single, EY As Single 'shape を配置するための基準となるセル Set rngstart = Range("c10") Set rngend = Range("g10") 'セルのleft,top,widthプロパティを利用して位置決め BX = rngstart.Left BY = rngstart.Top EX = rngend.Left + rngend.Width EY = rngend.Top '直線 ActiveSheet.Shapes.AddLine BX, BY, EX, EY With ActiveSheet.Shapes.AddLine(BX, BY + 10, EX, EY + 10).Line .ForeColor.RGB = vbRed .Weight = 0.8 .EndArrowheadStyle = msoArrowheadTriangle End With End Sub 　以上。です。　よろしくお願いいたします。

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 　　　　優先順位で数学が上位にあるため、数学を取得。 よろしくお願いします。

COUNTBLANKを使用して空白の合計を求める箇所の数式に =COUNTBLANK(A2:A11) で空白を数えているのですが、A12～A15に新たに行を挿入し =COUNTBLANK(A2:A15) と、その都度変更して空白を数えているのですが OFFSET関数を使用して数式を固定して値を求めるには どのような数式になるでしょうか？ 何もわからないので、できれば数式を教えてください。

COUNTBLANKを使用して空白の合計を求める箇所の数式に =COUNTBLANK(A2:A11) で空白を数えているのですが、A12～A15に新たに行を挿入し =COUNTBLANK(A2:A15) と、その都度変更して空白を数えているのですが OFFSET関数を使用して数式を固定して値を求めるには どのような数式になるでしょうか？ 何もわからないので、できれば数式を教えてください。

シート１に顧客の名簿がずらっと一覧で入っているとします。 例えばA列…名前、B列…住所、C列…買った物（いちご、メロン、すいかの３種類）、D列…備考 　　A列　　　　　　B列　　　　　C列　　　　D列 　山田太郎　　　山梨県　　　いちご　　　新規さん（５月） 　鈴木良子　　　北海道　　　メロン　　　　 - 　田中浩史　　　東京都　　　すいか　　　常連さん 　高橋幸恵　　　京都府　　　すいか　　　　- 　本田一郎　　　長崎県　　　バナナ　　 　- 　… というような一覧が数百人分入っているとします。 これをC列の要素によって、シート２～４に自動的に振り分けたいのです。 例えば「シート２」は「いちごを買った人一覧」に、「シート３」は「メロンを買った人一覧」にしたい、 それが、C列に「いちご」などと入力した瞬間に自動的にシート２に反映されるようにしたいです。 もちろんA列やB列、D列の要素をともなったまま。 また隙間を空けずにいちごを買った人が全部で52人なら52行でぴたりと収まるようにしたいです。 そのためにはシート２（もしくは３～４）のC列に、何らかの関数を入れればいいでしょうか？ またどんな関数を入れたらいいでしょうか。 よろしくお願い申し上げます。

同じ人が同じ日に2回出勤しているデータ数を知りたいです。 2 山田太郎　1/21　10：00　13：00 2 山田太郎　1/21　18：00　24：00 1 山田太郎　1/22　10：00　17：00 1 山田太郎　1/23　14：00　22：00 1 鈴木花子　1/21　10：00　17：00 1 鈴木花子　1/23　17：00　24：00 2 鈴木花子　1/24　10：00　15：00 2 鈴木花子　1/24　18：00　24：00 ↑のようなタイムカードがあります。 上の例だと、2もしくは4という数値がほしいです。 今までは図のようにA列に　countifs関数を記入し、同一人物が同一日付に2回出勤 しているかをチェック、その数を数えていました。 今後は、 同一人物が同一日付に2回出勤している件数を1つの関数で知りたいと考えています。 ↑の例だと、4件　という数を1つの関数で出したいです。 どのようにすればよいのかアドバイスをお願いいたします。

Excel 2013にて、指定したxlsxファイルの全シートをコピーし、セルのデータを検出する方法をご教示下さい。 当方、あまりマクロを組んだ経験がないため、ご存じの方ご教示下さると幸いです。 主題は上に書いたとおり、 (1)現在アクティブなブックから、参照ボタンでA1セルへ対象ファイルの絶対パスを表示します(現在はGetOpenFilenameで、A1セルに対象のブックのパスを表示しています。) (2)次のボタンを押すと、GetOpenFilenameにて取得した対象ファイルの全シートを、現在アクティブなブックにコピーします。 (3)コピーしてくる際、コピーされたシート内に、例として『東京都』という文字があるセルは赤にします。こちらを参考にしました。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1152147211 コピー元、コピー先の両方に、名前が被るシート名などはないため、その辺の回避はしなくてOKなのですが。 ほぼ1からで大変お手数ですが、ご教示頂ける方、ご回答下されば幸いです。 よろしくお願い申し上げます。