Excel VBA 質問スレ Part52

**デフォルトの名無しさん** · 2018/01/27(土) 20:25:05.67

スレ立ての際は一行目に
!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 VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/

**デフォルトの名無しさん** · 2018/04/13(金) 09:50:34.75

>>681
で？馬鹿は黙っていればいいのに

**デフォルトの名無しさん** · 2018/04/13(金) 11:21:39.81

>>679
それだと>>664が言う「グローバル変数を極力使うな」が満たせないので困る

**デフォルトの名無しさん** · 2018/04/13(金) 11:53:44.26

>>678
VBAなんてテクニックに凝らなくていいよ
他人の書いた「俺頭いいwww」っていうVBAを読み解くぐらいなら、長々とベタに書いてあった方がマシ

**デフォルトの名無しさん** · 2018/04/13(金) 12:01:28.69

本当に初心者で困ってます。
画像みたいなマクロを組みたんですが、どなたかご教授お願い致します。

https://dotup.org/uploda/dotup.org1508286.png

**デフォルトの名無しさん** · 2018/04/13(金) 12:06:28.55

>>683
メインモジュールのローカル変数としてユーザー定義型のインスタンスを作って関数へ参照渡しするんだけど

シートモジュールからの参照はできないかな？(やったことないので何も言えない)

ユーザーフォームに参照させる方法はインスタンス作ってそのメンバー変数に参照を渡すように作れば良い

**デフォルトの名無しさん** · 2018/04/13(金) 12:08:15.06

>>683
抜け訂正

ユーザーフォームに参照させる方法はユーザーフォームのインスタンスを動的に作ってそのメンバー変数に参照を渡すように作れば良い

**デフォルトの名無しさん** · 2018/04/13(金) 12:14:57.86

>>686
いろんなとこから参照できるからグローバル変数と言うのであって、そういうものは極力作らない、が原則なんだよね

それともシートモジュールのローカル変数はグローバル変数と呼ばないって理屈？

**デフォルトの名無しさん** · 2018/04/13(金) 12:17:07.86

おっと

×　シートモジュールの
○　モジュールの

**デフォルトの名無しさん** · 2018/04/13(金) 12:28:49.89

>>688
その原則はグローバル変数しかない時代を経験してきたジジイ達の遺物なんやけどな
今どき無理してグローバル変数を禁止する必要はない

**デフォルトの名無しさん** · 2018/04/13(金) 13:08:18.95

そんなことないだろう
並列化が進んでますます大事になってるような気がするんだが

**デフォルトの名無しさん** · 2018/04/13(金) 14:34:26.06

.xlsxでVBAを使う方法を教えろ。
仕方なくワークシート関数で書いたら長過ぎると文句を言われる。ゲイツ氏ね。

**デフォルトの名無しさん** · 2018/04/13(金) 15:29:36.69

ゲイツ言う時点で老害

**デフォルトの名無しさん** · 2018/04/13(金) 17:03:22.93

Windowsを作ったビルゲイツは人類史上最大の貢献者なのは間違いない
貴方も恩恵を受けている

**デフォルトの名無しさん** · 2018/04/13(金) 17:58:16.00

>>685
関数じゃダメなのか？

**デフォルトの名無しさん** · 2018/04/13(金) 18:18:59.86

>>685 一発やらせて

Sub Macro1()
　　Application.Calculation = xlManual
　　For r = 1 To Cells(Rows.Count, "D").End(xlUp).Row + 1
　　　　If Val(Cells(r, "B")) > 0 And Val(Cells(r, "C")) > 0 Then
　　　　　　Cells(r, "E") = "=B" & r & "*C" & r
　　　　ElseIf InStr(Cells(r, "D"), "合計") > 0 Then
　　　　　　Cells(r, "E") = "=SUM(E" & r1 & ",E" & r - 1 & ")"
　　　　Else
　　　　　　r1 = r + 1
　　　　End If
　　Next
　　Application.Calculation = xlAutomatic
End Sub

