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/09/28(木) 21:20:12.89

>>486
別にどうでもいい
早く作れて保守が容易で堅牢ならそれでいい

ただ、先日こういう凶悪なバグが発生した
https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_access-mso_win10/access2016/f7dc70ee-e228-473e-a92e-17992a3b16b3?auth=1

2017/09/28(木) 21:22:10.71

>>486
ある言語が使えて他の言語が使えないなんてのはあり得ないから、
特別に何らかの言語を使えと言われてるのにVBAに固執してるとかでない限りは特に問題ないと思うけど。

もちろん別の言語使うとなれば移行期間と、それに掛かるコストの問題は発生するけど、
この移行で発生するコストに収支が見合わないなら如何なる言語であれ移行する方がおかしいし。

2017/09/28(木) 21:29:04.93

>>471
いまだにアセンブラでモーター回してる俺も趣味でVBA使ってるよ
ここを読んでるスレ住人の1/4ぐらいは使ったことある製品に入ってる

2017/09/28(木) 22:02:49.49

バイブとか電動こけしなら
このスレの住人はそこまで使ってないよ

2017/09/28(木) 22:07:34.72

使ってるくせに(ﾆﾔﾆﾔ
何気取っちゃってんのw

2017/09/28(木) 22:24:44.49

>>484
そろそろ何とかしてほしいわね

2017/09/28(木) 23:10:52.31

思い切ってF#に変えてほしいな
C#といいMSは言語はいいものつくるのになんでいまだにVB・・・

2017/09/29(金) 07:18:36.82

C# でもいいし PowerShell と言う手もあるしな

2017/09/29(金) 07:42:22.91

PawarShell

2017/09/29(金) 08:05:24.92

次のエクセルでは.Netモードと旧VBAモードと混在させておいて、次のエクセルで切ればいい

2017/09/29(金) 08:23:21.48

しばらくはVBAとjavascriptの併存だな

2017/09/29(金) 08:58:12.82

切ることはできない

2017/09/29(金) 10:47:27.85

新仕様つくって古いの全部すてればいいんじゃね

2017/09/29(金) 10:54:15.88

>>487
うわあああああああ！俺の会社でもそのバグが始まった。
昨日それ見てなかったら、原因分からなくてパニックやったわ。ありがと
これから数千あるマクロ軍と戦うから、既にパニクッてるんやけどな

2017/09/29(金) 11:13:56.54

>>497
javascripでいくってことはいずれはweb化するんかね

2017/09/29(金) 11:24:31.88

>>499
んなこと出来るわけがない
ヲタプログラマの遊び道具はないんだよ

2017/09/29(金) 11:25:38.86

訂正
Excelはヲタプログラマの遊び道具ではないんだよ

2017/09/29(金) 11:37:17.11

プログラマが文句をいうのと一般ユーザーが文句をいうのとじゃ大いに違う

2017/09/29(金) 11:46:58.39

拡張子で切り替えるとかはするかも。
でも、現行のVBAで出来ないことなんて殆ど無いわけで、新仕様作ってもそれで新しいことが出来る奴なんて殆ど居ないだろう。

いまだに4.0時代のマクロシート動かしてるところだって有るんだぜ。
そんな簡単に切り捨てられるわけがない。
個人的にはマクロシートは切り捨てて欲しいが。

2017/09/29(金) 12:11:55.51

ちょっと前にWindows 3.1からようやく移行した空港の話があったしな。

>>500
昨今はクラウドが流行ってて常に更新するのが流行ってるけど、
仕事で使うなら、やっぱりサポート切れて更新しなくなったヤツの方がいいな。

2017/09/29(金) 12:16:54.98

VBAってMS的にお荷物なの？

2017/09/29(金) 12:58:03.09

古いの使ってる自慢は寒いな

2017/09/29(金) 13:35:54.03

まあ期間システムにoffice使ってるような糞企業は滅びたらいいよ

2017/09/29(金) 18:01:15.73

>>509
ほんとそれな
早くクラウドに移行してほしい

2017/09/29(金) 18:08:46.69

期間システムか
短期リースなのかな？

2017/09/29(金) 18:30:11.39

>>507
お荷物であるかどうかは分からないけど
生きた化石であることは確か

生きてないけど

2017/09/29(金) 18:54:46.16

適材適所を知らない奴はコンピューターを使うべきではない。

2017/09/29(金) 19:28:12.26

てか、現状のVBAをjavascriptに置き換えぐらいなら自動で出来るんじゃね？
format関係ぐらいは独自で組み込むんだろうしさ

2017/09/29(金) 21:13:57.76

>>513
それだと全人類の97%は失格だろうな
間違った使い方から始まる発明もあるんやで

2017/09/29(金) 21:16:31.80

全人類だと半分以上はコンピュータ使える環境に居なさそう。

2017/09/29(金) 21:24:18.98

アフリカなどの話だろうけど、逆。端末が無いと話にならない
現金を銀行まで出し入れしにいくよりも、ネット決済が主流になりつつある

2017/09/29(金) 22:37:04.88

>>516
http://40owata.xyz/wp/wp-content/uploads/2017/02/kawaguti27.jpg

2017/09/29(金) 22:49:07.04

この画像がシート2にあって、シート１のA1 1.6　(板厚)
B1 1250　(幅)
C1 2850　(長さ)
が打たれてコマンドボタン1を押したらシート2を検索して結果をシート1の
A3　1.6
B3 1800
C3 3100
と幅と長さが収まる最低限の板を抽出するマクロを組みたいのですが、FINDで板厚を検索してから幅、長さの条件のやり方が分かりません。長さが幅よりも小さくなることもあったりしてどうしたらいいか...教えて下さい。

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

2017/09/29(金) 22:51:53.27

>>519
最低限って何が最低限なの？面積？それとも縦か横の長さ？

2017/09/29(金) 22:52:10.70

>>518
申し訳ない、その芸人つまらないんだよねぇ

2017/09/30(土) 09:40:29.40

>>519
まず、日本語が変。
「この画像がシート2にあって」とか「が打たれて」とか。

FINDで板厚を検索するところまでできるならその後はー行ずつ幅と長さが両方共指定の値より大きくなるまでループすれば良いだけだろ。
何が分からんの?

2017/09/30(土) 09:41:22.54

>>520
幅と長さです。最低限というのは一番近い寸法のことです。

2017/09/30(土) 09:43:38.89

ああ、幅と長さが逆転することもあるわけか。
ロジック的には最初から幅と長さのラべルを無視してしていする方も各行の値も大きい方と小さい方で比較すれば良い。

2017/09/30(土) 10:04:04.01

>>524
元の幅と長さを比較して、大きい数字が幅なら幅の列を大きくなるまでループして大きくなったらその隣の長さのセル。長さが大きかったら長さの列をループって事ですか？

2017/09/30(土) 10:35:29.83

いんや、幅とか長さとか考えるからおかしくなる。
大きい方と大きい方、小さい方と小さい方を比較する。

2017/09/30(土) 10:43:02.05

比較は同時にするでしょ。
各行の大きい方がシート1の大きい方より大きくて且つ各行の小さい方がシート1の小さい方より大きいのが求める値。

シート2は最低限順に並んでる前提。
幅と長さが逆転することを考慮すれば最低限とは何かの定義が必要になると思うけど、その順番に並んでる前提。
並んでいるとは限らないなら、定義を決めることから始めないと無理。

2017/09/30(土) 13:05:00.67

鋼材屋の問題か　こういうのは紙資料を人間の目で見た方が百倍速いんだけど
どうしてもやりたい　やりたくてたまらない　しかも楽に　ってなら
Aの板厚入れた段階で板厚グループにジャンプ
Bの幅入れたらそれ以上の範囲を色分け　同様にCの長さ以上を色分け　するだけでよくね
BとCが両方含まれる範囲のうち最小を見るだけで答えは出る

と、以上の発想でそれをVBAで組み込みばおｋ
長さと幅が逆転してても幅がオーバーした時点でチェック・メッセージ出せばいいんじゃね

2017/09/30(土) 13:06:04.51

シート2は順に並べる予定です。どんなコードになるんですかね？さわりだけでもお願いします。

2017/09/30(土) 14:05:15.02

>>519
vbaスレなの忘れてたわ
数式で完成させたから後は適当にやってくれ
コツは必ず縦長として考える事（横長でもいいけど）
https://dotup.org/uploda/dotup.org1351421.rar.html

2017/09/30(土) 14:15:20.63

>>529
だからこんなの誰でもできるだろ。
FINDは使えるんだよね。
見つかった板厚の次の板厚も分かるよね。
For～Nextも使えるんだよね。

2017/09/30(土) 21:59:05.80

サヴァン症候群のやつが紛れこんでるな

2017/09/30(土) 22:34:04.27

VBAによるIE操作で土曜日潰しました。。
ビットコインの自動売買をVBAでやろうと思っていますが肝心の「買い」のボタンが押せません...プログラミング系の掲示板で聞いても挫折されてしまい、大ピンチです..万が一わかる方いらっしゃいましたらぜひ教えてください....

ビットフライヤーですがアカウントは無料で一瞬で作れます。口座開設しなければどう転んでも下手に取引が実行されることはありません。

↓↓　コードです

2017/09/30(土) 22:35:25.87

>>533
＞プログラミング系の掲示板
これはどこ？

2017/09/30(土) 22:42:44.44

>>533
何か有名なコピペ？

2017/09/30(土) 22:49:04.96

挫折されてしまい

2017/09/30(土) 22:50:02.92

533です

>>534
そっちでは本名に近いID使っちゃってるので勘弁してください

要はビットフライヤーの売り買いのボタンなんですがどうやら、価格数量を手入力しないと入力が認識されず売り買いのボタンも押せない感じでもう私には手に負えません…

2017/09/30(土) 22:56:17.57

ビットフライヤーにメタトレーダー対応の要望でも出した方が早いんじゃないの。

2017/09/30(土) 22:58:24.56

やっぱここでもわかんないわな…

2017/09/30(土) 23:25:44.90

そもそもサイトURLも貼らずに分からないんですねとか言われても困る
ビットフライヤーって何よ

2017/09/30(土) 23:26:07.97

あと、指値注文って出来ないの？

2017/09/30(土) 23:43:07.96

指値注文できますよ
その指値価格を、手入力しないとダメな感じがします
urlなんかngワードに引っかかってるみたいで…ビットフライヤーでググって先頭のページですすんません

2017/09/30(土) 23:53:06.19

指値価格をマクロで登録するの？？？
なんかよーわからん。それに、そんなNG入ってるサイト見たくないわ
どうしてもやりたいなら、画像解析＋キーボードマクロなどの手もあるぞ
それか儲かるってわかってるならさっさと外注すればいいと思う
クラウドワークに投げれば5マンぐらいでできるだろう

2017/10/01(日) 00:11:53.31

>>542
IE操作はVBAでやらん方がええぞ
Win10/IE11になってから昔ながらの方法が次々と使えんくなって、みんな右往左往してる
対処法もあるけど動作が遅くて、コンマ秒の差で大損するようなトレーディングには事実上使えん
Win7でやるなら話は別だが

今は自動運転ならchromeのが簡単
入力もクリックもブラウザ組み込みのスクリプトでたいてい可能

2017/10/01(日) 00:15:57.84

あぁそうかやchromeの開発ツールでjsぶっこめば終わりじゃん
vbaでアホみたいなこと覚えるより、jsイチから覚えたほうが楽だし有意義だな

2017/10/01(日) 02:13:12.92

vbaよりjsいちがいいよな

2017/10/01(日) 13:38:34.30

>>544
使えなくなってるか?
どんな所で?
俺は問題なく使えてるように思うが、どこが駄目になったの?

>>533
どの言語でやるにしてもDOMの知識が必要。
押すのは多分簡単に出来るが、そのページがどう作られてるか次第な面がある。

2017/10/01(日) 18:29:42.75

あえて無理を承知でVBAでやるのがVBAerの心意気だろがｗ

VBAの貧弱な仕様に疲れてしばらくC#とPYTHONを勉強していたがそういう言語で作ったアプリを
渡しても誰も使わねえのよ。もう、日本企業では　エクセル操作＝業務という定義が確立していて他に許せるのは
一太郎ワードアウトルックぐらいなんだよ。窓際社員の作ったPYTHONアプリなんか信用できないんだってよＷＷ

泣けてくるぜ・・・

2017/10/01(日) 19:05:43.78

>>548
そら日本のITは遅れますわ、という話やね
セキュリティに金かけられないからネット遮断したり権限締め付けたりするわけだしな

2017/10/01(日) 19:15:03.79

>>548
.NETとかのほうがいいんじゃないか

2017/10/01(日) 19:19:07.34

>>549
スマホとタブレットの普及でPCわからないのがデフォになっちゃったからなぁ。今年4月に入社したT大出のヤツが「マクロ教えて下さい」と
言ってきたんだが内心「どんだけハイレベルな質問されるんだろ」とガクブルしてたらシート関数ですらSUMしか知らないとかそんなレベルだったんで驚いた。
講義でC言語やったそうだけど「さっぱりわからなかった」そうで。こりゃ日本やべえよ

2017/10/01(日) 19:21:46.47

Cやコボルよりもvbaの方が100倍役に立つよな

2017/10/01(日) 19:27:45.32

>>550
だってね、PYTHONってのはもう、dotnetやってて「こんなのがあったらいいのに」と考えるモノが全部そろってるんだよ。
俺のやってる仕事はGISなんかも使うんだが、こういうのはもうPYTHONの独壇場で、殆どコード書く必要が無いぐらい出来あいのが
充実してるのよ。EXCELに特化したライブラリもある。全体に動作がモッサリなのが難点なのと、文字コードで頭が禿げそうになる、PYTHON3系なら大丈夫かもだが。

2017/10/01(日) 19:30:23.99

>>553
へぇ～～
数学系は強いって聞いてたけど、そんな所も強いのか、ありがとう

2017/10/01(日) 19:33:20.65

>>553
>文字コードで頭が禿げそうになる
www（ゴメン、つぼったわ）

2017/10/01(日) 19:39:46.20

>>555
機械学習なんかで注目されているpythonがイマイチ普及しない理由はコレって言われているぐらいだからね。

2017/10/01(日) 20:07:01.84

元からハゲのくせに何ちょっと見栄はってんだよw

2017/10/01(日) 20:08:57.83

>>557
いや、あのフレーズを言おうと思ったんだけど。失礼だからｗ

2017/10/01(日) 20:24:19.84

>>553
GISって言ったら昔の話だがGoogle Geocoding API使ってVBAで住所→緯度経度取得は簡単に出来たな。
Yahooも出来たと思う。
xml扱えれば誰でもできる。
VBAでの簡単ってのが他言語に比較して不明だが。

ただ、それやって良いかどうかが分からん。
Webに埋め込んだりするのは良いんだろうけど、自分が情報取得する為に使って良いんだろうか。

2017/10/01(日) 20:56:53.42

>>559
APIは回数決まってる
それ以内ならok

2017/10/01(日) 21:26:28.19

>>560
うん、それは知ってた。
けど、それはそれを利用したwebサイトに訪れる人数を意味してると思ってた。

Google Mapとの併用に限り認められるからVBAでの情報収集には認められないんじゃないかな。

2017/10/02(月) 04:20:33.43

VBA初心者です。
質問させてください。
複数ファイルに同じ文言を自動入力させたいと思いVBAで組み始めました。
ファイルを探し、開くとこまでは出来たのですが、最終行+1が上手く取得できません。
アップロードした画像ファイル(これはネットで拾ったイメージです)のような状態で最終行を取得すると、"261"行目が取得されてしまいます。
取得したいのは"258"行目なのです

どなたかコード毎サンプルを頂けないでしょうか？
よろしくお願いいたします。

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

2017/10/02(月) 07:03:12.10

>>562
Sub foo()
Debug.Print Cells(Rows.Count, 9).End(xlUp).Row + 1
End Sub

2017/10/02(月) 07:32:45.73

>>562
データの入ったセル範囲を取得しようとしてUsedRangeを使ったら書式設定されてる空白セルまで含まれた範囲を取得してしまったってとこかな

2017/10/02(月) 08:16:05.11

>>563
回答ありがとうございます。
9は何の数字でしょうか？

>>564
そんな感じと思います。
ここで取得した最終行+1に別シートで入力した日付、担当者名、備考MSGを貼り付けるプログラムにしたいと思ってます。

ざっくり作ってるのはこんな感じです。

特定フォルダから、○○01.xlmsというファイルを開いて、最終行+1に別シートで入力した日付、担当者名、備考MSGを貼り付け

保存、閉じる

次のファイル○○02.xmlsを開く
ファイル名の数字は増えたり削除されたりするので、○○が含まれたファイルを順次開いていく感じにしようと思います。

2017/10/02(月) 08:22:24.91

>>565
この程度のことここで聞くより調べた方が早いぞ
cellsの引数も知らんの

2017/10/02(月) 08:40:49.45

>>566
質問スレで質問したら怒られたでござるw

2017/10/02(月) 10:03:34.20

そりゃ2次方程式の解き方聞いてる最中に"+"の記号って何ですかとか加算って何ですかと言われても困るだろう。
そこが分からなくて何で2次方程式なんだってことになる。

2017/10/02(月) 10:07:24.98

いや別にRangeとか基礎から聞いてもええんやが
質問のレベルにかかわらず、答える人がいるかどうかは別問題

2017/10/02(月) 10:12:19.65

>>567
怒ってるんじゃなくて呆れてるんだけど
まあVBAなんてえてしてそう言うものだと言えばそうなんだけどな
なんでもかんでも教えてあげるのもどうかと思うんで

2017/10/02(月) 10:30:59.51

>>548
窓際社員瀬戸際の私はpython勉強しています(非情報システム系所属)。
そんな私はどうしたらいいでしょう？
ご教示ください。

2017/10/02(月) 10:54:33.73

Cellsの引数がわからないんじゃなくて
>>563の例で9列目を指定してるのはなぜ？ということでは
質問者のあげたサンプル画像がI列の最終行 + 1を赤く囲ってたから9列目としたんだろう

2017/10/02(月) 11:03:26.25

>>572
質問者自身が9列目にした理由が分からんってことは無いだろう。
自らI列のセルを指定してるんだしさ。

9を何かの特別な数値と勘違いしたのかなとは思ったけど。

2017/10/02(月) 11:53:58.34

元のコードがないと何事も推測にしかならん
無意味

2017/10/02(月) 18:10:19.22

VBAでIf～Thenの後を空行にすると次のElseIfが評価されないということは有るのでしょうか？
具体的には、

If var = 正常値 Then
ElseIf var = 異常値1 Then
(異常値の処理)
ElseIf var = 異常値2 Then
...
End If

のようなコードです。ElseIfがいくつも続くので最初に正常値にマッチしたらすぐに抜けるようにしたいのです。
最初のIfの後にブレークポイントを設定してもすり抜けているようです…
よろしくお願いします。

2017/10/02(月) 18:12:48.89

>>575
ないよ
他のとこ間違ってるんじゃない？

2017/10/02(月) 18:17:23.60

>>576
ところが同じコードでIf～の行を削除して二行目をElseIf→Ifに直したところちゃんと動いているようなのです。
最初のIfにマッチしてるということは無い筈なのですが…

2017/10/02(月) 18:49:28.05

>>577
前後と処理の内容と何を比較してんのかわからんと答えようがない

2017/10/02(月) 19:25:33.87

>>575
これSelect文使うべきじゃないの。

2017/10/02(月) 20:56:43.55

>>575
「正常値」と「異常値１」が定数か変数で同じ値とか

2017/10/02(月) 21:21:19.44

>>577
変数が期待通りになっていないんだと思う。
ステップ実行していけば変数がどう変化しているかすぐわかるんだけど
まだデバッグを使いこなせないビギナーさんなら
msgbox　var
をいたるところにちりばめて実行して
メッセージボックスで変数の変化をみるという方法があるよ
自分もデバッグ？なにそれ？なころはそうやってた

2017/10/02(月) 22:08:19.69

>>577
Ifの次の行じゃなくて、Ifの行にブレークポイント設定して変数や定数の値を確認してみ
ブレークポイントは「その行が実行される直前で停止」だから

2017/10/05(木) 18:21:05.77

win10 64bitでExcel2016使ってるんだけど

最近やたらに、「メモリ不足～64bit版に～」的なポップアップ出てフリーズするんだけど
なんかアプデで仕様でも変更したんかな

2017/10/05(木) 23:19:02.08

どんな理由でフリーズする仕様にしなきゃならんのだ
いくらmsさんとは言え濡れ衣にも程がある

2017/10/06(金) 00:13:17.19

>>583
2016 100台くらい扱ってるけど聞いたこと無いな。
あとofficeは64bit版出てはいるけど非推奨じゃなかったっけ

2017/10/06(金) 01:43:54.00

Windows Defender で、フルスキャンしてウイルスチェックしろ

クイックスキャンでは見つからないので、フルスキャンしろ

2017/10/06(金) 01:46:36.74

マクロが無限ループしているとか、バグってるのかも？