Excel VBA 質問スレ Part59

2019/02/09(土) 15:12:30.70

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part58
https://mevius.5ch.net/test/read.cgi/tech/1542577644/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2019/02/17(日) 13:42:14.79

>>225
つまらない趣味にこだわるのは中学生までだぞ

2019/02/17(日) 13:49:15.60

偏見かもしれんがプログラミングで日常言語に近づけようとするやつは代数とか苦手だった？
って思っちゃう

2019/02/17(日) 14:06:36.59

蛇腹erは代数が苦手(キリっ

2019/02/17(日) 14:20:05.25

>>227
上司「このiってなに？ちゃんと説明して」

2019/02/17(日) 14:51:51.50

単なるループカウンタですけど？
見ればわかりますよね？

2019/02/17(日) 14:57:39.75

>>221
Ing Ele　ってなんの略ですか

2019/02/17(日) 15:13:51.30

>>232
しばくぞコラ（LongとElementだよ（にっこり））

2019/02/17(日) 15:32:11.89

ループカウント用のプロシージャ内ローカル変数でiとかjとか使うのはありだと思う
モジュールレベル以上の参照スコープを持たせた変数をiとかjとかarrとかbufとかで宣言されてたら流石にキレるな

2019/02/17(日) 15:36:00.05

スコープが大きいほど変数名も長くして

2019/02/17(日) 15:43:21.47

今時ハンガリアン使ってるのクソダサい

2019/02/17(日) 15:49:41.73

俺はゴールデンの方が好き
猫飼ってるから無理だけど

2019/02/17(日) 16:33:33.48

sheet1, sheet2とあって、sheet1に、
Private Sub ButtonClear_Click()
があります
これをsheet2のボタンを押したときに呼び出したいのですが、sheet2のsubで
Private Sub ButtonTest()
Worksheets("sheet1").Select
ButtonClear_Click
end sub
としてもそんなsubはないと言ってきます。他にもいろいろと試したのですがどうしたらいいのでしょうか
また、標準モジュール内で、

Sub ModuleTest()
Worksheets("sheet1").Select
ButtonClear_Click
end sub
としても同様に動きません
Worksheets("sheet1").ButtonClear_Click
とかしてもダメでした

2019/02/17(日) 16:40:07.44

共通の処理は共通モジュールかクラスに置いてください
シート1、シート2からはその共通の処理を呼び出してください
イベントハンドラはユーザーコードから呼び出すものではありません

2019/02/17(日) 16:50:40.07

>>238
Privateが付いてるプロシージャはそのモジュール内でのみ呼び出し可能
sheet1とsheet2は別モジュール
だから怒られてる

2019/02/17(日) 16:54:09.55

化石みたいなレスのあるスレだな

2019/02/17(日) 17:02:42.50

>イベントハンドラはユーザーコードから呼び出すものではありません

面倒くさいとき、普通に呼び出してたわ。

2019/02/17(日) 17:18:01.63

>>240
Public にしてもはずしてもダメです

2019/02/17(日) 17:22:34.48

馬鹿はClassを知らない

2019/02/17(日) 17:57:40.00

>>243
>>206みたいにしても?

2019/02/17(日) 18:15:37.59

>>243
そもそもボタンってデフォで標準プロシージャに追加されなかったっけ？
標準モジュール作って、Sub ButtonClear_Click() をまるごと移動させたらいけんじゃね？

2019/02/17(日) 18:27:30.13

>>244
そんくらい知ってるよ、夏の日の1993だろ。
昭和生まれをナメるなよ。

2019/02/17(日) 18:37:55.36

調べてたらこんなのが出てきました
http://jscript.zouri.jp/Source/ExcelCtrl.html#LINK7
ちょっとずれてはいますが、ここで

// シートのマクロ関数を呼び出す
ExcelApp.Run( "MacroTest.xls!Sheet1.func1" );
ってのがあるから、標準モジュールだけじゃなくて、シートの関数も他のシートからも呼べるんだよね
マネてやってみたんだけどうまくいかん

2019/02/17(日) 18:52:24.20

いや、普通に、シートを指定するんじゃ駄目のかな。
>>206はThisworkbookに続けて関数名書いてるけど。
クラスモジュールもそうやって指定するでしょ?

2019/02/17(日) 18:53:32.60

???
lngEle?なんかよりi,j,kの方がよっぽど良いだろ。
どんなスコープの場合でも特別な意味の無いループ変数だよ。
世界中で、さらにいうと他言語でも共有されてる価値観だろ。
まあ、ローカル以外で使われることは無いけど。

2019/02/17(日) 19:03:59.23

シートモジュール特有の制約があるのかもしれないけど調べるのめんどい

2019/02/17(日) 19:07:37.68

>>238
根本的に考え方が分かっていない。
まず、色んな所から呼び出したいものは標準モジュールに書く。
そして、そいつを色んな所から利用するように設計する。

君の場合はButtonClear_ClickをSheet1からもSheet2からも使いたいんだからButtonClear_Clickの中身を別関数にして、Sheet1のButtonClear_Clickからその関数を呼び出すようにする。

2019/02/17(日) 19:09:51.42

vbaerは他の言語やらんから非常識なコードを悪気なく書いてしまうんだよな

2019/02/17(日) 19:12:06.36

>>252
ちょっと違うんだなあ

sheet1にPrivate Sub ButtonClear_Click()
ってかいてるでしょ。　この処理はシート１に対してする処理なのです
それをシート２から、ある特定のタイミングでしたいので、こうなっている

標準モジュールにあるものはもちろん呼べるけど、疑似的にもそうしないといけないのかな

2019/02/17(日) 19:19:24.91

>>254
Worksheets(“シート名”).Range() = 処理

2019/02/17(日) 19:20:23.75

試したら、Sheet2.ButtonClear_Clickで動くわ。
もちろん、Privateは削除でね。

>>252
一般的にはそうだけど、
実際には出来るんだから、思い込みだよ。

2019/02/17(日) 19:22:02.36

ていうかsheet1にコードを書いたとしてもsheet2がアクティブになってればそっちに書き込まれるからね

2019/02/17(日) 19:22:44.45

>>256
Worksheets("sheet1").ButtonClear_Click
みたいな仰々しいことしなくても良かったのね。　ありがと。　あとでやってみる

2019/02/17(日) 19:33:19.37

>>258
それは入れる物が間違ってる

2019/02/17(日) 19:50:26.47

>>254
違わない。
設計の話をしている。
シート2からも呼び出すんだからシート1に対して行う処理であっても変わらん。

というか、基本的な所で噛み合ってないな。
どんな所に書いてもいきなりブックやシートの省略はしないのが基本だぞ。
Withを使うかオブジェクト変数で受けるのが基本だ。

2019/02/17(日) 19:56:06.48

>>256
おかしいなあ。　オブジェクトが必要ですっていうエラーが出てきて動かない

2019/02/17(日) 19:56:59.16

「ちょっと違うんだなあ」は草

2019/02/17(日) 20:15:00.10

>>261
君面白いねえ

2019/02/17(日) 20:26:28.38

>>261
Sheet1.Select

2019/02/17(日) 20:36:24.20

>>261
これでtestって出ない?

[シート1]
Sub ButtonClear_Click()
　MsgBox "test"
End Sub

[シート2か標準モジュール]
Sub ButtonClear_Click()
　Sheet1.ButtonClear_Click
End Sub

2019/02/17(日) 20:39:08.27

>>264-265
sheet1.Selectをしなくても、セルへの代入だけなら出来た.。　シート２のボタンを押しても、シート１のセルに書き込まれる
でも、Cells(10,10).Selectみたいなセルの選択をするときは、sheet1.selectをしておかないとエラーになる

2019/02/17(日) 20:43:50.21

>>266
書き込みたいシート名を指定する
Worksheets(“シート名”).cells(1,1) =

2019/02/17(日) 20:44:14.77

>>266
こうやって書けば。

Worksheets("Sheet2").Cells(10, 10).Value = "test"

2019/02/17(日) 20:46:06.79

>>267-268
いやだから、書き込みだけなら、問題なく出来るって書いたじゃん
裏でも出来る
でも、セルの選択とかが入ると、シートをSelectして動かないとダメ

2019/02/17(日) 20:47:37.46

>>269
そりゃそうでしょ

2019/02/17(日) 20:53:21.26

つーかエラーメッセージ全部貼って見せて

2019/02/17(日) 21:43:11.83

vbaの関数ってデフォルトが参照渡しなんすね
やらかすとこだった

2019/02/17(日) 21:45:56.53

お前らオブジェクトのこと全然わかってないんだな
馬鹿ばっか

2019/02/17(日) 21:57:57.43

>>273
答えplz

2019/02/17(日) 23:04:18.50

こんなスレ見てたら頭おかしなルで

2019/02/17(日) 23:11:53.07

>>274
継承されたわけでもないオブジェクトから別のオブジェクトのメソッドをどうやって呼び出すかわからんのか？
馬鹿は死ねよ。

2019/02/17(日) 23:38:23.26

言い過ぎでは？
繊細な人だったら傷付くよ

2019/02/17(日) 23:57:36.39

シート1内外から呼べるPublicな共通関数を作って、クリックイベントハンドラのコードと他モジュールのコードの双方から呼ぶようにすれば良いだけでは
イベントハンドラを直接コードユーザにコールさせようとするのはおかしい

2019/02/18(月) 00:01:45.68

>>272
ByRefもByValも付けずに宣言するとそれはByRefになるって事をかな？
であれば既にやらかしてるのを気づかずにいる可能性があるから過去のモジュールを点検した方がいい

2019/02/18(月) 00:02:49.20

いやよく考えるとイベントハンドラを呼ぶのはおかしいがシート2クラスのメソッドを呼ぶだけなら別におかしくはなかった
それだけでは共通化する理由にはならない

2019/02/18(月) 00:59:55.76

>>276
へーシートもオブジェクトなのか
全然意識してなかったわ
勉強になったよありがと
でもお前口悪いから友達いなさそうw

2019/02/18(月) 01:23:07.51

シートモジュールに構造体宣言してハマった記憶がある
そういうことだったのか

2019/02/18(月) 01:23:55.49

頭が悪い　顔が悪い　目が悪い　口が悪い
性格も悪い　手癖も悪い　足腰も最近悪い
酒癖も悪い　女癖も悪い　寝つきも悪い
そんな俺でもその返事の仕方は失礼なんじゃないかな？
とは思うけど。
もしや高度なツンデレさんなのかな？
と、解釈して

次の方　( ﾟдﾟ)ノどうぞ

2019/02/18(月) 06:33:10.39

きっと彼の親はVBAに殺されてしまったんだよ

2019/02/18(月) 08:08:58.79

シートもオブジェクトなのか、ってのはちょっと驚いたな
シートどころか自作フォームも含めてGUIで見て触れるもののほぼすべてがオブジェクトだぞ

2019/02/18(月) 08:18:13.27

なんか、バカばっかりだなあ
>>269に他のシートにもアクセスできるって書いてあるだろ。何がオブジェクトだよ
ただ、セルのセレクトは出来ないって

2019/02/18(月) 08:58:38.38

前にやってたユーザサポート業務を思い出した

2019/02/18(月) 12:38:44.05

>>286
バカはお前。
そのセルのセレクトができないと言ってる元の命令がオブジェクトがどういう階層になってるか分かってない典型的な例。

そういう人のコードだから、セレクトなんて必要無いだろうなと先読みしてるんだろう。
何しろセレクトすることなんて極めて殆ど書くことが無い(必要となることが無い)処理だからな。

2019/02/18(月) 13:13:11.83

ブックもシートもセルもボタンもシェイプもみんなオブジェクトだよ

WindowsはOSそのものがオブジェクトの塊
そういうふうに設計されてる

2019/02/18(月) 13:49:41.69

Selectionはイミィディエイトからはよく使う

2019/02/18(月) 16:12:57.29

化石観たいな臭いレスでも良いけど
もうちょっと面白いレスが観たいな
VBAネタもう飽きた

2019/02/18(月) 16:21:45.06

https://japan.cnet.com/article/20087747/

「Microsoftにとって、（Officeのような）ウェブベースのアプリケーションサービス
を提供することは願ってもないことだろう。これにより、エンドユーザーや違法コピー
の問題をもっとしっかりコントロールできるようになる。しかも、大量にメディアを
用意したり、それを流通させるコストも不要になる」
--Garcia on Slashdot

2019/02/18(月) 16:23:02.33

>>292
誤爆してしまった。
スマソ。

2019/02/18(月) 17:39:58.04

VBAスレにまで来てVBAネタ飽きたって、こんなとこくる暇があったら病院行った方が良いんちゃう？

2019/02/18(月) 21:13:51.18

vbaおそすぎい…

2019/02/18(月) 21:25:29.27

Selectメソッドは記録マクロの記述のためだけに存在する命令と言ってもいいくらいのものだからな
実際に実務でSelectメソッドを書いたことは殆どない
特定のセル範囲（特に複数セル）が選択された状態を作り出すことに実務上の意味があるならば書かざるを得ないんだろうけど

2019/02/18(月) 21:53:14.97

どうしてセレクチオンしないの～！

2019/02/18(月) 22:15:32.75

>>296
コードの最後に
cells(1,1).select
って書いておくのが僕

2019/02/18(月) 22:31:21.38

カーソル位置の初期化によく使うけどな。Select

2019/02/18(月) 22:37:53.94

application.gotoを使う

2019/02/18(月) 22:51:42.46

スクロールの有無を選べるApplication.Gotoの方が小回りが効くわな

2019/02/18(月) 23:52:49.47

SelectよりActivateの方がしっくりくる

2019/02/19(火) 00:02:24.54

>>302
違いってなんだっけ？

2019/02/19(火) 00:21:46.10

selectは複数できる
acrivateは1つだけ

selectしたcellsはselectionで取得でき、
activateしたセルはActiveCell

また、
ActiveCellはsheetではなくapplicationのメンバ
Application.ActiveCell.Select

↓はできない
sheets(1).activeCell.Select

今色々試しただけだから、間違ってたらゴメン

2019/02/19(火) 08:36:38.55

>>304
Oh,thx.

2019/02/19(火) 11:46:22.25

WebBrowserのフォームに文字列変数に入れたHTMLを反映させるのってどうすれば良いですか？

2019/02/19(火) 12:39:59.48

>>306
説明が分かりにくい。

WebBrowserのフォーム
→フォームにWebBrowserコントロールを貼り付けたもの?

文字列変数に入れたHTML
→指定したURL?

フォ―ムにWebBrowserコントロール貼り付けて、指定したURLを表示させたいってこと?

2019/02/19(火) 12:42:06.27

それともHTMLのソースコードを元にブラウザ表示させたいってこと?

2019/02/19(火) 13:02:37.15

>>306
input type="text"を変更したいんでしょ
メールアドレスに「123」を入れる例
めっちゃめんどくさいけどガンバレ

Private Sub UserForm_Activate()
WebBrowser1.Navigate ("https://opentype.jp/oteditmoney.htm";)
End Sub

Private Sub UserForm_click()
Set hec = WebBrowser1.Document
Set mailaddress = hec.GetElementsByName("MailAdress2").Item(0)
mailaddress.Value = 123
End Sub

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 13:06:28.07

質問じゃないけどcsv取り込みでQueryTable使ったら感動した
ググるとほとんどLine Inputでやってるんだもんなぁ

2019/02/19(火) 13:10:41.92

ExcelでJavaScriptが使えるみたいだけど、どんなことに使えるのでしょうか？

2019/02/19(火) 13:21:57.84

>>310
便利なんか？
住所の番地ってどうにかできるんかね
1-1が日付扱いになってしまう

>>311
jsがどうこうではなく、vbaが化石すぎる
jsは慣れれば超楽に書ける。これから覚える人は大分楽できるんじゃないかな
ただ、jsはところどころじゃあくなので気をつける必要がある
具体的にはundefined

2019/02/19(火) 13:30:09.72

>>312
おぉ！レスありがとう😊
そっかぁvbaは化石か…
今職場で必要だから、業務を通して勉強してるんだよね。
JavaScriptは少し勉強してたけど、会社が受け入れてくれるかな。

2019/02/19(火) 13:35:17.78

>>296
広範囲のソートとかどうすんの？

2019/02/19(火) 13:44:22.98

>>313
幾つか忘れていた

jsのメリット
・jsはwebでも標準的な言語
・イラレのスクリプトもjsで動かす事もできる。ほとんど使わないけど
・googleSpreadsheetのマクロはjs

ただ、化石言語にもいいところはある。今までのノウハウがweb上に山程ある
そして仕様変更も20年なかったから、全コードがそのまま使える
（他の言語はバージョン違いでエラーが発生したり、全く動かなかったりする）

結局やることはエクセルのスクリプトなので、vbaでも十分ちゃ十分、
jsのノウハウが積み上がるまでは、vbaの方が楽出来ると思う

2019/02/19(火) 13:55:09.79

>>315
なるほどなるほど。
詳しく説明してくれてありがとう！
たしかにvbaは歴史があるから、調べてるのは楽だよね。
JavaScriptはしばらく家で勉強した方が良さそうだねw
時期をみて上司に提案してみるよ！

2019/02/19(火) 14:12:13.94

Java script は
VBA → VB.Net → ASP.net って勉強して行く過程で勉強することになるから
そんなに慌てなくてもいいよ

2019/02/19(火) 14:15:00.77

>>317
ドヤ顔のところ申し訳ないけど、ASP.NET(最新のものではなくVBerが知っている方のASP.NET)も化石だよ

2019/02/19(火) 14:16:57.12

ちなみに最新のASP.NETと呼ばれるものはVBer達がよく知っているASP.NETとは全く互換性がない
それどころか.NET Frameworkすら切り捨てた

2019/02/19(火) 14:24:40.78

>>319
知らなかった、昔のASP.NETの印象しかない。名前が完全に足引っ張ってる

2019/02/19(火) 15:20:23.15

>>307
>>309
説明不足すみませんでした
ユーザーフォームにwebBrowserのコントロールを張り付けて、そこにURL指定ではなくて直接htmlの文章を書き込みたいです。

2019/02/19(火) 15:44:15.07

>>321
かなりめんどくさいことをしている気がする
やりたい事はこれじゃないんじゃないか

Private Sub UserForm_activate()
'多分一回呼ばないとダメ
WebBrowser1.Navigate ("https://example.com";)
End Sub

Private Sub UserForm_Click()
html = "<div>foo</div>"
WebBrowser1.Document.body.InnerHtml = html
End Sub

2019/02/19(火) 16:06:51.67

四角の領域を表す構造体にRECTというのがありますが、領域が10個あってしかも定数です
その中にあるポイントがあるかどうかを判断するのに、　PtInRectを使いますが、10個のRECT領域をどうやって
定義するのか考えています
Dim rect1 as RECT, rect2 as RECT ,,,,, rect10 as RECT
とやって、これらに定数を代入するときにいちいち
rect1.Top = 10
rect1.Left =10
---
rect10.Bottom = 1000
rect10.Right = 1970
とかやってたら大変です。　Cとかなら
rect1 = CRect( 10,10,100,100)
って出来ますが、VBAでは出来ませんか。　またやりたいのは、PtInRectなので、簡単に

if PtInRect( CRect( 10,10,100,100), x,y) <> 0 then

みたいにしたいのですが、どうしたら一番スマートに出来るでしょう？

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 16:25:56.81

>>323
四角形を描画するメソッドは知ってる？

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 16:32:07.86

>>323
ごめん勘違い
GetCursorPos()

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/19(火) 16:34:56.56

>>323
またまた勘違い
座標の指定はむりじゃね
それぞれの四角形の位置関係に規則性はないんでしょ