Excel VBA 質問スレ Part50 [無断転載禁止]©2ch.net

2017/08/27(日) 12:40:17.57

!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part49©2ch.net
http://mevius.2ch.net/test/read.cgi/tech/1498410914/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2017/10/28(土) 15:10:37.21

>>858

https://i.imgur.com/y68fVEC.jpg

2017/10/28(土) 15:22:04.59

>>860
いいってことよ(´・ω・｀)b

2017/10/28(土) 15:36:03.59

>>861
おーいいね
お疲れ様

2017/11/02(木) 17:28:07.27

加減乗除をやりたいんですが、式のセルの下に直で式を書いて、値に数値が出るような仕組みはどんなマクロになりますか？
パラメーターは後に記号にして計算さしたくて、短縮計算風に出来ませんかね？
https://i.imgur.com/dCH8v0R.jpg

2017/11/02(木) 19:09:21.64

構文解析？短縮計算とは変数のことかな？
計算では括弧や優先順位はいいのかな？

2017/11/02(木) 20:09:43.68

>>864
数値のセルに名前をつけてたとえば
h
w
t
にしといて、式に
=h*w-t
ってやると計算される。2013ね。他のバージョンは知らん。
日本語の名前でもいけると思う。

2017/11/02(木) 21:02:34.02

横から縦を引くのって、どういう用途なのか気になる

2017/11/02(木) 21:20:16.62

構文解析っていうのか分かりませんがが、四則演算でかけ算、わり算優先です。式は括弧もありです。
最終的には、フォームのテキストボックスとかに式を打って、ボタン押して計算させるものを作る予定です。

https://i.imgur.com/ywonMIZ.jpg

2017/11/02(木) 21:39:49.02

>>864
式に使いたい項目が動的に増えたり、演算子の順序変えたりしますか？
後、式と結果を出力するセルも画像のままでいいのてすか？

2017/11/02(木) 21:44:12.23

>>869
パラメーターは下に増えます。演算順序は変えません。括弧、かけ算、わり算優先です。
答えはそのセルでいいです。

2017/11/02(木) 22:01:48.46

>>870
一つのテキストボックスに
(a*b)+3/4
みたいに入力されたものを解釈して計算する感じでしょうか？

2017/11/02(木) 22:05:39.15

>>864
マクロ4.0のevolute
vbaの可変変数
辺りが合いそう

もっと具体的に何がしたいか書けば良い回答もらえるかも
今のままだと意味がわからん

2017/11/02(木) 22:11:24.38

(1) 計算記号を半角の +,-,*,/,(,) に置き換える
(2) 式の中のパラメータを全て数値に置き換えた文字列を作る
(3) 出来上がった式の先頭に "=" を付ける
(4) 答えを出したいセルに (3)の式を書く

で出来ないか？

2017/11/02(木) 22:21:25.46

Dim 式 As string
式 = "(1+2)*3"
Range("D5") = ExecuteExcel4Macro("EVALUATE(" & 式 & ")")

とりあえず、文字列変数の”式”に計算式代入してますが、代入をテキストボックスから代入にすればD5に結果が出ます。

2017/11/02(木) 22:25:43.90

そもそも置き換える意味がなくないか
https://i.imgur.com/ZAuSaoz.png

=
(
INDEX(B:B,MATCH("w",A:A,0))*
INDEX(B:B,MATCH("h",A:A,0))
)+
INDEX(B:B,MATCH("t",A:A,0))-
INDEX(B:B,MATCH("m",A:A,0))

2017/11/02(木) 22:47:32.54

マクロ使わなくても>>866ので十分じゃないの？
式を文字列としても表示したい場合もワークシート関数で済むし

2017/11/02(木) 23:07:13.28

>>871
そんな感じです。

>>872
ある物の大きさだったり、重さだったり、面積とかを計算で出したくて、物ごとにパラメーター数値をそれぞれ持たせて、Aの大きさを計算したり、Bの大きさを計算するのに使う予定です。
イメージの順序は

①フォーム1のテキストボックス1に種類を入力。
計算ボタン→③へ。
パラメーターボタン→②へ

②フォーム2
種類別にシートに登録されてる基礎パラメータ―値を取得し数値を転記させる。
　基礎値は変更可能で変更したらパラメーター数値を上書きしフォーム1へ戻って計算ボタン。基礎値は種類によってなしもあり。

③フォーム3に決められた項目があって、面積や重さ等を算出し転記。

