Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net

2017/05/16(火) 08:24:45.78

!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※前スレ
Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1489557874/

※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 125
http://echo.2ch.net/test/read.cgi/bsoft/1481369538/

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

2017/06/14(水) 17:02:48.98

処理というのがどのレベルなのか分からない。

Sub A()
処理A
B
End Sub

'処理B(Bプロシージャ自体が処理B)
Sub B()
'処理Bの内容
End Sub

とする場合もあれば、
全部の処理をそれぞれ別のプロシージャとして作り、メインとなるプロシージャでそれぞれをよび出す場合もある。
この場合はAからよび出すメインプロシージャやBからよび出すメインプロシージャを作ることになる。

2017/06/14(水) 18:56:34.83

>>764
1 処理A
2 処理B
3 処理C
　　：
　　：
のパターンと
1 処理B
2 処理C
　　：
　　：
のパターンがあるってこと？
それなら >>765 みたいにするか
Sub ABC_()
　処理A
　Call BC_
End Sub
Sub BC_
　処理B
　処理C
　　：
　　：
End Sub
ってやるとか

2017/06/14(水) 22:27:07.82

ありがとうございました

自分なりに考えたのは、どこかのセルにフラグを置いといて、
処理中に分岐させるというものでした

767さんがわかりやすいですが、>>765のやり方を勉強してみます

2017/06/16(金) 11:40:46.40

拡張For文とも言われる
For Each (オブジェクト変数) in (そのオブジェクトのコレクション)
の構文で、ときどきその(オブジェクト変数)の処理によってFor Each文でまわすコレクションのオブジェクトの順番や数が変わってしまい困っています。

例えば
For Each iCell in Activesheet.UsedRange
である条件のiCellのときにその直下に新しい行を追加したり
For Each iFile in TargetFolder.Files
でiFileのファイル名を変えようとした場合に(FileSystemObjectを使ってる)
発生しました。

こんなときは処理結果が意図したものと違ってぐちゃぐちゃになって困っています。
最初にFor Eachの行をマクロが通過したときに処理すべきオブジェクトは固定されないんですか？

2017/06/16(金) 12:07:15.60

For Eachで列挙される順番は、実装依存で保障はされてないはずだけど
普通は同じコレクションに対しては同じ順で帰ってくるよ

For Eachで列挙中にそのコレクションに対して変更した場合は、その列挙はどうなるか分からん
なので要素を増減させるような処理はFor Eachの中でやっちゃ駄目

2017/06/16(金) 12:11:25.66

ループ処理中に処理対象を変更したら当然おかしくなると思うが…

2017/06/16(金) 12:30:40.42

>>770-771
そんなことはアホなオレでもわかっとりますわ。

その上でそれを回避するような定番な方法や定石的手順の方法を知りたいのですが。

2017/06/16(金) 12:33:46.29

>>772
ループ内で対象を記録しておいて後で書き換えるとか
一時保管場所を作って蓄積してから元の場所へ戻すとか

2017/06/16(金) 12:39:06.98

>>773
しかしそれでも記憶させておくものは参照のメモリアドレスには変わりないと思うから
対処によってこの参照先が変わってしまい同じような意図しないぐちゃぐちゃな結果になったりしませんかね？

あとわからないのがFileSystemObjectでファイル名を変えただけで対象が変わってしまうのが不思議。
これは別に要素の増減でもなんでもないのに。

2017/06/16(金) 13:09:33.45

>>774
しませんかね？　と質問する前に自分でテスト環境作ってやってみるべき。

2017/06/16(金) 13:14:04.57

>>772
>その上でそれを回避するような定番な方法や定石的手順の方法を知りたいのですが。
For Eachを使わない
単純に減るだけならFor Nextで逆順に回すのが定番

あとはループ用に別の列挙（コピー）を用意するか

>>774
FSOがどんな管理になってるかしらんが、名前の変更ってことは
古い名前の削除＋新しい名前の追加だと考えれば不思議はない

2017/06/16(金) 13:24:05.09

