Excel VBA 質問スレ Part57

**デフォルトの名無しさん** · 2018/09/10(月) 21:42:39.57

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part56
http://mevius.5ch.net/test/read.cgi/tech/1534976724/

**デフォルトの名無しさん** · 2018/09/24(月) 16:16:37.08

https://qiita.com/Q11Q/items/b525330d043e2a775594
いつもながら薄気味悪い
誰に語りかけてるんだよ？

**デフォルトの名無しさん** · 2018/09/24(月) 16:35:59.07

>>319
そもそもの考え方が違うから思い付かないんだろう。
例えば日付毎の生産量を表す表とグラフが有ったとする。
表示する期間を指定することでグラフ表示が変化するプログラムが有ったとしよう。

何でそんな機能が必要かといえば、表とグラフをにらめっこして、1週間後のグラフはどうだろうという要望や判断が有るからだ。

こんな例すら思い付かないんだから知識や技術が有ってもダメプログラマーなんだろうな。

**デフォルトの名無しさん** · 2018/09/24(月) 18:01:08.47

荒らし本人が言ってもな

**デフォルトの名無しさん** · 2018/09/24(月) 18:02:07.29

>>337
webってそういうもんだよ
知らないの？何十年前の人間なの？

**デフォルトの名無しさん** · 2018/09/24(月) 18:06:57.12

そんなのPowerShellかRubyで十分

**デフォルトの名無しさん** · 2018/09/24(月) 18:20:22.67

>>340
qiita VBAタグの劣化は許しがたい
そうは思わないか？

**デフォルトの名無しさん** · 2018/09/24(月) 18:28:34.71

>>338
どの言語でも簡単にできる上にそういうツールって今はいくらでもあるんでVBAでやる理由としてはちょっち弱いですね
これはエクセル開いた状態のVBAじゃないと絶対無理だっていう事例を知りたいです

**デフォルトの名無しさん** · 2018/09/24(月) 18:32:02.32

>>342
頭大丈夫か？

**デフォルトの名無しさん** · 2018/09/24(月) 18:44:10.41

>>343
バーカ。
何でブックで保存するんだ?
そのファイルは結局どうするんだ?

Excelで開くんだよ。
何の為にそんなことするんだ?
業務では開いた上で人間が何らかの判断をする為だ。
そうじゃ無かったらExcelは必要ないし、人間が開く必要も無いし、ファイルもバイナリで良い筈なんだ。

開いた上で動作するものばかりである必要は無いが開いた上で作業するのが基本なんだからプログラムも開いた上で動作するのがメインなのは当たり前だろう。

**デフォルトの名無しさん** · 2018/09/24(月) 18:47:21.59

>>345
意味不明ですね
エクセルを開いたままVBAを使うことのメリットを納得させる決定的な具体例はまだですか？

**デフォルトの名無しさん** · 2018/09/24(月) 18:48:07.49

>>343
お前の主張はExcelである必要も無い場合も含んでる。
というかその割合も多いだろう。
だからお前がここに来てるのもまったくおかしい。

絶対に無理とか

**デフォルトの名無しさん** · 2018/09/24(月) 18:50:03.06

絶対に無理とかいい出したら、PC使わないと絶対無理な事例自体無くなってくるぞ。

紙とエンピツでOKという話になる。

**デフォルトの名無しさん** · 2018/09/24(月) 18:51:22.73

>>346
開いて作業するのが基本。
わざわざ開かずに作業する方がおかしい。

**デフォルトの名無しさん** · 2018/09/24(月) 18:52:11.10

主張が支離滅裂で理解できません

エクセルを開いたままVBAを使うメリットを納得させる決定的な事例を聞いてるのですが
そのような事例は存在しないのですか？

**デフォルトの名無しさん** · 2018/09/24(月) 18:52:40.76

>>346
意味不明なのはお前。
開いて作業できること自体メリットだよ。

**デフォルトの名無しさん** · 2018/09/24(月) 18:53:11.09

