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/22(火) 13:00:35.87

厚生省の中の人がプログラムで不正するように描いてたのってExcel?

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

あれはファイルの更新日をいじっただけだったはず（開いて上書き保存かもしれんが）

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

関数間違えたって報道されてなかったっけ

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

>>621
それは静的に呼び出すということ。

動的の場合は、LoadLibraryとかGetProcAddressとかを使う話になる。

昔、調べまくってサンプル作ったことあるけど、何でも自由に動かせるものじゃなかった。
というより殆どのAPIは動かなかった記憶が。

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

LongPtr型とPtrSafe宣言ってそれぞれどういうときに使うんですか？

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

>>626
どっちも64bitでAPI呼ぶ時に使うけど、ほかの使い方は知らん

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

Excelはどのくらいポリゴン表示出来るの?

1. PS並み
2. PS2並み
3. PS3並み
4. PS4並み

**デフォルトの名無しさん** · 2019/01/23(水) 00:32:34.72

5. PS5並み

**デフォルトの名無しさん** · 2019/01/23(水) 00:54:57.75

今のPCならオートシェイプで3DレンダリングしてもPS1には楽勝だろう

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

>>617
ありがとうございました！

**デフォルトの名無しさん** · 2019/01/23(水) 03:00:22.02

http://blog.livedoor.jp/genkimaru1/archives/2095759.html

**デフォルトの名無しさん** · 2019/01/23(水) 13:19:24.15

闘神伝のエリスのシースルーは再現可能ということですね。

**デフォルトの名無しさん** · 2019/01/23(水) 13:59:08.25

>>625
馬鹿には無理

**デフォルトの名無しさん** · 2019/01/23(水) 15:57:45.44

もともと「任意の」APIだったのが途中から動的に呼び出す話になってる

**デフォルトの名無しさん** · 2019/01/23(水) 16:19:34.41

回答者の連中が勝手に条件を考えて話をややこしくするのも
質問者がそれを修正しようとしないのもこのスレのお約束

**デフォルトの名無しさん** · 2019/01/23(水) 17:37:28.67

だいたいDeclareなしに呼び出さなきゃいけない要件なんてあるか？
候補となるAPIの範囲なんてどう考えても限られてるだろう。
ジグネチャ情報ごと外部からもらうのか？

**デフォルトの名無しさん** · 2019/01/23(水) 21:06:47.46

>>637
プラグインdllを呼び出すような要件だな。
プラグインdllを指定のフォルダに入れてもらうようにしておいて、呼び出し方はこちらで決めておく。
指定フォルダからdllファイルを列挙して、ファイル名と、決められた通りの呼び出し方で呼び出すやり方になるからDeclareは使えない。

まあ、めったに無いだろう。

>>635
「任意」の意味がよく分からん。
動かしている最中に「任意」のAPIを呼び出したいという意味かと思った。
それともcdecl呼び出しのAPIは基本的に出来ないっていうような話をすれば良かった?
まあ、DispCallFuncでゴニョゴニョで出来るんだけども。

**デフォルトの名無しさん** · 2019/01/23(水) 22:47:22.53

VBAでは（トリッキーなことしないと）作れない引数型のAPIのこととかじゃね？

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

初歩的かもしれない質問でお恥ずかしいのですが、知恵をお貸しいただきたいです。

1年の中で最大の数値が含まれる日付の値全てを別シートに貼り付けるというVBAプログラムを作成したいです。
また、この場合の1日とは前後1日分ではなく、その時間が含まれる1日の事です。

例えば、30分毎の売り上げ金額が入力されたexcelシートが1年分あるとします。

1年間の中で最大の売り上げ金額が、2018/2/14 12:30に存在すると仮定します。

その場合に、2018/2/14 0:00～ 2018/2/14 23:30
の値を抜き出し、別シートに貼り付けるというプログラムを作成したいです。

データの形は、

2018/2/14 0:00 300
2018/2/14 0:30 200
・
・
・
2018/2/14 23:30 500

のようになっています

自分でも一通り調べてみたのですが、どうしてもしっくり来るものが見つかりませんでした。

どうぞよろしくお願い致します。

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

>>638
おまえは頭が悪くて他人にものを教えられる様な人間やない
ちゅう事をそろそろ思い知った方が幸せになれるで

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

>>640
問題を分割して考えよう

1. 最大の値を持つ行（と言うか日時）を取得する → 最大日時とする
2. 以下を最初の行から最後の行までループする
2.1 行が持つ日時と最大日時の日付部分だけ比較する
2.2 日付部分が合致してたらコピーする

で、どこがわからないの？

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

調べるだけで頭を使っていないのだからわかるわけない
ゆとり教育世代にありがち

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

>>641
自分が頭が良いということを全く証明もせずに絡んで来られても困るんだがw

こういう絡み方で頭悪そうだとは思うけどね。

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

実にバカらしい困り方やね

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

>>643
マウント取りたいだけの老害
なんの生産性もないからやめた方がいいよ

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

hoge.dll だけあるときに hoge.def を作りたいんだけどどうすればいい？

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

>>646
悔しかったか、ゆとり世代

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

>>642
おっしゃる通り１つずつこなしていきたいと思います。

最大値を取得する所まではなんとかなりましたが、最大値が入っているセルの左からoffsetによって値の取得をしようとしています。しかしエラーが出てしまい(91エラー)詰まっています。

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

>>647
defファイルってビルドの時に使うもんだけど？

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

>>649
馬鹿過ぎだろ
もっと悩んでから来い、ゆとり

**デフォルトの名無しさん** · 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とかをループ使わず一発で計算したいって質問なんじゃね？