Excel VBA 質問スレ Part67

2020/06/26(金) 02:01:29.56

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

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

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

**２３４** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/05(日) 08:05:40.42

>>240
どうもです。

**２３４** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/05(日) 08:06:29.51

>>241
どうもです。

2020/07/05(日) 11:36:58.35

>>242
呼び出しは、可読性考慮すると文頭にCall書いた方がいいよ

2020/07/05(日) 13:58:43.83

>>207
VBAでやっても6時間はかかりすぎな気がするが
マシンスペックとコード晒してみ

それ、計算式でやって再計算に１時間以上かかるのか？
当然試してるよな

マルチプロセスもどうやってやったのか気になるが
俺なら間違いなくDBにつっこんでSQLでやる

そういえばエクセルシートなりCSVなりに対してSQL投げる方法がいくつかあったけど
それは試したのか？

2020/07/05(日) 15:07:25.29

>>239
ファイル名変更だから読む必要は無いだろ。
変更するだけでOK。

2020/07/05(日) 15:11:46.86

>>244
おれもsubモジュール呼び出しはCallつけるようにしてる
他の言語いじったにあととかにVBAのその行みたらよくﾌｧｯ!?って一瞬なるから

2020/07/05(日) 15:16:11.04

>>245
SQLに投げるのは簡単だが、今回の問題でどういうSQLで出来るのかが分からんかった。
今でも思い付かんが。

計算式ではやってないな。
まあ、無駄なんで。
というか、本当にやる奴が出るとは思わんかったから、言わんかったが他にも制約は有ったんだわ。

それにしても>>236は速いな。
ちょっとおれも調べてみるか。
ちなみにこの仕事数年前なんで完全に憶えてるわけじゃない。

2020/07/05(日) 15:22:54.54

マルチプロセスはExcel.Application8個(自分含めて)呼び出して、自分のブック開いて別CPUにやらせるプロシージャをApplication.OnTimeで呼び出したかSetTimerで呼び出したかだったんじゃないかな。

細かい連携しないで済むようにしてたと思う。
複雑なことはやってねえよ。

**220** (ﾜｯﾁｮｲ 87cc-ERT+) · 2020/07/05(日) 19:59:50.06

>>224
いろいろ試してダメだったらそうします

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

2020/07/05(日) 21:27:28.28

>>236
う～ん、分からん。
俺もやってみたんだが、同じような時間だった。
観測値はテキ卜一に0～100をランダムで書き込み。
観測出来なかった値は当時の記憶を頼りに9999とした。
確か9998もあったけど変わらんだろう。

前に書いた制約というかは、1年分のファイルが50～60個ぐらいだったということ。
つまり県ごとのファイルで観測地が多い所は複数ファイルって感じ。
だから実際は行頭に観測地名が入って、その後に何かの数値とかが幾つかあって日付、観測値という具合だった。
年ごとのファイルが完全に固定フォーマットで無かったか、俺が信用してなかったか、観測値名で検索してたと思う。
そこから365日分は連続してたと思うけど。

それでも6時間は掛からんような気がしてきた。
もっと複雑なことやってたのかなあ。

どっちにしても後だしで申し訳ない。

2020/07/05(日) 22:26:04.09

>>251
そもそもいつ頃の話よ
うろ覚えだけど2010あたりから計算式はめちゃめちゃ速くなってるぞ
あとでかいブックは64bit化の恩恵もあるし

2020/07/05(日) 22:29:31.22

>>252
調べたらそんなに昔じゃ無かったな。
2016年だった。

**238** (ﾜｯﾁｮｲ 872c-+ZV3) · 2020/07/05(日) 22:43:00.48

ファイル名の先頭に、2020_ を付けるぐらい、robocopy で出来ないのか？

2020/07/05(日) 22:49:17.55

2016ならよほど変なことをしてないと数時間とかかからんと思う

2020/07/05(日) 23:53:51.99

2020_2020_2020_2020・・・・

2020/07/06(月) 00:43:25.66

officeが32bitだったというオチは？

2020/07/06(月) 06:39:12.08

workbookとworksheetって何が違うか。

2020/07/06(月) 07:15:30.65

キングジムファイルと綴じられてる一覧表って感じかな

2020/07/06(月) 08:12:33.04

32bitと64bitで計算スピードの差は2倍もないような

2020/07/06(月) 08:39:32.35

Activesheet.cells(1.1).Activate
Activesheet.Paste

は上手くいくのに、

Activesheet.cells(1.1).Paste

は何でダメなんですか？

2020/07/06(月) 09:18:02.55

