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/25(月) 22:22:34.05

なんでそんなにしてまで？

2017/09/25(月) 22:35:59.26

>>423-424
まぁそこまでするなら別の言語にした方がいいというか、そもそも発想が逆というか。

オフィス製品を拡張する上で「守られた」プログラミングが出来るのがVBAの特徴だし、
目的を絞っているから実用的なプログラムを短時間でくみ上げられるという長所があるのであって、
マシン語まで勉強してやるくらいなら、その手の目的で作られたC++言語辺りを頼るべきなんだよな。

もちろんそれが出来ない環境だから俺もマシン語を勉強するに至ったんだけど、
けっきょく型安全すら保証されない世界で何かを組み上げるってのは趣味の世界の話であってVBAの本質からずれてるしね。

ちなみに勉強中にC言語ですらマシン語で直接組むよりも非効率になる可能性が高いと知ったんで学ぶ意味はあったけど。

2017/09/25(月) 22:44:28.13

一体何の話をしているのか？
VBA補完というならC/C++で十二分だろうに
それで「実行環境がVBA」という気軽さは保てるんだし

2017/09/25(月) 22:52:54.75

>>424
自分はものにして無いので、そこまでしてない。
ものにしてる人にとってはそこまでしてなどと思ってないと思う。

別言語でdll作ってVBAから呼び出すことも出来るだろうけど、そこだけで完結しないのがスマートさに欠けるように感じるからかな。

2017/09/25(月) 22:54:34.22

>>426
確かに話がとっちらかって分かりにくくなったが、つまりそういう話をしてる。
でもVBA以外の環境を持てない職場なので仕方なくVBAが補完できる範囲だけでやるしかない。
その補完範囲にマシン語を含めるのはVBAの長所を殺しているのでVBAが想定している範囲の中で最善策を練るべきだと。

ちなみに個人的経験では次善の策としてSQLを使ったら地獄を見た。

2017/09/25(月) 23:12:01.96

>>426
正解。

①まず保守性が酷い。都度ハンドアセンブルするのかって話。
②ラベルが付けられないからブランチ命令などは変更があったとき常にアドレスの相対位置を
設定し直さなければならない。ジャンプ命令みたいな絶対アドレス指定の場合はどうすんだろ。
③生産性が皆無
④中間言語を介在していないのでアーキテキクチャが異なるCPUでは使えない。

どうしてもアセンブラで組みたければC++のインラインアセンブラで素直にdllファイル作れって話。
こんなものどうやって普通にVBA組んでるやつに引き継ぐつもりなんだろうな。
出来ない環境でなければ設計自体を見直すか諦めろと。

2017/09/25(月) 23:14:24.47

>>429
引き継ぎとかは別にして、まず楽しいのかと

2017/09/25(月) 23:23:42.83

>>427
完結ってどういう意味？
「VBA アセンブラ」でググって出てくるページ見ると、既存のcdecl関数を呼び出すことを目標にしてるみたいだけど、
自分はどっちかっていうと「なるべく自分で作ったもので間に合わせたい」という気持ちの方が強いな。

2017/09/25(月) 23:36:31.33

>>425
VBAでCのコード扱えれば良いんだけどね。
それに既にWin32APIで色々やってるし、その中には適切に使わないと危険なものもたくさんあるから、別に使っても良いと思うけど。

>>429
まず、アーキテクチャが異なるCPUについては既にWin32APIの時点で使えない。
それにアセンブラが主ではない。
memcmpの部分で使うだけで使う方は呼び出すだけだ。

2017/09/25(月) 23:39:50.62

>>431
例えばdllを作るとブックと一緒にdllがついてまわることになるでしょ。
ブックだけでは機能しないというのがちょっと...

ということ。

2017/09/25(月) 23:40:01.82

>>432
＞まず、アーキテクチャが異なるCPUについては既にWin32APIの時点で使えない。

は？何言ってるの？

2017/09/26(火) 04:06:23.87

VBAの環境なのにマシン語使ってやったぜー
ワイルドだろー
って自慢したいだけ

2017/09/26(火) 07:38:19.44

どっちにしてもトリッキーすぎて
実用的ではないな

2017/09/26(火) 12:18:09.16

お前ら素直に感心する事も出来んのかｗ
惨めやのうｗｗｗ

2017/09/26(火) 12:24:44.74

関心する要素がない

2017/09/26(火) 12:27:34.92

そうゆうひねくれた心を持っとるからいつまでたってもバカなんやで