そもそもActivesheet.UsedRangeなんだからシートに処理加えたら要素の数が変わるのは当たり前だろ
一回変数に入れたら困るわけ？
多分fsoのfilesも変数に入れたら固定されるんじゃねえの

2017/06/16(金) 15:36:15.71

ユーザーフォームのボタンをクリックしたとき、ある条件を満たせばボタンの背景色を変えてます。
CommandButton1.BackColor = "&HFF00FF"

ボタンの色を元に（ボタンのデフォルトの色に）戻すのに↓だとエラー（型が一致しません）。どうすればいいんでしょうか？
CommandButton1.BackColor = "&H8000000F&"

2017/06/16(金) 16:08:49.37

>>778
Debug.Print Typename("&HFF00FF")
Debug.Print Typename("&H8000000F&")

なんで""で括ってるの?

2017/06/16(金) 16:34:33.26

>>779
""は不要でしたか。たぶんどこかのサイトにそのような記述があったんだと思います。
↓でエラーなく色変わりますが""なくてもよかったのか。
CommandButton1.BackColor = "&HFF00FF"

debug.printの結果はstringでした。そりゃそうか。

2017/06/16(金) 16:41:13.41

>>779
あ、書くの忘れてました。
↓これの""を取ったらエラー出ず色がもとに戻りました。ありがとうございました。
CommandButton1.BackColor = "&H8000000F&"

2017/06/16(金) 17:59:38.04

>>778
&H～&は16進数だったかな

2017/06/16(金) 21:04:08.81

>>774
VBAのforeachは扱いづらいよね。
for each file in folder.files なんかは一度別の配列なりcollectionなりに入れちゃった方がindexが動かないから無難。
range.deleteやrange.insertは一度のループで処理しようとせずに、別にループを回すか、index降順でループするのが無難。

2017/06/16(金) 21:12:24.56

for eachとcells()は相性が悪い
cells().deleteを絡めると参照が変な位置に飛ぶ（気がする）。理由はわからん
deleteを絡めるならfor next step-1にしたほうがいい

2017/06/16(金) 21:13:11.64

>>778です。何度もすいません。
>>778の質問はダブルクオーテーションマークを削除して解決しましたが、
なぜ、CommandButton1.BackColor = "&HFF00FF"、はエラーが出ずにボタン背景色が変更され、
CommandButton1.BackColor = "&H8000000F&"、これだとエラーが出るのか教えて頂けないでしょうか？

2017/06/16(金) 21:14:43.63

>>785
エラーが出る方は桁数が多いからじゃね？

2017/06/16(金) 21:15:01.98

>>785
ちなみに、VBAはマクロの記録したものをネットで検索してちょっといじくる程度の初心者レベルです

2017/06/16(金) 21:20:26.65

>>774
VBA独特のnewの特殊な仕様や、
setする度に生成される謎参照
vbaのforeach中に要素数を増減させるのはやめた方がいい
俺も絶対にしない。単純に間違うし、なんで間違うかもわからんから

Sub foo()
Set a = Cells(1, 1)
Set b = Cells(1, 1)
Debug.Print (a Is b) 'falseになる。参照しているアドレスも違う
End Sub

2017/06/16(金) 21:20:57.72

>>786
"&H8000000F&"の方が文字数が多い（桁数が多い）というのはわかりますが、それでなぜエラーが出るのでしょうか？

2017/06/16(金) 21:22:35.82

>>785
CommandButton1.BackColor = "&H8000000F"
でどう?

2017/06/16(金) 21:24:07.49

>>789
コンソールで以下を叩いてみれ
? &H8000000F

2017/06/16(金) 21:25:32.82

>>789
色の取りうる範囲を超えた値だからかな

2017/06/16(金) 21:29:07.51

>>785
colorはlong型なので、右辺はlong型にキャストされている。
そんで、右辺=2147483663は、そもそもlong型の上限を超えているのでエラーになる。
まあその前に、色は256の3乗=16777216パターンなので、そこではねられてるかもしれない。

2017/06/16(金) 21:37:27.08