>>350
既に説明済みだが。

**デフォルトの名無しさん** · 2018/09/24(月) 18:54:30.36

>>351
そのメリットを納得させる決定的な事例を聞いてるのですが
そのような事例は存在しないのですか？

**デフォルトの名無しさん** · 2018/09/24(月) 18:55:55.65

そもそも最初から支離滅裂なのはお前じゃないか。

じゃあ、お前はどうしても絶対にVBAではいけない事例をあげられるのか?
そもそもVBAを否定する奴の主張の方が絶対どころかほとんど大した理由になってないものばかりじゃねーか。

**デフォルトの名無しさん** · 2018/09/24(月) 18:56:13.26

>>353
既に説明済み。

**デフォルトの名無しさん** · 2018/09/24(月) 18:57:30.40

>>353
結局、お前の主張を要約すると「VBAは嫌い」というだけだ。

**デフォルトの名無しさん** · 2018/09/24(月) 19:00:43.65

>>342
思わない
エクセル以外の処理をvbaで色々やるのが間違ってるんだよ

C#にでもまとめて、コマンドプロンプトで処理すればいい
もう文字コードだのお節介機能で自動変換だの疲れた

ってか、”1-1-1”を普通に取り込めないとかもうウンコofウンコすぎてしんどい

**デフォルトの名無しさん** · 2018/09/24(月) 19:01:15.42

>>354
いけないということはないですが楽で効果的な手法があるなら常識的に考えてそちらを使うのが自然ですよね
あえて非効率な方法を選ぶならそれなりの理由が有るはずです
その理由とそれを納得させるような事例を知りたいのです
ただ単にその事例に興味があります

**デフォルトの名無しさん** · 2018/09/24(月) 19:05:58.04

>>358
自然w
頭の悪さが滲み出てるわw
よくそんなこっぱずかしいことが言えるな。

Excelのブックは開いた状態で作業するのが「自然」なんだからお前の主張に則ればVBAが一番有利という結論だな。

**デフォルトの名無しさん** · 2018/09/24(月) 19:08:11.84

自然などと書けばこういう突っ込みが来ることも想像出来ないんだから話にならない。

**デフォルトの名無しさん** · 2018/09/24(月) 19:09:15.54

>>359
エクセルを開いたままVBAを使うことが他の言語やツールと比べてメリットがあると納得させる事例は存在しないのですか？

**デフォルトの名無しさん** · 2018/09/24(月) 19:11:39.15

>>358
使うのに必要なスキルが極めて少ない

**デフォルトの名無しさん** · 2018/09/24(月) 19:16:37.23

答え無しですが時間がもったいないのでこの辺りで切り上げましょうか

**デフォルトの名無しさん** · 2018/09/24(月) 19:19:46.76

人には絶対を求める癖に自分は自然ですます。
いったい、どういう頭の構造になってるんだろう。

**デフォルトの名無しさん** · 2018/09/24(月) 19:54:15.09

そもそも俺はVBAの言語仕様がなかなか良いと思ってるんだが
そういう前提に立つ人間は少ないのかな？

**デフォルトの名無しさん** · 2018/09/24(月) 20:14:30.52

>>365
ジョークとか皮肉で言ってる？
ちょっとよくわからないんだけど

**デフォルトの名無しさん** · 2018/09/24(月) 20:14:49.56

20年間COBOLとPL/Iをメインでやってきた人が、「VBAは良い。生産性がとても優れている。」と言っていた
まあ人それぞれということだ

**デフォルトの名無しさん** · 2018/09/24(月) 20:15:16.80

>>366

**デフォルトの名無しさん** · 2018/09/24(月) 20:16:36.26

>>366
なぜ皮肉だと？
「とても良い」とまでは言わないが、そこそこ良い言語仕様じゃないか。
そう思う人間も多いだろう。

**デフォルトの名無しさん** · 2018/09/24(月) 20:18:56.67

