Excel総合相談所 132
■ このスレッドは過去ログ倉庫に格納されています
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
▼━関連スレ━━━━━━━━━━━━
前スレ
Excel総合相談所 131
https://find.5ch.net/search?q=excel
Excel VBA 質問スレ Part51(1000到達済み)
https://find.5ch.net/search?q=excel+vba
【質問不可】Excel総合相談所スレの雑談・議論スレ4
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80 データはひとつのシートにまとめろ へんなマクロ組むよりよっぽどマシ >>351
いやそれは最悪
正規化したテーブル毎にシートを作った方がいい 調査票が何種類もあるならそうするべきだが、１種類だろ 指定フォルダー内の全Excelファイルを開くマクロ
ttps://www.relief.jp/docs/excel-vba-open-excel-files-specified-folder.html
【エクセルVBA入門】For Each～Next文でフォルダ内のブック全てを開く方法
ttps://tonari-it.com/for-each-next/
VBAでフォルダ内の全てのブックからデータを取り出す方法
ttps://qiita.com/takahiro_itazuri/items/08754db91c6ab72deb03 346です。
自己解決できそうです。
workbooks.openのファイル名を変数で開けばいいことに気づきました。
お騒がせしました。 >>３５５
355さん。ありがとうございます。
実は上から2番目のリンク先は見ていたのですが、
できませんでした。
1番上のサイトが
自分にわかりやすかったです。
本当に、ありがとうございました。 >>３５２・３５３・３５４
皆さん。ありがとうございます。
本当にその通りです。
自分でも、そう思います。
ただシートの変更の権限がないのと
周りのスキルが
関数よりも電卓！
『エクセルは難しいから一太郎でもいい？』
ってな感じなので、
先の非効率な方法をとらざるを得ないわけです。
皆さんありがとうございます。 職場って本当大変だよな
社長が「ワシが男塾塾長、江田島平八である！！」って言ったら
もう役員はおろか社員の俺らなんてなんもできねえもん
ホントなんも言えねえ 351さん
359さん
ありがとうございます。
あの後、2時間くらいで完成しました。
エラー処理など完ぺきではありませんし、
Functionプロシージャを使えばもっとすっきり
まとめられそうだなーと思いながらも
とりあえず、完成としました。
本当にこの板は、自分にとって
最後の頼みの綱です。
※それ以前の書き込みもヒントになっています。
本当にありがとうございました。 ▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 .】 Windows7Pro
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい(VBAを貼ってもらえたら組み込んで使えるだけですが)
【4 VBAでの回答の可否】 可(できれば関数で)
社内システムから下記のような列の並びの受注伝票一覧がExcelファイルで出力できます
受注番号 受注日 商品名 客先 仕入先 受注数 単価 受注金額
この一覧で受注金額の列を一番上の行から下まで合計して
特定の仕入先の上位5位の客先を知りたいです
一旦ピボットテーブルで客先別、仕入先別に集計するのは
毎回一手間増えるのでやりたくないです
よろしくお願い申し上げます 重複しないリストを関数で作りたくて検索してたらこれを見つけ
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1099550340
下記のように作ったのですが、
L4=IF(COUNTIF(D$4:D4,D4)=1,ROW(D4),"")
M4=IF(COUNT(L:L)<ROW(D4),"",INDEX(D:D,SMALL(L:L,ROW(D4))))
重複しないデータは62個あるはずなのに59個しか抽出されません
何が原因でしょうか？ >>364ですが自決しました
データがあるのが4行目からなので
M4=IF(COUNT(L:L)<ROW(D4),"",INDEX(D:D,SMALL(L:L,ROW(D4)-3)))
で正しく機能しました >>364です
M4=IF(COUNT(L:L)<ROW(D4)-3,””,INDEX(D:D,SMALL(L:L,ROW(D4)-3)))
でした >>365
「自決」って・・・
略して良いものと悪いものがあるがな。 >>363
＞特定の仕入先の上位5位の客先を知りたいです
特定の仕入れ先って何？
特定の商品の仕入れ先のうち上位5位？
あと関数は一行だけ？計算用に列使ってもいいの？ >>369
受注金額の列を見て例えば仕入先Aの上位1位から5位の客先a～eの客先名を出したいです >>367
ネットスラング？
「自己解決」の略として使われる場合があり、掲示板の質問スレなどで「自決しました」←「早まるな！」のようなやり取りが時々見られる。
使用者は元の意味を知らず素で使っている場合と知っていてネタ的に使っている場合の両方があると思われる。
https://dic.pixiv.net/a/自決 >>371
作業列使って、作業列をINDEXすれば難しくはないが、同じ金額の場合の処理が面倒
五位が複数や、四位が三つ以上とか ▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 .】 Windows７
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可･
▼━関連スレ━━━━━━━━━━━━
セルA1の数値を別のブックへハイパーリンクを作成したいです。
１．ブック【要求票】より【台帳】A列をオートフィルで最下行の数値をコピー。仮に10とします。
２．【要求票】のセルA1に貼り付け。
３．【要求票】をA1にリネーム。ブック【10】とします。
ここまでマクロで何とか出来ました。
http://fast-uploader.com/start/7090933900754/
４．【台帳】のA列10に、ブック【10】のハイパーリンクを貼り付けができません。
よろしくお願いいたします。 >>374
単一ファイルをアップするなら、xlsmファイルのままでアップしてほしい。
zipファイル開いて見てくれる人はあんまりいないと思いますよ。xlsmでもそうですが。
要求票、台帳は、別ブックなのか、シートではダメなのか？
ここまで出来ましたとあるけど、出来ているのは、
「A列のデータを1行分だけ下にオートフィルして、一番下のセルをコピーする」
これだけしかできてないですよ。 >>376
Fast uploadetの仕様でxlsmファイルはアップロードできませんでした。
台帳と要求票は別ブックです。
２と３は参照先がないと動かなかったのでアップロードできませんでした。
申し訳ありません。 可能ならブックは1つにして、シートで分けた方がやりやすいと思いますよ。
この場合は、リネームする10のみを別ブックにするとか。 >>379
ありがとうございます。要求票から台帳の番号を取るのではなく、逆にすれば良かったのですね。ハイパーリンクの仕組みはさっぱりですが、勉強したいと思います。
>>377
要求票を発行する対象が50人ほどで、要求票が1日20通ほど発行されているので、同じファイルでは無理でした。
ありがとうございました。 複数のファイルを両面印刷で指定のプリンターで一括印刷するにはどうしたらいいんや？ ちなみに編集を有効にする？みたいなのをいちいち押さないといけない状態 初歩的な質問かもしれませんが、よろしくお願いします。
競艇の分析がしたくて、結果をコピペしたら
例)4-2-3が2004/2/3と日付になります。
4-2-3や423や4/2/3にする方法ありますかね？ >>383
それって一つ一つ開いてPDFにしないといけなくないんじゃないの？ >>384
貼りつけ先のセルの書式(表示形式)を事前に「テキスト」に変えておく MIN関数で返されたセルの1つ上のセルを参照したい。
どうすればいい？ MIN(A2,A4)の結果
A2を返す場合はA1を、A4を返す場合はA3を
B1に参照したい
って感じです。 >>389
値の重複がないならmatchとindirectでいけそうだけど >>388
＝index(表示させたいデータがある範囲,match(min(a2:a4),a:a,0)-1) 【1 OSの種類 .】 Windows１０
【2 Excelのバージョン 】 Excel97
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
・関数のコピーについて
2か月くらい前までは関数の入ったセルの右下の+を縦にドラッグする事によってコピーできていたのですが、
なぜかできなくなりました。
というか、関数はコピーできているのですが、セルの表示が反映されなくなりました。
コピー元の表示がそのままズラッと並んでしまいます。
どうしたらいいか教えてもらえないでしょうか？ >>395
ありがとうございます。
これに乗っている修正パッチは古すぎてもうダウンロードできないようです。
つまり、もう改善できないという事でしょうか？
Excel97なんで最新のExcelを買うべきなんでしょうか・・・ >>391
IF関数でできました。
ありがとうございました。 >>396
スレ違いになるかもしれませんが、マクロなどExcel固有の機能を使ってないのであれば、
無料で使えるLibreOfficeのCalcやGoogleスプレッドシートなど、いかがでしょうか？ pic.twitter.com/a05wFJpatH
https://twitter.com/5chan_nel (5ch newer account) ttps://i.imgur.com/AtBjJNC.png
同じ「1」なのですが若干見え方が違います
表示形式は同じ「標準」なのですけど
すごく初歩的な質問で済みませんがよろしくお願いします >>403
上のセルの書式が「折り返し」になっているとか。 >>404
ありがとうございます
折り返しってどこで設定するんだろうといじっていたら
文字サイズが違っていました、まぬけな間違えでした ttps://i.imgur.com/EEHnL5D.png
左側三つの文字サイズが9、右二つが11
右から二つ目に数字を入れると
左三つの文字サイズが9へ変更
＆
範囲選択していないはずの条件式書式（色付け）が横にずれて反映されてしまいます
どういうことでしょうか？お願いします >>406
行や列を挿入またはコピーして、
左or上隣りを引きずったのでは？
規則性がなく部分的におかしくなっているなら、
もうゴチャゴチャだと諦めて、
書式は最初から設定し直す。 >>407
ありがとうございます
検証が不十分なのですが
おかしくなるセルに上から順に数字を入れていくと該当のセルがおかしくなる
上のセルが空白だと正常
のようです すんません！！
前回はWordでしたが
今度はPowrPointに詳しい方はこのスレにおられませんか！
白黒印刷の時の背景の白文字的なやつなんだけど・・・
やっぱり向こうのスレ過疎ってて誰からも返事なくて・・・・・
誰かボスケテ！！
https://mevius.5ch.net/test/read.cgi/bsoft/1172850945/420 ヘルプを表示させようとすると
「ヘルプビューアーに原因不明の問題が発生しました。続行できません。」
と出て表示できません。解決策ご存知の方おれらますか？
EXCEL2010、Windows7sp1(64bit)です。 >>409
多分、パーポって略し方がスレ住民の反感買ったんだと思われる 【1 OSの種類 .】 Windows７
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可･
▼━関連スレ━━━━━━━━━━━━
「管理台帳」から作成されたブック「要求票」に必要事項を入力後、
管理台帳の2列目以降に貼り付けを行いたいと思います。
>376 379様のおかげでは管理台帳のハイパーリンクで要求票を
管理できたのですが、一覧がほしいとのことです。コピペでは間違いが
あったので避けてほしいと言われました。 連番もまともに発行できない
次第です。どうかよろしくお願いします。
http://fast-uploader.com/file/7091536737390/ >>414
「A3は数値のみ」とあるけど、B2の間違い？
仮にB2に数値をもってきたいとして、どこからどうもってきたいのかが分からないと無理でしょう。 >>415
申し訳ありません。要求票のセルB2からM2までを、管理台帳のb列に貼り付けたいのです。
ボタン2で作成されたブック「11」でしたらブック「１１」のセルB2からM2までを
管理台帳のセルA12（番号”11”）右、B12に貼り付けを実施したく。
よろしくお願いします。 つまり、管理台帳のB12からM12に、11.xlsxのデータを転記したいということですか？
１つはindirect関数を使う方法があるけど、参照先のブックが開いてなきゃダメ。
マクロでするとしたら、どこ時点のデータを転記するかを考えないと。
例えばボタンを押して管理台帳のA列に11が入力されました。
その時点で11.xlsxにデータが入っているのか、それともその時点では空で、それから入力をするのか？ (1)要求票のハイパーリンクをクリックして、11.xlsmを開きました。
(2)11.xlsmのB2からM2に関数や手入力でデータを入力します。
(3)入力し終わったら、11.xlsmにマクロボタンがあるとして、それをクリックしたら11.xlsmから管理台帳の12列目に転記されて、11.xlsmが閉じます。
みたいな流れかな？ >>414
ttp://fast-uploader.com/file/7091551933613/ 誰かアップロードセンターをオフにする方法わかりませんか？ >>415
ありがとうございます。おかげで助かりました。
M2どころかABまで項目が増えましたが、なんとか解決できました。
VLLKUPでこれだけ参照するとブックも１MBにもなるのがわかりました。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 マクロコピペで手順など教えていただければ
【4 VBAでの回答の可否】 できれば否
ロックされていないセルだけ全部選択することは可能でしょうか？ 全部選択して何するの？
したい事が出来れば良いんじゃないの？ 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい･
【4 VBAでの回答の可否】 可･
サーバに保存しているブックをpdf形式でローカルのマイドキュメントに保存したい。
￥￥gv9999￥本社￥総務部￥苦情にあるブックをpdf形式で<ユーザー名>￥マイドキュメントに保存したいですが、ユーザー名が不特定多数です。ユーザー名は数字6桁です。よろしくお願いします。 >>424
環境変数 %USERNAME% から取得するんじゃダメなの？ >>424
ダイアログで保存先のフォルダをユーザーに指定してもらう方法は？
ユーザーの意図しない結果にならない事は防げると思うし、どんな処理をしてるかわかりやすいと思う >>424
おそらくVBAで自動化したいという意味なんだろうけど、どこまでやりたいかが不明。
一気にやりたいのか、それとも各ユーザーがファイルごとに各PCからできればいいのか。 医薬品のgs1コードをバーコードにして印刷してスキャンできるようにしたいのです >>425、426、427、428
ありがとうございます。
当初は＜苦情ブック＞という入力フォームから＜集計ブック＞というブックに転記するだけ
でしたが、苦情の2重報告、マネージャーを通していない、集計ブックの非公開（公開して
前に改ざん、削除されました。）、＜集計ブック＞入力の誤記などがあり、ローカルに保存
してマネージャーがメールで424のマネージャーに報告する方法を思いついたのですが、質
問した通り、「てローカルに保存」する方法がわからず、行き詰っておりました。
PDFですが＜苦情ブック＞はプルダウンとindirect、30か所のVLOOKUPで１MBあるため、
単にローカルに保存してメールに添付する方法は却下されました。そこでPDF形式でファイル
サイズを小さくすることにしたのですが、「PDF形式でローカルに保存する」方法がわかりません
でした。
>>427のおっしゃる通り、ユーザーに指定する方法もありましたが、ディレクトリの概念が
乏しいようで、どこに何を保存したかわからないとの苦情を受けました。ファイル名の統一
もありますが。
>>428 「各ユーザーがサーバの＜苦情ブック＞を使って処理の自動化」と思います。
自分も末端なので上司の意向、というか仕様を理解できていません。 >>430
ローカルと言うけど、windowsのバージョンによって、マイドキュメントだったり、ドキュメントだったりするとら思うけど、全て7？
サーバーというのは、会社のファイルサーバー？NAS？
そちらにフォルダ分けして保管する方法もありそうだけど。 >>431
OSはwindows7に統一されています。
近々10に、EXCELも2016にになるそうですが。
サーバはファイルサーバのみ。NASではありません。
マネージャーや同僚も明確な仕様を提示できていない事が原因なのです。
Accessならもっとスムーズかもしれませんが当方にスキルがありません。 ヘルプデスクかコールセンター業務っぽいのに、ユーザーがIT知識が低すぎる感じ。
PDFにしたところでExcelで開けない、検索性が悪いなど期待した効果は得られないだろう
ユーザー毎にアクセス制御可能なCLIパッケージの導入検討をするべきだろう >>424
ブックをマクロブックにすれば、できると思うけど。
ただ、色々ハードルがあると思いますよ。
何台あるのか知らないけど、各PCでセリュリティの設定したりできるのかとか。
win10に変わったら保存先のパスも変わってくるだろうし。
マイドキュメントに保存するときも、pdfのファイル名をどうするのかとか。
そもそも、仕様の理解できてない人の説明では、なんとも。 PDFで保存するだけなら、これでできそうかな。
7のマイドキュメントでも10のドキュメントでも同じっぽい。
7の環境がないから試せないけど。
PDFのファイル名をどうするかとか、すでにそのファイルがある場合にどうするかとか、
いろいろあるけど。
Sub make_pdf()
Dim Path As String
Dim WSH As Variant
Set WSH = CreateObject("WScript.Shell")
Path = WSH.SpecialFolders("MyDocuments") & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=Path & "aaaa.pdf"
Set WSH = Nothing
End Sub 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
日付にaaaを加えて曜日を追加したんですが
日曜日の横列のみ削除したいのですが、どうすれば良いのでしょう？
縦が日付で横がデータです
日と付いてる列だけ消したいんです
お願いします >>437
オートフィルターで日曜日だけ抽出して、そのデータを手動で一気に消す
行そのものを削除したい時は作業列に通し番号を入れて、作業列ごと削除したあとでソートしなおす やっぱ手動じゃないと無理っすか・・・
ありがとうございました >>441
検索（Ctrl＋F）→検索文字列「日」、セルが完全に同一～をチェック
→「すべて検索」をクリック
→「検索と置換」ウィンドウがアクティブな状態でCtrl＋Aで、検索結果をすべて選択
→ホームタブのセルグループから「シートの列を削除」を選択
excel2016ならこれでできると思うけど、2010は環境がないので試せない。 >>441
ちょっと説明が難しいんだけど、ワークシート上の関数だけだと、見えなくすることは出来るけど削除することはできないんだよ
セルに入ってるデータや数式の削除は手作業かVBAを使わないとできない ちょい訂正。
(1)検索（Ctrl＋F）→検索文字列「日」、セルが完全に同一～をチェック、検索対象を「値」に変更
(2)「すべて検索」をクリック
(3)「検索と置換」ウィンドウがアクティブな状態でCtrl＋Aを押して、検索結果をすべて選択
(4)ホームタブのセルグループから「シートの列を削除」を選択
（ショートカットならCtrlと-（マイナス）で、行全体を選ぶ）
※必要に応じて(1)で特定の列を選択する等しておく。
>>443
そういう意味では、自動で削除は無理ですね。 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい（少し）
【4 VBAでの回答の可否】 可
数字が3つ以上連続している場合は"～"や"-"で途中の数字を省略して
表示する方法はありますでしょうか
具体的には作業が1～10,000程度まであり、担当者が2人いたとして、それぞれが
担当者A 1,2,5,6,7～
担当者B 3,4,8,9,10～
というように担当する場合で、エクセル上では作業の番号の隣の列に
担当者が入力されています（作業の振り分けに規則性はありません）
作業の内容はシート1枚が1ページとして印刷されており、ページ番号が
作業の番号に対応しています。何番の作業がどちらの担当かの一覧を
印刷して、それを見ながら作業内容の書かれたの紙を担当者毎に2つに
わけたいのですが、全ての数字を記載してしまうと確認が大変なので
担当者A 1,2,5～7（または5-7）
担当者B 3,4,8～10（または8-10）
というように連続している場合は省略したいのですが、なにかいい方法は
ありますでしょうか
よろしくお願いいたします >>445
１つのセルに、複数の数値がカンマ区切りで入力されてるんですか？
数値とカンマは必ず半角？ >>445
A列に番号、B列に担当者名が入ってるのを集計するイメージかな？
その場合ならC列に担当者①用の作業列、D列に担当者②用の作業列を作って集計すれば良いと思う
C列はB列が担当者①ならA列の番号を、違うなら空白みたいなイメージで、かつ1行上に番号が入ってる場合は｢～｣にするとかそんな感じの処理 ああ、そういうことですね。失礼。
>>446は無視してください。 >>445
全ての数字を記載して、条件付き書式で連番だったら色を塗る、じゃ駄目？ ( ´ー`) .｡oO(ある意味、頭の体操パズル・・・) VBA使う方法しか思い付かん
ワークシート関数でやろうとすると、ものすごく数式が長くなりそうで、とても考えたくない ■ このスレッドは過去ログ倉庫に格納されています
