mar00 の回答履歴

過去の記録にもなく、困っています。 エクセルで（A列の）日付をカウントしたいのですが、重複して困っています。 「C1」に任意の日付（○月○日）を入れると、「D1」に○月○日以下の日付がカウントされるようにしたいのです。 　　　　　A　　　　　B　　　　C　　　　　D １　　４月５日　　　　　　　　 ２　　４月６日 ３　　４月６日 ４　　４月６日 ５　　４月７日 ６　　４月７日 ７　　４月８日 D1に ＝COUNTIF(A:A,"<="&C1) といれてみると、重複してカウントされてしまうのですが、重複を除いてカウントがしたいのです。 ちなみに（C1）に「４月７日」を入れると、（D1）に「３」になるようにしたいのに、重複して「６」となってしまいます。 おいそがしいと思いますが、どうかご教授をお願いいたします。

誰か分かる人はいますか？ わたしはアパレル販売をしています。今日、仕事場でお客様がクレジットで買い物をした際に、カード会社控えと店舗控えを全てお客様に渡してしまいました。 お店には何もない状態です。 この様な場合は、どう処理をしたらよいのでしょうか。わかるかたがおりましたら返答お願い致します。

（マスター）というシートがありまして、そのシートをコピーしてシート名に１からの連番をふる マクロをお教え下さい。 Sub sub_CopySample() Dim myLooP As Integer For myLooP = 1 To 10 Sheets("マスター").Copy After:=Sheets(myLooP) Next myLooP For myLooP = 1 To 10 Sheets(myLooP + 1).Name = myLooP Next myLooP End Sub これだと止まりません。 １シートづつ増やしたいのですが。

（１）atai = Evaluate("SUMPRODUCT((D2:D19000 = ""東京"") * 　　　　　　 (BH2:BH19000 = ""みかん"") * AX2:AX19000)") （２）atai = Evaluate("SUMPRODUCT((D2:D & K = ans) * 　　　　　　　(BH2:BH & K = ""みかん"") * AX2:AX & K)") （１）では atai（値）を得ることが出来るのですが、 （２）ではエラー（型が一致しません）となってしまい値を得ることができません。 　　　""の括り方、（）の使い方、＆の使い方が間違っているのでしょうか？ ※msgBoxで確認済みですが、kは最終行（取得出来ています）、 　　ansは東京（取得出来ています） 【やりたいこと】 D列が「東京」となっているもので、かつ BH列が「みかん」となっているAX列の数字のトータルを求めたい。 どなたか、ご教示の程お願い申し上げます。

下記の様な、データ行数の決まっていない各空白行に自動でSUM関数を入力するにはどうすれば良いでしょうか。 　　　　　　　A列　　　B列　　　Ｃ列 1行　　　　　123　　　　酒　　　 100 2行　　　　　123　　　　酒　　　 100 3行(空白)　　　　　　　　　　　 (SUM)　　 4行　　　　　215　　　ビール　 　200 5行　　　　　215　　　ビール　 　200 6行　　　　　215　　　ビール　 　200 7行(空白)　　　　　　　　　　　 (SUM) 8行　　　　　324　　　　ワイン　 300 9行　　　　　324　　　　ワイン　 300 10行 　　　　324　　　　ワイン　 300 11行 　　　　324　　　　ワイン 　300 12行(空白)　　　　　　　　　　　(SUM) (SUM)表記のセルにそれぞれのデータのSUM関数を自動で入れたいのですが。 実際のデータは３千行ほどあります。よろしくお願いいたします。

エクセルVBAについて質問です。 エクセルのバージョンは2003と2007を主に使用しています。 下記の様なデータがあるときに、部活が「野球」でかつクラブは「囲碁」に入っている生徒の学籍番号を別のシート(Sheet2)のB3から下に順にリスト化するマクロがどうしても出来なくて困っています。 find next等を使うのでは無いかと色々してみましたが上手く出来ない現状です。 <sheet1> 　　　A　　　　　　B　　　　　　C　　　　　　　D　　　　E １　学籍番号　学年　　　　名前　　　　　部活　　　クラブ ２　2222222　　　1 　　　山田　太郎 　　野球　　　囲碁 ３　9854923 　　　2　　　吉田　次郎　　　剣道　　　絵画　　 ４　1111111 　　　3　　　佐藤　三郎 　　野球　　　囲碁 ５　8888883 　　　1　　　米山　権蔵 　　卓球　　　囲碁