>>365
言語仕様は基本VB6なので当時としてはよくできてた
でもさすがに20年も経つと色々見劣りするところが出てくるわけで

**デフォルトの名無しさん** · 2018/09/24(月) 20:25:47.99

>>337
気にしてもハゲるだけなんじゃねーの

>>364
閉じた業務系でVBAと肉入り以外の選択肢を潰されてやむを得ずVBA触った俺みたいな変人もいるし、
まぁその手の固定観念でもあるか、あるいは構ってちゃんなだけじゃねーの

**デフォルトの名無しさん** · 2018/09/24(月) 20:27:32.35

>>370
それはもちろんそうだが、それによって致命的に使いにくくなっているわけじゃないしな。
なんか上の方の議論が「使いにくい言語をあえて使う理由は何なの？」みたいなノリで、
言語として使いにくいことが前提みたいになってる点が気になった。
「VBAは十分使いやすい言語だ」という前提を下ろすつもりのない人間もいるわけで。

**デフォルトの名無しさん** · 2018/09/24(月) 20:27:41.54

「良い」にも色々あるからな
まともなプログラミングの基礎のない低スキルな人間が、新しいことを一切学ばずとも20年間仕事できてるわけで、これはすごいことだよ

**デフォルトの名無しさん** · 2018/09/24(月) 20:28:51.56

>>370
当時からガチ勢と比べれば見劣りすることだらけだったわw何知ったかしとんねんプロさんwwww

**デフォルトの名無しさん** · 2018/09/24(月) 20:48:27.78

>>372
使い易さなんて他の言語との相対的なもの
他の言語の便利機能知ってしまったらあの機能もないのか…とかこの機能があれば…ってなるのはしょうがない

>>374
はいはい w

**デフォルトの名無しさん** · 2018/09/24(月) 20:54:52.18

>>375
うむ、バカはしゃべらん方がよろしいw

**デフォルトの名無しさん** · 2018/09/24(月) 21:28:35.65

くだらない言い合いでスレ伸びまくりで草

**デフォルトの名無しさん** · 2018/09/24(月) 21:48:48.21

エクセルVBAは（ユーザーの）エクセルの操作を支援する場面において無類の力を発揮する。
しかしちょっと込み入った処理をしようとすると近代的な言語で書きたくなることは確かにある。

そこで質問です。
エクセル上でボタンを押す
→VBAでイベントを受ける
→外部プログラムにSelectionを渡す
→Selection（Range）を元に処理を実行
→処理結果を二次元配列データでVBAで受け取る
→VBAでデータを加工する。
→ワークシートにデータを書き出す。
尚、本エクセルは共有フォルダ上において複数名が交代で使用する。

こういったことがしたい場合何で書いたらいい？C#？PowerShell？

既存のVBAも活かしたいので、全部C#とかに一新しろっていう回答は無しでお願い。

**デフォルトの名無しさん** · 2018/09/24(月) 21:53:45.14

VSTOでアドオンだな
VBA資産とかいうゴミは捨ててC#で一新しよう

**デフォルトの名無しさん** · 2018/09/24(月) 21:56:06.10

>>378
csvか何かに吐き出せばどんな言語でも処理できるっしょ
ってかその程度ならvbaで頑張るわ

**デフォルトの名無しさん** · 2018/09/24(月) 22:02:20.31

>>378
＞ →Selection（Range）を元に処理を実行
＞ →処理結果を二次元配列データでVBAで受け取る

この2点からしてVBAで完結する案件
最初からRange→配列にして処理すればいいからね

**デフォルトの名無しさん** · 2018/09/24(月) 22:19:41.01

>>380,381
シンプルに書きすぎた。
たとえばSelectionの中身がファイルのパスで、そのファイルが複雑なデータ形式（たとえばAutoCAD dwg）を外部プログラムで解読したいとする。
（VBAのクラス関連の機能がショボすぎて無理だったので、前にC#で書いたものがある）
これをVBAから呼び出して使いたいってこと。

