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/24(木) 15:36:46.38

罵倒芸術？

**デフォルトの名無しさん** · 2019/01/24(木) 15:53:26.03

>>651
そうします
ありがとうございます

**デフォルトの名無しさん** · 2019/01/24(木) 16:52:58.88

>>651
お前なにしにきてんだここに。
最低だな、人として。

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

>>642で答えを教えてもらっても理解できないような頭の悪さが問題だろう。こんな頭の悪い奴はプログラムするなと俺は思う。

**デフォルトの名無しさん** · 2019/01/24(木) 17:52:28.54

ほー
>>655くらいの天才になると最初からプログラム完璧に理解できたらしいな
凄い凄い

>>653
めげずに頑張ってくれよ
だれでも最初は初心者だ

**デフォルトの名無しさん** · 2019/01/24(木) 18:00:27.00

VB6で作ったADOを使ってデータベースからエクセルシート名をComboBoxに入れるソフトがあって、それをwindows10で動かすとエラーで止まるんだけど原因分かりますか？
シート名が一文字の時だけエラーが出るのは分かったけど何か理由だと思いますか？

**デフォルトの名無しさん** · 2019/01/24(木) 18:15:16.93

>>657
ここが何のスレだかわかってるか、馬鹿

**デフォルトの名無しさん** · 2019/01/24(木) 18:58:14.37

>>640
その日付でアドバンスフィルタ。
検索する側の日付と、検索される側の日付は、
何型でもいいから統一する。
LeftやMidと"/"を組み合わせとか、
Format(日付, "yyyy/mm/dd")とか適当に。

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

アドバンスフィルタが何なのかわからなかったら、
フィルタオプションの設定の使い方を覚えて、
マクロの自動記録をするといい。

ちなみに、ループより激速だから。

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

>>640-642
Ruby で作った

# 各行は空白で区切った、3列の配列。
# 全行は各行の配列、つまり配列の配列
all_rows = File.readlines( "input.txt" ).map( &:split )

# row[ 2 ]、金額が最大数値の行を求める
p max_row = all_rows.sort_by { |row| row[ 2 ].to_i }.last

# 全行からrow[ 0 ]、同じ日付の行だけを集める
p all_rows.select { |row| row[ 0 ] == max_row[ 0 ] }

**デフォルトの名無しさん** · 2019/01/24(木) 21:13:39.94

>>661
ここが何のスレだかわかってるか、馬鹿

**661** · 2019/01/24(木) 21:19:22.76

>>661
修正

# row[ 2 ]、金額が最大数値の行を求める
>p max_row = all_rows.sort_by { |row| row[ 2 ].to_i }.last
p max_row = all_rows.sort_by { |row| row[ 2 ].to_i * -1 }.first

last だと、最後まで配列を作ってしまう。
一方、first では最初の1つだけを求めるから、速い

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

>>661は
ﾎﾞｸﾀﾝﾝRubyが出来るんだぞぉおエライんだ。ﾎﾞｸﾀﾝﾝを褒めろぉぉお
Rubyのスレでは褒める奴が居ないからここでエラぶりたいんだよぉお
なウスラバカ

**デフォルトの名無しさん** · 2019/01/25(金) 09:26:57.52

他言語質問スレの質問をRubyで解答するスレでもたてれば？

**デフォルトの名無しさん** · 2019/01/25(金) 10:27:26.03

Rubyスレで相手にされず、ここならドヤ顔できるだろと思って来たのかw

**デフォルトの名無しさん** · 2019/01/25(金) 12:18:15.80

プロさん荒ぶりまくっとってワロタw

**デフォルトの名無しさん** · 2019/01/25(金) 12:37:49.55

Ruby信者くんどこのスレでもKYだよね

**デフォルトの名無しさん** · 2019/01/25(金) 12:52:29.05

dumpbin /exports hoge.dll
と
lib /def:hoge.def
でいけるな

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

DispCallFuncって最近また流行ってるの？

**デフォルトの名無しさん** · 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じゃどうにもならんという結論か?