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/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

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

2017/10/07(土) 21:24:36.96

鮪うまいにゃー

2017/10/10(火) 03:19:47.77

とあるcsvファイル（測定器の出力でかなり細かい数値データ）があるのですが
この数値をExcelで一部変更して保存すると全体的に数値が勝手に丸まったりしてしまいます…
（変更していない数値も全て）
色々調べたのですがこのあたりは仕様？みたいなのですがなんとかならないものなのでしょうか

2017/10/10(火) 08:13:32.86

>>589
vbaと関係なくね？
仕様ならどうしようもないじゃん
csvの中身読んでExcelに書き込んでいけばなんとかなるかもしれんけどそういうこと？

2017/10/10(火) 08:32:44.79

>>589
お前のやり方が間違ってるだけ。
開くんじゃなくてインポートしろ。
そしてそもそもVBA関係無い。

2017/10/10(火) 11:08:33.85

>>589
Excelの表示（見え方）の話であって実データは変わったないのではないか？
Excelpで表示時の桁数を指定すれば正しい数値が表示されるんじゃないの

2017/10/10(火) 12:05:43.76

>>590-592
どうもありがとう、なんとか自己解決しました
ここで聞いたのは、一応一連の処理をVBAでやっていたので…

Excelでは仕様としてcsv保存するにしても細かい数値は勝手に丸めてしまうようでした
1.00001、1.00002…と並んでいる数字もExcel上から上書き保存するとただの1になってしまいます
これはインポートしても同じ事でした
結果として修正するときは数字として扱い、保存する前に全て文字列とすることで解決しました
しかしこれでも数字の丸めを止めさせられるだけで、各所それなりに変更されてしまいます
例えば、1.00000はどうやっても1になってしまいます
あるときには便利な仕様なのかもしれませんが、やっぱり余計と思える方が大きいですね…
どうもお邪魔しました

2017/10/10(火) 12:13:17.55

全然解ってなくて草

2017/10/10(火) 12:41:07.46

>>593
Excel 2013 の話だが

> 1.00001、1.00002…と並んでいる数字もExcel上から上書き保存するとただの1になってしまいます
再現しない

> 例えば、1.00000はどうやっても1になってしまいます
Excelで書式を設定して上書きすればいいだけ
当然csvには書式は格納されないので書式の設定は毎回必要

2017/10/10(火) 14:46:41.79

>>593
＜ｃｓｖをExcelで開き、1.00001 と表示されていた場合＞
　　　　　　　ｃｓｖ　　　Excelで開く　　ｃｓｖ保存
実データ： 1.00001 → 1.00001 → 1.00001　←丸められていない
見え方１： 1.00001 → 1.00001 → 1.00001
（Excel2007で開いたときはこのパターンで全桁表示され、丸められることはなかった）

＜ｃｓｖをExcelで開き、1 と表示されていた場合＞
　　　　　　　ｃｓｖ　　　Excelで開く　　ｃｓｖ保存
実データ： 1.00001 → 1.00001 → 1　←丸められた
見え方２： 1.00001 → 1　　　　 → 1
（Excel上では正確な値を保持していたが、ｃｓｖ保存時に丸められた）

Excelでｃｓｖ保存する場合、見えている通りにｃｓｖに書き出されるから
正しい桁数に書式設定（桁数指定）する必要がある
（Excelのbook形式で保存するなら、丸められることなく正確な値を保存できる）

2017/10/10(火) 15:46:51.35

>>595-596
どうもありがとう
CSVを普通にExcelで開いた時点での表示形式は指数になってます
この時点ではある意味見た目上も全桁数表示されてるのですが
csv保存するときに自動的に普通の数値に変換して更に丸めてしまうみたいです
よくわからないのは0.00001は丸められないけど1.000001は1に丸められます
Excelのバージョンは2016です

いずれにしろ表示形式を変えることで対処するしかなさそうですね
とりあえず文字列にしてしまえば全て保存できるようで何よりです
確かにxlms形式なら全て保存できるみたいなのですが
測定器がcsvで吐き出すことを前提に色々と組んでしまっているので…

2017/10/10(火) 16:00:05.93

>>597
excelをcsvで保存するんじゃなくてtextstreamとかでcsvに吐き出すようにすれば？
意味わからん挙動をするものに関してはそこを介さないのが一番のような気がするんだが

2017/10/10(火) 16:00:40.01

>>597
保存じゃなくてエクスポートを試してみた?
自分の記憶では保存は駄目でエクスポートなら上手くいくと思うんだが。

2017/10/10(火) 16:05:11.32

あれ?
何か勘違いしてたみたいだ。
>>599は忘れてくれ。

2017/10/10(火) 16:10:44.15