**デフォルトの名無しさん** · 2018/04/13(金) 18:59:42.30

>>691
気がする程度しか言えん程無知やからそもそもそれが老害の悪習か真に価値のある原則なのか理解しとらんやろ？
お前がそうしたい時はいつでもグローバル変数使ってええんやでw

**デフォルトの名無しさん** · 2018/04/13(金) 20:24:06.11

それこそ>>685みたいなのはわざわざマクロなんか組まんでも数式で十分なんだけどな

**デフォルトの名無しさん** · 2018/04/13(金) 20:34:24.79

>>698
たくさんあっていちいち数式設定するのが面倒～！
とかじゃね

**デフォルトの名無しさん** · 2018/04/13(金) 21:31:25.90

>>698
「気がする」以上のことはなかなか言えんな
素人だしな

**デフォルトの名無しさん** · 2018/04/13(金) 21:41:28.09

皆さんに質問です
シートの標準機能や関数で出来ることでもわざわざVBAで作りますよね？
その方が仕事してる感じするし
プログラムやってる感でますもんね
違いますか？

**デフォルトの名無しさん** · 2018/04/13(金) 21:45:30.15

同じ数式で参照するセルを2箇所ずつ変えるだけ、みたいな単純な繰り返し作業だと、むしろミスを防ぐためにVBAを使ったりするけど

**デフォルトの名無しさん** · 2018/04/13(金) 22:11:00.99

違います。
他の人が使えないのでなるべく関数で処理、VBAはコピーとか貼り付けとか二つ以上のファイルでやり取りするとか関数では実装できないことに限定してます。

**デフォルトの名無しさん** · 2018/04/13(金) 22:34:56.44

VBAでユーザーフォーム作ってとかしてるんでしょ？
で、それに入力させてるんでしょ？

**デフォルトの名無しさん** · 2018/04/13(金) 22:36:59.11

シートに関数埋め込みたくない場合はvba使うかな？

**デフォルトの名無しさん** · 2018/04/13(金) 22:38:17.37

office作ってる連中がプログラム自体仕込むの嫌だからほったらかしってマジなの？
今更vbなんて学習する価値すらねえし本気で時間と労力の無駄なんだけど
jsとかpythonくらい対応する気ねえのかよこのうんこ

**デフォルトの名無しさん** · 2018/04/13(金) 22:38:40.28

ユーザーフォームできちんと作り込めば簡単になって便利なんだし

**デフォルトの名無しさん** · 2018/04/13(金) 22:43:23.72

COM経由で好きな言語で使えばいいじゃん

**デフォルトの名無しさん** · 2018/04/13(金) 22:59:23.05

COMぁちゃうなー

**デフォルトの名無しさん** · 2018/04/14(土) 08:38:50.16

凡人が作るエクセルファイルはデータとロジックとプレゼンテーションが一つのシートに一体化してるから気持ち悪いんだよね
プログラミングを学習するとだんだんシートからプレゼンテーションが減って、単純なテーブルだけのシートになる
そのテーブルからも次第に関数や重複列、繰り返し項目、殆ど空欄の列が取り除かれてテーブルが正規化される
最終的にユーザーIO専用のシートあるいはフォーム、ロジックを置くVBA、それとデータ専用シートに綺麗に分かれてしまう

ここまでくるともはやエクセル、エクセルVBAにこだわる理由は無くなる
C#やPowerShellと手頃なローカルDBでサクッと作ってしまう方が簡単で高品質

**デフォルトの名無しさん** · 2018/04/14(土) 08:53:16.70

なんで仕事した事無いのに仕事を語りたがるのか　これが分からない

**デフォルトの名無しさん** · 2018/04/14(土) 12:29:30.86

手段と目的が区別できない人多いな

**デフォルトの名無しさん** · 2018/04/14(土) 13:03:47.82

区別できないから何にでもエクセルVBAを使うんだろうね
ここぞという時に使うならいいけどね
いろんな選択肢がある中でエクセルVBAがベストってパターン殆どないんだよな

