Excel VBA 質問スレ Part58

**デフォルトの名無しさん** · 2018/11/19(月) 06:47:24.99

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/

**デフォルトの名無しさん** · 2019/01/26(土) 07:48:55.80

Private Function getIE(arg_title As String) As InternetExplorer
↑
こういう書き型ってどういう意味になるんですか？
普通に関数を作るなら
private fanction 関数名(ByVal 引数名 as 引数の型)
みたいな形になると思うんですが
上記にあげた例でとくに引数を()で閉じた後のas InternetExplorerの部分がよくわかりません

**デフォルトの名無しさん** · 2019/01/26(土) 08:30:57.60

>>671
"as 引数の型"の意味が理解できるなら
"as InternetExplorer"は簡単に想像つくだろ

**デフォルトの名無しさん** · 2019/01/26(土) 09:22:53.54

Private Sub 関数名(引数名 As 引数の型)
Private Function 関数名(引数名 As 引数のデータ型) As 戻り値のデータ型

**デフォルトの名無しさん** · 2019/01/26(土) 09:34:59.74

VBAやってるなんて恥ずかしくて言えないだろ？

**デフォルトの名無しさん** · 2019/01/26(土) 09:38:00.59

>>671
中の処理を見ないとわからんけど、
そういう書き方をする場合、普通に考えたら、
getIEにInternetExplorerのオブジェクトがセットされて返ってくる。

**デフォルトの名無しさん** · 2019/01/26(土) 09:49:01.06

タイトルバーの文字列からウィンドウを検索する関数だろ
IE操作のサンプルとして、ネットでも本でも色んな所で見かけるやつ

**デフォルトの名無しさん** · 2019/01/26(土) 09:59:33.30

>>674
あらたまって「俺VBAできます」なんて言うことは無いけど
問題の解決にVBAが最善なら偏見持たずに採用するよ

**デフォルトの名無しさん** · 2019/01/26(土) 10:13:39.98

初心者に優しくなろうぜ

**デフォルトの名無しさん** · 2019/01/26(土) 10:33:16.30

どうしても使わなきゃならない場合にはVBAを使う
なにも理由がなければこんなもの使わない方が精神的に健全

**デフォルトの名無しさん** · 2019/01/26(土) 10:56:55.38

Windows10のアップデート1809を適用したらcreateobject("InternetExplorer.application")でオートメーションエラー(実行時エラー -2125463506)が発生するようになりました。

これを回避する方法があれは教示ください。

**デフォルトの名無しさん** · 2019/01/26(土) 11:00:34.08

>>680
他の言語とSeleniumを使う

**デフォルトの名無しさん** · 2019/01/26(土) 11:08:46.81

>>680
参照設定もInternetExplorerMediumもダメ?

**デフォルトの名無しさん** · 2019/01/26(土) 11:09:00.46

>>681
会社の方針でOffice以外のアプリや言語は使えません。そのため、VBAのみとさせてください。

**デフォルトの名無しさん** · 2019/01/26(土) 11:13:02.00

>>683
ではIEも使えないのですね？

**デフォルトの名無しさん** · 2019/01/26(土) 11:17:13.78

>>682
参照設定はInternetcontrolsとHTML object libraryを設定しています。これは適用前と変わりません。

New InternetExplorerMediumでもおなじエラーが発生します。

1809適用前の他PCでは正常に動きます。

**デフォルトの名無しさん** · 2019/01/26(土) 11:18:26.43

>>684
すみません、クロームやエッジは使えませんが、IEは可能です。

**デフォルトの名無しさん** · 2019/01/26(土) 11:32:26.37

なるほど状況はわかりました

問題の検証にはまず最初に他の言語が必要です
パワーシェルの使用許可を取ってください

**デフォルトの名無しさん** · 2019/01/26(土) 12:31:44.07

>>683
マジメな話、本当にダメなのかは思い込みの部分が多いんじゃないかと思うぞ

**デフォルトの名無しさん** · 2019/01/26(土) 12:33:07.15

>>672
>>673
>>675
ありがとうございます。VBAは戻り値の型も指定できるんですね。
というか、思い出しました、Ｃ言語でも頭にstringとかintとかつけましたね。
あれが末尾に来てこういう書き方になると。
ありがとうございました。

**デフォルトの名無しさん** · 2019/01/27(日) 07:11:52.32

しかしVBAは良くて他がダメっておかしな話だな
使い勝手が違うだけで、大概の事出来ちゃうだろ

**デフォルトの名無しさん** · 2019/01/27(日) 07:15:14.02

>>690
VBAの利用を推奨していないのは他でもないMSだ