2017/09/26(火) 12:28:28.01

ちなみにどこに感心すればいいの？
機械語の知識が殆ど無いこと？
VBA上でごく中途半端な機械語を走らせる方法をネットで見つけたこと？

2017/09/26(火) 16:11:30.66

VBAだけじゃどうにもならない、別途dllとの込みで扱うのはスマートじゃない。
そういう場合に使える方法があるということ。
他にもこの方法を使えればプログラムがスマートになるのにという場面もある。
これはVBAの制限によるものだけれど。

もっとも殆どの場合、これを必要とするコードを書くような事態自体ない。

普通はVBAではこの機能は実現出来ませんと回答することになるだろう。

2017/09/26(火) 16:25:14.72

>>434
すまんね。
君がどういうレベルの話をしてるのか、いまいち掴めない。
実際、そういうことも分からないから勉強中なんでね。

アーキテクチャが違うCPUってのが何のことを言っていて、使えないCPUについて具体的にどうして使えないのか示して貰えるかな。

2017/09/26(火) 16:34:44.22

>>441
dll大好きマンの俺としてはその意見に賛成する事態自体ないな

2017/09/26(火) 16:47:20.57

今どきアセンブラじゃないと
ダメな場面なんてほとんどない
速度が欲しいならC/C++で実用上十分

2017/09/26(火) 17:07:46.45

>>444
この場合は速度とか関係無いんで。
Cとかでも確かに外部dllを作れば可能だけど。
まあ、でもdll作る方が正論だわな。

問題は自分の望むdll作る能力が自分に無いことだね。

2017/09/26(火) 17:14:42.90

VBAだけで実現できない機能があるならDLLでいい
今どきのWindowsでアセンブラなんてまず必要ない

2017/09/26(火) 17:49:18.96

Visual Studio利用が前提ならdll作るのに大した苦労はいらないぜ。
Expressでもいいんだしな。

2017/09/26(火) 17:59:29.96

アドインを入れろというだけで嫌がられるのに・・・。DLLなんて言った日にゃ「何それ食えるの？おいしいの？」ってなもんで。
更にregsvr32で登録とか説明した途端「そんなメンドくさい事をやらずに出来ないの？」とかぬかされてムカついた今日此の頃

2017/09/26(火) 18:41:21.08

いやDLLが嫌がられてるからって
毎回アセンブラで書いてたら
「これだけのことにそんな時間掛かるの？」とか
文句が変わるだけだろ

2017/09/26(火) 18:51:12.32

dllの登録とかはグループポリシーとスタートアップスクリプトで処理すればいいよ

2017/09/26(火) 19:29:03.17

>>450
絶対パスは？

2017/09/26(火) 19:33:40.39

>>448
ふざけてんなら教えてやんねぇから自分でやれ　って言ってやれ

2017/09/26(火) 19:48:34.37

シートをSQLでアクセスしたあとどうも変なことが起こる。
あしたデータをDBに入れてからSQLでアクセスして同じ現象が起きたら自分のプログラムミスだろうけど、
起きなければODBC for Excelを疑ってしまいそうだ

2017/09/26(火) 21:26:46.77

まぁdllくらいは面倒くさがらず設定出来ないとな。
今後デプロイ作業とかやるようになったらそれどころじゃないしな。

2017/09/26(火) 22:11:26.14

結局自分の知識を言いたいだけのお前らw
ババアの井戸端会議より無法地帯だなw

2017/09/27(水) 01:51:50.87

BBA　→　高い化粧品を使っている
VBA　→　アセンブラを使っている
結論　→　どっちもムダ

2017/09/27(水) 08:43:06.78

VBAに不足してるのは主にGUIの部分であって、仕様上実現できない機能なんて相当高度な、それこそVBAでやるべきではないような大がかりなものだろ。

2017/09/27(水) 08:45:17.97

>>453
せめて何が起こったのかぐらい書けよ。
まあ十中八九お前の勘違いだろうけど。

2017/09/27(水) 08:51:33.31

>>457
そうだな
VBAで不足してる部分は
C#でやればいいことで

VBAにアセンブラ載せるなんて
原チャリにロケットエンジン
載せるようなイビツさ

2017/09/27(水) 09:32:39.24

またソースも示さずエラーコードも示さずただエラーだ！エラーだ！って喚き散らすだけの人間が

2017/09/27(水) 09:53:24.11