**デフォルトの名無しさん** · 2018/04/14(土) 13:09:38.72

>>710
> ここまでくるともはやエクセル、エクセルVBAにこだわる理由は無くなる
基本的にお前みたいな勘違いしてる奴の方が圧倒的少数派だからなw
エクセルがお手軽統合開発環境だと思ってるやつw

大多数の普通の人はvbaはあくまでアプリを拡張するためのマクロ言語だと心得ているからw

**デフォルトの名無しさん** · 2018/04/14(土) 13:48:42.38

ちょっとしたマクロもPowerShellでいいじゃん
楽だよ

**デフォルトの名無しさん** · 2018/04/14(土) 13:59:47.32

>>715
いいわけないだろw
だからそもそもマクロの目的を勘違いしとんねんお前w

**デフォルトの名無しさん** · 2018/04/14(土) 14:11:33.66

じゃあ君が言う目的ってなんだい？

**デフォルトの名無しさん** · 2018/04/14(土) 14:15:50.81

>>717
なんでも答えだけ聞こうとするからそんなマヌケな勘違いばかりするんだよ
何のためにアプリにマクロ言語が搭載されているか少しはその寝惚けた頭で考えてみろよトンマw

**デフォルトの名無しさん** · 2018/04/14(土) 14:19:48.01

>>718
へえ
答えられないんだ

**デフォルトの名無しさん** · 2018/04/14(土) 14:48:55.19

VBAがベストチョイスではない（統合環境の構築申請や見慣れた拡張子以外に対する拒絶反応を是正する労力は含めない場合）

**デフォルトの名無しさん** · 2018/04/14(土) 15:17:19.70

そうそう
新人さんに教えるならVBAは避けた方が良いね

**デフォルトの名無しさん** · 2018/04/14(土) 19:00:29.99

>>717
>>714 に
> アプリを拡張するため
と書いてあるじゃん。アタマワル。

**デフォルトの名無しさん** · 2018/04/14(土) 19:20:48.08

>>722
ならPowerShellでいいじゃん
アホなん？

**デフォルトの名無しさん** · 2018/04/14(土) 19:46:40.37

エクセルファイルならVBAで良いじゃん

**デフォルトの名無しさん** · 2018/04/14(土) 20:13:55.28

>>723

じゃ、お前、SQLの機能を拡張するのにもPowerShellを使うのか？

**デフォルトの名無しさん** · 2018/04/14(土) 20:21:19.54

SQLの機能を拡張？？？

**デフォルトの名無しさん** · 2018/04/14(土) 20:32:43.51

【アニメーター無念の死】　『枝野氏を信頼』『福島の桃食す』『急に鼻血』『胃液が逆流』『歯欠けた』
http://rosie.5ch.net/test/read.cgi/liveplus/1523670536/l50

**デフォルトの名無しさん** · 2018/04/14(土) 20:58:15.14

手段と目的が区別できない人は、そもそも目的が理解できないのか
目的のための最適な手段が判断できないのか

まあ、その両方なんだろうなぁ

**デフォルトの名無しさん** · 2018/04/14(土) 21:04:24.62

>>725
すまんそのジョークの面白さがわからんから説明してみて

**デフォルトの名無しさん** · 2018/04/14(土) 21:54:59.19

SQLの編集こそExcel大活躍ですよ

**デフォルトの名無しさん** · 2018/04/14(土) 22:23:47.37

>>723
あんたの満足など知らんがな。
>>714の言う目的を訊いたんだろ。アタマワル。

**デフォルトの名無しさん** · 2018/04/15(日) 00:17:22.91

>>730
SQLの編集？
馬鹿は用語をちゃんと使えんのか？

**デフォルトの名無しさん** · 2018/04/15(日) 00:18:54.06

醜いアスペの煽り合い

**デフォルトの名無しさん** · 2018/04/15(日) 01:59:24.88

しょーもな

**デフォルトの名無しさん** · 2018/04/15(日) 04:06:35.37