**デフォルトの名無しさん** · 2019/01/27(日) 07:25:44.98

逆に、C#にできてVBA+APIでできないことって何がある？

**デフォルトの名無しさん** · 2019/01/27(日) 07:37:49.03

ソフトウェアが端末毎に異なると動作検証の障害になるケース

**デフォルトの名無しさん** · 2019/01/27(日) 07:53:57.32

もうよそいけよ

**デフォルトの名無しさん** · 2019/01/27(日) 08:13:04.45

IE参照とか終わっとる

**デフォルトの名無しさん** · 2019/01/27(日) 08:29:08.12

>>692
そらWebアプリとかスマホアプリとかMac/Linuxとかゲームとか科学技術計算とかいくらでもある
VBA(API, COMなし)で無理なく可能、かつExcelワークシート操作が必要な場合に態々C#を使うのはそれこそ馬鹿の一つ覚えだと思うけどね

**デフォルトの名無しさん** · 2019/01/27(日) 08:59:08.57

希に、変数が定義されてませんみたいなエラーが出るんだけど、何だろう?
しかも変な位置で。

Dim a As Long : a = 1
Dim b As Long : b = 1
MsgBox a　　　　　　　←普通、aにエラーが出るとしたらここだけど、
Cells(a, 1).Value = b　←なぜかこの時点で出る

Excelを再起動しても治らないんだけど、
3行目と4行目を入れ替えて、また戻すと治る。
わけわからん。

**デフォルトの名無しさん** · 2019/01/27(日) 09:48:02.97

>>697
参照設定を確認かな…

**デフォルトの名無しさん** · 2019/01/27(日) 11:10:55.75

>>697
当方、excel2010の新しいブックでテストしても何の問題もなし

**デフォルトの名無しさん** · 2019/01/27(日) 12:04:29.48

>>697
> MsgBox a
で値は表示されてるのか？
表示されてるなら値はどうなっているのか？

**デフォルトの名無しさん** · 2019/01/27(日) 12:48:15.98

>>697
全角空白とか混ざってない？
マルチステートメントもやめよう

**デフォルトの名無しさん** · 2019/01/27(日) 14:13:43.46

マルチステートメント推進

**デフォルトの名無しさん** · 2019/01/27(日) 15:18:35.61

まじ?

**デフォルトの名無しさん** · 2019/01/27(日) 16:30:18.65

>>698
特殊なものはつかってないけど・・。

>>700
表示前にエラーになったから見てないや。

>>701
VBSで全角空白がダメなのは知ってるけど、VBAでは実行できてたので、気にしてなかった。
マルチステートメントって「:」使うやつ?

**デフォルトの名無しさん** · 2019/01/27(日) 16:31:28.53

↑途中送信しちまった。

Constは1行で書けるのに、Dimが2行になるのが嫌なので、宣言は1行にしてる。

**デフォルトの名無しさん** · 2019/01/27(日) 16:33:56.14

>>699
こっちは2013。
普通は問題ないんだよ。行を入れ替えて戻せば治るから、
構文的におかしいことも無いだろうし。

**デフォルトの名無しさん** · 2019/01/27(日) 18:01:05.46

コードのコピペをミスったとかじゃないかな
どこか編集すると大文字小文字や空白が自動的に修正されて直るとか

**デフォルトの名無しさん** · 2019/01/27(日) 18:29:58.57

>>697
たぶんデバッグ中に宣言書いたりしたんやろ？
そう言うことするとバグる。

一旦コードコピーして、モジュール作り直せばいいよ

**デフォルトの名無しさん** · 2019/01/27(日) 18:33:24.52

そもそも1列目にはどんな数字が羅列されてるの

**デフォルトの名無しさん** · 2019/01/28(月) 20:10:52.48

1行目にデータを取って2行目に1行目を参照したmid関数を1行目と同じ数だけ用意したいのですが

Dim m As Integer
m = 1 'カウンタmを用意して1を設定
Do While Cells(m, 1) <> "" '1行目が空になるまでループ
Cells(m, 2).Formula = "=mid(" & Cells(m, 1) & ",15,5)" '2行目には真横のセルを参照したmid関数を入れる
m = m + 1
Loop

これじゃダメなんですが、4行目のmid関数をセルに代入するとき相対的にcells(m,1)を参照させていきたいんですが
どういう風に書けばいいんでしょうか？

**デフォルトの名無しさん** · 2019/01/28(月) 20:41:36.83

Cells(m, 2).Formula = "=MID(" & Cells(m, 1) & ", 15, 5)"

Cells(m, 2).FormulaR1C1 = "=MID(RC[-1], 15, 5)"