諸事情によりエクセルブックと同じフォルダにps1なりdllを置く必要があって、これを呼び出せると助かる。

**デフォルトの名無しさん** · 2018/09/24(月) 22:24:01.34

>>382
じゃあSelectionとか関係なくファイルパスを引数にするDLLを書いてVBAから呼び出せばいいじゃん。
VBA側では
ByVal path As String
で

**デフォルトの名無しさん** · 2018/09/24(月) 22:34:16.30

>>382
まあCだと諸般の事情から文字列を渡す場合でも
ByVal path As Stringじゃなくて
ByRef path As Varian ってインタフェースがいいわけですが
C#だと知らん

**デフォルトの名無しさん** · 2018/09/24(月) 22:44:58.17

>>378
VBA->C#(COM)->PowerShell->(PS, C#, CMD, VBS, etc.)

**デフォルトの名無しさん** · 2018/09/24(月) 23:06:47.65

>>383,384,385
同じフォルダのDLLを呼ぶように出来るの？
COM使うとしたらregasmが必要になるらしいけど・・・
ネットワーク共有フォルダ上のは設定出来ないのでは？
あ、遅延バインディングで出来るんだろうか

**デフォルトの名無しさん** · 2018/09/24(月) 23:17:50.47

>>386
自作DLLをVBAから呼ぶっていう単純な話だよね？
別にどんなフォルダにあろうと関係ないけど。
あとSelectionそのものじゃなくて配列化したデータを渡すんだったらCOMなんていらなくて
WIN32APIだけでできる。

**デフォルトの名無しさん** · 2018/09/24(月) 23:30:05.56

要はCADデータからメタ情報を抽出して、できればExcel形式で一覧化したい系の？

**デフォルトの名無しさん** · 2018/09/24(月) 23:46:24.03

>>387
そうだね。.NET系のDLLの関数を使いたい系。
COM登録せずに呼び出す方法あるのか。
参考URLとかもらえないだろうか。

>>388
メタ情報じゃないかなー図形情報の位置関係から特定の情報だけリストアップしてる。
まぁ例だからこれに限った話じゃないのだけど、VBAで書き直すのは無理ゲーすぎる。

**388** · 2018/09/25(火) 01:06:10.25

>>389
確かにそれだと自作DLLぐらいしか解決策なさそうだな。
んで、C#で書いた.NET系のDLLの関数をRegAsm使わないで呼び出したいと・・・悪いけど正直やったことない。
が、DLLをEXCEL.EXEと同じ所に置けるなら↓の方法が使えるかもしれない。
http://www.ka-net.org/blog/?p=6198
全然見当違いだったら申し訳ないが。

**デフォルトの名無しさん** · 2018/09/25(火) 18:07:06.26

フォームにオプションボタン1,2,3、リストボックス1,2,3を設置
オプションボタン2にチェックがあるとき、リストボックス2表示、リストボックス1,3は非表示
という具合に、オプションボタンにチェックがあるときに対応するリストボックスを表示、それ以外を非表示にしたいです

Private Sub UserForm_Activate()
If OptionButton1.Value = True Then
ListBox1.Visible = True
ListBox2.Visible = False
ListBox3.Visible = False

ElseIf OptionButton2.Value = True Then
ListBox1.Visible = False
ListBox2.Visible = True
ListBox3.Visible = False

ElseIf OptionButton3.Value = True Then
省略
end if

と書いてみたのですが、リストボックスの表示、非表示をコントロールできません
どうすればいいでしょうか

**デフォルトの名無しさん** · 2018/09/25(火) 18:25:16.89

>>386
プロフェッショナルなら可能

**デフォルトの名無しさん** · 2018/09/25(火) 18:35:56.01

>>391
オプションボタンのクリックイベントに書かないと動かなくて当然

**デフォルトの名無しさん** · 2018/09/25(火) 19:09:20.22

>>389
まず、そのDLLはCOMなのか、通常の呼び出し用なのか、.NET用なのか

