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/20(日) 20:02:31.83

>>599
逆に都合がいいじゃん
.NETFrameworkは簡単に廃止できないから君が大事にしてる互換性も保ちやすいしね

**デフォルトの名無しさん** · 2019/01/20(日) 22:44:30.32

A4用紙に上から4件ずつ異なるデータを入力して、
印刷したいのですが、どうすればいいか教えて下さい。
データ数は日によって異なり、30件～50件程度あります。
1ページ目に1～4、2ページ目に5～8・・・という感じです。
うまく説明出来なくてすいません。
4つデータを入力して印刷したら次、っていう感じの
ループ処理のコードのサンプルなどありましたら教えてください。

**デフォルトの名無しさん** · 2019/01/20(日) 22:48:25.28

>>601
改ページを設定すればいいだけじゃね？
https://kosapi.com/post-3244/

**デフォルトの名無しさん** · 2019/01/20(日) 22:55:12.40

>>602
ありがとうございます。

**デフォルトの名無しさん** · 2019/01/21(月) 09:00:45.75

このループw
他言語を推奨してる奴らには馬鹿しかいない。

ExcelVBAのスレなんだからExcelが動いてるのが大前提なんだよ。
そこへノコノコ乗り込んで来てOfficeインスト―ルとか言ってる馬鹿は滑稽。

テキスト処理とかもアホ丸出し。
Excel関係無いなら、そもそもVBAでやる必要全く無い。
そして全くのスレ違い。

**デフォルトの名無しさん** · 2019/01/21(月) 09:04:27.40

その後のC#やPythonを組み込んでくれって話はどうでもいい。
入って来たらそれで組むだけだ。

**デフォルトの名無しさん** · 2019/01/21(月) 10:06:31.18

終わった話にノコノコ乗り込んでくるウスノロかよww

**デフォルトの名無しさん** · 2019/01/21(月) 12:17:14.05

言われてみればVBAの破壊的仕様変更ってまったく無いよな。
オブジェクトを省略してて挙動が変わったくらいならあるけど。

64bit対応くらいじゃ無いか？

**デフォルトの名無しさん** · 2019/01/21(月) 16:29:48.24

LongPtr型とPtrSafe宣言くらいか

**デフォルトの名無しさん** · 2019/01/21(月) 20:06:20.50

>>607
ただパッチいれたら動かなくなったことはあった

**デフォルトの名無しさん** · 2019/01/21(月) 20:57:18.88

2007の時、グラフ周りが軒並み動かなくなったことはあったな。

**デフォルトの名無しさん** · 2019/01/21(月) 22:36:48.74

改ページ位置の誤検出がヒドイ。
一旦、改ページプレビューにしてから戻せば大丈夫ですとか、何だよそれ。

**デフォルトの名無しさん** · 2019/01/21(月) 23:15:39.37

64bitはスクリプトオブジェクトがないとかは？

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

よろしくお願いします。
あるシートのコピーだけを新規の別ファイルとして保存したいのですが、

1　dim fn as string
2　fn="c:\*****\集計表.csv"
3　ThisWorkbook.Worksheets("集計表").Copy
4　Application.DisplayAlerts = False
5　ActiveWorkbook.SaveAs fileName:=fn, FileFormat:=xlCSV
6　ActiveWorkbook.Close

このように書きました。普通だと問題なくいっているのですが、この処理をしている途中で、
使用者がガチャガチャとマウスをイジり、いくつも開いているうちの適当なブックをアクティブにしてしまった
りなどしてると、想定通りの動作をしなくなってしまいます。
3行目でコピーしたときに、コピー先のその新しいブック自体を名指しできれば、いいのではないかと
思うのですが、いかがでしょうか？
「ActiveWorkBook」ではなく、ちゃんと名指しする方法ってないでしょうか？

◆QZaw55cn4c · 2019/01/22(火) 00:33:28.43

いろいろな事情があって、ExcelVBA に専心することになりそうです…Excel VBA から任意の win32api を呼び出すことは可能ですか？

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

>>613
処理中いじるなと表示させたフォームをモーダルにして処理終わるまで×ボタン消しとくとかは？

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

activeじゃなくてもsaveできるだろ

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

>>613
方法１：新規ブックはWorkbooksコレクションの末尾に追加されるはずなので、Workbooks (Workbooks.Count)で参照できます。

方法2：先に新規ブックを作っておけば参照出来ます。
余計な新規シートが触られる不安があるなら削除する必要があります※
例）
With Workbooks.Add
　 Dim fn As String: fn = "c:\*****\集計表.csv"
Worksheets("集計表").copy Before:=.Worksheets(1)
Application.DisplayAlerts = False

Dim elem As Worksheet '※
For Each elem In .Worksheets
If elem.Name <> "集計表" Then elem.Delete
Next elem

.SaveAs Filename:=fn, FileFormat:=xlCSV
.Close
End With

方法3：集計表なので数式が入っていると思いますから、Copy時のCalculateイベントでシート自身に保存させます。
例）
Private Sub Worksheet_Calculate()
If Worksheets.Count > 1 Then Exit Sub 'Copyされた単一シートか判定
Dim fn As String: fn = "c:\*****\集計表.csv"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=fn, FileFormat:=xlCSV
ThisWorkbook.Close
End Sub
上記を集計表シートのシートモジュールに書き込むと、Worksheets("集計表").Copy だけで自動的に保存されます。

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

Worksheets("集計表").copy
↓修正
ThisWorkbook.Worksheets("集計表").Copy 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)

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

>>614
トリッキーな技が技があるかもだけど「任意の」となると単独では無理と思った方がいい

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

>>614
任意ってのはどういう意味?
動的に呼び出したいってこと?

それだったらかなり高度になる。

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

declareで追加するだけでしょ
ぐぐればサンプル大量に出てくるし
高度でもない

**デフォルトの名無しさん** · 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の新しいブックでテストしても何の問題もなし