**デフォルトの名無しさん** · 2019/01/28(月) 20:42:27.70

みすった
Cells(m, 2).Formula = "=MID(" & Cells(m, 1).Address & ", 15, 5)"

**デフォルトの名無しさん** · 2019/01/28(月) 20:47:12.92

ありがとうございます、いけました！

**デフォルトの名無しさん** · 2019/01/29(火) 18:20:14.94

1から30の乱数字を5回ループした合計を出したい。
同一数字が出ることをよしとした場合のコードってどんなですか？

**デフォルトの名無しさん** · 2019/01/29(火) 18:28:48.64

>>714
For i = 1 To 5
　　s = s + Int(Rnd()*30+1)
Next

細かいことを言うと、「同じ数字が出てはいけない」などの条件を付けた時点で、それは乱数じゃなくなる

**デフォルトの名無しさん** · 2019/01/29(火) 19:08:34.73

>>715
> 細かいことを言うと、「同じ数字が出てはいけない」などの条件を付けた時点で、それは乱数じゃなくなる
べつに乱数が欲しいとは言ってないようだが？

**デフォルトの名無しさん** · 2019/01/29(火) 19:40:09.62

「乱数字」ってなんだ？初めて聞く言葉だゾ

**デフォルトの名無しさん** · 2019/01/29(火) 19:42:57.71

日本語だと乱数、乱数字は中国語で同じ意味

**デフォルトの名無しさん** · 2019/01/29(火) 20:05:34.32

つまり>>714 は中国の方ということね

**デフォルトの名無しさん** · 2019/01/29(火) 20:10:45.02

randbetween(1,30)は？

**デフォルトの名無しさん** · 2019/01/29(火) 21:04:31.66

WorksheetFunction.RandBetween
長いな

**デフォルトの名無しさん** · 2019/01/29(火) 21:09:20.18

3D6+5とかをループ使わず一発で計算したいって質問なんじゃね？

**デフォルトの名無しさん** · 2019/01/29(火) 22:06:13.32

int(rnd()*146)+5

**デフォルトの名無しさん** · 2019/01/29(火) 22:13:12.12

>>723←これが世間でバグと言われるものです

**デフォルトの名無しさん** · 2019/01/29(火) 22:19:46.43

>>724
どこがバグ？

**デフォルトの名無しさん** · 2019/01/29(火) 22:22:56.72

>>725
それぐらい自分で考えろやプロさんw
脳ミソついとらんかプロさんの頭にはw

**デフォルトの名無しさん** · 2019/01/29(火) 22:40:58.72

>>726
お前が馬鹿

**デフォルトの名無しさん** · 2019/01/29(火) 22:57:33.37

>>725
もっと簡単な例で考えれば分かる
1～6のサイコロ2個と、2～12のサイコロ1個で合計7の出る確率は、前者は6/36=1/6、後者は1/11
結果(確率)がまったく違うから、同じプログラムとは言えない

**デフォルトの名無しさん** · 2019/01/29(火) 23:02:31.19

ワイは>>727の恥ずかしさをもっと掘りさげたいんやw

**デフォルトの名無しさん** · 2019/01/29(火) 23:06:27.72

いつも思うんだが、どういう状況で使うんだよ。
Excelでゲームでも作るの?

**デフォルトの名無しさん** · 2019/01/29(火) 23:13:55.62

話をそらさずにもっと>>727の恥ずかしさを語り明かそうやw

**デフォルトの名無しさん** · 2019/01/30(水) 00:12:38.41

数学の確率は人間の直感を裏切ることがけっこうあるから、慎重に扱わないと痛い目を見る

**デフォルトの名無しさん** · 2019/01/30(水) 00:15:46.22

乱数が欲しいんて書いてないし

**デフォルトの名無しさん** · 2019/01/30(水) 00:18:07.14

確率が直感に合わないのはほとんどの場合解釈を間違えてるだけ

**デフォルトの名無しさん** · 2019/01/30(水) 00:21:14.29

バグと確率の問題をすり替えて逃げてる馬鹿がいる。どこにバグがあるか指摘してみろや。
VBAしかしらない馬鹿どもが。

**デフォルトの名無しさん** · 2019/01/30(水) 00:26:30.71

「乱数字」という言葉の意味がわからない限り、誰も何も回答できないわけだが
回答者が勝手に問題を作って議論を始めるいつものパターンになってるな

**デフォルトの名無しさん** · 2019/01/30(水) 00:34:51.85

結果が意図と違っていたらバグ
たとえば乱数でサイコロをシミュレーションするプログラムで、どれだけ試行しても確率が1/6に収束しようとしなかったらバグがある