OSはXP Excelは2003を使用しています。 下記は組んだマクロの一部ですが、 ComboBoxが20まであるので、大変長いステートメントになってしまうので、 withの中を何とかまとめられないかと思い、こちらで教えて頂きたく書き込みました。 説明不足のところは追記致しますので、 何卒、よろしくお願い致します。 With ws 'Cells(行,列) 　If ComboBox1 <> "" Then Cells(i + 1, 1) = TextBox1.Value '日付 Cells(i + 1, 2) = TextBox2.Value '伝票No. Cells(i + 1, 24) = TextBox3.Value '郵便番号 Cells(i + 1, 25) = TextBox4.Value '住所 Cells(i + 1, 3) = TextBox5.Value '社名 Cells(i + 1, 4) = TextBox6.Value '担当者名 Cells(i + 1, 18) = TextBox601.Value '税抜合計 Cells(i + 1, 19) = TextBox602.Value '消費税 Cells(i + 1, 20) = TextBox603.Value '合計 Cells(i + 1, 22) = TextBox701.Value '備考 Cells(i + 1, 23) = TextBox702.Value '未定 '------------------------------------------------------ Cells(i + 1, 6) = ComboBox1.Value '商品コード Cells(i + 1, 7) = TextBox11.Value 'メーカー名 Cells(i + 1, 8) = TextBox12.Value 'ModelNo. Cells(i + 1, 9) = TextBox13.Value '品名(英 Cells(i + 1, 10) = TextBox14.Value '品名(日 Cells(i + 1, 11) = TextBox15.Value '仕上(英 Cells(i + 1, 12) = TextBox16.Value '仕上(日 Cells(i + 1, 13) = TextBox17.Value '単価 Cells(i + 1, 14) = TextBox18.Value '掛け率 Cells(i + 1, 15) = TextBox19.Value '売価 Cells(i + 1, 16) = TextBox20.Value '数量 Cells(i + 1, 17) = TextBox21.Value '小計 Cells(i + 1, 21) = TextBox22.Value '社内コメント '---------------------------------------------------- '---------------------------------------------------- If ComboBox2 <> "" Then Cells(i + 2, 1) = TextBox1.Value '日付 Cells(i + 2, 2) = TextBox2.Value '伝票No. Cells(i + 2, 24) = TextBox3.Value '郵便番号 Cells(i + 2, 25) = TextBox4.Value '住所 Cells(i + 2, 3) = TextBox5.Value '社名 Cells(i + 2, 4) = TextBox6.Value '担当者名 Cells(i + 2, 18) = TextBox601.Value '税抜合計 Cells(i + 2, 19) = TextBox602.Value '消費税 Cells(i + 2, 20) = TextBox603.Value '合計 Cells(i + 2, 22) = TextBox701.Value '備考 Cells(i + 2, 23) = TextBox702.Value '未定 '------------------------------------------------------ Cells(i + 2, 6) = ComboBox2.Value '商品コード Cells(i + 2, 7) = TextBox31.Value 'メーカー名 Cells(i + 2, 8) = TextBox32.Value 'ModelNo. Cells(i + 2, 9) = TextBox33.Value '品名(英 Cells(i + 2, 10) = TextBox34.Value '品名(日 Cells(i + 2, 11) = TextBox35.Value '仕上(英 Cells(i + 2, 12) = TextBox36.Value '仕上(日 Cells(i + 2, 13) = TextBox37.Value '単価 Cells(i + 2, 14) = TextBox38.Value '掛け率 Cells(i + 2, 15) = TextBox39.Value '売価 Cells(i + 2, 16) = TextBox40.Value '数量 Cells(i + 2, 17) = TextBox41.Value '小計 Cells(i + 2, 21) = TextBox42.Value '社内コメント End If End If

ここでの皆様のお力を借りて、なんとかエクセルの集計ができました。 集計結果を他のシートに反映する方法を教えて下さい。 (課題) 名簿に名前と性別と給料が書いてあります。 男女の数をそれぞれ関数てカウントして出しました。給料の合計も出しました。 それを別シートに張り付ける必要があります。 その時に、関数を活かしたまま張り付ける方法はありますか？

ひとつのセル内に文字列と他のシートの引用を下記のように入れています。 「＝"あいうえお"&別シート!A1&"かきくけこ"」 このとき、別シートのA1が日付（和暦）の値なのですが、引用すると数字で表示されて しまいます。 これを別シートと同様に日付（和暦）表記させるにはどうしたらよいでしょうか？ 表示形式のユーザー定義でやろうとしたのですが、うまくできませんでした。 よろしくお願いします。

営業職です。 エクセルを使い顧客管理シートを作成して活用したいと考えておりますが 各担当者の顧客名を１つのシートに一覧として表示（コピー）したいのですがうまく行きません。 イメージとしては画像を添付しておりますが各担当者ごとのシートに記入している 「担当者」「顧客名」を一覧にしたいのです。 説明がうまくできなくて申し訳ありませんがよろしくお願い申し上げます。

エクセルを左から日付・朝一財布金額・寝る前財布金額・差額という項目を設けています。 表にしていますがオーとサムで一番下に差額の合計額が出るようにしています。 しかし寝る前財布金額は次の日の朝一金額に反映しているので、 打ちこんでいない状態だと次の日の差額が計算されてしまい 次の日の収支が次の日朝一財布金額と同様のマイナスの数字になって しまうのでオーとサムの合計数がおかしくなります。 そこで質問なのですが寝る前金額を打ち込まないと差額が表示されないようにしたいです。 可能でしょうか？？

Excelに数字を入力したところ千分の一の数字に表示されます。例えば５を入力すると０．００５に。　６３が０・０６３に今までは正常でしたが。 何処か間違って操作されたのでしょうか。 宜しくお願いします。

Excelに数字を入力したところ千分の一の数字に表示されます。例えば５を入力すると０．００５に。　６３が０・０６３に今までは正常でしたが。 何処か間違って操作されたのでしょうか。 宜しくお願いします。

エクセルを左から日付・朝一財布金額・寝る前財布金額・差額という項目を設けています。 表にしていますがオーとサムで一番下に差額の合計額が出るようにしています。 しかし寝る前財布金額は次の日の朝一金額に反映しているので、 打ちこんでいない状態だと次の日の差額が計算されてしまい 次の日の収支が次の日朝一財布金額と同様のマイナスの数字になって しまうのでオーとサムの合計数がおかしくなります。 そこで質問なのですが寝る前金額を打ち込まないと差額が表示されないようにしたいです。 可能でしょうか？？

arrayの使い方についてご教授をお願いします。 以下の記述はワークシートが３枚あり、それぞれの最終行を調べ、arrayに読み込んでいます。いつもは変数を３つ設定しシート毎に各変数にセットしているのですが、以下の簡単な記述を知る機会があり勉強をしています。なぜ各シートをループし、その都度ちゃんと最終行を読込んでいるのか教えて頂きたいと思います。 また他のホームページで解説等を見ると、最初からarrayの（　）の中に複数の文字等が並んでおり、それを取出す使い方が書いてありますが、このように検索結果をarrayに読込む場合の（　）の中は0を入れて置けばよいのでしょうか？ 初心者のため、わかりずらい文で申し訳ありません。エクセル2000を使用しています。 Sub kk() Dim lastrow As Variant lastrow = Array(0, 0, 0, 0, 0) For m = 1 To 3 n = 1 Do While Sheets(m).Cells(n, 1) <> "" n = n + 1 Loop MsgBox n - 1 lastrow(m) = n - 1 Next End Sub 最終行の取得方法は他にもある事は理解しています。よろしくお願いします。

質問させていただきます。 エクセルの変数と定数の掛け算についてです。 例えば、 A2に定数、B1に変数が入っていて、A2*B1の計算式をB2に出すことにします。 以降、A3*B1=B3,A4*B1=B4,A5*B1=B5…と、A100*B1まで計算したいとします。 ところがB2に入れた計算式をB3以降にコピーペーストすることができませんでした。 A100まであるので1つ1つ計算式を入れていくのはとても手間です。 よい方法はありませんか？ 初心者ですので、質問内容に不明な点がありましたら教えて下さい。 宜しくお願いします。

お世話になります。よろしくお願いします。 学校で成績表をつけるときに、一覧表も作るのですが、これを一つのシートにまとめたいのです。 成績表は学期ごとに作るので、３枚できます。形式は同じです。文で書くと分かりにくいかもしれませんが、例えばB２セルに出席番号１番の子の名前を入れると、C２セルには２番の子・・・というふうに、横の列には氏名が入ります。縦の列には、各教科の観点が入ります。例えばA３セルに国語の読む力、A４セルには国語の書く力・・・などと入れていきます。これが１学期分、２学期分、３学期分と３枚できるわけです。 これを１枚の別のシートにまとめたいのです。例えばB２、C2、D2セルを結合して氏名を入れ、その下のB3セルには１学期の成績、C3セルには２学期の成績、D3セルには３学期の成績が、元になっているシートから飛んでくるようにしたいのです。 分かりにくい説明で、申し訳ありませんが、簡単にできる方法を思いつかれた方は、教えていただけないでしょうか？ よろしくお願いします。

下記の例題の解き方を教えてください。 支店名 売上構成比（％） 東京支店 17.99 千葉支店 14.33 埼玉支店 12.22 表記の様に各支店の売上構成比が出ていて埼玉支店の売上額が18.725.248と出ています。 これを元に各支店の今期売上額を求めなさい。と言う例題です。 どの様にして求めたら良いのか解らないで困っています。 どなたか、わかり易く求め方を教えてください。 宜しくお願いします。（ちなみにエクセル初心者です）

下記の例題の解き方を教えてください。 支店名 売上構成比（％） 東京支店 17.99 千葉支店 14.33 埼玉支店 12.22 表記の様に各支店の売上構成比が出ていて埼玉支店の売上額が18.725.248と出ています。 これを元に各支店の今期売上額を求めなさい。と言う例題です。 どの様にして求めたら良いのか解らないで困っています。 どなたか、わかり易く求め方を教えてください。 宜しくお願いします。（ちなみにエクセル初心者です）

今エロ動画のサイトを開いて あなたは二十歳以上ですか？とゆう画面がでて まちがってyesを押してしまって違うサイトにいきました そしたら三日以内にお金を振込で下さい とゆう画面がでてきました とても怖くて心配です どいしたらいいでしょうか？