Outlookで指定したメールのtoアドレスとccアドレスをエクセルに書き込みたいのですが、itam.TOとCCにすると名前が書き込まれてしまいました。そこでTOをやめてitam.SenderEmailAddressにしたらアドレスが入ったのですがCCは見つけられませんでした。
分かる方、お言えてもらえませんか？

2017/10/10(火) 18:21:14.88

>>601
outlook.RecipientsクラスのpropertyAccessorから、getproperty使って取り出してるけど、今はソースを提示できない。
どっかの日本語サイトから見つけたんで、頑張って探して‥

2017/10/10(火) 19:18:52.42

会社で「顧客名簿のDBから吐き出したCSVをエクセルで編集して又システムに
戻したいんだけど遅いくて困ってる」と言われて「エクセルじゃなく専用エディタでやれよ」
と言ったら「勝手にフリーソフトをインストールできない」と言う。つまり、泣き付けばマクロで作ってくれると思ったんだろうな。

冗談じゃねえと思ったが興味本位でネット漁って作ってやったよ。礼の一言もなんも無しだが、何も言ってこないから普通に使えてるんかな。
CSVをエクセルに食わせるのはQueryTableが一番？速いみたいね。データ型も指定できるし。保存は保存するディレクトリにブックをコピーして
書き出すとまあまあ速かった。と言ってもせいぜい30000件程度（会社規模が知れるｗ）だからあんま参考にならないかもだが。

2017/10/10(火) 19:25:55.56

>>603
すっげえええええええええええええ！！！！！！！！！！！！！１１１

2017/10/10(火) 19:45:55.99

>>597
> CSVを普通にExcelで開いた時点での表示形式は指数になってます
なら初めからそう書いてくれ

> この時点ではある意味見た目上も全桁数表示されてるのですが
本当になってる？
Excel 2013 だから動作が違うのかも知れんが 1.23456789E+00 を読み込むと 1.23E+00 になる

> csv保存するときに自動的に普通の数値に変換して更に丸めてしまうみたいです
指数表示は全桁読み込んでるけど表示上の有効桁を３桁に決め打ちしているように見える
なのでそのまま保存すると３桁分に丸められてしまう

> よくわからないのは0.00001は丸められないけど1.000001は1に丸められます
それ指数表示でどうなってるかを見ればわかると思うが...
って言うか指数表示の意味わかってないのか？

2017/10/10(火) 19:55:17.15

>>602
ありがとう！がんばってみる。

2017/10/10(火) 19:55:39.26

>>602
ありがとう！がんばってみる。

2017/10/10(火) 20:17:36.56

>>604
え？どの辺が？

2017/10/10(火) 21:23:16.18

>>603
自分の担当の仕事やんないでマクロせこせこ組んでるのってどうなのかな

2017/10/11(水) 00:24:10.90

>>603
まさに神

2017/10/11(水) 00:33:25.96

>>603
ブックに保存のあとDB更新はどうするの？

2017/10/11(水) 18:37:53.22

>>603
勝手にフリーソフトインストールできないのに、勝手に作ったマクロいれていいのか？

2017/10/11(水) 18:41:22.40

>>612
逆に金もらえばフリーソフトじゃないから入れてもいいのかな

2017/10/11(水) 20:42:55.70

>>612
上から見たら単なるExcelファイルだから

2017/10/11(水) 21:35:40.57

単なるexcelファイルに見えるフリーソフトならいれてもいいのか

2017/10/11(水) 21:40:05.73

上に聞けばいい

2017/10/11(水) 21:45:50.25

>>612
業務で作ったソフトは会社のもの

2017/10/11(水) 21:53:34.37

>>615
お前が決める事じゃないし、合理的な回答とか求めてないし

2017/10/12(木) 03:28:06.76

企業だと、Excelは書類扱いやな
マクロも同じ（Excelを加工するExcelファイルという扱い）
「Excelマクロ禁止」って書いてない企業ならまぁ合法かもな（VBSはええんやで）

2017/10/12(木) 08:00:49.64

Excelマクロ禁止ならWordマクロを使えばいいのに

2017/10/12(木) 08:08:08.79

マクロダメな企業って何ゆえなんだろ

2017/10/12(木) 08:09:22.27

下手に素人が自動化してデータを触るとデータが消えるかもしれない！
きちんと目視で確認すること！

2017/10/12(木) 08:36:02.53

電卓で計算した結果を入力するのが正しい、と思い込んでる老害が幅を効かせてるんでしょ

2017/10/12(木) 11:01:32.26

いやいや、誰もマクロ禁止とは言ってないから

フリーソフトNGでもマクロ禁止と明言されてなければOKでは？と言っているだけかと
そして答えは>>617

2017/10/12(木) 12:22:01.01

マクロを使うのはずるいんだもん！

2017/10/12(木) 12:44:11.82

作るのはずるくない