**デフォルトの名無しさん** · 2019/01/30(水) 00:36:43.73

よっぽど悔しかったんだな。。。

**デフォルトの名無しさん** · 2019/01/30(水) 07:02:27.20

>>735←バグの意味を知らんプロさんwwww
ええでもっと恥ずかしがってもwww

**デフォルトの名無しさん** · 2019/01/30(水) 12:54:53.35

よろしくお願いします。

あるxlsmファイルを、１ヶ月間だけ使える、という形にしたいです。
つまり、各使用者がそのファイルを自分のPCに置いてから、１ヶ月だけは操作できると
いうことなのですが、どのようにしたらよいかわかりません。

ファイルを開いたときに、そのファイルが設置後１ヶ月経っていたら「もう期限切れ」とメッセージを出して
操作を不可能にしてしまうのを考えていたのですが、その設置日というのをどう取得すればいいのか。

「USBメモリなどから、そのファイルがそのPCにコピーされた日」を取得するにはどうすればよいでしょうか？

**デフォルトの名無しさん** · 2019/01/30(水) 13:21:11.92

「ブックの作成日」でググって出てきた二つ目のサイト
ttps://www.moug.net/tech/exvba/0130015.html

**デフォルトの名無しさん** · 2019/01/30(水) 18:49:20.66

鞄

**デフォルトの名無しさん** · 2019/01/30(水) 19:54:50.43

Excel 2016 (64bit) のVBAで質問です

とある理由で、大規模桁の計算をしないといけなくなったので
取り急ぎLongLong型の配列を作って必要な演算を作ろうかと

そこで、エラーが出て悩んでいる案件と、ちょっとした疑問が

とりあえず、代入されるものが数値であるかのチェックは必要よね…と思い
IsNumeric関数を使おうかと思うのですが
これって、例えば100桁の整数を表す文字列でも通るんでしょうか…って通るみたいなんですが
上限は文字列として扱える上限まで行けるんでしょうか？

計算の都合で商を求める演算「\」を使ったところ、10^12 \ 2^22 あたりの計算でオーバーフローとなりました
（実際には、2^22のところはそのオーダーの定数）
「\」の計算は64bitに非対応なのでしょうか？

**デフォルトの名無しさん** · 2019/01/30(水) 21:02:23.30

それこそPowerShell呼んでBigInteger使えよ

**デフォルトの名無しさん** · 2019/01/30(水) 22:56:12.99

>>740
基準日をどうするかにもよるけど、
一番簡単なのは、If 今日の日付 = 2019/2/28 Then Exit Sub 的なやつ。

**デフォルトの名無しさん** · 2019/01/30(水) 22:59:06.78

あ、コピーされた日か。
じゃあFileSystemObject使うとか。

**デフォルトの名無しさん** · 2019/01/31(木) 07:12:05.16

コピーされた日なんてどこにも記録されてないんだから取得のしようもないだろ

**デフォルトの名無しさん** · 2019/01/31(木) 07:50:39.64

起動時にあるセルが空白なら今の日付入れる。
空白でないのなら、セルの内容と今の日付を比べる。
セルは非表示のシートとかでよくね？

**デフォルトの名無しさん** · 2019/01/31(木) 08:17:14.63

>>744
別に作成されているマクロのコンポーネントになるので不採用ですね…。

**デフォルトの名無しさん** · 2019/01/31(木) 10:24:09.90

スルーされてるけど>>741に日付取得のソースが丸々載ってますよ
余程変なことをしなければ、コピー日時はファイルの（≠エクセルのプロパティ）の作成日時です
適当なセルをパスワード保護して、ブックモジュールのOpenイベントに空白条件で日付を入れるコードを書けば初回起動で記録されます。

>>743
\演算子が良く分からないのですが、除算の結果から小数点以下を消すという意味なら
Int(10 ^ 12 / 2 ^ 22)
でどうでしょうか

**デフォルトの名無しさん** · 2019/01/31(木) 12:39:08.81

>>749
WScript.Shell で呼べばいい
VBAのソース内に書いたPowerShell実行できるぞ

**デフォルトの名無しさん** · 2019/01/31(木) 12:43:51.49

>>751
何でそういう面倒くさい方法にしなきゃならんの?
VBAじゃどうにもならんという結論か?

**デフォルトの名無しさん** · 2019/01/31(木) 12:52:33.19

>>752
VBAでやろうとすれば自前で多倍長整数演算を実装する必要があり、開発とテストで誇張抜きで工数数百倍かかるよ

**デフォルトの名無しさん** · 2019/01/31(木) 16:39:19.38

>LONGLONG

>100桁の整数

あほですか