イメージはこんな感じで、決められた項目の計算式はマクロに組み込む予定で、自分で算出したい時に式を記号で書いて計算出来たら便利でいろいろと用途が広がっていいなと思ってます。

説明下手ですみません。やりたいことは伝わります？

https://i.imgur.com/jUHfvjj.jpg

2017/11/02(木) 23:08:16.66

ExecuteExcel4MacroじゃないEvaluateでも出来そうじゃない?

2017/11/02(木) 23:22:31.35

ただ、汎用性を広げると結局、Excel関数と何が違うの?という話になってしまう。
自分で算出したい時に式を記号で書くのと式をExcel関数で書くのどっちが良いかという話。

2017/11/02(木) 23:25:12.28

>>866
が一番楽かな
俺は名前を付けるのが嫌いなので（あとで探しにくい）
>>875みたいに数式を工夫するけど

2017/11/03(金) 00:48:40.50

簡単にいうと

長さ1センチの棒が10個繋がっていて.
それぞれA1～A10という記号。

①A5までの長さは？
　Ans=A1×5
Ans=A1+A2+A3+A4+A5
Ans=A1+A2+....A6-A1

どれでも同じ答えになるけど、式はバラバラでも答えが出るような物をマクロで書きたい。

2017/11/03(金) 00:56:23.31

>>881
言うのは簡単だけど要件定義をしっかりしないと無限に答えが出るからどうしようもないぞ
Ans=（A1+A2）+A3+A4+A5
Ans=A1+A2+A3+A4+A5*1
なんてのもある
何を省くのかを全部決める必要がある

2017/11/03(金) 06:58:23.53

>>881
A1～5が 1.0、1.0、0.9、1.1、1.0 みたいなこともあるのかな？

2017/11/03(金) 10:36:10.54

>>883
あります。

2017/11/03(金) 14:26:57.95

>>881
構文解析とか字句解析とかパーサ、レキサとかを勉強したらいいよ

2017/11/03(金) 17:05:15.87

構文解析とか面倒くさいことせずにそのまま式として使えばいいじゃん
何か不都合があるの？

2017/11/03(金) 17:37:53.64

(´・ω・｀)b

**888** (ﾊﾞｯﾄﾝｷﾝ MM92-0Du5) · 2017/11/03(金) 17:38:24.43

888げっち(´・ω・｀)b

2017/11/03(金) 18:05:12.90

>>886
横とか縦とかを使いたいって要件があるからじゃね

2017/11/03(金) 18:08:36.69

>>886
原価計算をマクロで作っててどうしてもやりたいんですよね。

2017/11/03(金) 18:41:59.94

>>889
横とか縦とかはセルに名前付ければいいでしょ？

名前付ける部分にマクロ使うのはわかるけど
四則演算の数式の解釈をExcelに任せずわざわざ自作ことないんじゃないの？

2017/11/03(金) 18:49:35.38

>>891
セルに名前つけたくないのかもしれない

2017/11/03(金) 22:20:15.66

>>884
情報の後出しにならないように他にも条件があるならすべて書くがいい

2017/11/03(金) 22:42:30.80

>>893
やりたいことは>>877。

種類　A
式
W×H/1000/1000
答え
○○
式
D0×(T+2)+20+30
答え
○○

みたいに計算がしたくて、種類によって記号に与えられてる数字を反映して計算。使う計算は、+、-、×、/の４つと括弧。

2017/11/04(土) 00:12:34.17

ボタンだけシートに置いてフォーミュラ使ったほうがエクセルでやるメリット活かせそうな気がするが

2017/11/04(土) 01:46:11.14

例えばA列に数式、B列に計算結果、C以降の列に数式に使われる変数の値を1つずつ入れるとする。
A1に"計算式"、B1に"結果"、C1に"変数→"と入力しておく。
A2には"(%1+%2)/%3"、A3に"(%1)^(%2*%1)/%3"などと計算式を入力して以下を実行。

Dim i As Long
Dim j As Long
Dim strFormula As String
Dim lngArgNum As Long

With Thisworkbook.Worksheets("計算")
For i=2 To .UsedRange.Rows.Count
strFormula=.Cells(i,1).Value
lngArgNum=Len(strFormula)-Len(Replace(strFormula,"%",""))
For j=1 To lngArgNum
strFormula=Replace(strFormula,"%" & Cstr(j),.Cells(i,j+2).Value)
Next j
.Cells(i,2).Value=Evaluate(strFormula)
Next i
End With