Debug.Print Typename(&H8000000F&)
Debug.Print Typename(Val("&H8000000F&"))

Longに見える文字列でも自動型変換では以前の型は考慮されないと思う。

2017/06/16(金) 21:43:40.45

>>794
typename(clng("&H8000000F"))
なんじゃね

2017/06/16(金) 21:49:00.55

>>795
それじゃLongになっちまうだろ。
"&H8000000F&"が型変換でどう解釈されたかを調べてるんだぞ。

わざわざ最後に&付けてLong指定してるのにどうしてDoubleになるのかと言えば&付いててもStringなんだから&は考慮されないと予想。

2017/06/16(金) 21:49:23.66

確認したら、
clng("&800000F") => -2147483633
でキャストは通るね。間違い書いてすんません。

2017/06/16(金) 21:51:25.40

そもそもエラーって何のエラーかわかってないんだが
何エラー？

2017/06/16(金) 21:52:52.22

>>798
Long型のプロパティにDouble型の値を代入しようとしたエラー

2017/06/16(金) 21:55:42.55

>>799
エラーメッセージにそう出るの？
エラーメッセージを解釈した結果？

2017/06/16(金) 21:57:25.30

.backcolorプロパティ内で範囲外エラーを返しているのかと思ったけど違うのかな？

2017/06/16(金) 21:58:00.70

>>800
解釈した結果
そのために>>794書いたつもり。

2017/06/16(金) 22:02:09.58

>>801
""取ったらエラー出てないし、エラーも型が一致していないってことだから。
まあ、同じことでしょ。

2017/06/16(金) 22:02:42.94

>>802
それだと本当はDouble型かLong型かわからなくね？
暗黙の型変換でlong型になってるかもしれない

colorプロパティはlong型みたいだし

2017/06/16(金) 22:25:40.96

>>804
Val("&H8000000F&")はDoubleだけど、
"&H8000000F&"を暗黙の型変換した場合はLongかも知れないということ?
だったらエラーは出ないんじゃね?

2017/06/17(土) 03:41:22.96

暗黙の変換やClng関数は、型指定文字があるとエラーになる
それだけ
ちなみにValは、型指定文字を無視する

試したけど
暗黙の変換でLongに収まらないときはオーバーフロー
型指定文字が入ってるときは型が一致しません
エラーの種類違うし

2017/06/17(土) 05:35:44.93

>>792 >>801
&H8000000F は RGB値ではなくシステムカラーだと思うのだけど?

システムカラー定数
https://msdn.microsoft.com/ja-jp/library/office/gg264801.aspx

2017/06/17(土) 05:54:42.06

>>807
"で囲ってない時はシステムカラー定数と認識されるけど
"で囲ってる時は型変換されてlong値になって値の範囲が不正になるのかな

2017/06/17(土) 06:26:45.69

>>808
"&H8000000F"は16進表現として認識てきて型変換してるけど

"&H8000000F&"は最後に& があるから文字列のままで　型変換してないんじゃないの?
なぜか皆さん型指定文字とみなしてるみたいだけど　おいらにゃそれが理解できない

**809** (ﾜｯﾁｮｲ e346-KEev) · 2017/06/17(土) 06:34:33.98

ちょっと補足
&H8000000F&
と書いたときの最後の& は型指定文字なのはいいんだけど
"&H8000000F&"
と書いたときの最後の& は型指定文字　ではないんじゃね? とおいらは思ってるって事

2017/06/17(土) 06:40:18.44

>>809
最後の&があると文字列のままで型が一致しないエラー
"を外すと最後の&が削除されてlong型になるね

2017/06/17(土) 06:43:47.67

おいら　って20年ぶりくらいに聞いた

2017/06/17(土) 06:46:10.05

最後の&が無いと"で囲ってても型変換されてエラーにならない

最後の&がエラーの原因だな

2017/06/17(土) 08:14:56.44

おいらの法則

2017/06/17(土) 08:22:33.99

シドロモドロ以来だな

2017/06/17(土) 19:37:25.20