COMなら参照設定なりCreateObjectなりで
通常のDLLならDeclare Function(SUB)で呼び出せば良いだけ

.NETのDLLは.NET以外から呼び出すのは難しいので、素直にCOM公開する方が楽

まあその相手方(たとえばAutoCAD?)がCOM公開してくれるのが一番楽だろうけど

**デフォルトの名無しさん** · 2018/09/25(火) 19:09:27.10

>>393
あーそうでした！お恥ずかしい
ありがとうございました

**デフォルトの名無しさん** · 2018/09/25(火) 19:15:41.25

すみません、切実に助けて頂きたいです。
現在、VBAからoracle12cにado接続してデータアップデートを行う処理を作成しています。
ですが、更新はうまく行くのですが、なぜか処理件数がどうしても0になってしまいます。
何時間も色んなサイトを参考にしたり、したのですが、ダメで…
色々なサイトにあるソースをコピペして接続先やテーブル名のみ変えて貼ったりもしてみましたが、実行するとやはり更新はされるのに処理件数が取得できません。
もう自分ではどうすることも出来ず、どなたか助けて下さい…お願いいたします。

**デフォルトの名無しさん** · 2018/09/25(火) 20:31:14.47

>>396
どうやって取ろうとしている？

**デフォルトの名無しさん** · 2018/09/25(火) 20:41:07.98

>>396
当然、これを見てlong型の第2引数を指定した…ってのは勿論やったんだよね？
https://msdn.microsoft.com/ja-jp/library/cc364125.aspx

**デフォルトの名無しさん** · 2018/09/26(水) 00:30:33.04

WinScard API使ってリーダーに設置したカードのIDmをセルに入力させたいのですが、うまく機能しません。
サンプルコードがありましたらご教示願います。

**デフォルトの名無しさん** · 2018/09/26(水) 01:13:21.41

＞＞396
プロパイダ（ドライバ）によってはレコード件数返さん奴があったはず
一回プロパイダ変えて試してみ

最悪は更新と同じ条件のselect投げて件数取得してから更新かけれ

**396** · 2018/09/26(水) 09:21:14.19

397、396
コマンドオブジェクトから、以下のようにしてやっていました。
com.execute(re)
comはADODB.COMMANDで、updete文を設定してあり、更新自体はうまくいきます。
reはlong型の変数です。
マニュアルのとおり、コネクションでexecuteもやってみたのですが、結果は返らず…

400
Microsoft ACTIVEX data objects 6.1を使ってみているのですが、ほかのバージョンにしてもダメでした…
ADO接続を使用する上で、必要な参照が上記以外にあるのでしょうか…

皆さんすみません、ほんとうに素人丸出しで申し訳ございません…

**デフォルトの名無しさん** · 2018/09/26(水) 16:42:22.74

VBAの勉強をしようと思うのですが、まず何から始めればいいですか？教えてください。

**デフォルトの名無しさん** · 2018/09/26(水) 17:05:59.73

まず服を脱ぎます。

**デフォルトの名無しさん** · 2018/09/26(水) 18:16:51.93

>>402
まずやりたい事を考えるといい。

最初は既存の関数の真似するプログラムでも書いて基本的な書き方を覚えるとかオススメ。
関数使えばチェックできるし。

慣れてきたら、百ます計算を作るでもいいし、ナンプレを作るでもいい。日常的にエクセルでやってる操作があるなら自動化してみるでもいい。

そのために必要なことはググれば全部出てくる。

**デフォルトの名無しさん** · 2018/09/26(水) 18:45:15.00

以下二点留意すればあとはググりながら独学で大丈夫かと思います

・普通に日英両方でググっても出てこなかったら他のモダンな言語の出番だと察する癖をつける
・bufとかSub Sample1()とかobjFsoといった特徴的な表記をサンプルコードで多用しているサイトは悪いコードの見本市なので極力真似ないように今から気を付ける