>>732
すまん、スレチなんだろうが>>730の言うことは結構わかる
シート上のデータを元にinsert文こしらえたりselect文こしらえたりすんだよな

**デフォルトの名無しさん** · 2018/04/15(日) 04:55:47.37

>>735
馬鹿はそういう使い方かよ
例えばOracleならSQL*Plus、SQLServerならSSMSを使えよ。
で、EXCELでSQLの編集って何だ？用語一つまともに使えんのか？

**デフォルトの名無しさん** · 2018/04/15(日) 05:40:24.25

>>736
Basic老人ウゼェ

**デフォルトの名無しさん** · 2018/04/15(日) 06:03:18.76

実務経験してないと特殊な言い回しが伝わらないあるある

**デフォルトの名無しさん** · 2018/04/15(日) 07:20:17.87

>>736

外部データ接続でDBからデータ取り込むとき
SQL編集するよ

**デフォルトの名無しさん** · 2018/04/15(日) 09:08:17.32

画像ファイルの取扱について教えてください

特定のフォルダに有る画像ファイル(jpg)を貼り付けるマクロを組もうとしています
貼り付け先のシートは複数あるので、ディスクアクセスを1回で済ませるために、
画像データを一旦メモリに読み込んだあとシートに貼り付けたいと考えています

ですが、画像の取扱については Pictures.Insert や Shapes.AddPicture のいずれも
ファイル名を指定するようになっており、画像データ（オブジェクト）を貼り付けるようには
なっていないようです

諦めて、必要回数分ディスクから読むしかないのでしょうか

**デフォルトの名無しさん** · 2018/04/15(日) 10:25:19.60

>>736←こいつはなかなかの馬鹿

**デフォルトの名無しさん** · 2018/04/15(日) 10:30:28.81

すまんSQL編集とエクセルの結びつきがわからん

**デフォルトの名無しさん** · 2018/04/15(日) 10:31:31.23

エクセルに使いやすいクエリエディタが付属してるってこと？

**デフォルトの名無しさん** · 2018/04/15(日) 10:35:21.86

エクセル上で完成予想図を手作りしてからSQL文考えるって事じゃないの

**デフォルトの名無しさん** · 2018/04/15(日) 10:44:40.64

>>740
PC の物理メモリが大きくて、それらの処理が連続で実行されていれば、

たぶん、その画像ファイルはメモリキャッシュ内にあるから、
ファイルから読み込まない

**デフォルトの名無しさん** · 2018/04/15(日) 12:34:58.71

SQL文を編集
SQLデータを編集
SQL設定を編集

これはあるけど、
SQLを編集なんて書く奴は必ず現場でおかしなことをしでかす馬鹿

**デフォルトの名無しさん** · 2018/04/15(日) 12:40:17.64

>>746
よくいるよな、こういう些末な指摘をしてレビュー時間を食いつぶすおっさん

そのおっさんからしたら「将来のことを思って教育してやってる」つもりかもしれないが
この場で本当にその使い分けが必要なのかTPOをわきまえろよ

**デフォルトの名無しさん** · 2018/04/15(日) 12:43:18.98

>>746
だから君はまず現場経験してからそういう事言いなさい

**デフォルトの名無しさん** · 2018/04/15(日) 13:09:58.84

寝る前にその文言に食いついて、起きてからも同じ事に噛みついてると考えるとちょっと面白い

**デフォルトの名無しさん** · 2018/04/15(日) 13:16:36.47

待ってくれ
些細な言葉使いはいいんだよ
俺が知りたいのはSQL編集とエクセルの関係性の事なんだ
エクセルにそんな機能あったっけ？

**デフォルトの名無しさん** · 2018/04/15(日) 13:32:19.58

知らんなら知らんでええやろw
知らん事を知れたんやから素直に教えを請えばええやんけw
ホンマにバカやなコイツらw

**デフォルトの名無しさん** · 2018/04/15(日) 14:19:35.08

SQL(Structured Query Language)の編集は、言葉として理解できる。寧ろ
> SQLデータ
> SQL設定
が分からん。