>>813
それだと"&H8000&"でもエラーになる?

2017/06/17(土) 19:57:38.80

トランスポーズすると、2次元配列を1次元配列に変換できる!!
使い道は分からない!!
以上!!

2017/06/17(土) 22:12:46.54

>>816
同じ型が一致しませんのエラーになる

2017/06/18(日) 00:00:52.09

>>818
おお、じゃあ変換できないので文字列のままでエラーってことだな。

2017/06/18(日) 15:49:05.91

>>817
横に並んだデータをサクッと一次元配列にしたいときに使う

2017/06/18(日) 16:32:07.44

>>817
a. 2行2列を要素数4の配列にできる
b. 1行4列を要素数4の配列にできる
c. 4行1列を要素数4の配列にできる

どれが出来てどれが出来ないの？

2017/06/18(日) 17:09:23.21

Transposeは一列もしくは一行の場合は強制的に一次元配列する。
なお同じ機能の関数を自作しても処理時間は変わらない模様。

2017/06/18(日) 17:17:35.08

>>822
一行だったら二次元配列に変換されるよ

2017/06/19(月) 03:47:46.84

便利だから使ってたけど処理時間変わらないのか
それは知らなかった

自作関数書くよりはちょっとお手軽くらいに思っとけばいいのかな

2017/06/19(月) 12:09:46.78

WorksheetFunctionとかの一部の関数は処理時間見る限り全部VBAで書かれているか、あるいは同じレベルで実装されているみたい。
なんなら初めに条件を絞れる分、元から入っている関数よりも自分で書いた方が速い事もある。

2017/06/19(月) 13:25:12.20

すいません。
エクセル初心者です。
エクセルでハンゲームのオセロの棋譜を取得するツールを作ろうと
思ったのですがよくわかりません。
誰か作り方を教えてください。

2017/06/19(月) 15:14:07.46

>>826
その聞き方じゃ何もわからないし、君には無理だね

2017/06/19(月) 18:50:13.11

>>826
君のレベルに対してやろうとしてることのレベルが高すぎる
あとめちゃくちゃめんどくさい
素直に棋譜の取れるオセロゲームやったほうが良い

2017/06/19(月) 19:04:20.53

ダウンロードするだけとちゃうんか？

2017/06/19(月) 19:25:26.80

多少面倒くさくても頑張ろうと思います。
ご教授お願いします。
やる気はあります。
ヒントだけでもm(_ _)m

2017/06/19(月) 19:38:14.34

>>830
IEインスタンス作ってそこから中身引っ張り出して・・・
正直、内容がアホらしすぎて教える側にやる気が出ない

2017/06/19(月) 19:44:05.99

ありがとう。
IEインスタンスってものを作れば作れるんですか。
もう少し踏み込んだヒントをください。
お願いします。

2017/06/19(月) 19:45:57.34

え？ハンゲームやろ？なんで急にインスタが出てくるんや？

2017/06/19(月) 19:53:07.52

>832
この先は俺も知らないし、他の誰も知らない
インスタンスの中身を探っていけばその内見つかると思う

2017/06/19(月) 20:02:44.41

>>833
インスタンスを使わない手段もあるんですか？

>>834
ありがとうございます。
インスタンスを探してみます。

一つ質問ですが
インスタンスってなんですか？

2017/06/19(月) 20:21:11.16

ネタにマジレスすんなスルーしろよ

2017/06/19(月) 20:23:09.22

ネタ？
誰に言ってるの？

2017/06/19(月) 20:31:11.32

>>835
いや普通に考えて使わんやろ？
それとも俺が知らんだけでハンゲームの棋譜がインスタにアップされてたりすんのやろか？

2017/06/19(月) 20:33:24.35

>>838
よしよろしければインスタを使わない方法を御存知でしたら教えてください。

2017/06/19(月) 20:38:44.97

1)棋譜を君の脳内に取得して(記憶というw)
2)その脳内に取得した棋譜を手入力という手法を使ってexcelへ転記する
-完成-

