ushi2015 の回答履歴

お世話になります。 下記は質問内容の現在の出力マクロです Private Sub CommandButton32_Click() Unload Me Sheets("入力").Select Set dic1 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic2 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic3 = CreateObject("Scripting.Dictionary") v = Sheets("入力").Range("D2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 10) dic1(sName) = dic1(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 2) dic2(sName) = dic2(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 4) dic3(sName) = dic3(sName) + v(i, 12) Next Workbooks.Add With Sheets("sheet1").Range("B3").Resize(dic1.Count) .Resize(, 2).Value = Application.Transpose(Array(dic1.Keys(), dic1.Items())) End With With Sheets("sheet2").Range("B3").Resize(dic2.Count) .Resize(, 2).Value = Application.Transpose(Array(dic2.Keys(), dic2.Items())) End With With Sheets("sheet3").Range("B3").Resize(dic3.Count) .Resize(, 2).Value = Application.Transpose(Array(dic3.Keys(), dic3.Items())) End With End Sub 前回質問からCD等もろもろ手抜きで書いたため少し違っています。 伝わるか心配ですが書き込みますので宜しくお願いします。 例、B列の重複した会社名C列の重複した支店加入者名D列の重複した班名そしてG列には重複した変更可能な重複した商品があります。重複したものをまとめてそれぞれに合計を出してBooks.AddのSheet1（現在はSheet1~sheet3に出力）に出力したいのです。その他の列は自動で出るように関数が張り付けてありますが質問には関係ないと思いますので割愛します。 つたない質問で申し訳ありませんがわかる方がありましたら回答をお願いします。 尚、（現在はSheet1~sheet3に出力）これではsheet1~sheet3を行ったり来たりで効率が悪くて困っています。宜しくお願いします

お世話になります。 下記は質問内容の現在の出力マクロです Private Sub CommandButton32_Click() Unload Me Sheets("入力").Select Set dic1 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic2 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic3 = CreateObject("Scripting.Dictionary") v = Sheets("入力").Range("D2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 10) dic1(sName) = dic1(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 2) dic2(sName) = dic2(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 4) dic3(sName) = dic3(sName) + v(i, 12) Next Workbooks.Add With Sheets("sheet1").Range("B3").Resize(dic1.Count) .Resize(, 2).Value = Application.Transpose(Array(dic1.Keys(), dic1.Items())) End With With Sheets("sheet2").Range("B3").Resize(dic2.Count) .Resize(, 2).Value = Application.Transpose(Array(dic2.Keys(), dic2.Items())) End With With Sheets("sheet3").Range("B3").Resize(dic3.Count) .Resize(, 2).Value = Application.Transpose(Array(dic3.Keys(), dic3.Items())) End With End Sub 前回質問からCD等もろもろ手抜きで書いたため少し違っています。 伝わるか心配ですが書き込みますので宜しくお願いします。 例、B列の重複した会社名C列の重複した支店加入者名D列の重複した班名そしてG列には重複した変更可能な重複した商品があります。重複したものをまとめてそれぞれに合計を出してBooks.AddのSheet1（現在はSheet1~sheet3に出力）に出力したいのです。その他の列は自動で出るように関数が張り付けてありますが質問には関係ないと思いますので割愛します。 つたない質問で申し訳ありませんがわかる方がありましたら回答をお願いします。 尚、（現在はSheet1~sheet3に出力）これではsheet1~sheet3を行ったり来たりで効率が悪くて困っています。宜しくお願いします

EXCELマクロで、ドット記号有りの日付を、ドットなしの形式(YYYYMMDD)に変換したいです。 ドット有りとは、たとえば下記のようなものです 　2016.9.01 　2016.09.1 2016.9.1 2016.09.01 これを、20160901のようにするには、Replaceでうまく置換できれば良いのですが、ゼロが消えてしまったりしてうまくいきません。 マクロでどのように記述すればよいでしょうか？ エクセルのバージョンは2010です。

お世話になります。 下記は質問内容の現在の出力マクロです Private Sub CommandButton32_Click() Unload Me Sheets("入力").Select Set dic1 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic2 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic3 = CreateObject("Scripting.Dictionary") v = Sheets("入力").Range("D2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 10) dic1(sName) = dic1(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 2) dic2(sName) = dic2(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 4) dic3(sName) = dic3(sName) + v(i, 12) Next Workbooks.Add With Sheets("sheet1").Range("B3").Resize(dic1.Count) .Resize(, 2).Value = Application.Transpose(Array(dic1.Keys(), dic1.Items())) End With With Sheets("sheet2").Range("B3").Resize(dic2.Count) .Resize(, 2).Value = Application.Transpose(Array(dic2.Keys(), dic2.Items())) End With With Sheets("sheet3").Range("B3").Resize(dic3.Count) .Resize(, 2).Value = Application.Transpose(Array(dic3.Keys(), dic3.Items())) End With End Sub 前回質問からCD等もろもろ手抜きで書いたため少し違っています。 伝わるか心配ですが書き込みますので宜しくお願いします。 例、B列の重複した会社名C列の重複した支店加入者名D列の重複した班名そしてG列には重複した変更可能な重複した商品があります。重複したものをまとめてそれぞれに合計を出してBooks.AddのSheet1（現在はSheet1~sheet3に出力）に出力したいのです。その他の列は自動で出るように関数が張り付けてありますが質問には関係ないと思いますので割愛します。 つたない質問で申し訳ありませんがわかる方がありましたら回答をお願いします。 尚、（現在はSheet1~sheet3に出力）これではsheet1~sheet3を行ったり来たりで効率が悪くて困っています。宜しくお願いします

お世話になります。 下記は質問内容の現在の出力マクロです Private Sub CommandButton32_Click() Unload Me Sheets("入力").Select Set dic1 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic2 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic3 = CreateObject("Scripting.Dictionary") v = Sheets("入力").Range("D2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 10) dic1(sName) = dic1(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 2) dic2(sName) = dic2(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 4) dic3(sName) = dic3(sName) + v(i, 12) Next Workbooks.Add With Sheets("sheet1").Range("B3").Resize(dic1.Count) .Resize(, 2).Value = Application.Transpose(Array(dic1.Keys(), dic1.Items())) End With With Sheets("sheet2").Range("B3").Resize(dic2.Count) .Resize(, 2).Value = Application.Transpose(Array(dic2.Keys(), dic2.Items())) End With With Sheets("sheet3").Range("B3").Resize(dic3.Count) .Resize(, 2).Value = Application.Transpose(Array(dic3.Keys(), dic3.Items())) End With End Sub 前回質問からCD等もろもろ手抜きで書いたため少し違っています。 伝わるか心配ですが書き込みますので宜しくお願いします。 例、B列の重複した会社名C列の重複した支店加入者名D列の重複した班名そしてG列には重複した変更可能な重複した商品があります。重複したものをまとめてそれぞれに合計を出してBooks.AddのSheet1（現在はSheet1~sheet3に出力）に出力したいのです。その他の列は自動で出るように関数が張り付けてありますが質問には関係ないと思いますので割愛します。 つたない質問で申し訳ありませんがわかる方がありましたら回答をお願いします。 尚、（現在はSheet1~sheet3に出力）これではsheet1~sheet3を行ったり来たりで効率が悪くて困っています。宜しくお願いします

２年ぶりにExcelのマクロについて 質問させていただきます。 他の人がExcelで作ったデータを取り込んで使いたいのですが マクロでデータ形式を変換する適切な方法を教えてください。 他の人が作ったExcelファイルで 例えばセルA1に H28/04/01 というデータがあったとします。 画面に表示される内容も セルに入力されている内容も どちらも H28/04/01 です。 ちなみに、セルの書式設定を確認すると 「標準」となっているのですが これが「文字列」だとしても 以下に記す内容は おそらく同じだと思います。 このデータを、分かりやすいように セルに入力されている内容は 2016/4/1 となるようにして しかも画面に表示される内容は 平成28年4月1日 となるようなマクロを組みたいのです。 Cells(1, 1) = Format(Cells(1,1),"yyyy/m/d") Cells(1, 1).NumberFormatLocal = "ggge年m月d日" と作ってみましたが このマクロを実行すると 2016/4/1 と表示されす。 そして、この状態から 改めてマクロを実行すると ようやく 平成28年4月1日 と表示されます。 これを１回のマクロ実行で済ませるためには どのように組んだらよいのでしょうか。 なお、上記の内容は Excel2010 でも Excel2003 でも同じでした。 マクロについては、まだまだ素人だと 痛感しております。 回答をよろしくお願いいたします。

お世話になります。 下記は質問内容の現在の出力マクロです Private Sub CommandButton32_Click() Unload Me Sheets("入力").Select Set dic1 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic2 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic3 = CreateObject("Scripting.Dictionary") v = Sheets("入力").Range("D2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 10) dic1(sName) = dic1(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 2) dic2(sName) = dic2(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 4) dic3(sName) = dic3(sName) + v(i, 12) Next Workbooks.Add With Sheets("sheet1").Range("B3").Resize(dic1.Count) .Resize(, 2).Value = Application.Transpose(Array(dic1.Keys(), dic1.Items())) End With With Sheets("sheet2").Range("B3").Resize(dic2.Count) .Resize(, 2).Value = Application.Transpose(Array(dic2.Keys(), dic2.Items())) End With With Sheets("sheet3").Range("B3").Resize(dic3.Count) .Resize(, 2).Value = Application.Transpose(Array(dic3.Keys(), dic3.Items())) End With End Sub 前回質問からCD等もろもろ手抜きで書いたため少し違っています。 伝わるか心配ですが書き込みますので宜しくお願いします。 例、B列の重複した会社名C列の重複した支店加入者名D列の重複した班名そしてG列には重複した変更可能な重複した商品があります。重複したものをまとめてそれぞれに合計を出してBooks.AddのSheet1（現在はSheet1~sheet3に出力）に出力したいのです。その他の列は自動で出るように関数が張り付けてありますが質問には関係ないと思いますので割愛します。 つたない質問で申し訳ありませんがわかる方がありましたら回答をお願いします。 尚、（現在はSheet1~sheet3に出力）これではsheet1~sheet3を行ったり来たりで効率が悪くて困っています。宜しくお願いします

お世話になります。 下記は質問内容の現在の出力マクロです Private Sub CommandButton32_Click() Unload Me Sheets("入力").Select Set dic1 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic2 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic3 = CreateObject("Scripting.Dictionary") v = Sheets("入力").Range("D2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 10) dic1(sName) = dic1(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 2) dic2(sName) = dic2(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 4) dic3(sName) = dic3(sName) + v(i, 12) Next Workbooks.Add With Sheets("sheet1").Range("B3").Resize(dic1.Count) .Resize(, 2).Value = Application.Transpose(Array(dic1.Keys(), dic1.Items())) End With With Sheets("sheet2").Range("B3").Resize(dic2.Count) .Resize(, 2).Value = Application.Transpose(Array(dic2.Keys(), dic2.Items())) End With With Sheets("sheet3").Range("B3").Resize(dic3.Count) .Resize(, 2).Value = Application.Transpose(Array(dic3.Keys(), dic3.Items())) End With End Sub 前回質問からCD等もろもろ手抜きで書いたため少し違っています。 伝わるか心配ですが書き込みますので宜しくお願いします。 例、B列の重複した会社名C列の重複した支店加入者名D列の重複した班名そしてG列には重複した変更可能な重複した商品があります。重複したものをまとめてそれぞれに合計を出してBooks.AddのSheet1（現在はSheet1~sheet3に出力）に出力したいのです。その他の列は自動で出るように関数が張り付けてありますが質問には関係ないと思いますので割愛します。 つたない質問で申し訳ありませんがわかる方がありましたら回答をお願いします。 尚、（現在はSheet1~sheet3に出力）これではsheet1~sheet3を行ったり来たりで効率が悪くて困っています。宜しくお願いします

教えてください。 Excel 2010を使ってピボットテーブルを作成しています。 １つのシートに、別シートのデータソースから作成した、２つのピボットテーブルを作成しました。 作成自体はできたのですが、最初に作ったピボットテーブルの更新ができません。 どうすれば更新できるのでしょうか？ 尚、２つ目に作成した方のピボットテーブルの更新はできました。 また、どちらのテーブルも、ピボットテーブルオプションから「従来のピボットテーブルレイアウトを使用する」にチェックを入れてある状態ですが、一応、このチェックをはずした上で更新してみましたが、ダメでした。

教えてください。 Excel 2010を使ってピボットテーブルを作成しています。 １つのシートに、別シートのデータソースから作成した、２つのピボットテーブルを作成しました。 作成自体はできたのですが、最初に作ったピボットテーブルの更新ができません。 どうすれば更新できるのでしょうか？ 尚、２つ目に作成した方のピボットテーブルの更新はできました。 また、どちらのテーブルも、ピボットテーブルオプションから「従来のピボットテーブルレイアウトを使用する」にチェックを入れてある状態ですが、一応、このチェックをはずした上で更新してみましたが、ダメでした。

お世話になります。 下記は質問内容の現在の出力マクロです Private Sub CommandButton32_Click() Unload Me Sheets("入力").Select Set dic1 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic2 = CreateObject("Scripting.Dictionary") Sheets("入力").Select Set dic3 = CreateObject("Scripting.Dictionary") v = Sheets("入力").Range("D2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 10) dic1(sName) = dic1(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 2) dic2(sName) = dic2(sName) + v(i, 12) Next v = Sheets("入力").Range("B2").CurrentRegion.Resize(, 12).Value2 For i = 1 To UBound(v) sName = v(i, 4) dic3(sName) = dic3(sName) + v(i, 12) Next Workbooks.Add With Sheets("sheet1").Range("B3").Resize(dic1.Count) .Resize(, 2).Value = Application.Transpose(Array(dic1.Keys(), dic1.Items())) End With With Sheets("sheet2").Range("B3").Resize(dic2.Count) .Resize(, 2).Value = Application.Transpose(Array(dic2.Keys(), dic2.Items())) End With With Sheets("sheet3").Range("B3").Resize(dic3.Count) .Resize(, 2).Value = Application.Transpose(Array(dic3.Keys(), dic3.Items())) End With End Sub 前回質問からCD等もろもろ手抜きで書いたため少し違っています。 伝わるか心配ですが書き込みますので宜しくお願いします。 例、B列の重複した会社名C列の重複した支店加入者名D列の重複した班名そしてG列には重複した変更可能な重複した商品があります。重複したものをまとめてそれぞれに合計を出してBooks.AddのSheet1（現在はSheet1~sheet3に出力）に出力したいのです。その他の列は自動で出るように関数が張り付けてありますが質問には関係ないと思いますので割愛します。 つたない質問で申し訳ありませんがわかる方がありましたら回答をお願いします。 尚、（現在はSheet1~sheet3に出力）これではsheet1~sheet3を行ったり来たりで効率が悪くて困っています。宜しくお願いします

後輪が押しているとき重たいのですが、仕様なのでしょうか？ 運転中は問題ないのですが、押したりしていると 重たいのでブレーキが利きすぎ？ときになりましたので。

エクセルについて、お知恵をお貸し下さい。 シート１に 　　　A　　　B　　　　C　　　D １ ２　 45 ３ ４　　　　　　＠　　　　　　　42.3 ５　 と書いてあります。 シート２には 　　　A　　　B　　　　C　　　D １　　　　　 0°　　　 45°　　90° ２　 20　　 ３ 30　　 ４　 40　　 　　　　 4.2　　 ５　 50 と書いてあり、シート１の＠のセルに、 シート１のA列の数字を、シート２の１行を参照し、合致した数字 シート１のD列の数字を、シート２のA列を参照し、四捨五入して合致した数字 が交わる数字(4.2)を返す式をお教えいただけましたら幸いです。 宜しくお願いします。

エクセルでの質問です。 A1セルには年月日、A2セルには数値が入っているとします。（今回は３とします） 例えば、A1に入力した年月日から１ヶ月が経過したとします。 そうしたら隣のA2の３の数値を４とか５とか他の数値に自動的に変更するにはどうしたらいいでしょうか？ 条件付き書式で行いたいです。 アドバイスを頂けると幸いです。

ウインドウの固定を使用しています A列からAX列まであります C列固定しているためD列からAX列まで動くのですが エクセルの下の動かすスクロールバーでしか移動できなくて 大変なので 一行目の空いてるスペースにボタンを作成し 左に行くボタン　　右に行くボタン　を作成する 左右のボタンを1回押すとセルが3個程ずれる 左右ボタンは1行目の同じ位置で固定したいのですがどうすれば いいでしょうか？

1行目は完全に動かない（そのままの位置）にしたい マクロボタンなど設置している 行 2行目に内容などを転記している部分があります 3行目以降に情報を入力していきます 以降ずっと情報を入れていきます 列 氏名・年齢・生年月日・電話番号・メールアドレス・・・・・・・・と以降にいろいろ情報欄が あります。 B3の部分でウインド枠の固定をすると下に動きます 右にも動くのですが 1行目も動いてしまいます どうにかできないでしょうか？ 1行目は動かない またはマクロボタンが右に動くときについてくるなど できたらうれしいです

いつもお世話になります。 エクセルの関数について教えてください。 【やりたいこと】 ・１つのエクセル内に複数のシートを用います。 ・「シート１」に「指定日」を入力します。 ・「シート２」以降、各シートで用意されている３つのセルに、 「その月の期首」「その月の期末」「期首から期末までの日数」を反映させたいのです。 「指定日」の翌日から起算して56日目に達するまでです。 指定日のみ西暦で入力、反映は和暦です。 【例(1)】 ・「シート１」に指定日として「20160629」と入力。 その入力に対して期待する反映は、 ・「シート２」に用意されている３つのセルに「280630」「280630」「1」と出ること。 ・「シート３」に用意されている３つのセルに「280701」「280731」「31」と出ること。 ・「シート４」に用意されている３つのセルに「280801」「280824」「24」と出ること。 【例(2)】うるう年を考慮。 ・「シート１」に指定日として「20160131」と入力。 その入力に対して期待する反映は、 ・「シート２」に用意されている３つのセルに「280201」「280229」「29」と出ること。 ・「シート３」に用意されている３つのセルに「280301」「280327」「27」と出ること。 よろしくお願いします。

いつもお世話になります。 エクセルの関数について教えてください。 【やりたいこと】 ・１つのエクセル内に複数のシートを用います。 ・「シート１」に「指定日」を入力します。 ・「シート２」以降、各シートで用意されている３つのセルに、 「その月の期首」「その月の期末」「期首から期末までの日数」を反映させたいのです。 「指定日」の翌日から起算して56日目に達するまでです。 指定日のみ西暦で入力、反映は和暦です。 【例(1)】 ・「シート１」に指定日として「20160629」と入力。 その入力に対して期待する反映は、 ・「シート２」に用意されている３つのセルに「280630」「280630」「1」と出ること。 ・「シート３」に用意されている３つのセルに「280701」「280731」「31」と出ること。 ・「シート４」に用意されている３つのセルに「280801」「280824」「24」と出ること。 【例(2)】うるう年を考慮。 ・「シート１」に指定日として「20160131」と入力。 その入力に対して期待する反映は、 ・「シート２」に用意されている３つのセルに「280201」「280229」「29」と出ること。 ・「シート３」に用意されている３つのセルに「280301」「280327」「27」と出ること。 よろしくお願いします。

A列に入力規制を使用して「A」「B」「C」のみ入力できるように設定してあります。 現在B列には、A列が「A」または「B」の場合は入力不可、「C」の場合は自由に入力できるような入力規制を掛けていますが、どうしても前後のデータをコピペしてしまう人が出てきてしまって困っています。 A列によってB列にロック（選択自体できなくする）するような都合の良い方法はないでしょうか？ なお、このシートには関数や計算式、他のシートへのリンク等がかなり使用されているので、列や行の追加・削除は極力避けたいです。お力をお貸しください。

1行目は完全に動かない（そのままの位置）にしたい マクロボタンなど設置している 行 2行目に内容などを転記している部分があります 3行目以降に情報を入力していきます 以降ずっと情報を入れていきます 列 氏名・年齢・生年月日・電話番号・メールアドレス・・・・・・・・と以降にいろいろ情報欄が あります。 B3の部分でウインド枠の固定をすると下に動きます 右にも動くのですが 1行目も動いてしまいます どうにかできないでしょうか？ 1行目は動かない またはマクロボタンが右に動くときについてくるなど できたらうれしいです