**740** · 2018/04/15(日) 14:54:13.60

>>745
なるほど
今回の用途だと多分それで足りますが、メモリに溜め込んだイメージを貼り付ける方法は
わかりませんか？

**デフォルトの名無しさん** · 2018/04/15(日) 15:01:27.90

Excelの話じゃ無いだろ。
何でもPowerShellで良いという主張に反論してるんじゃないの?

まっ、俺はPowerShellの方が苦行だからOffice関連ならVBAにするけどな。
Office関係無い場合はPowerShellにすることもあるけどな。
けどPowerShellはそんなに慣れてないから別の選択肢にするかもね。

**デフォルトの名無しさん** · 2018/04/15(日) 15:24:12.18

>>753
無理っぽいね

Shapes.AddPictureで追加したShapeオブジェクトを.Copyすればいいけど
クリップボードが汚染されるから俺はやりたくない

**デフォルトの名無しさん** · 2018/04/15(日) 15:30:59.97

>>753
そういう方法を知識として知っていたわけじゃ無いけど、多分出来るとは思う。
でもVBAでは結構高度になると思う。
もしあなたがそれを扱えるほどのスキルがあるなら既に気付いてるとも思うんだよな。
それに俺のレベルではそういうやり方のメリットも分からん。

取りあえずGDI系のCreateCompatibleDCと Bitblt系API使うのが平気ならメモリDCに溜め込んで、OleCreatePictureInDirect使ってPictureオブジェクトに変換するなんてやり方か、GDIPlus系APIを使用する方向が思いつくけど。

**デフォルトの名無しさん** · 2018/04/15(日) 15:32:50.62

VBAでメインメモリにアクセスなんて出来るの？

**デフォルトの名無しさん** · 2018/04/15(日) 15:36:55.89

出来るかどうかという話ならWinAPIを扱えばいいだけだから出来る
でも出来るかどうかという質問でWinAPIを含めて答えるのは不適当な気はする
WinAPI扱えるならそもそも質問しないだろうし

**デフォルトの名無しさん** · 2018/04/15(日) 15:39:24.48

メインメモリーのアクセスって言うのがなにを意味してるのかわからんけど>>756辺りの話ならWin32API呼び出しでできる

**デフォルトの名無しさん** · 2018/04/15(日) 15:46:04.12

「できますん」が正しい回答か

**デフォルトの名無しさん** · 2018/04/15(日) 16:28:15.05

>>755
>>756
了解しました、よくわかりました
簡単にできる方法があってそれを知らないだけだろうと思っていたので、
簡単にできる方法はない、であればそれで満足です

**デフォルトの名無しさん** · 2018/04/15(日) 16:42:54.85

画像をシートに貼り付けるだけなんだから普通にファイル名指定すりゃいいだろと思うのだが
ディスクアクセスもOSキャッシュに乗るんだから連続でやれば1回読んだだけで終わる

**デフォルトの名無しさん** · 2018/04/15(日) 18:03:51.72

VBAに限った話でもなく、よくいるんだよ

どこに時間かかってるのか計測もせずに
やれ最適化レベルを上げようとかインライン化しようとか
スレッド数減らそうとか根拠もなくトライして
時間を浪費するプログラマーがな

**デフォルトの名無しさん** · 2018/04/15(日) 19:32:20.73

つか非表示のシートにでも画像貼り付けとけば良いんじゃねえのか

**デフォルトの名無しさん** · 2018/04/15(日) 19:35:37.64

htmlでいいじゃん

**デフォルトの名無しさん** · 2018/04/15(日) 21:09:55.26

とりあえずそのまま画像を貼り付けることにして作ったのですが、奇妙なバグが出て困りました
特定の画像ファイルだけ、指定したセルの一つ左上（C5に貼ろうとしたらB4）に貼り付けられます

それも、特定のワークシートに貼った場合のみです

同じ画像を2枚のワークシートに場所を変えて貼るのですが、（順番は無関係と思いますが）
最初のシートには正しく貼れて、次のシートだとズレてしまいます