　　　　　　|三|
　　　　／_____＼
　　　　 |ｷﾞｺｰﾏﾝ|
　　　　 |___醤油_|
　　　　 ,>:::(,,ﾟДﾟ)　＜呼んだ？
　　　　 |（ﾉ.::::::::: |つ
　　　　 |:::::::::::::::::|
　　　　ヽ＿＿_/
　　　　　　U"U

2017/09/27(水) 09:53:37.56

>>460
偉いよね

2017/09/27(水) 12:19:47.02

>>457
もういい加減やめるけど、そのGUI部分で貧弱なMSForms使わずにCreateWindowExで組んでたりした。
んで、いろんな部品のクラス化とかを考えるわけ。
ところがどうしても制限でクラス内に置けないものがあるんでカプセル化が不十分なんだ。
それをアセンブラ使ってクラス内に置いてる人がいるもんですごいなあと。

アセンブラ部分だけdllにしても寧ろ中途半端。
各部品ごとdllにしないとね。
流石にそこまでの能力も無いし労力も割きたくない。

まあ、所詮VBAなんてダメ言語ってことかね。

2017/09/27(水) 13:00:28.04

>>458
すまない
エラーが色々あってそう単純じゃなくてついね。

例えば配列になるはずの変数Aを扱っててエラーが出たので内容を見ると
TypeName(A) = Empty かつ IsEmpty(A) = Trueなのに
Debug.Print A とやると
「Visual Basicでサポートされていないオートメーションが変数で使用されています」とか

調査中

2017/09/27(水) 13:16:32.50

俺の場合はもっと根本的な部分を高速化する事が狙いでマシン語を使おうと思っていたな。
If文一つ、ループ処理一つ取っても汎用化の関係で無駄な処理が挟まる事になるんで、
極々単純かつ処理時間に占める割合が大きい計算なんかをマシン語で書ければ処理速度がだいぶ違う。

C++言語がインラインアセンブラを備えているように、どうしてもマシン語かそれに近しいものじゃないと実現出来ない事がある。

2017/09/27(水) 17:03:57.20

はじめまして。
Excel2013を使っています。

色振分けについて

https://kokodane.com/2013_waza_064.htm

関数はちゃんと反映するけど処理が重い、、、。
VBAにしたけどエラーになる、、、

関数

=MOD(INT(SUMPRODUCT(1/COUNTIF($C$9:$C9,$C$9:$C9))),2)

VBA

i = Int(WorksheetFunction.SumProduct(1 / WorksheetFunction.CountIf(Range("C9:C" & j & ""), Range("C9:C" & j & "")))) Mod 2