**デフォルトの名無しさん** · 2018/09/26(水) 19:12:00.05

そしておもむろに肛門にこびりついトレペかすを掃除します。

**デフォルトの名無しさん** · 2018/09/26(水) 19:12:58.42

>>401
12cならOracle.ManagedDataAccessがオススメ

**デフォルトの名無しさん** · 2018/09/26(水) 21:33:09.71

>>404
いきなり参考書から始めないほうがいいってネットに書いてありましたけど、本当ですか？

**デフォルトの名無しさん** · 2018/09/26(水) 22:45:53.91

ネットに書いてある事を素人が真似ると最悪直腸が破裂する危険もあります。
初心者が浣腸プレイに挑戦する時は必ず上級者に直接教えてもらうようにしまちょう。

**デフォルトの名無しさん** · 2018/09/26(水) 23:16:47.85

>>409
それ、面白いと思って書いたの？

**デフォルトの名無しさん** · 2018/09/26(水) 23:17:53.84

>>410
面白いと思ったの？w

**デフォルトの名無しさん** · 2018/09/26(水) 23:33:31.70

>>411
いや、微塵も
笑わせるつもりがないのなら何で書いたのかなと思って

**デフォルトの名無しさん** · 2018/09/26(水) 23:35:48.77

>>412
じゃなんで面白いと思ったの？って書いたの？w

**デフォルトの名無しさん** · 2018/09/26(水) 23:48:40.23

>>413
滑ってるようにしか見えなかったから

**デフォルトの名無しさん** · 2018/09/27(木) 08:01:55.54

>>414
結局おまえが盛大にスベっとるやんw恥をしれw

**デフォルトの名無しさん** · 2018/09/27(木) 08:16:20.10

>>408
画面で一行ごとの動きを見ながら勉強した方が解説読むより理解しやすい。タイピングする時間も解説を読む時間も無駄。

**デフォルトの名無しさん** · 2018/09/27(木) 12:17:06.67

>>402
まず入門書かって読めばいいんじゃね

**デフォルトの名無しさん** · 2018/09/27(木) 12:26:33.91

勉強のやり方をを勉強しないと勉強できないとか

**デフォルトの名無しさん** · 2018/09/27(木) 21:40:20.96

https://i.imgur.com/69DoZWN.jpg

どうしても必要で困っています

どなたか詳しい方がいらっしゃったら作成をお願いします。

**デフォルトの名無しさん** · 2018/09/27(木) 21:48:20.24

>>419
SUMIFSで出来ると思うよ。
VBA使うにしてもSUMIFSを使うのが効率の良いやり方だと思う。

**デフォルトの名無しさん** · 2018/09/27(木) 21:54:42.81

>>419
サンプルデータあげてくれれば作るよ
そのファイルの上から30行くれ

まぁやることは
JAN　＆　有効期限　＆　ロット番号の作業列作ってピボットに突っ込むだけだけどな

**デフォルトの名無しさん** · 2018/09/27(木) 21:55:15.47

>>420
ありがとうございます。
ググってその関数を見つけたのですが、どう記述したら実現出来るのかが分からなくて…

**デフォルトの名無しさん** · 2018/09/27(木) 21:56:35.93

>>421

サンプルデータってどこにどうやってアップロードすればいいですか？？

**デフォルトの名無しさん** · 2018/09/27(木) 22:10:56.58

普通にﾃﾞｰﾀｿｰｽをそのﾌﾞｯｸのｼｰﾄにして
SQL書けばきっと簡単にできる

VBAなんか不要

**デフォルトの名無しさん** · 2018/09/27(木) 22:19:36.54

>>423
http://fast-uploader.com/
「ファイルを選択」
「アップロード開始」

これが出来ないなら流石に何もしない

**デフォルトの名無しさん** · 2018/09/27(木) 22:21:31.13

>>425

http://fast-uploader.com/file/7093610017708/

**デフォルトの名無しさん** · 2018/09/27(木) 22:22:48.42