たくさんある中の数個だけで発生する現象で、何の根拠もなくペイントブラシで画像をちょっとだけ
トリミングしたら発生しなくなりました
何が起きているのかわかる方いないでしょうか

下記のプロシージャを2回呼んでいて、違うのは引数のtargetRangeだけです

' 指定のセルの位置に画像ファイルのイメージを等倍で貼り付ける
Private Sub PasteImageFromFile(targetRange As Range, imageFilePath As String)
Dim image As Shape

Set image = targetRange.Worksheet.Shapes.AddPicture( _
filename:=imageFilePath, _
LinkToFile:=True, _
SaveWithDocument:=False, _
Left:=targetRange.Left, Top:=targetRange.Top, _
Width:=-1, Height:=-1)
image.LockAspectRatio = msoTrue

End Sub

**デフォルトの名無しさん** · 2018/04/15(日) 23:51:47.37

>>766
何が起きてるかは知らんけど、貼り付けてからもう一回位置調整すればええんでね？

**デフォルトの名無しさん** · 2018/04/16(月) 00:20:34.44

ツールバーにボタンとか並べる場合って方向操作できないですか？
普通に追加してると右方向に順番に並んでいくようですけど
そうじゃなくて下方向に数個ずつ並べていきたいんですが

**766** · 2018/04/16(月) 06:08:33.87

>>767
当面の対応としてはそれでしのげるのですが、何が起きているのかわからないと、
処理そのものにバグが残っていることになるので後々困るな、と
後々深刻な症状に発展しないとも限りませんし

**デフォルトの名無しさん** · 2018/04/16(月) 07:16:08.06

>>766
Excelのバージョンは？
ぐぐると2007で貼り付け位置がずれるバグがあったみたい

**デフォルトの名無しさん** · 2018/04/16(月) 07:46:35.83

>>770
excel2010を使ってます
画像データをトリミングしたら再発しなくなったのですが、今度は再現ができなくなりました
バックアップとっといてからやるべきだった

**デフォルトの名無しさん** · 2018/04/17(火) 00:03:37.71

VBAでAPI使うのってどれくらい難しい？
教本の中級レベルなんだが、最終的にはそれくらいやりたいなと思ってる
結局"何をするか"に拠るんかな

**デフォルトの名無しさん** · 2018/04/17(火) 00:08:06.60

>>772
ただ使うだけなら全然難しくない
APIを使ったサンプルをコピペするだけで使えるやつがネットにいっぱいある

大変なのは何万個もあるAPIの中から欲しい機能を見つけ出すこと

**デフォルトの名無しさん** · 2018/04/17(火) 01:01:25.08

ありがとう
とりあえずその拾い物から使ってみる

**デフォルトの名無しさん** · 2018/04/17(火) 06:57:42.37

>>773
その何万個もあるAPIを見つけるのに良いサイトとか知りませんか？
あれば教えて頂きたいです
さらに出来れば日本語だとベストなのですが

**デフォルトの名無しさん** · 2018/04/17(火) 07:04:55.69

>>775
https://msdn.microsoft.com/en-us/library/windows/desktop/ff818516(v=vs.85).aspx

**デフォルトの名無しさん** · 2018/04/17(火) 07:20:21.18

>>776
ありがとうございます
でも英語なのでチンプンカンプン
日本語のコードサンプル解説がないと理解しにくいんですよね
もっと勉強します！

**デフォルトの名無しさん** · 2018/04/17(火) 11:41:46.89

win32api vba でぐぐればいっぱい出てくるやん

**デフォルトの名無しさん** · 2018/04/17(火) 11:55:31.70

C++やC#向けのサンプルコードを見てVBAで使えるようになれば一人前

**デフォルトの名無しさん** · 2018/04/17(火) 12:17:48.81

ただのコピペやんw

**デフォルトの名無しさん** · 2018/04/17(火) 17:43:34.64

昔ちょっと苦労した覚えがあると思ったら、あれはPerlでWindows APIを使うときだった