2017/06/19(月) 20:44:19.79

>>839
まずハンゲームをダウンロードしたらええんとちゃうか？

2017/06/19(月) 20:47:27.35

ID:/dj/ZZBt0 ...

2017/06/19(月) 20:50:01.00

>>841
ハンゲームはダウンロード済みです。
ダウンロードしないとゲームができません。
その後はどうすればいいの？

2017/06/19(月) 20:57:49.05

>>843
ああそうなんかｗ知らんかったｗ
ハンゲームがあるんやったら次はおもむろに
wiresharkとかfiddlerを立ち上げて通信の傍受やろな普通は

2017/06/19(月) 21:30:02.75

一般に公開されてるデータじゃないなら無理
不可能

2017/06/19(月) 21:54:46.68

エクセルに詳しい方、回答お願いします。

2017/06/19(月) 22:03:15.20

>>846
一応いっとくけど、エクセルの問題じゃないからね

2017/06/19(月) 22:06:34.40

>>847
VBAってものを使えばいいんですよね？
それは承知しております。

2017/06/19(月) 22:06:40.01

>>846
ちなみにVBAはどの程度知っているのか？
Option Explicit って知っている？

2017/06/19(月) 22:14:02.70

そもそもハンゲームのオセロがどういうものかわからないし
たぶんUWSCあたりで盤面を画像処理で認識して記録していくのが一番手っ取り早いと思う
これなら調べながら誰でもできる

2017/06/19(月) 22:15:29.75

VBAはよくわかりません。
ただVBAを使えばなんでもできるという話を聞きました。
これから勉強しようと思ってます。
Option Explicitは聞いたことないです。

2017/06/19(月) 22:19:01.40

>>850
ハンゲームオセロの棋譜取得ツールは既に作って公開されてる方がいます。
画像認識で高速で打つオセロの棋譜なんかも取得できるものなのでしょうか？
公開されてるツールはVBAではありませんが、何か画像認識とは異なるようです。

2017/06/19(月) 22:19:42.57

>>851
完成目標　10年後くらいで勉強していけw

2017/06/19(月) 22:22:04.62

>>852
じゃあそれ使ってログを読み込めばいいだけじゃんｗ

2017/06/19(月) 22:28:44.54

>>853
10年かかっても勉強する根気はあります
VBAを始めるにしても具体的に何の勉強が必要なのか
そのヒントが欲しいです

>>854
ログを読み込むというのは別の人が作ったツールを使うってことでしょうか？
自分で作りたいのです。

2017/06/19(月) 22:29:24.47

釣りならvipでやれ

2017/06/19(月) 22:32:38.02

>>856
逆にお返ししますが
冷やかしならvipでやれ

僕は真面目に質問してます。

2017/06/19(月) 22:34:02.52

>>855
プログラミングの初歩から勉強しないといけないわけで。千里の道も一歩からなんで
とりあえずはVBAの入門書でも見繕ってそれを勉強していけよ。やりたいことはそういう基礎が
出来てからの話なんで

後、あまり続けけるとここの住人から怒られるよ（もう既に怒り始めてるけどｗ）

2017/06/19(月) 22:42:15.31

入門書は見たことがありますが
棋譜の取得方法が載ってませんでした

2017/06/19(月) 22:43:01.87

10年かかってオセロの棋譜を取得、結構面白かったｗ

2017/06/19(月) 22:47:50.75

>>859
そんなピンポイントに自分の希望するネタが載ってるかってのw
後、俺もコレに関しての書込みはもう止める

2017/06/19(月) 22:55:14.29

ピンポイントで載ってないのは知ってますよ。
これが最後の質問なのでどなたかマジレスお願いします。
オセロの棋譜を取得するには入門書の次はどの書籍で何を勉強すればいいですか？

2017/06/19(月) 22:57:30.40

まだやっとったんか
もう少しマジメにこたえてやろうか？

2017/06/19(月) 23:00:07.06

>>863
おねがいします

2017/06/19(月) 23:00:26.94

だからスルーしろって言っただろ…