**デフォルトの名無しさん** · 2019/01/31(木) 19:07:59.37

>>753
だからさ、まずお前の結論としてVBAじゃ無理というのがあって、それからだろPowerShell云々は。

で、本当のところ、無理かどうかは分からんが、仮に無理だとしてどうしてPowerShellになるんだ?
別に他でも良いわけだろ。

**デフォルトの名無しさん** · 2019/01/31(木) 19:08:45.03

>IsNumeric関数を使おうかと思うのですが

On Error Resume Next
数字じゃないとエラーが起きるような処理
エラーが起きたら終了みたいな
On Error Goto 0

**デフォルトの名無しさん** · 2019/01/31(木) 19:28:01.37

>>743
>>IsNumeric関数を使おうかと思うのですが、上限は文字列として扱える上限まで行けるんでしょうか？

ちょっと質問内容が良く分からないのですが、

・そもそもLongLong型（64bit＝8バイト）の話では無かったのですか？100桁とは？
・ヘルプに有る通り文字列型の上限は2GBですが（以下同様）

仮に2GBの判定が出来たとしても、その膨大な時間を使うよりは例外処理してしまった方が早いと思います。

**デフォルトの名無しさん** · 2019/01/31(木) 19:28:54.99

>>743
よくそんな仕事請け負ったな、依頼者に騙されてないか？

**デフォルトの名無しさん** · 2019/01/31(木) 19:31:09.20

お話を聞いてる限り、恐らく元々の依頼内容も勘違いされている部分があると思うので、
差し支えない範囲で教えて貰えれば根本的な部分に回答が出来るかもしれません。

**デフォルトの名無しさん** · 2019/01/31(木) 19:31:49.59

みんな同じ様な事言っててワロタ

**デフォルトの名無しさん** · 2019/01/31(木) 21:50:14.70

>>755
別にPowerShellでなくてもいいけど、標準のWindowsだけで特に追加で何か入れることなく使えて
多倍長演算もサポートしててVBAから簡単に呼べるのなんて他にある?

**デフォルトの名無しさん** · 2019/02/01(金) 01:19:40.80

>>757
そちらの質問は興味本位です。与えられた数値に見える文字列を信じるなら不要です
それと、LongLong型で済むなら配列はいりませんし

やりたいことは、例えば「100桁同士の四則演算をする」というようなことです。
コンパイラのインストールをセキュリティポリシーで禁止されているので
困っているのですよ。

>>759
そちらは時間があれば勉強してみようかと
ただ、それで実装すると引き継ぐときに後の人が大変そうですが

**デフォルトの名無しさん** · 2019/02/01(金) 02:51:10.44

100桁ぐらいなら、Ruby でも演算できる

**デフォルトの名無しさん** · 2019/02/01(金) 03:10:10.30

>>762
あまりに馬鹿過ぎて話しにならん
どうして馬鹿と言われるか理解できるか？

**デフォルトの名無しさん** · 2019/02/01(金) 04:03:45.69

>>750
初回起動で設定しても元のブックをコピーし直せば何度でも使える
何の条件で期間指定したいのかわからないけど
パソコン限定ならレジストリでも使うのかな

**デフォルトの名無しさん** · 2019/02/01(金) 07:03:41.22

>>743
言語の動作もわかっていないこんな奴に依頼するなんて。頼む方も頼む方。

**デフォルトの名無しさん** · 2019/02/01(金) 07:18:07.26

Excel VBAの質問スレだろ
質問も回答もする気無いならスルー出来んのか？

**デフォルトの名無しさん** · 2019/02/01(金) 07:44:04.79

答えられない質問はとりあえず馬鹿にして勢いで乗り切る方針のプロさんw
バカwww

**デフォルトの名無しさん** · 2019/02/01(金) 08:37:10.62

ComboBoxで↓を押して表示されるリストの行数は固定でしょうか？
表示行数を増やす方法がありましたら、ご教授ください

よろしくお願いします

**デフォルトの名無しさん** · 2019/02/01(金) 08:51:37.94

>>765
Excelのレジストリ操作だと簡単なのはそのパソコンのユーザー毎の設定だな
無論APIを使えば何でもできるけどね
所詮はバーチャルマシンも考えればユーザー側も何でもできる
その程度と思って使うか　ネットにDB持つかだな

**デフォルトの名無しさん** · 2019/02/01(金) 08:51:40.44

最近はexcel2010とVB.netで改元対応しています。
excelのイベント少ないなって思っているのですが、2016などの新しいのはイベントや関数などは増えているのでしょうか？
2019なんかはタブレット操作用のイベントもあったりするとかでしょうか？