「CountIf(Range("C9:C" & j & ""), Range("C9:C" & j & "")」のところでエラー発生…。

何か間違っているのでしょうか・・・。

2017/09/27(水) 18:10:37.79

>>466
VBAのユーザー定義関数使っても条件付き書式の仕様上、軽くなることはないと思う
Sheetモジュールのイベントでセル塗りつぶしするようにコーディングすることをおすすめする

2017/09/27(水) 18:27:20.02

>>466
対象の行に存在する値のみで判定すれば軽くなるんじゃない？
その関数だと行が増えるに従って遅くなる

2017/09/27(水) 18:33:40.97

>>466
Sub foo(ColorColumn As Range, ColorNum As Long)
Dim r As Range
Dim cols As Boolean
Dim c As Collection: Set c = New Collection
col = ColorColumn.Value
For i = LBound(col, 1) To UBound(col, 1)
If x <> col(i, 1) Then
x = col(i, 1)
If cols Then cols = False Else cols = True
End If
If cols Then
If r Is Nothing Then
Set r = ColorColumn(i, 1)
Else
Set r = Union(r, ColorColumn(i, 1))
End If
End If
Next
r.Interior.Color = ColorNum
End Sub

エラーについては具体的なコードがないから分からないけど、
そのページの様な色分けやるならこんなコードとかの方がいいと思う。

2017/09/27(水) 20:58:26.69

>>466
jと""が気になった

2017/09/27(水) 21:01:26.56

アセンブラやマシン語のことを神格化してる人がいるけれど
このスレにだって昔使ってた人もいるだろうし
ある意味覚えることが少ないからObject指向言語や関数型言語より簡単かも知れない。

でも昨今仕事上その知識が必要になることはまず無い。
いつまでも無用の長物にしがみついていないでその分別の勉強に力を配分した方が賢いとは思う。

2017/09/27(水) 21:01:48.90

>>466
そういう書き方をするなら下記のようになると思う。

i=EVALUATE("MOD(INT(SUMPRODUCT(1/COUNTIF(C1:C" & Cstr(j) & ",C1:C" & Cstr(j) & "))),2)")

でも、これは関数が分かってて、関数からアプローチした場合。
普通は自分も>>469のようにするだろう。
エラーになってたのはSUMPRODUCTが配列の積を計算する関数なので、その中のCountIfを分解出来ないからかな?

2017/09/27(水) 21:07:50.10

>>471
神格化なんてしてねーよ。
ⅤBAじゃ出来ないから仕方なくだ。
出来るならやってる。

じゃ、C#やVB.netでライブラリ作るとしても、結局中途半端になるということ。

VBAでオブジェクト指向なんてやんなきゃ良かった。

2017/09/27(水) 21:22:44.64

>>473
一般的にはある程度知識がついてきたら
用途にもよるけど絡みがある場合はC#やVB.Net側からEXCELの操作を行うもんだと思う。

2017/09/27(水) 21:34:59.84

そのCOUNTIF使ったやり方はデータがN行増えれば
計算量がNの2乗倍増えるんだからどうやっても遅いよ
行が増えても1行あたりの計算量が増えないようにしておけば
そこまで遅くはならない

[例]
B　　　 | C | D
-----------------
　　　　 | 0 |
コーヒー | 1 | 1
コーヒー | 1 | 1
コーヒー | 1 | 1
お茶　　 | 2 | 0
お茶　　 | 2 | 0
紅茶　　 | 3 | 1

C列は =IF((IF(B3=B2, 0,1))=1, C2+1, C2)
D列は =MOD(C3, 2)

2017/09/27(水) 22:00:35.20

>>471
>でも昨今仕事上その知識が必要になることはまず無い。
ここはVBAスレだからそうだな

2017/09/27(水) 22:10:23.63

お前ら何があっても絶対に>>474の様にはなるなよ
お前らには.Netでエクセルをいじるくらいなら肥溜めに突っこんだ手でちんこいじった方がなんぼかましだという事を知ってほしい

2017/09/27(水) 22:42:42.85

Dim co As ChartObject

With co.Chart.SeriesCollection.NewSeries
.Name = "テスト"
.XValues = tmpArray1 'X軸
.Values = tmpArray2 'Y軸
End With

With co.Chart

' 線形近似式の取得
.SeriesCollection(1).Trendlines.Add Type:=xlLinear
.SeriesCollection(1).Trendlines(1).DisplayEquation = True'☆☆☆
.SeriesCollection(1).Trendlines(1).Select
.Refresh

getAlfa = Replace(SeriesCollection(1).Trendlines(1).DataLabel.Text, " ", "") '★★★

End with

for文の中でこれを利用して100個ほどグラフを作っているところです。
線形近似式を作るまでなら出来たのですが、
近似式を取得しようとすると、★★★のところで
「プロシージャの呼び出し、または引数が不正です」となります。

ステップインでやるとエラー無く通るので、☆☆☆の反映が遅いのか・・？
と、よく分からなくなっております。ご助言頂けますと幸いです。

2017/09/27(水) 23:13:25.41

>>477
理由は？

2017/09/27(水) 23:23:42.05

COMをVBA以外から触るのってくっそ面倒なんだっけか。

確かに一度そういう記事を見たときに引数省略できないわ明示的に解放しないとメモリリークするわで、
下手に外部から弄るよりVBAだけの方が良さそうとは思ったな。

2017/09/28(木) 07:45:23.83

>>480
それはCOMからEXCELを操作しようとするから。
npoi辺りを使えば問題ない。

https://qiita.com/midori44/items/acab9106e6dad9653e73

2017/09/28(木) 18:09:24.72

このスレ読むとVBAerの苦悩を感じてしまうな

2017/09/28(木) 20:48:58.21

ところでさあ、お前らの中で「ボクはVBAerじゃない！」ってのが唯一の心の拠り所の人っている？…あ、いたwwww

2017/09/28(木) 20:54:21.56

>>482
20年も経つし、いい加減かなりめんどくさい上、元々の設計からして奇々怪々

2017/09/28(木) 21:05:52.30

古いブックのデータを、新しいブックに移すだけで容量が変わる仕様は酷いよな。

2017/09/28(木) 21:14:44.53

うちの会社の情報システム部の人達、VBAばかり使ってるんだけど、これってシステム屋さんとしてどうなの？

変な質問でごめんね～

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

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