mu2011 の回答履歴

関数でSUMやMAX他、様々関数を使う場合に、計算対象のセルの中身が ・何もない ・スペース ・文字 だった場合にどのように処理するか、例えばゼロとして扱うとか、除外するとか、エラー表示になるとか、事前に分るのでしょうか？実際に試せば分りますが、法則があるなら知っておいた方が簡単だと思うので。 自分でもハッキリ問題抽出出来てませんが、「数値を扱う関数で、数値でないセルがあったらどうなるか？」です。

IF関数で、 売上金額が500,000未満の場合は「○」で、500,000以上、1,000,000未満の場合は「△」 1,000,000以上の場合は「×」にしなさい。 という問題の場合ってどういう式を作ればいいんですか。 ※売上金額の欄が仮にAの欄に書いてあるとする。 ※セルに直接式を入力する場合のやり方でお願いします。

EXCEL2003でA列のA1:A10の中にA・B・C・D・E・F・Gの7文字が入力されています。 この中からCとD以外の文字の個数を数えたいのですがよい方法はないでしょうか？ 検索しても複数列のカウントは見つかるのですが、同一列の中での複数条件のカウントは 見つからず・・・ どなたかご教示お願いします。

●質問の主旨 (1)以下のコードのプロシージャを実行すると 12行目の変数myArrが選択され、「配列に割り当てられません」と エラーメッセージが返されます。これはなぜでしょうか？ (2)(1)の原因は5行目の変数myArrの宣言について問題があるよう 気がしますが、どうすればいいのか分かりません？ 以上2点について、1つだけでもご助言いただければ幸いです。 ご教示よろしく願いします。 ●質問の補足 下記のコードは「各支社の成績」（画像の下部）を 「業務成績通知書」（画像上部）に成績欄に差し込んで 各支社ごとのワークシートを印刷するためのコードです。 画像上部のワークシート名→差込印刷TARGET 画像下部のワークシート名→data ●コード Option Explicit Sub オートシェイプ1_Click() Dim myTar As Worksheet 'ワークシート差込印刷（ターゲット）のオブジェクト変数 Dim myDat As Worksheet 'ワークシートdataの配列変数 Dim myArr(6, 4) As Range Dim y As Integer '印刷するシート数のオブジェクト変数 Dim myTem As Range '印刷するアクティブシートのオブジェクト変数 Dim n As Integer '差込数の数 Dim target_name As String '差込名 'ワークシート差込印刷（ターゲット）をオブジェクト変数に代入 Set myTar = Worksheets("差込印刷TARGET") Set myDat = Worksheets("data") 'ワークシートdataをオブジェクト変数に代入 myArr = myDat.Range("B2:G6") '印刷範囲のセル範囲を配列変数に代入 For y = 1 To 5 '繰り返し myTar.Copy after:=myDat 'ワークシート差込印刷のコピーをワークシートdataの後に配置 Set myTem = ActiveSheet 'アクティブシートを変数myTemに代入 myTem.Name = "印刷中" 'コピーされたワークシートの名前は「印刷中」とする For n = 1 To 6 '差込名に「ターゲット番号」を代入 target_name = "TARGET" & n '印刷中シートの「ターゲット番号」のセルに支店ごとのデータ（配列変数）を代入 myTem.Cells.Find(target_name).Value = myArr(y, n) Next myTem.PrintOut 'アクティブシートの印刷 Application.DisplayAlerts = False '画面警告表示を非表示 myTem.Delete '「印刷中」のシートを削除 Application.DisplayAlerts = True '画面警告表示を非表示を元に戻す Next End Sub

　　　　　A　　　　B　　　　　　　　　C　 1　　　　あ　　　10.23　　　　　　　10.23 2　　　　い　　　10　　　　　　　　　10.23 3　　　　い　　　1.23　　　　　　　　1.23　 上記のようなシ－トがある場合 あ以外の数値を整数止めを行い、尚且つ整数一桁の場合は 下二桁表示のIF文をお教えください。 尚、エクセル2003です。