こんな感じで計算式とデータを元に計算できると思う。
スマホから入力で実際には試していないから間違いは有るかも。

2017/11/04(土) 01:49:39.94

名前付き範囲とFORMULATEXT()使ったスマートだと思うがな

2017/11/04(土) 02:50:58.68

>>896
仕様を満たしていないから0点と言われる可能性もある

2017/11/04(土) 02:57:57.27

>>877 の画像のデータをDBに入れて
sqlで計算させたらいい
つまりAccessを使うのがいいと思う

2017/11/04(土) 04:40:42.42

>>890
どう実装するかはあなたのセンスでは?

2017/11/04(土) 13:33:35.87

>>898
そりゃ、コード作成依頼は受けるつもりが無いんでね。
わざとじゃ無いけど正直、仕様からわざと外したいくらい。
だから最初から仕様はまともに読んでない。
考え方を示しただけ。
後は自分の仕様に合わせて自分で作ってくれってこと。

自分が示したコードは最初から変数を%1とかにしたけど、シート上に変数のリストを持たせれば>>864の仕様により近くなるけど、そういうことも含めて自分で工夫出来て欲しい。

2017/11/04(土) 13:46:26.63

言い訳するなら最初から答えようとすんなカスw

2017/11/04(土) 14:18:00.40

>>902
お前には関係無かろう。
コードも示せないくせに。
そんなに言うならお前が仕様通りのコードを示せば良いじゃないかw

2017/11/04(土) 14:23:56.33

種類選択して、行に並ぶ全記号をループ処理でフォーム2のテキストボックスに転記させ計算ボタンをクリックして書いた式を+なりsplitで区切って+なら足し算、-なら引き算って感じでは無理かね？
複数条件が無理そうだけど。()の概念がなければなんとかなるのかね？

2017/11/04(土) 14:36:42.41

>>904
そのやり方だと複雑な計算式や()が付いた式の場合に難しくなると思う。
上でも書かれてる構文解析の話になる。

2017/11/04(土) 14:38:17.15

>>905
だから知らんのに答えようとしてスレ荒らすな無能

2017/11/04(土) 16:17:57.99

>>903
頓珍漢なコードでどや顔されても迷惑なだけ

2017/11/04(土) 16:21:46.87

じゃあおまえが頓珍漢じゃないコードを
書いて反論すればいい。

2017/11/04(土) 17:26:08.34

荒らしてるのはどっちなんだろうね。
>>906も>>907もコードも考え方も示さずに文句しか書かない。

2017/11/04(土) 18:15:58.49

荒し？
事実だろ w
そもそも既に
簡単にやりたいなら>>866
ちょっと工夫して>>875
ガッツリやりたいなら>>885
が既にでてる
>>896でどや顔は恥ずかしいだけ

2017/11/04(土) 18:36:47.91

で、肝心の質問者は全然出てこないいつものパターン w

2017/11/04(土) 21:54:18.84

荒れてますな

2017/11/04(土) 22:20:15.29

頓珍漢どや顔君が暴れてるだけ

2017/11/04(土) 22:37:51.15

結果希望のコードは出来ないで終わりだな。

次の方どーぞー

2017/11/04(土) 22:45:14.81

>>910
バーカw
これだからレベルの低い癖に難癖つける奴は困るんだ。

そもそも多少書ける奴なら構文解析が面倒くさいのも分かる筈。
それでも構文解析にメリットが有るなら分かる。
今回、一体どこにメリットが有るんだ?
理由も無しに構文解析でやる奴はいないからコード例すら出てこない。

>>866は現実的な案だ。
だが、使用者にセルに名前を付けることを強いる方法だ。
大したデメリットではないからこの選択肢はありだが、最初に提示されても質問者が乗ってきていない。
幾つかの選択肢が出るのを待ってるのかもしれんが、それだったら別の案を提示しても良いだろう。

お前は全く分かって無いようだが、>>875は質問者の質問をそのまま否定したものだ。
つまりExcel関数を使えというものだ。
俺もこの意見に賛成だ。
それが>>879だ。
だが、質問者の意図をこちらが完全に把握するのは不可能だ。
状況によっては質問者の考えを取る場合もある。
実際、俺もそういう場面があってその時は>>896とは少し違うがEvaluateを使った。

はっきり言って>>896はコードを手直しすればかなり有力な案だ。
マクロでやりたいならな。
>>875も有力だ。
マクロでやらないなら。
多少書ける奴ならそんなことはすぐ分かる。

2017/11/04(土) 22:47:58.48

>>915
>>902