>>261
.pasteは、worsheetのメンバであってrangeやcellsのメンバじゃないから、かな？

2020/07/06(月) 09:49:31.89

パラメータ Destinationがあるから
ワイはPasteSpecialのほうが好き

2020/07/06(月) 12:08:40.63

>>263
普通はCopyのDestinationでやるからな。
Paste使うのはRange以外のコピーの時かな。

2020/07/06(月) 18:39:32.80

For
処理１
処理２
処理３
処理４
Next

よりも

For
処理１
Next

For
処理２
Next

For
処理３
Next

For
処理４
Next

の方が処理が早い傾向がありますが、そういうものですか？

2020/07/06(月) 19:08:39.04

>>254
出来ないよ？？？？
robocopy はファイル名の変更はできない。
robocopy したあと move するしかない。

…あ。こいつWSHスレを荒らしてたrubyおじさんじゃんww

2020/07/06(月) 19:10:33.89

てか、もうRubyは徒花だったな。
人気もダダ下がりだし。

2020/07/06(月) 20:45:52.99

>>266
よく分からんが、そもそも何でRubyが出て来るんだ?
VBAだってNameステートメントで一発なのに。

2020/07/06(月) 20:59:38.60

>>265
普通にかんがえて、前者のほうがループのオーバーヘッド分早いはずだが
その傾向ってのはどうやって調べたのか

2020/07/06(月) 21:12:06.08

>>268
どこでもかしこでもRubyで書いて押し付けてきて、「出来だよ！」っていうオジサンがいるのよ。
WSHスレでは「Rubyおじさん」として有名だった。
が、自分よりスキルの上な奴がコードをうしたら黙り込む。
こんなところにまで出張いてるとはね…。

無視推奨。Rubyはオワコンだし。

2020/07/06(月) 21:13:16.26

じゃあVBAはお爺ちゃんだろ

2020/07/06(月) 21:17:13.18

>>271
VBAは「頼れるジジイ」だろ。何言ってんの？

2020/07/06(月) 21:29:12.52

>>265
そんなのは処理による
コードが長くなったりループの中で扱うデータが増えるとメモリキャッシュがあふれて遅くなる可能性が高くなる

2020/07/06(月) 22:27:45.01

Rubyの話がしたければRubyのスレ行けばいいのにね

2020/07/07(火) 12:27:17.68

>>270
いや、それはRubyが優位と言いたいが為だろ。
全然優位じゃない所に出てくるのが分からん。

2020/07/07(火) 19:51:41.03

宣伝だろ

2020/07/07(火) 20:15:33.65

音楽のmidiファイルを作りたい、つまりバイナリファイルを作りたい者です。で、
↓を試してみたいのですが、"C3"にバイナリの配列を書き込まなければいけません。
この場合、どうやってexcelのセルに、バイナリの配列データを書き込むのでしょうか？

https://oshiete.goo.ne.jp/qa/8402512.html
Sub test()
　TEMP = Worksheets("Sheet1").Range("C3")
　ReDim BIN(Len(TEMP) / 2 - 1) As Byte
　For I = 1 To Len(TEMP) Step 2
　　　BIN((I - 1) / 2) = Val("&H" & Mid(TEMP, I, 2))
　Next I
　Open "1.BIN" For Binary As #1
　Put #1, , BIN
　Close #1
End Sub

2020/07/07(火) 20:25:40.74

なんでVBAでやるの？

2020/07/07(火) 20:27:13.84

VBAスレだから