毎日パーセンテージがでるのですが、上下するので、 これを日々全体の割合として見ていきたいのですが、 簡単な計算式を書くとひとつひとつのセルに手入力することになるため、 非常に手間がかかります。 これを関数か簡単な式にできないでしょうか？ たとえば、下記のように記載したいのです。 Ａ１に一日のパーセンテージ　B1に月の内当日までのパーセンテージ（一日はA1と同じになります） A2、B2には、二日の・・・と続いていきます。 このB1からの部分に当日までの全体のパーセンテージを日々出していきたいのです。 詳しい方、よろしくお願いします。

●質問の主旨 (1)以下のコードのプロシージャを実行すると 12行目の変数myArrが選択され、「配列に割り当てられません」と エラーメッセージが返されます。これはなぜでしょうか？ (2)(1)の原因は5行目の変数myArrの宣言について問題があるよう 気がしますが、どうすればいいのか分かりません？ 以上2点について、1つだけでもご助言いただければ幸いです。 ご教示よろしく願いします。 ●質問の補足 下記のコードは「各支社の成績」（画像の下部）を 「業務成績通知書」（画像上部）に成績欄に差し込んで 各支社ごとのワークシートを印刷するためのコードです。 画像上部のワークシート名→差込印刷TARGET 画像下部のワークシート名→data ●コード Option Explicit Sub オートシェイプ1_Click() Dim myTar As Worksheet 'ワークシート差込印刷（ターゲット）のオブジェクト変数 Dim myDat As Worksheet 'ワークシートdataの配列変数 Dim myArr(6, 4) As Range Dim y As Integer '印刷するシート数のオブジェクト変数 Dim myTem As Range '印刷するアクティブシートのオブジェクト変数 Dim n As Integer '差込数の数 Dim target_name As String '差込名 'ワークシート差込印刷（ターゲット）をオブジェクト変数に代入 Set myTar = Worksheets("差込印刷TARGET") Set myDat = Worksheets("data") 'ワークシートdataをオブジェクト変数に代入 myArr = myDat.Range("B2:G6") '印刷範囲のセル範囲を配列変数に代入 For y = 1 To 5 '繰り返し myTar.Copy after:=myDat 'ワークシート差込印刷のコピーをワークシートdataの後に配置 Set myTem = ActiveSheet 'アクティブシートを変数myTemに代入 myTem.Name = "印刷中" 'コピーされたワークシートの名前は「印刷中」とする For n = 1 To 6 '差込名に「ターゲット番号」を代入 target_name = "TARGET" & n '印刷中シートの「ターゲット番号」のセルに支店ごとのデータ（配列変数）を代入 myTem.Cells.Find(target_name).Value = myArr(y, n) Next myTem.PrintOut 'アクティブシートの印刷 Application.DisplayAlerts = False '画面警告表示を非表示 myTem.Delete '「印刷中」のシートを削除 Application.DisplayAlerts = True '画面警告表示を非表示を元に戻す Next End Sub

どのような数式をたてればよいかわからず、質問させて頂きます。 現状、シート１とシート２にそれぞれ以下のような名前とコードのデータが300件ほどあります。 　　　　A　　　　　B　　 １　　鈴木　　　0011 2　　田中　　　0203 3　　大田　　　0365 シート１ではA列をあいうえお順で並べ替え、４つのグループにわけセルを４色で塗りわけました。 今度シート２について、Bを数字順に並び替えました。 ここで、シート１とおなじグループ４色に色塗りをしたいのですが、シート１の色塗りしたデータを、数式をつかってシート２に反映させる方法はありますでしょうか？ ちなみに、色塗りでなく文字の色を変えるだけでも構いません。よろしくお願いします。

Sheet１のC列に何かを入力すると、A列に１から番号が振られていき、B列には入力した日付が 入っていくマクロを作りたいです。ご教授教えていただければ幸いです；

VLOOKUP関数を使い、「１２３４５」を他のセルに出し、その数字を縦にしようと セル書式設定の配置の方向で文字列を縦にしたところ、♯が出てきて数字が 縦になりません。 どのようにすれば、縦方向で数字を出すことができますか？

図の様な表で、Ｆ列の平均距離が自動で出る関数の作成ができずに困っています。 1/2の場合は　D5/E5で良いのですが 1/6のように1/4日からずっと燃料を入れずにいると、 （D11+D12+D13）/E13 1/8の場合 （d15+d17)/E17 と燃料を入れるまでの日にちが開いてしまうと毎回自分で計算式を入力しなおさなければいけません。 給油燃料を入れるまでの間の走行距離を合計して平均距離を出すにはどういう関数を使えば良いでしょうか。 よろしくお願いします。