中身のない長文はバカ
の見本だな

2017/11/04(土) 22:49:37.17

俺はそれよりも何よりも>>896がスマホでどう入力してるのかが気になって仕方ない

2017/11/04(土) 22:56:05.22

>>916
中身が理解出来ない or 文句言いたいだけの間違いw

>>917
別に、そのまま全部手打ちだよ。

2017/11/04(土) 23:01:13.23

案の定荒らしとるやん
無能の答えたがりは排除するに限る

2017/11/04(土) 23:01:26.25

>>915
構文解析はちゃんとかければ良いんだけど、めんどくさい＋例外が多いからなー
その点を完全にクリアできるなら有力候補だね。俺には無理だわ

>>866
はchangeイベントで毎回A列のセルそれぞれに名前を付けるってコードを走らせれば、直感的でわかりやすくなるかもね

>>916
中身があるのが見えないのか、勿体無い

2017/11/04(土) 23:01:39.52

そろそろ引っ込んだ方がいいんじゃね？

2017/11/04(土) 23:06:22.01

>>920
> 中身があるのが見えないのか、勿体無い
あの程度の中身であの長文 w
マジで言ってるの？

2017/11/04(土) 23:25:14.88

求められてるのはテクニック自慢知識自慢の回答じゃなくて多少泥臭くても質問者が理解できるような回答だけどな
業務に使うんだとしたらなんか知らんけど動いたじゃ駄目だからな

2017/11/04(土) 23:56:47.77

なんでもExcelでやりたがる病の次は
なんでもマクロでやりたがる病かな

こういうケースはコードを提示するよりも
選択肢のメリット・デメリットを教えてあげるほうが
質問者のためになると思うけどけどね

2017/11/04(土) 23:59:49.18

文句言ってる奴は何も参考になることが言えんようだな。
というか、前から思ってたが分かりやすいから言ってやる。
ID変えてご苦労さんw

>>923
だからこそ考え方を示すべきで、コード作成依頼は駄目だと思う。
>>896なら動かしてみれば質問者も理解出来るだろう。
そんなに難しい部分も無いし。

2017/11/05(日) 00:03:30.19

sqlでいいじゃない

2017/11/05(日) 01:22:19.45

何も書かなくなったってことは解決したと思っていいんじゃね

2017/11/05(日) 06:55:18.19

> >>896なら動かしてみれば質問者も理解出来るだろう。
頓珍漢なコードを動かしてもしょうがないだろ、どや顔君 w

2017/11/05(日) 12:31:57.15

無能は混乱させる発言をするよりは何も言わない方が上策だという事が分かってない
だからこそ無能なのだが

2017/11/05(日) 12:49:11.93

「混乱させる発言をするよりは何も言わない方が上策」
これが事実であることを証明してみなさい

2017/11/05(日) 12:59:13.87

一連のレスで充分証明されてるだろ
理解できてないのは「無能」と言うことまで w

2017/11/05(日) 13:01:16.77

沈黙は金

2017/11/05(日) 13:01:56.76

○○だから無能である
無能の定義は○○である
定義によると○○だから無能である
これが証明

循環ｗｗｗ

2017/11/05(日) 13:05:24.14

無能でも個人の意見として発言すればいいだけやん

2017/11/05(日) 13:08:17.40

まぁ一番悪いのはコード依頼する質問者だけどな

2017/11/05(日) 13:08:22.77

>>933
> 沈黙は金

http://www.weblio.jp/content/%E6%B2%88%E9%BB%99%E3%81%AF%E9%87%91
この「沈黙は金・雄弁は銀」という表現が成立した当初は、金よりも銀の方が価値が高かった、
つまり、、元々は、沈黙よりもむしろ雄弁を称えた格言であったという説がある。

2017/11/05(日) 13:13:47.98

>>935
こういうマクロが欲しい→自分じゃできない→誰かに作ってもらう
って考えの人には教えてもしょうがないからな

2017/11/05(日) 13:37:23.74

え、まだやってたのｗ
>>915がうまくまとめてるのに
もうちょい人生有意義に使おう

2017/11/05(日) 14:05:31.85

有効な君たちへ。

Aと入力したら、コンボボックスにadditemでAから始まるキーワード候補を入れ込んで矢印ボタンを押さなくても入ってる候補を自動で全て表示って出来ない？
dropdownって書いても最初の１個しか表示出来ないんだが。
リストビュー使わずコンボボックスのみは無理かね？

2017/11/05(日) 14:19:42.28