>>425

ありがとうございます。
426のコメントでアップロードしています。
ご確認ください(^-^)

**デフォルトの名無しさん** · 2018/09/27(木) 22:30:26.82

https://i.imgur.com/g0LaQIP.png
sheet1

https://i.imgur.com/CswmAtc.png
sheet2
※ sheet2にsheet1の結果を抽出

↓この抽出結果
SELECT min(`Sheet1$`.aho) , sum(`Sheet1$`.baka) , min(`Sheet1$`.じゃま)
FROM `himistu\baka.xlsx`.`Sheet1$` `Sheet1$`
group by `Sheet1$`.aho

**デフォルトの名無しさん** · 2018/09/27(木) 22:48:24.69

http://fast-uploader.com/file/7093611609249/
完成

**デフォルトの名無しさん** · 2018/09/27(木) 22:54:14.35

>>429
間違ってない？
ユーロジンが一つになっている

**デフォルトの名無しさん** · 2018/09/27(木) 23:00:45.54

>>429
早速の作成ありがとうございます。

私の伝え方が不十分だったかも知れませんが、430のコメントの通りです。

お時間があれば修正していただけると助かります。

**デフォルトの名無しさん** · 2018/09/27(木) 23:03:47.01

http://fast-uploader.com/file/7093612560800/
よしなおした

**デフォルトの名無しさん** · 2018/09/27(木) 23:06:15.22

>>432
ありがとうございます。
ちなみに、新たにデータを作成するのですが、そのデータに対して処理するにはどのようにすればよいですか？？

**デフォルトの名無しさん** · 2018/09/27(木) 23:09:53.34

あら負けた
http://fast-uploader.com/file/7093612906901/

ピボットで表みたいにするやり方がわからんかったわ

**デフォルトの名無しさん** · 2018/09/27(木) 23:14:28.37

↓ｾﾊﾟｿﾞﾝ錠２を100個追加
https://i.imgur.com/PgDSjOe.png

↓[ﾃﾞｰﾀ]ﾀﾌﾞ→[すべて更新]押下
https://i.imgur.com/mSvw0XM.png
ｾﾊﾟｿﾞﾝ錠２が155個になってる

ｶﾝﾍﾟｷ

**デフォルトの名無しさん** · 2018/09/27(木) 23:23:57.47

>>423
この集計、どうやって作ったか教えて下さい！
テーブル作る所までしかわかりませんでした

**デフォルトの名無しさん** · 2018/09/27(木) 23:43:17.54

新規に作成したい場合

[ﾃﾞｰﾀ]ﾀﾌﾞ →　[その他のﾃﾞｰﾀｿｰｽ]　→　[Microsoft Query]
　↓
Excel Files
　↓
このﾌｧｲﾙ
　↓
Sheet1$　> →　次へ →　次へ →　次へ →　。。。ｸｴﾘの編集を行う →　完了
　↓
SQL
　↓

SELECT `Sheet1$`.YJコード, Sum(`Sheet1$`.前月末在庫数), Min(`Sheet1$`.前月末評価単価), Min(`Sheet1$`.薬品名), Min(`Sheet1$`.単位名), Min(`Sheet1$`.薬価), Min(`Sheet1$`.通常仕入れ先コード),
Min(`Sheet1$`.発注点), Min(`Sheet1$`.JANコード), Min(`Sheet1$`.棚番１), Min(`Sheet1$`.棚番２), Min(`Sheet1$`.枝番), Min(`Sheet1$`.包装名称), `Sheet1$`.有効期限, `Sheet1$`.ロット番号
FROM `ひみつ\サンプルデータ.xlsx`.`Sheet1$` `Sheet1$`
GROUP BY `Sheet1$`.YJコード, `Sheet1$`.有効期限, `Sheet1$`.ロット番号

　↓

[ﾌｧｲﾙ] → Microsoft Office Excelにﾃﾞｰﾀを返す

ｺﾚでｲｹﾙ
一件落着