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/27(金) 22:30:52.04

>>837
若干挙動は違うけど
自分がよくやる手法が>>284
Splitあたりで工夫すればスペースで区切ってできるかもね

2017/10/28(土) 00:40:19.22

>>838
大久保さんかよｗお前BBAだろｗ

**デフォルトの名無しさん** (JP 0Hc5-xXVv) · 2017/10/28(土) 09:13:49.16

肉男爵

2017/10/28(土) 09:33:46.66

リモートデスクトップを使用してADサーバへアクセスし
変更するマクロを作成しています。

shellを使用して目的のサーバを起動させることは出来たのですが
そこから開いたサーバを操作するにはどうしたらよいのでしょうか？
何かやろうとしてもローカルPCの方を操作しようとしてしまいサーバの方を操作できません。

曖昧な質問で申し訳ないのですがよろしくお願いします。

2017/10/28(土) 10:03:13.85

>>842
VBAでやる必要がわからない
それこそpowershellとかの方が良いような

それかマウスやキーボードを操作するとか

2017/10/28(土) 10:43:35.88

>>843
ご返答ありがとうございます。
powershellについて調べてみました。
これをサーバに作成しておき、
ローカルPCの方のマクロボタンを押して起動させ、
ADの設定変更をするようなマクロを作りたいと考えています。

起動させたサーバ側を操作する方法があればご教授いただけないでしょうか？

よろしくお願いします。

2017/10/28(土) 10:55:53.23

>>844
ADって何？

2017/10/28(土) 10:56:14.17

>>837
これまた日本語がわかりにくなあ

とりあえず文字検索するだけなら

dim inpted
dim i as long,maxRow as long,list as new collection
'maxRowは最大行自分で求めて
for i = 1 to maxRow
　if .cells(i,1).value like inputed & "*" then
　　list.add .cells(i,j).value
　end if
next i

dim l as varianrt
for each l in list
　combobox.additem l
next l

とかこんな感じでいいんじゃねえの
コンボボックスに入力した値って要素0に入ってるんだっけか？

2017/10/28(土) 10:57:11.27

あ、コレクションに代入してるときのcolumnのｊは間違い
1ね
わかると思うけど

2017/10/28(土) 11:00:53.80

あ、あとinptedが入力済の文字列ね
どっから代入してくりゃいいか質問文からは読み取れないので

2017/10/28(土) 11:43:02.13

コピーのコードどが間違っているんでしょうか？
シート１とシート２にA３がオートフィルの題名でA4からA9にデータがあり
シート１のデータをシート2の最終行に張り付けたいのですがうまくいきません。
下記がコードです。
Sub Q_2_4()
Dim DataLastCell As Range

With Worksheets("Sheet2")
'「Sheet2」ワークシートの表で、A列のデータ入力行のセルを取得し、変数DataLastCellに代入する
Set DataLastCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
End With

'「Sheet1」ワークシートのA4からD9をコピーして「Sheet2」ワークシートに貼り付ける
' Worksheets("Sheet1").Range("A4:D9").Copy(コピーするセルの選択）
'コピーするセルたりないのは貼り付けをするを指定するセル
'
Worksheets("Sheet1").Range("A4:D9").Copy Destination:=DataLastCell
End Sub

下記の部分で止まってしまうのですがどこが間違っているかわかりません。
Worksheets("Sheet1").Range("A4:D9").Copy Destination:=DataLastCell

2017/10/28(土) 12:27:45.96

>>844
サーバー側にAPIをつくっておいて
HTTP-POSTでPowerShellを走らせるコマンドを送りつけるとか

そこまでやるなら、もはやVBAにこだわる必要ないし
セキュリティも知らないけど

2017/10/28(土) 12:33:46.75

>>849
なんというエラーで止まるのでしょう
構文には問題なさそうなので、コードではなく別の要因では

2017/10/28(土) 12:41:37.08

実行時エラー９
インデックスが有効範囲にありません。
とでます。
で、デバックをおすと該当部分が黄色くなります。
シート名は変更していません。

2017/10/28(土) 12:58:58.98

〉〉851
なぜかダウンロードした真っ皿なサンプルコードに移し替えたらできました。
シート名も変更せず、シート数も変えてないのに何かが変わっていたみたいです。

2017/10/28(土) 13:04:08.97

>>844
windowsならosの機能でリモート保守機能があるはず
それをpowershellから使えばいい

2017/10/28(土) 13:18:20.37

>>853
何故かじゃないでしょ。
うごかない環境で
Debug.Print DataLastCell.Address
くらいやっときなよ。

2017/10/28(土) 13:50:45.67

>>846

2文字目打ったら更に絞り込むにはどうしたらいいですか？
listは空にできますか？

2017/10/28(土) 14:12:38.74

>>853
ダウンロードってのがよくわからないけど色んな環境で使い回しているのなら
ExcelのバージョンまたぎでVBAが動かなくなることがある

同じブックを2003→2007→2003とかで使い回すと最後の2003の時だけエラーが出たり

2017/10/28(土) 14:27:37.18

>>856
あ、ごめん、頭にcomboboxクリアするコードいれなきゃダメだわ
それぐらい調べて

2017/10/28(土) 14:28:45.31

二文字目以降も絞るはずだよ
likeステートメントで調べて

2017/10/28(土) 15:09:56.58

>>858
これでいけました。
ありがとうございます。

>>839
参考になりました。ありがとうございます。
スペース区切りで2項目も出るようにしらべてみます。

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がうまくまとめてるのに
もうちょい人生有意義に使おう