>>939
昔作ったな、それ
全部表示されるはず
リストの内容を一度確認したほうがいいかもしれない

でもバージョンによるバグかもしれない
アップしてくれれば確認するよ

2017/11/05(日) 14:44:16.23

本人降臨乙 w

2017/11/05(日) 14:51:43.48

>>940

>>861

2017/11/05(日) 15:01:02.75

>>942
写真は辞めてくれ。見るのめんどくさい

出てきたからあげるわ
大体やりたいことはこれだと思う
・設定シートのB列に表示したいもの。C列は入力する文字を入れる
・入力シートのA1に「う」と入れて決定。リストが現れて「東京」「北海道」が現れるので選択する
もちろん「う」じゃなくても「東」なんかでもいい。場合によってはB列に「渋谷」とかいれてもいいかもしれない
https://dotup.org/uploda/dotup.org1380568.zip.html

自分で言うのも何だがこれ超便利。かなりオススメ

2017/11/05(日) 16:02:07.87

>>943
なにこれすごい...
これは便利ですね！ちょっと理解するには時間がいりますね。ありがとうございます！

キーコードF12のところは何をしてるんですかね？

2017/11/05(日) 16:24:01.20

持論の長文なんて無能アピールでしかないよ

2017/11/05(日) 16:30:01.87

>>924
こういう意識高い系が一番困る。
相手のため、とか何で上から目線なんだよ。
ExcelVBA質問スレなんだから、ExcelVBAで解決できないなら黙っとけ無能。

2017/11/05(日) 16:42:55.58

>>944
あ～F12な。結局使わないから封印してたの忘れてた
リスト選択中に、enterじゃなくF12を押すとB列じゃなくてA列のIDが入力される
都道府県の場合なら、都道府県番号なんかを入れておけば便利かもな
リストの内容によっては全く使わないかもしれない
好みで設定したり拡張したりしてくれ

2017/11/05(日) 16:45:11.41

>>946
教える方が上ってのは常識だよね。君は教室で暴れるタイプだったのかな？まぁそれだったら言っても分からんかもしれない
必ずしもVBAで解決する必要はない。可能ならエクセルや他のアプリケーションに任せたほうが遥かに早い場合もある
もう少し視野を広く持とう

2017/11/05(日) 16:53:57.90

>>948
たかがvbaのしかも一つのことだけで
上の立場になったと錯覚できるのか

こう言うのが職場の役割の上下関係を
人間的な上下関係と取り違えてパワハラとか問題を起こす

2017/11/05(日) 17:00:41.90

ｗ

2017/11/05(日) 17:07:04.37

>>949
君は本当に謙虚さが足りないな
教えるという行為は分野が何であれ、それだけで上なんだよ
別にそれが人生論でもvbaでもケツの吹き方でも何でも同じだよ

2017/11/05(日) 17:22:31.31

>>947
なるほど。ありがとうございます！
大事に使わさせていただきます！

2017/11/05(日) 17:32:40.60

>>949
立場を教えてもらってるおまえは
下なんだからちゃんと理解しろよ

2017/11/05(日) 17:59:37.33

>>951
たかが一つ教えた気になったら
全部が上だと思うのが間違いだと指摘している
ちゃんと教えてやるから正しく理解しろ

2017/11/05(日) 18:03:31.52

>>954
人の言ってることを勝手に拡大解釈するようなアホに教わることはないんだ、スマン

2017/11/05(日) 18:35:21.91

>>955
このスレに質問した人も
あなたに教えてほしいとは言ってないだろ

2017/11/05(日) 18:46:16.14

無能の屁理屈はスルーで

2017/11/05(日) 19:05:22.65

>>956
意味がわからない
質問者が回答者を選ぶシステムは無い

まぁ仮にあったとして、俺は>>1>>73>>110>>167>>875と>>943
（167-875の間は調べるのがめんどくさくなった）
だけど、そこまで悪い回答者ではない。指名も多数あるだろう。ははは
回答もロクにせずに教室で大暴れしてる誰かとは違う

2017/11/05(日) 19:06:04.69

回答が出来ないならせめてスレ立てぐらい頑張れ
1000里の道も一歩からだ

2017/11/05(日) 19:08:37.19

どうみても質問者より回答者の方が多いし回答者同士で質問を奪い合ってる状態
もう自称上級者が「教えさせてください」と頭下げていいレベル

てかお前らの態度次第じゃ質問してやってもいいんだけどどうする？ちゃんと答えられんのか？