表の作成で困っています。 　 　一枚のＡ４サイズに、　３ヶの表を作りたいのですが～～ 　３ヶ共　列の幅は　違う表です。 　列の幅って　２ヶ目　　３ヶ目　と　どのように　やればいいんでしょか。 　エクセルは　ほとんど　理解出来ていませんので、最初の段階より 　教えて戴ければ　嬉しいのですが。 　よろしくお願い致します

以前、古いPCではエクセル97というめっぽう古風なのを使っておりました。 便利な機能に、あるセルでF2を押した後、別のセルでF4(だったような・・)を 押すと同じ数字や文字内容が入力され重宝してました。 所が、office2003エクセルでは、そのような機能が見当たりません。 ご存じならお教え下さい。

わかりづらいかもしれませんが、よろしくお願いします。 シート１とシート２があり、シート２にはA、B、C３つの列にそれぞれのグループ(各50名ほど)が並べてあります。 ここで、シート１のA１に特定の名前をいれ、 シート２のA列なら甲、B列なら乙、C列なら丙といった値を、 シートB１に自動的に打ち出してくれる数式を教えてください。よろしくお願いします。

年金には国民年金と厚生年金があると聞きましたが、どうしてこういう区別があるのでしょうか。 そもそもの成立の経緯、又、将来は一本化になるのかどうかも含めて教えて下さい。

エクセルで下記のような事をしたく もしお分かりの方教えてください！ A1が東京だったらA2には10時 A1が大阪だったらA2には１時 A1が名古屋だったらA2には12時 にしたく、A２に関数を設定したいのですが、うまくいきません。

以下のように配列を設定し、A(ix)の配列にdo untilでそれぞれに文字列を入れようとしておりますが、うまくいきません。 dountil　の一回目では代入ができているようですが、２回目ができずに止まってしまいます。 おかしな点がありましたらご指摘いただけませんでしょうか。 Dim A() As String Dim ix As Long ix = 0 ReDim Preserve A(ix) Dim tate As Long tate = 1 Do Until tate = 8 A(ix) = ws.Cells(tate, 1) tate = tate + 1 ix = ix + 1 Loop Doの初回A(0)に文字列は入りますが、 Doの二回目以降A(1)に文字列を入れる作業ができずに止まってしまいます。 よろしくお願いします。

セルA1には流量を手入力します。 セルA2～L2には配管の口径が入力されています。 セルA3～L3には配管の流量が入力されています。 セルA1に入力した直近上位の流量の口径をセルA2に表示したいのです。 口径及び流量はそのつど変わります。 たとえば セルA2～L2に 10 15 20 25 30 35 40 45 50 55 60 70 という数値がそれぞれ入力されて、 セルA3～L3に 100 130 160 190 250 300 400 500 600 700 800 900という数値がそれぞれ入力されているとします。 このとき、セルA1に150と入力したとき直近上位はセルC3の160なのでセルA2にはセルC2の20を、セルA1に700を入力したとき直近上位はセルJ3の700なのでセルJ2の55を表示したいのです。 エクセルのバージョンは2003なのでIFでの入れ子ではできませんでした。 よろしくおねがいします。

初めて質問させていただきます。 Sheet１　Ａ１　に検索したい数字（３桁）入力します Sheet2　の　Ｂ１ - Ｂ１２３　までに検索したい対象の数字（アルファベット含、１０桁以上）の数値があります。 Ａ１に数値を入力し　他のセルにＢ１－Ｂ１２３の下三桁と一致するセルを出したいのですが、 たどり着けませんでした。 分かる方、教えて下さい。 できればＶＢではなく、関数の方法お願いします。

セルA1～E1までに、1～5の数値があるかどうかのチェックをしたい。 A1=1 B1=2 C1=3 D1=4 E1=5 なら　OK A1=2 B1=3 C1=5 D1=4 E1=1　なら　OK A1=2 B1=3 C1=ブランク D1=4 E1=1　なら　NG A1=2 B1=3 C1=1 D1=4 E1=9　なら　NG A1からE1のセルに1から5の数字が全てあればOKです。 違う数字やブランク（数字のもれ）があればNGと わかるように数式を入れたいです。 ご教授よろしくお願いします。