犬丸 ◆MRCYWQz4rc (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 20:31:41.96

>>278
和音の構成音(ドレミ・・・)を１つづつセルに入れられるから。

2020/07/07(火) 20:33:47.85

なんでdominoとか使わないの？

2020/07/07(火) 20:34:49.08

あと、PCにインストールされてる開発系はexcelだけだから。

**２７７** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 20:41:28.24

つか、改変させたいmidiファイルが３００個位あって、それの欲しいデータのexcelファイルへの読み込みはもう終わったわけ。
あとは、そのデータをちょい改変して、同様な３００個のmidiファイルを吐き出すだけなんですよ。

**２７７** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 20:42:49.00

だから、excelでバイナルファイルを作りたいのです。

2020/07/07(火) 21:00:27.95

読み込めたなら反対をやればいいんじゃないの

2020/07/07(火) 21:05:07.15

>>283
著作権的にどうなの？

**２７７** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 21:10:37.49

>>285
日本語だってそうだろ。
読むのは簡単。　書くのは大変なんだよ。

>>286
ネットで買った和音だけの簡単なデータで改変したデータを自分だけで使うぶんには問題ありません。

2020/07/07(火) 21:13:27.88

じゃあそうすればいいじゃない？

所詮16進数の文字の羅列(Byteの配列とかにはさすがに出来てるんやろ？)なんだから
最終的には好きに料理してファイルに吐き出せばいい
ただ、１つのセルにバイナリなんて入れたら手作業で編集なんてしずらくてしょうがないけどな
あとセルの文字数上限もあるだろうし
midiの規格書読んだことあるのかしらんが、よくチャンクとかバイナリいじって編集しようと思うな

2020/07/07(火) 21:13:57.80

>>287
ならmidiの編集ソフトが使った方がいいね

**２７７** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 21:14:00.67

>>286
そもそも観賞するためのmidiデータではなく音楽制作に使うツールとしてのmidiデータなんだよね。

2020/07/07(火) 21:14:32.40

>>282
C#やVB.NETもあるけど？w

**２７７** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 21:22:41.71

>>288
> midiの規格書読んだことあるのかしらんが、よくチャンクとかバイナリいじって編集しようと思うな
基礎的な部分は把握してます。

> 所詮16進数の文字の羅列(Byteの配列とかにはさすがに出来てるんやろ？)
これがわからないんです。たとえば、4D 54 68 64という１６進のデータをexcelの１つのセルに書き込む方法を教えて欲しいのです。

**２７７** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 21:25:44.85

で、excelの"C3"に、4D 54 68 64を書き込んで>>277のソースを動かして試してみたいんです。

2020/07/07(火) 21:26:04.88

これなんか良いんじゃね
https://openmidiproject.osdn.jp/Sekaiju.html

2020/07/07(火) 21:29:51.89

midiの規格ってそんな簡単じゃないから素人が扱っても音が切れたりトラックがずれたりして
結局使えないだろ

2020/07/07(火) 21:32:34.47

ExcelのRange#valueにバイト列なんか入るわけないんだから自分がわかりやすいように文字列か数値に勝手に変換して勝手に入れろとしか言えない

2020/07/07(火) 21:34:29.92

Excelでmidiデータを取り扱うなんて常人の発想ではない
たぶんあなた以外に誰も方法はわからないから頑張ってその道の第一人者になって欲しい

2020/07/07(火) 21:35:25.31

>>292
セルに入れられるのはあくまで文字列ってこと理解してないの？

その例なら「Byte(0):77 Byte(1):84～」とかいう配列から「4D 54 68 64」という文字列にしなければセルには書き込めない
Byteはそれぞれの数値が入ってるだろうけど、hexかなんかで16進数にしたうえで(編集上必要あるか知らんけど)
join(array, " ")かなんかで１つの文字列にする

くっそ編集しずらいだろうけどな

2020/07/07(火) 21:44:56.92

前スレのテキストフルスキャンの発想とコード提示してくれた人
改めて言わせて貰う
職場の一大イベントを乗り切ったわこれで

2020/07/07(火) 21:46:02.99

改めて多大なるお礼を言わせて貰うが抜けてた

これのおかげですべての可能性が広がったわ

**２７７** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 22:23:53.24

では、すみません。　>>277の質問はなしにして、↓の質問をお願いします。

１、変数に「4D 54 68 64」のバイナリデータを代入するソース
２、中身は「4D 54 68 64」だけのファイル
３、ファイル名は5ch.bin
こんなファイルを作るにはどのようなソースを書けばよいでしょうか？

**２７７** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 22:29:17.16

>>228
allrenameというフリーソフトを使えばいいのじゃ。

2020/07/07(火) 22:32:51.69

>>301
バイナリ編集のソフト使えばいいんじゃね

**３０１** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 22:42:26.54

>>303
すみません。　「VBAを使って」でした。

2020/07/07(火) 22:43:37.27

もはやExcelを使うことが目的化してる

2020/07/07(火) 22:44:27.22

それもう読み込んだデータ無意味やん
フォーマット知らんけどセルに書き出せたんならファイルにもいけるやろ

**３０１** (ﾜｯﾁｮｲ 8a01-c9XW) · 2020/07/07(火) 22:54:30.10

>>306
基礎になるソースさえ教えてもらえれば、そこに色々付け加えてって自分に必要なバイナリファイルが作れるんですよ。

2020/07/07(火) 22:57:06.69

まず書く努力をしよう

2020/07/07(火) 22:57:22.32

>>307
そろそろ死ねや

2020/07/07(火) 23:05:51.69

Excelの設定もAppDataの中身も場所も変えて無いのに、
下記のように表示されてマクロが読めません！

「起動フォルダーにある個人用マクロブックは記録のために開かれた状態でなければなりません」

2020/07/07(火) 23:09:31.21

>>310
そのままググった
https://xtech.nikkei.com/it/pc/article/NPC/20070719/277869/

2020/07/08(水) 00:06:04.08

>>301
「'4D 54 68 64'」シングルかダブルで囲えば良いのでは？
「"4D 54 68 64"」
あるいは
いったんタブ区切りファイルtmp.tsvを途中で
中間ファイルとして介在させたらいいんじゃないですか？

2020/07/08(水) 00:14:08.99

ソースくれくれ君だからひんとあろうが自分で書かないよ、こういうやつ

**３０１** (ﾜｯﾁｮｲ 2301-6wWl) · 2020/07/08(水) 01:45:46.54

>>312
ありがとうございます。でも、「セルから変数を代入する」は止めました。で、>>277を変形してみたんですけど、↓のドコがまずいんですかね？

Sub test()
Dim TEMP As Variant
Dim I As Variant
Dim BIN As Variant

TEMP = Array(&H4D, &H54, &H68, &H54, &H68, &H64)
ReDim BIN(Len(TEMP) / 2 - 1) As Byte
For I = 1 To Len(TEMP) Step 2
BIN((I - 1) / 2) = Val("&H" & Mid(TEMP, I, 2))
Next I
Open "C:\1.BIN" For Binary As #1
Put #1, , BIN
Close #1
End Sub

**３０１** (ﾜｯﾁｮｲ 2301-6wWl) · 2020/07/08(水) 01:49:45.50

つか、
ReDim BIN(Len(TEMP) / 2 - 1) As Byte
この部分が何だかわかんないんですよ。
まず、ReDimとは何だ？と。

**３０１** (ﾜｯﾁｮｲ 2301-6wWl) · 2020/07/08(水) 02:05:21.42

目的は、
&H4D, &H54, &H68, &H54, &H68, &H64という６個のバイナリデータだけの、
1.BINというファイルを作りたい！
です。

2020/07/08(水) 03:08:12.79

Excelでやる事ではない
以上です

2020/07/08(水) 03:11:39.83

まずバイナリが何かすら分かってなさそうだしこの分だとmidiについても何も分かってなさそう

2020/07/08(水) 03:24:41.69

ここで聞くより、「vba　バイナリデータ」でググったほうが早そう

2020/07/08(水) 04:08:36.29

うちは会社のpcでバイナリ編集するのってセキュリティー的にアウトだし

2020/07/08(水) 05:18:34.50

この写真のように、例えば、3以下の数値をアクティブにする方法を教えて頂きたい

できれば、for next 構文はなしで

一発検索が望ましい。

https://i.imgur.com/EGujBbu.jpg

2020/07/08(水) 06:25:23.32

>>315> ReDimとは何だ？と
思ったらググって下さい。
ReDim BIN(Len(TEMP) / 2 - 1) As Byte
よくわからないですが動的配列を半分の長さで確保してるようです。
512÷2-1=255
forで繰り返すMid関数のスタート引数が1からのため配列の0番を1つ引算してまふ
「4D 54 68 64」ではなくてスペースなし「4D546864」か
Replace関数でスペースを削除しましょう
出来た文字列"4D546864"に対して
ループで前から2文字ずつ"&H"を付け足しているので
おそらく"&H4D&H54&H68&H64"が生成されるのでしょう

なので>>314のコードは全く意味がありません。

2020/07/08(水) 06:49:42.97

>>321> できれば、for next 構文はなしで

こんな縛りが無ければ普通にググって出てくるし以下で出来るだろうけど

複数のセルを選択する
http://officetanaka.net/excel/vba/tips/tips126.htm

2020/07/08(水) 07:11:29.93

つーかわざわざselectする意味あんの？

2020/07/08(水) 07:47:38.02

わからないで書いてたのか

2020/07/08(水) 07:58:30.68

>>316
簡単だろw
Dim btByte() As Byte
Dim lngFN As Long

btByte(0)=&H4D
btByte(1)=&H54
btByte(2)=&H68
btByte(3)=&H54
btByte(4)=&H68
btByte(5)=&H64

lngFN=FreeFile
Open strPath For Binary As #lngFN
Put #lngFN, btByte
Close #lngFN

2020/07/08(水) 08:02:35.63

>>326
途中で送信しちまった。
スマホで書いてるからどっか間違ってるかも。

Dim btByte() As Byte
Dim lngFN As Long

Redim btByte(5) As Byte

btByte(0)=&H4D
btByte(1)=&H54
btByte(2)=&H68
btByte(3)=&H54
btByte(4)=&H68
btByte(5)=&H64

lngFN=FreeFile
Open strPath For Binary As #lngFN
Put #lngFN, , btByte
Close #lngFN

2020/07/08(水) 08:09:09.54

>>314
というかね、Variantとは何か、Byteは何かとか考えた方が良い。
扱える範囲が違うということはメモリ上のサイズが違うということ。
6個のバイナリって6Byteのファイルってことだろ。
Variant1個で16Byteだぞ。

**３０１** (ﾜｯﾁｮｲ 2301-6wWl) · 2020/07/08(水) 09:06:02.86

みなさんレスありがとうございます。　感謝します。

>>327
ってことは、結局、↓でよいのでしょうか？

Sub test()
Dim btByte() As Byte
Dim lngFN As Long

ReDim btByte(5) As Byte

btByte(0) = &H4D
btByte(1) = &H54
btByte(2) = &H68
btByte(3) = &H54
btByte(4) = &H68
btByte(5) = &H64

lngFN = FreeFile
Open "C:\hogehoge.bin" For Binary As #lngFN
Put #lngFN, , btByte
Close #lngFN

End Sub

**３０１** (ﾜｯﾁｮｲ 2301-6wWl) · 2020/07/08(水) 09:09:44.11

あるいは、↓ですかね？　↑も↓も「Open "C:\hogehoge.bin" For Binary As #lngFN」の業でパス名が無効です、というエラーがでます。

Sub test()
Dim btByte() As Byte
Dim lngFN As Long

ReDim btByte(5) As Byte

btByte(0) = &H4D
btByte(1) = &H54
btByte(2) = &H68
btByte(3) = &H54
btByte(4) = &H68
btByte(5) = &H64

lngFN = btByte
Open "C:\hogehoge.bin" For Binary As #lngFN
Put #lngFN, , btByte
Close #lngFN

End Sub

2020/07/08(水) 09:23:12.29

>>330
>>307 > 基礎になるソースさえ教えてもらえれば、そこに色々付け加えてって自分に必要なバイナリファイルが作れるんですよ。
もういいやろ

**３０１** (ﾜｯﾁｮｲ 2301-6wWl) · 2020/07/08(水) 09:32:29.70

つか、 FreeFile関数ってのがあるんですね　知らなかったw

**３０１** (ﾜｯﾁｮｲ 2301-6wWl) · 2020/07/08(水) 09:38:09.26

じゃあ、↓のドコが悪いんだろ？

Sub test()
Dim btByte() As Byte
Dim lngFN As Long
ReDim btByte(5) As Byte
btByte(0) = &H4D
btByte(1) = &H54
btByte(2) = &H68
btByte(3) = &H54
btByte(4) = &H68
btByte(5) = &H64
lngFN = FreeFile
Open "C:\hogehoge.bin" For Binary As #lngFN
Put #lngFN, , btByte
Close #lngFN
End Sub

2020/07/08(水) 09:40:18.98

>>332
つか、知らないことの方が多いくせに知ったかすんな

2020/07/08(水) 10:17:02.56

>>333
「どこが悪いんだろ」
ではなく、
「下記のソースで実行すると～というエラーが出ます。
　調べたところこのエラーの意味は～と理解していますが、～と修正したら今度は～というエラーが出ます。～～」
と言ったように、自分でなんとか解決したいという姿勢がないとサポートなんてしたくならないよ

本当は誰も君の相手なんかしなくてもいいんだ
君は人の時間をいただこうとしてることを考えること

2020/07/08(水) 10:25:36.83

みんなやさしいよね
どこまでも相手してあげてるんだから

2020/07/08(水) 10:37:36.28

ハゲてきました。
市販の育毛剤で試すとエラーが出ます。
調べたところミノキシジルタブレットが聞くと理解しましたが、それを買って飲んだら今度は心臓ドキドキの副作用がでて命が危険だそうです。
どうしたらいいでしょうか？

2020/07/08(水) 10:37:36.28

暇つぶしでしょ

2020/07/08(水) 10:38:40.26

時間丸被りとかあんのな

2020/07/08(水) 10:41:28.04

>>333
C:\に変なもの置くな

2020/07/08(水) 10:53:24.76

つーか動的配列にする意味あんの？

2020/07/08(水) 12:08:46.81

>>341
行間を読め