19/02/23 07:16:01.49 F2VDrfwR0.net
>>425
その辺は仕方ない
C#やRubyやってる人がJavaは糞だって言ってるのと大差ない
437:デフォルトの名無しさん
19/02/23 09:04:33.17 Cm202fZQ0.net
>>425
エラーチェックは本当にな
これでforが無いって言われる。本当にないのはもちろｎendif
さすがにもう迷う事は無いけど、
初心者の頃は散々苦しめられた
Sub foo()
For i = 1 To 10
If True Then
Next
End Sub
438:デフォルトの名無しさん
19/02/23 09:20:01.07 CvvsLWYy0.net
エラーってコードのエラーのことか
実行時のことかと思った
439:デフォルトの名無しさん
19/02/23 09:21:13.09 Cm202fZQ0.net
あぁ、実行時エラーの可能性もあるか
あれはactiveにしてないsheetのcellをselectした時はハマったけどそれ以外は特に・・・
440:デフォルトの名無しさん
19/02/23 09:21:56.77 CvvsLWYy0.net
唯一（？）の短絡評価である Select Case のリストはクソだと思いながらたまに使う
441:デフォルトの名無しさん
19/02/23 10:29:43.91 AFk0uxx90.net
短絡評価ってなんですか？
442:デフォルトの名無しさん
19/02/23 10:35:04.36 sW0ZRaO0a.net
>>433
お前がGoogleの採用選考を受けても学歴で足切りされて職務経歴の中身すら見てもらえないだろ？
結果が決まってるのに余計な評価をするのはリソースの無駄だからだ
そのように、評価が確定した時点で残りの評価を省いて結果を出す戦略を短絡評価という
443:デフォルトの名無しさん
19/02/23 10:49:47.77 CvvsLWYy0.net
>>434
GoogleはOr評価かもしれないよ
444:デフォルトの名無しさん
19/02/23 11:44:31.84 AFk0uxx90.net
>>434
お前バカだな
Googleは学歴より経歴重視だよ
445:デフォルトの名無しさん
19/02/23 12:14:20.39 yEreZVJRM.net
>>436
低学歴にも凄い経歴の奴はいるが、高学歴の中にはもっと沢山いるんやで
採用のための人的リソース最適化問題に対する戦略として、学歴フィルタが有効であることは十分に証明されている
446:デフォルトの名無しさん
19/02/23 13:07:59.71 AFk0uxx90.net
>>437
履歴書と職務経歴書って同封して送られてくるんだから同時に見ればいいじゃん
それとも30秒くらいの時間を惜しんで職務経歴書読まずにお祈りするの？
大した戦略だねw
447:デフォルトの名無しさん
19/02/23 15:21:22.50 yEreZVJRM.net
>>438
学歴なら人が見る必要すらないでしょ
書類選考のコストは一桁違うかと
448:デフォルトの名無しさん
19/02/23 16:24:43.18 UPmGtBeI0.net
>>438
たかが30秒と言う奴は10,000件あったら何時間かかるかを考えてからレスしろ
449:デフォルトの名無しさん
19/02/23 18:43:00.90 AFk0uxx90.net
Googleはそもそも学位が必要ない時点でお前らズレてんだよ
450:デフォルトの名無しさん
19/02/23 19:03:21.30 FI/m1MnA0.net
うんむ
451:デフォルトの名無しさん
19/02/23 19:33:38.12 to9UN42C0.net
ただの例にここまで突っ込むか?
452:デフォルトの名無しさん
19/02/23 20:37:03.99 CvvsLWYy0.net
短絡評価の例としてはわかりやすかった
453:デフォルトの名無しさん
19/02/23 22:13:21.58 CTQXI+x50.net
配列をインラインで生成する方法でもあればいいのに
454:デフォルトの名無しさん
19/02/23 23:20:45.04 E54ZDPfM0.net
>>400
ブレイクは >>401
Continueは、Nextの前に例えば CONTINUE:とラベル付けて、Goto CONTINUE で代替可。
これで何も過不足ないし、意図を読めないやつは（周りに）いないので、しょっちゅう使ってる。
455:デフォルトの名無しさん
19/02/24 04:42:51.56 ZjoVn9Sx0.net
goto使うと負けた気分になるけどネスト深くなるくらいなら使う
456:デフォルトの名無しさん
19/02/24 10:14:59.06 PMakJCH00.net
>>445
そういう関数を作れば解決する話では？
457:デフォルトの名無しさん
19/02/24 11:16:37.13 x1+EfWpB0.net
昔から言われてるけどGoToとかExitみたいな無条件ジャンプはできるだけ使うべきじゃない
ループから抜ける条件が複数ある時は、条件判定部分を関数にして外に出せばたいがい解決する
458:デフォルトの名無しさん
19/02/24 11:20:53.15 UtSvB3y70.net
>>449
3重構造のFor文とかって、いちいち全部のFor文に条件を書くんか？
459:デフォルトの名無しさん
19/02/24 11:27:07.38 cR8EPyISM.net
下向き限定なら許す
バカみたいな脱出フラグ使われるよりよっぽどマシ
上向きgotoは死ね
460:デフォルトの名無しさん
19/02/24 11:31:30.55 UtSvB3y70.net
>>446
VBAにはなんでContinueがないんだろうな
これ、ほんとめちゃ不便だわ。 これのためにもgotoは使ってるわ。てか、必須になっている
461:デフォルトの名無しさん
19/02/24 11:34:47.34 UtSvB3y70.net
Forの3重構造の場合、例えば、i, j, kで回したとき、一番中の処理で、
i=10000
j=10000
k=10000
とか設定したら、全部抜けるという技は使ったことはあるが、Next k の次に処理があってNext jとかってなってるときは
やはりgoto を使うので、結局こういう技は使わなくなった
462:デフォルトの名無しさん
19/02/24 12:03:06.64 laz54YR/0.net
for、特に二重ループから抜ける時はgotoで良い
if flg then exit for
こんなもん何個もあったら余計見づらいし間違う
>>449
気持ちはわかるけど、どうしても>>450になって余計に見づらい
>>45
20年前の言語で全く進化してないからな
python2.x→3.xの悪夢を見た者としてはこれはこれで良い
463:デフォルトの名無しさん
19/02/24 14:56:48.98 eghZe4V2x.net
Case (i) ⊇ Case (j) ⊇ Case (k)....っていう感じの線形の包含関係が無条件に成り立たない限り、3次元以上のループ管理はややこしくなるだけだよな
464:デフォルトの名無しさん
19/02/24 15:43:11.74 Jr9LmcmNd.net
>>429
それに苦しめられたのはお前が悪い。
きちんとインデントする自分なりのルールがあればそんなことには最初からならない。
465:デフォルトの名無しさん
19/02/24 15:50:41.15 Jr9LmcmNd.net
三重のル―プで条件によって全部から抜けるって処理自体あんまり無いだろ。
設計が悪いんじゃないの?
466:デフォルトの名無しさん
19/02/24 16:01:32.16 laz54YR/0.net
>>456
＞それに苦しめられたのはお前が悪い。
どう見てもvbaのエラーチェックがしょぼすぎる
少なくとも>>429みたいなエラーチェックはあり得ない。あっても修正される
>>457
殆ど無いが、エクセルはそもそもがセルが行列の二次元＋シートの三次元
開いてるブックを含めれば四次元だけど、さすがにこれは無い
全シートもあんまりないけどな
全セル（usedrange）に処理をかけて特定条件で抜けるというのは何度かあるな
ただまぁ別に抜けんでもそんあに変わらないというのもあるけど
467:デフォルトの名無しさん
19/02/24 16:43:43.47 EsuDtWv80.net
エラーがわかりにくいという話に
エラーを出すおまえが悪いとマウント取りに行くプロ回答者
マウントがとりたくてやってるのか本当にただのバカなのかどっちなんだろ
468:デフォルトの名無しさん
19/02/24 17:14:34.21 PMakJCH00.net
まあでも多重ループから一気に抜ける方法がExit Function/Sub しかないんだから
ループを含む部分をサブルーチンとして切り出す以外あるまいよ
469:デフォルトの名無しさん
19/02/24 17:42:50.42 RNHs4bDba.net
ループを回す以上はループを回す理由があるはず
その理由をわかりやすい関数名にしてループを切り出す
途中で抜けたければExitする
470:731
19/02/24 17:45:18.70 DRTFUInr0.net
いや、doとfor組み合わせれば二重ループ、三重ループからも抜けれるよ。
実用性は置いといて。
471:デフォルトの名無しさん
19/02/24 17:54:50.07 +Nxplz4k0.net
>>454
N88さわってたからループからgotoするのは違和感あるわ
472:デフォルトの名無しさん
19/02/24 18:03:52.89 vPp3qwU80.net
>>459
ただのバカだと思うよ。
あの場合は明らかにエラーメッセージがおかしい。
でも、エラーチェックしてると2つ以上の原因（またはどちらかが間違い）が考えられる場合がよくある。
その時どうメッセージ出すかは、作る人（仕様）次第。
ちなみに、
If xxx Then Exit For
If xxx Then _
Exit For
If xxx Then
Exit For
End If
それぞれ意見はあるだろうが、無駄に行増やしたくないが、マルチステートメントもな… なので、自作では2番目をよく使う。（もちろん仕様で決まってるならそれ優先。賛否について議論はしない）
473:デフォルトの名無しさん
19/02/24 18:39:00.05 L3+XvQB40.net
いつまで経ってもほったらかしにされてるVBAが悪い
Pythonがどうたら言う話はどうなった
474:デフォルトの名無しさん
19/02/24 19:22:57.41 PMakJCH00.net
資産が多すぎて移行不可
475:デフォルトの名無しさん
19/02/24 22:11:47.76 Jr9LmcmNd.net
>>464
最後の奴を使う。
インデントで明らか。
というか、そんなエラーを出すこと自体無い。
が、もちろんスタイルの問題だから一番最初の奴を使おうが2番目のを使おうが問題無い。
エラー出してもすぐに分かるならな。
ちなみにその最後の奴ならIfとEndIfを書いてからExit Forを書く。For Nextの場合も中身は後だ。
染み付いてるんでね。
別にそういう書き方をすべきと言ってるんじゃない。
エラーにすぐ気付くなら何も問題は無い。
476:デフォルトの名無しさん
19/02/25 05:22:32.65 +5CiRMIi0.net
PythonAという新しい言語が誕生します
477:デフォルトの名無しさん
19/02/25 09:04:42.27 8UCufaEGM.net
VBAって遅い？
セルにもの入れると遅くなるって以外で全般的に。
478:デフォルトの名無しさん
19/02/25 09:16:19.92 RXoXH9qp0.net
>>469
遅い
どうしてもエクセルが枷になる
大規模な計算をしたいならvbaは避けたほうが無難
479:デフォルトの名無しさん
19/02/25 10:41:49.47 8lMUk5exM.net
純粋な数値計算部分は遅くはないんだけどね
シートアクセスが遅いのはまあ
480:731
19/02/25 12:13:02.41 lRskRR3f0.net
>>469
ようするにVBの部分の話か？
変数の大ニュースとかループとか、配列のメモリ確保とか
481:デフォルトの名無しさん
19/02/25 12:31:17.59 iOBpdHSUd.net
確かに遅いんだけど、遅いと言ってる奴の大半はそいつのコードに問題があるような気がする。
コード変えたら100倍速くなったとかざらだし、VBAが遅いせいでと感じることは殆ど無い。
遅い場合でも処理を考えたら仕方ないと思える場合が殆ど。
482:デフォルトの名無しさん
19/02/25 12:42:50.70 iOBpdHSUd.net
>>471
純粋な数値計算部分が遅いと思うよ。
だからAPI使ってマルチスレッドのコード書いても処理が追い付かなくなる危険性があるわけで。
ただ、そんなの遅いと感じるようなものじゃないし、遅さが気になったら自分のコ―ドを疑った方が良い。
483:デフォルトの名無しさん
19/02/25 13:56:48.78 avG/zv9MM.net
裏で動かせるなら、処理遅くても他の作業してればエエねん。
終わったら、アイコン点滅して教えてくれればエエねん。
484:デフォルトの名無しさん
19/02/25 17:45:36.59 +5CiRMIi0.net
javascriptとvbaをネストする方法ってありませんか？
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate ("URLﾘﾝｸ(kakaku.com))
中略
ie.navigate "javascript:var i; for(i=1;i<18;i++){page(i);}"
これで1から18までpage関数をまわすことができると思いますが
1ページごとに情報を抜き出すための処理をvbaで書きたいです。
対象のwebページはjapvascriptのpage関数を使ってしかページ移動ができません。
ちなみに対象ページは↓です
URLﾘﾝｸ(kakaku.com)
485:デフォルトの名無しさん
19/02/25 19:16:52.45 fA1JAyF+0.net
>>476
kakaku.comなら「この検索結果を友達に知らせる」から直リンの情報が得られて、そこにページ番号も書かれてるからVBAだけで全データを取得できる
486:デフォルトの名無しさん
19/02/25 19:23:27.43 v0J7eUlyx.net
javascriptでページ情報を適当な外部ファイルにダンプして後でvbaでまとめて読み込めば良いだけでは？
487:デフォルトの名無しさん
19/02/25 19:42:45.75 RXoXH9qp0.net
変なページはキーボードマクロでやったほうが手っ取り早い場合も
488:デフォルトの名無しさん
19/02/25 19:47:45.89 +5CiRMIi0.net
>>477
こんな方法があったんですね！
ありがとうございます
getの形で見ることができるんですね
これならfor文でまわせそうです
>>478
javascriptの知識がvbaの知識より薄くてできません・・・
>>479
その方法もありですね
勉強になります
ありがとうございます
489:デフォルトの名無しさん
19/02/25 19:50:39.60 lqq1zerAa.net
for i = 0 to 10
ie.navigate "javascript: page(" & i & ")"
vba_code_here()
next
490:デフォルトの名無しさん
19/02/25 20:05:06.80 +5CiRMIi0.net
>>481
これでもいけますね！
ありがとうございます
自分でも試してたつもりだったんですが&の端がシングルクオーテーションだったからだめだったんだと思います。
これでもネストできそうです。ありがとうございます。
491:デフォルトの名無しさん
19/02/25 22:06:28.97 U7AKD+aj0.net
フォームに張り付けたMediaPlayerプレイヤーのコントロールのプロパティが勝手に変わる謎のエラーが頻発。
どうもフォームのサイズを変更するＡＰＩがイタズラしているらしい。
こまかく切っていってようやくまさかの原因が解ったが対処方法わからずに対処療法してしまったがそれでも半日あまりを費やした。
よくわからないサンプルコード使うと謎のエラーが出てハマることを覚えた。
プログラマーってすごいな、これ毎日やってたらほんと禿げるわ。
492:デフォルトの名無しさん
19/02/25 22:14:43.73 RXoXH9qp0.net
>>483
＞よくわからないサンプルコード使うと謎のエラーが出てハマることを覚えた。
これやると一番時間を無駄にする
・サンプルコードをざっと眺めて全体の流れを把握
・APIの仕様をしっかり読む
・一からテストコードを書く
・APIもう一回読み直しながら、もう少し詳細に作り直し
・本番環境で書く
こんな感じ。仕様を把握してから書いたほうが絶対に早い
493:デフォルトの名無しさん
19/02/25 22:46:07.98 TP8zPbuZ0.net
>>448
オーバーロードってあったっけ？それに、ジェネリクスがないから全部の定義されてる型について生成しなきゃいけないから地獄なんだよ！リテラルで配列を生成できたらいちいちDimしなくてもいい
494:デフォルトの名無しさん
19/02/25 22:51:30.74 TP8zPbuZ0.net
ちなみに、望むシグニチャーはこんな感じ
' T = Generic
Public Function ArrayOf(/* vararg */ element As T) As Array<T>
どうせVBAは浮世離れしすぎてて書けないけどな！
495:デフォルトの名無しさん
19/02/25 23:00:26.05 F8HPsJ9/0.net
ジェネリックはないがヴァリアント型つかえば良いのだよ
無いものねだりしてもしょうがない
問題解決のためにあるものを使うだけ
496:デフォルトの名無しさん
19/02/26 06:28:56.69 QryMFy3y0.net
>>429
これ。面白いな。試していないが、頭から見て行ってまずForが出て来るのにForがないって言われるの？w
VBAも構文を修正するのはいろいろと問題があるだろうけど、こういうペリフェラルな部分では改良できるところは
いくらでも残ってるよねえ
497:デフォルトの名無しさん
19/02/26 06:39:06.54 QryMFy3y0.net
構文チェックくらいなら、どっかサードパーティが作ってアドオンとか出来ないのかな
xlsファイルの中からプログラム文ってテキスト抽出って出来ないんだっけ
498:デフォルトの名無しさん
19/02/26 06:56:12.34 Dl2cSn2NM.net
>>488
If～Thenでブロック作るからNext出て来たらForがないと見なされる
C言語とかはEnd IfとNextの両方が } なので発生しないけどイメージとしては
for(i = 0; i <= 10; i++)
if(true){
next
}
みたいな感じになってる
499:デフォルトの名無しさん
19/02/26 07:22:50.54 Dl2cSn2NM.net
>>489
やれるやれないという意味ならやれる
そもそも*.basとか*.clsとかにエクスポートしたらテキストファイルだし
セキュリティの設定はいるけどCOM経由ならそんなに難しくない
ただ>>429みたいなケースでわかりやすいメッセージを出すのは思ったより難しい
500:デフォルトの名無しさん
19/02/26 07:28:56.02 wxY2HVgtM.net
>>487の言うとおりだ
生成もジェネリックに出来ないが使う方の関数だってジェネリックは出来ない。
つまりVariant を避けてると型別定義地獄になるって事だ
501:デフォルトの名無しさん
19/02/26 12:32:40.78 5MxkS3P70.net
>>476-482
wget は簡易クローラーだから、これで複数ページをダウンロードすれば？
その後、vba で処理すれば？
まあ、適度に時間をおきながら、アクセスしなよ。
頻繁にアクセスすると、営業妨害で逮捕されるかも
502:デフォルトの名無しさん
19/02/26 17:27:28.56 8+gQOZAja.net
win10(64bit)にoffice2013(32)入れたら動作おかしくなったので
新しいoffice買ってきた
503:デフォルトの名無しさん
19/02/26 21:19:16.14 bIfQynSTx.net
bitsadmin.exeやPowerShellを使う手もあるな
504:デフォルトの名無しさん
19/02/26 21:29:55.31 7VOH1icT0.net
Variantか…型安全をぶち壊してる気がするけど…
505:デフォルトの名無しさん
19/02/26 21:52:08.87 3hFiWozk0.net
>>496
いいんだよ
型安全な汎用プログラムを書けない時点で、個別のプログラムを型安全にする気は失せるというものだ
506:デフォルトの名無しさん
19/02/26 21:57:39.80 tGZ/aMnha.net
>>493
有料のRPAツールを使ってもダメなんでしょうか？
507:デフォルトの名無しさん
19/02/26 23:46:14.88 VNg9bOSA0.net
暗黙の型変換が拡大縮小の両方に効く時点で型安全なんてあり得ないわけで
508:デフォルトの名無しさん
19/02/27 03:06:02.10 s/3R2a1B0.net
vbaで型安全ってなんのギャグだよ
Sub foo()
Dim bar As Long
bar = 1 & "0"
msgbox bar
End Sub
509:デフォルトの名無しさん
19/02/27 06:45:27.86 OKB4dgT5x.net
>>500
これって 1 & "0" のところが 1 + 0 と評価されて出力が 1 になるのか？
510:デフォルトの名無しさん
19/02/27 09:24:25.27 94mgNWr4H.net
数値を“”で括って連結させるって普通はやらないよな
もはやクレーマーの域
511:デフォルトの名無しさん
19/02/27 09:27:38.25 ev0DPtJU0.net
>>501
ならない。
---------------------------
Microsoft Excel
---------------------------
10
---------------------------
OK
---------------------------
512:デフォルトの名無しさん
19/02/27 10:08:05.65 TCTVEEoa0.net
>>502
アホはお前
513:デフォルトの名無しさん
19/02/27 10:14:24.05 94mgNWr4H.net
>>504
自己紹介かな？
514:デフォルトの名無しさん
19/02/27 10:21:18.29 TCTVEEoa0.net
>>505
本当、馬鹿は食いつきがいいな。エラーも起こさずに動くのが問題なんだよ。
馬鹿には難しいか？
515:デフォルトの名無しさん
19/02/27 10:48:04.11 hD6s3+cfM.net
&演算子が勝手に文字列に変換するのは利便性考えたらわかるし
Long型の変数に文字列代入する時に暗黙のキャストするのもわからなくはない
けど警告ぐらいは出してほしいね
516:デフォルトの名無しさん
19/02/27 10:48:12.18 94mgNWr4H.net
>>506
それはエラーであってほしいというお前の願望だろ
517:デフォルトの名無しさん
19/02/27 11:32:27.96 WN1Wln/+0.net
VBAにも当然、厳密な構文ルールは存在するだろう
数字 ＆ 文字列は文字列にするってのがルールじゃね。 一度覚えたらそれでいい
518:デフォルトの名無しさん
19/02/27 11:45:10.68 K1qNq431M.net
& が + に解釈されたらたまったもんじゃない
519:デフォルトの名無しさん
19/02/27 12:38:47.93 JcvtiT+vd.net
>>497
Variantは意識して使う。
型安全も意識する。
当然、暗黙の型変換でどうなるのかも意識して組んでいれば、そうそう問題になることもあるまい。
520:デフォルトの名無しさん
19/02/27 12:41:38.23 JcvtiT+vd.net
どんな言語でもツボは有るわけでね。
押さえてコードを書けない奴がアホなだけだろ。
初めて触った初心者じゃあるまいし警告なんて全く必要無い。
521:デフォルトの名無しさん
19/02/27 13:03:51.61 aJqXXkY2d.net
>>509
代入先が数値だろ
522:デフォルトの名無しさん
19/02/27 13:08:23.01 OA+HeXxoM.net
同じマクロを使っている複数の文書があって、マクロの一部を修正したいんですが、
別ファイルのモジュール内の変更を行うマクロは VBA を使って書けますか？
または、別ファイルのモジュールを削除（開放）してインポートする形でも構いません。
実際はワードでやりたいことですがワードVBAスレがなさそうなのでこちらで質問しました。
Norm
523:al を書き換えて対応するというのはできない前提です。
524:デフォルトの名無しさん
19/02/27 13:17:59.19 aJqXXkY2d.net
>>514
スレ一覧よく見てみろ。そういういい加減で他人にすぐ聞くからできないことだらけなんだよ。
525:デフォルトの名無しさん
19/02/27 13:19:02.81 K1qNq431M.net
ByRef x As Variant
526:デフォルトの名無しさん
19/02/27 13:19:50.19 94mgNWr4H.net
>>514
書けるよ
527:デフォルトの名無しさん
19/02/27 14:41:22.10 +oDGw9vfM.net
>>503
Option Explicit付けてもエラーにならないのかな？
528:デフォルトの名無しさん
19/02/27 15:47:12.82 WN1Wln/+0.net
>>510
お前は何を言ってるんだ？
& は文字の連結子だろ。 だから、文字としての1と0を連結したんだよ
>>513
代入先は数値だな。 文字処理をしてそれがVariantだからそれから数値変換したんだな
文字処理が優先なんだろ
529:デフォルトの名無しさん
19/02/27 15:48:15.94 WN1Wln/+0.net
＞それがVariantだから
すまん。これはなし
まあ変な構文ではある
530:デフォルトの名無しさん
19/02/27 16:29:49.69 K1qNq431M.net
>>519
だから連結じゃなく加算と解釈されたらたまったもんじゃない
と言っている
531:デフォルトの名無しさん
19/02/27 17:58:08.46 HrTieKXOM.net
>>507
& 演算子は文字列同士の連結だから
2 & 1 ⇒ "21"
"2" & 1 ⇒ "21"
2 & "1" ⇒ "21"
"2" & "1" ⇒ "21"
になる
逆に - 演算子は数値同士の引き算だから
2 - 1 ⇒ 1
"2" - 1 ⇒ 1
2 - "1" ⇒ 1
"2" & "1" ⇒ 1
になる
問題は + 演算子で普通は数値の足し算なんだけど両辺が文字列の時は文字列連結になるので
2 + 1 ⇒ 3
"2" + 1 ⇒ 3
2 + "1" ⇒ 3
"2" + "1" ⇒ "21"
になる
なのでVariant使っててA + Bとかやってると両方が文字列の時にはあ？ってなことになったりする
532:デフォルトの名無しさん
19/02/27 18:25:55.24 hD6s3+cfM.net
>>522
>"2" + "1" ⇒ "21"
&、-と合わせて考えるとめちゃくちゃ気持ち悪いなこれ
533:デフォルトの名無しさん
19/02/27 18:25:56.15 U+okKr8Fa.net
出力する時以外に文字列と他の型を演算させる需要ってあるか？
すごい変なプログラム書いてそう
534:デフォルトの名無しさん
19/02/27 18:31:15.76 hD6s3+cfM.net
>>524
Cells(1,1) + Cells(1,2)
とか気軽に書いて文字列セルなのに気づかず発狂するがいい
535:デフォルトの名無しさん
19/02/27 18:45:49.28 U+okKr8Fa.net
>>525
セルの値同士の計算をダイレクトにやろうとする発想にまず疑問を感じる
536:デフォルトの名無しさん
19/02/27 18:48:38.08 JcvtiT+vd.net
だから、型を意識してコード書かない奴は駄目なんだ。
あと、Cells(1,1) + Cells(1,2)じゃなくて、Cells(1,1).Value + Cells(1,2).Valueとすべき。
537:デフォルトの名無しさん
19/02/27 18:53:54.71 sssEi30aM.net
>>524
セル値が16進で、その値で計算させるとかかな。
昔はよく使ってたが、最近は使わなくなったな…
538:デフォルトの名無しさん
19/02/27 19:19:30.96 s/3R2a1B0.net
>>527
いや、そこじゃない
cellsのデフォルトプロパティがvalueな事ぐらい皆分かっている
valueの型がヤバイんだ
539:デフォルトの名無しさん
19/02/27 19:31:13.45 zqU1UpTE0.net
>>527
> だから、型を意識してコード書かない奴は駄目なんだ。
そんなのわかってるからいちいちマウント取りに来なくていいよ
世の中には変数宣言すらしないやつとかもいるし使い捨てコードとかもある
540:デフォルトの名無しさん
19/02/27 19:35:36.50 kQabADAE0.net
本当によくできたプログラムっていうのは変数がどんどん減っていくものだよ
541:デフォルトの名無しさん
19/02/27 19:49:19.80 J+jPuAvg0.net
やっぱVBAってクソだわ
542:デフォルトの名無しさん
19/02/27 19:52:19.85 Vhp/GCq70.net
>>532
と罵りたいだけが為にここに来るんだろ？ ﾌﾟ
543:デフォルトの名無しさん
19/02/27 20:02:27.43 J+jPuAvg0.net
やっぱVBAスレってクソだわ
544:デフォルトの名無しさん
19/02/27 20:17:03.40 INBREE+00.net
クソレスすんなプロさん
545:デフォルトの名無しさん
19/02/27 21:22:24.52 rA0fzWNE0.net
>>531
デバッグはやりづらくなるけどな
546:デフォルトの名無しさん
19/02/27 21:48:46.20 WN1Wln/+0.net
まあやっぱり、1 & "0" とか "2" + 1
とかが出てきたら、エラーで落とすのが普通だろうなあ
で、プログラマはそこで、Val関数で数値にするとか逆に文字列にするとか
やっぱり型変換、確認をプログラムの中に入れながら作るのが本来の筋だと思うわ
そもそもの構文を変えないのであればね
547:デフォルトの名無しさん
19/02/27 22:04:09.28 6/kMoeDHa.net
どうでもいいよ
所詮VBAだし
548:デフォルトの名無しさん
19/02/27 23:43:00.80 APPBNRQYM.net
>>538
そういうこと
549:デフォルトの名無しさん
19/02/28 00:41:55.86 ULaFt4eB0.net
質問です。お願いします。
public sub shuukei()
'集計してシートに書き出してそそのシートのコピーを別ファイルとして保存
end sub
↑
こういうコードを作りましたが、少しでも速く処理されるようにもっと工夫したいと思っています。
そこで、少し書き直しては速度に変化があるか確認したいのですが、コードの実行速度を
測る方法がわかりません。教えていただけないでしょうか？
public sub jikantest()
'計測スタート
call shuukei
'計測終り
msgbox かかった時間
end sub
↑
こんな感じでいちいち確認したいです。
550:デフォルトの名無しさん
19/02/28 00:46:39.13 3O1mZe4/0.net
>>540
dim st as single, ed as single
st = timer
(処理)
ed = timer
debug.print ed - st & "sec"
いつもこんな感じでやってる。
551:デフォルトの名無しさん
19/02/28 00:47:31.02 CZa6uBrL0.net
Debug.Print Now でもしとけ
552:デフォルトの名無しさん
19/02/28 00:51:18.30 ULaFt4eB0.net
>>541
ありがとうございました！
553:デフォルトの名無しさん
19/02/28 01:23:05.26 8R6HTxA70.net
変数の型はトレースの時だけでもシンタックスハイライトして欲しい。
それか左辺に合うように強制キャストで。
554:デフォルトの名無しさん
19/02/28 02:06:55.62 u4sOxAKE0.net
>>540
早くなってもわかりにくいのはやんない方がいいぞ
555:デフォルトの名無しさん
19/02/28 06:51:30.57 ULaFt4eB0.net
お恥ずかしい質問ですが、もうひとつお願いします。
私は、変数の中身でもなんでも、とにかく確認したいときはmsgboxを使うんです。
そのほうが楽だし。
でも、こういう場所で回答するような人のほとんどは、>>541-542さんのように、
debug.なんとか ってのを使いますよね？
よくわからないけど、debugって、msgboxとは違って、どこかのウィンドウに表示させるってことだけ
は知っています。
そして、msgboxよりも、そっちの方がなんとなく本格派っぽいことも感じてます。
みなさん、どうしてmsgboxよりそっちを使うんですか？本当にそっちが便利なんですか？
556:デフォルトの名無しさん
19/02/28 06:56:12.35 PI/gJuny0.net
>>546
msgboxだと毎回画面が出ちゃうから
557:デフォルトの名無しさん
19/02/28 07:04:09.83 TTqJ1VR80.net
Debugって俺も使ったことないんだが、過去何行くらいまで遡れるの？
それとその結果ってファイルに出力できる？
558:デフォルトの名無しさん
19/02/28 07:09:57.92 syDDbQ630.net
自分はstopとローカウルィンドウ派だな
559:デフォルトの名無しさん
19/02/28 07:10:06.15 3O1mZe4/0.net
>>546
OK押すのメンドいし、押したら消えるし。
Printならイミディエイトウィンドウにどんどん溜まっていくから比較しやすいし。
VBE上でCtrl+Gで呼び出せる。
コード書くときは常に表示してるな。
他にもいろいろ便利に使えるからGGってみて。
560:デフォルトの名無しさん
19/02/28 07:28:40.77 /X5EyKzha.net
debug.printなら開発画面を見ない他の使用者が
気付かないで済む
561:デフォルトの名無しさん
19/02/28 08:31:53.34 3CdGs56rM.net
>>540
ちょっと本格的にやるなら…
URLﾘﾝｸ(blogs.yahoo.co.jp)
注意！
中にも書いてあるけど使用時にコードを改変するから使うならバックアップはちゃんと取ること
562:デフォルトの名無しさん
19/02/28 12:28:10.25 wbPQJw42d.net
>>531
そうとも限らない。
速度の為に変数増やすこともあるから
563:デフォルトの名無しさん
19/02/28 12:32:41.06 wbPQJw42d.net
>>548
そんなに大量には残らないね。
1000行くらいか?
大量に残したいときは普通テキストファイルに書き出すだろ。
564:デフォルトの名無しさん
19/02/28 12:33:37.47 qWkUq+5ha.net
>>553
まああくまで傾向だな
システム開発に絶対はないから大まかに語るしかない
しかしまあプログラマって柔軟性がないから何か意見を言ったら必ず特殊な状況を想定して反論しようとする人が出てきて面倒くさいな
565:デフォルトの名無しさん
19/02/28 13:23:20.67 qor22oN3H.net
柔軟性がある人は出世するからね
566:デフォルトの名無しさん
19/02/28 13:59:45.70 TjDXn6TQM.net
>>555
後々のテスト工程考えてるからじゃない？
そこまで考慮しなくても…となる気持ちは分かる
567:デフォルトの名無しさん
19/02/28 14:20:36.03 x4ZPjfd7M.net
考慮すべき場面とするべきでない、しても意味がない場面の判断ができないとも言える
568:デフォルトの名無しさん
19/02/28 14:36:57.48 qor22oN3H.net
だから日本は開発が遅いんだよ
アジャイルでやれ
569:デフォルトの名無しさん
19/02/28 14:57:38.31 7AaSmpPf0.net
想定される状況なんか結局は本人にしか分からないし、説明すんのもめんどくさい
まあ本人が気付いてないこともあるけど
570:デフォルトの名無しさん
19/02/28 17:57:19.76 3CdGs56rM.net
>>555
決めつけで語って指摘されたら逆ギレかよ w
571:デフォルトの名無しさん
19/02/28 18:42:40.55 jqfgz8pY0.net
ーーここまで型変換関数なしーー
身内が意味がわかるっていうなら変換関数抜きにしてもいいかもしれない、けどコンテキスト的に関数噛ませたい
572:デフォルトの名無しさん
19/02/28 18:45:13.08 OctLDBwCx.net
Debug.Assertも割とよく使う
573:デフォルトの名無しさん
19/02/28 21:21:18.29 7AaSmpPf0.net
Variant使わなきゃいい
574:デフォルトの名無しさん
19/02/28 22:12:12.40 TWIU4lxdM.net
>>564
いやいやいやいや
ByRef As Variant
の意味論がわかってないだろ
575:デフォルトの名無しさん
19/02/28 23:20:59.71 JVzuLoidx.net
Variant型がないとそれはそれで不便
実行時にならないと変数の保持データの参照型やデータ構造が決定できないような関数を定義するときには必須
Object型では限界があるし、多態性とか考えたら特に
576:デフォルトの名無しさん
19/03/01 00:53:35.24 oijdm3qva.net
VBAにもInterfaceがあるの知らない人かな
577:デフォルトの名無しさん
19/03/01 08:24:19.03 KSyELWIpd.net
だから意識して使うぶんには良いんだよ。
Variant配列で高速化は良くやるだろ。
あるいはあえていろんな型を受け付ける関数を作る場合とか。
俺はInteraceはあまり使わんね。
同じプロパティを持ったクラスを複数作ってグループとして使う場合でもそこまでしなくて良いだろと考える。
578:デフォルトの名無しさん
19/03/01 08:58:16.79 IB7Yh9y1a.net
プログラムの基本的な良い習慣を実践すればVariantなんてそう使うことはない
使うとしてもシートIOなど僅かな用途だけだから業務ロジックまで影響することはまずない
579:デフォルトの名無しさん
19/03/01 09:03:46.13 BWIoX5Sk0.net
プロ雑談者どものくだらん蘊蓄語り合いなんぞどうでも良いから質問者の方々は
遠慮なさらずにどうぞ～
580:デフォルトの名無しさん
19/03/01 12:55:03.48 3XNO5Z9qM.net
コードって色々書く場所あると思うんですけど、ある程度共通の切り分けってあるんですか？
フォームにはあまりややこしいものはかかないで標準モジュールを使うとか。
逆にフォームで書けるものは複雑でもそこで終わらせたほうがいいとか。
今迷ってるのはシート1のデータを加工してシート2のデータにマージさせる場合どこに書けばいいんだろうってことです。
そのシートごとに別けるとバラけて解りにくくなるしみたいな感じです。
581:デフォルトの名無しさん
19/03/01 13:04:09.15 SCR8DJeBM.net
所詮VBAだしどうでもいいよ
VBAの可読性・保守性を高める唯一の指針があるとしたら、極力VBAを書かないでワークシートの機能を活用することかな
582:デフォルトの名無しさん
19/03/01 13:26:59.89 HgS5037SH.net
>>571
標準モジュールに Sub MergeSheet1To2 とか作ってCallすれば、他人が処理部を見なくても「このボタンを押すとマージされるんだなぁ」と想像ができる。
自分はフォーム内は処理に使うデータのチェックくらいにしてる。
583:デフォルトの名無しさん
19/03/01 14:04:11.91 +h/xS+gL0.net
フォームモジュールって細々としたイベントのプロシージャであふれちゃって見にくい
だからできるだけ標準モジュールに切り分けてる
例えばフォーム上の複数のTextBoxに全く同じ入力規則を設けたい時なんかは
TextBox・KeyCode・Shiftを引数とするプロシージャを標準モジュールに書いて使い回ししてる
さっきもそういうの書いてた
584:デフォルトの名無しさん
19/03/01 17:47:45.49 jYXMQwAma.net
>>571
シート1 IOクラス
シート2 IOクラス
コンバータークラス
マージサービスクラス
585:デフォルトの名無しさん
19/03/01 18:53:01.98 KSyELWIpd.net
>>571
そのフォームで完結させたい時はフォームに全部書く。
汎用的なのは標準モジュール、汎用的でなくてもいろんな所から使い回す場合も標準モジュールだな。
シートモジュールにはシートのイベントプロシージャ以外書かないのが基本だけどそのシートのイベントプロシージャと一緒にしたい理由でシートモジュールに書くこともある。
意味論というか、何処に書くかは内容で決める。その方が後でコード見る時に視認性も良くなる。
586:デフォルトの名無しさん
19/03/01 20:10:20.22 9ceAGmrya.net
俺ならスコープで書く場所変えてる
587:デフォルトの名無しさん
19/03/01 20:18:09.30 S/p2I5Nx0.net
シート１だけでしか使わない関数はシート１
その関数の中で使う関数で他でも使う汎用関数は標準モジュール
シート１のデータを加工ってあるが、それが将来にでも他のシートでも使いそうならその加工関数は汎用化して
標準モジュール。 シート１でしか使わないのならその加工関数はシート１に書く
588:デフォルトの名無しさん
19/03/01 21:39:17.32 41cCIQF20.net
上級者の人がどう使っているかなんとなく解ったような気がします。とりあえず
【クラスモジュール】汎用性のある関数
【標準モジュール】 大きな処理
【シートモジュール】【フォーム】極力使わないが他と絡まない短いコードなら完結しても良い
という感じで試してみようと思います。
あとは関数名の最後に呼び出しする関数がある場所を付けてみようと思います。
何をやりたいかで構成も変わると思うのでそこらへんも加味しながら試してみます。
参考になりました、ありがとうございます！
589:デフォルトの名無しさん
19/03/01 22:34:27.56 KieDV9lDM.net
ここに上級者なんていないぞ
590:デフォルトの名無しさん
19/03/01 22:48:58.94 eQhW3/JV0.net
>>579
関数名の最後になにを付けるって？
591:デフォルトの名無しさん
19/03/01 23:05:06.38 jYXMQwAma.net
また一人、道に迷ってしまった
やっぱりVBAで勉強するのは非推奨ダナ
592:デフォルトの名無しさん
19/03/01 23:30:05.02 zWZoP6hm0.net
>>546
俺もmsgbox。
イミデは、知らないうちにウインドウが消えちゃうから。
プロパティもそう。
何で勝手に消えるんだろ。
593:デフォルトの名無しさん
19/03/02 01:21:31.95 Po9hNmd9x.net
>>579
汎用性のある関数を記載する場所だけど、VBAの仕様ではクラスモジュールではなく標準モジュールの方が都合が良いよ
何故なら自作のクラスモジュールに記述した関数を呼び出す場合、その自作クラスのオブジェクトのインスタンスを生成した後にそのオブジェクトのメソッドとして書くという手間が要る
つまりマシンメメモリの無駄食いになるしコーディング量も増える
標準モジュールならば関数名を書くだけで呼べるので余程気楽
適当にググったときに出てくる、OOP原理主義のJavaプログラマあたりが言うところの「汎用性のある関数はクラスに」っていう考え方は、VBAには当てはまらないので注意だよ
594:デフォルトの名無しさん
19/03/02 02:50:08.40 eoNuxzNL0.net
>>572
ワークシートなんて可読性最悪じゃん
セルには数式が1つしか書けないし条件付き書式も内容を確認するのが面倒
条件付き書式が設定されてる範囲を視覚化する方法ってないよな？俺が知らないだけ？
595:デフォルトの名無しさん
19/03/02 03:08:30.41 vHLv5v7t0.net
>>585
数式タブ→数式の表示
596:デフォルトの名無しさん
19/03/02 09:24:48.87 Po9hNmd9x.net
>>572
>>585
可読性を高める唯一の方針とは言わんが、正直下手に変数にブックレベル以上の参照スコープを持たせて値やオブジェクトを操作するくらいならワークシートの機能を使った方がよくねって場面はいくらでもあるな
エラーとかでプログラムが停止したときにセル値と違って変数に格納された参照ポインタは揮発するし
597:デフォルトの名無しさん
19/03/02 09:34:34.03 heck9gfNa.net
ワークシート関数の何が良いかというと副作用がないことだよ
ぶっちゃけ重要なのはそこだけ
それ以外ではセル内にだらだら式を書くと醜いなどデメリットしかない
なのでVBAで普通に副作用がない関数を書けばいい
副作用のない関数ならVBAからもセル内式からも使いやすい
しかもセル内式と違って見やすく管理しやすい
598:デフォルトの名無しさん
19/03/02 09:47:47.22 Po9hNmd9x.net
VBAの方が見やすくて管理しやすくてワークシート関数は見にくいって図式が成り立つかどうかは正直処理を書くやつのスキル次第だけどな
ワークシート関数は必ず内部スコープが()で括られるリスト形式だから、処理構造が簡潔に可視化できるメリットがあるとも言えるわけだし
599:デフォルトの名無しさん
19/03/02 10:15:37.68 VydunwR60.net
自分は>>572とほぼ正反対のやり方でやってきた
シートは使い捨てのデータとちょっとした設定情報を置いたり、あとは結果を出力する場所としてしか使わないな。
使い捨てのは別だけど、ツールとして繰り返し使うブックのシートに関数はほぼ書いてない。
600:デフォルトの名無しさん
19/03/02 10:26:10.19 heck9gfNa.net
>>589
セル内数式はネスト入るとすぐに醜くなるじゃん
それに式に名前をつけて管理できないのもメンテナンス性を悪化させてる
601:デフォルトの名無しさん
19/03/02 10:34:03.78 1SfH4HCRa.net
>>591
式に名前を付けたければ単一値ならセルに名前付けりゃいいし、ベクトルならテーブルにしてカラム名付けりゃいい
VBAで関数自作してもいい
VBAの中でループぶん回すよりは遥かに見通し良いわ
602:デフォルトの名無しさん
19/03/02 10:46:06.68 heck9gfNa.net
>>592
そもそもセル名前自体が管理しにくいので論外
セル名と数式の関係性がパッと見てわからないし
セル名と数式がひも付けられて管理されてると言われなきゃ後任が気付かない
VBA関数ならこの関数名はこの定義って誰でも一目でわかる
本来の出力でない余計なカラムはノイズになって邪魔
名前で管理したい項目が増えたらノイズだらけになってなにを説明したい表なのかわからなくなる
603:デフォルトの名無しさん
19/03/02 10:57:15.96 ZJ+HN4z+0.net
visual studioに慣れ切ってしまってるのでVBAエディタがマジで苦手・・・
604:デフォルトの名無しさん
19/03/02 11:26:41.59 PSsyx6QoM.net
>>593
VBAでワークシート関数を作るのは否定しないよ
最悪なのはワークシート関数(VBA含む)でできることをVBA内でループ回す馬鹿
605:デフォルトの名無しさん
19/03/02 11:40:34.50 heck9gfNa.net
>>595
こ文脈でループを回すの意味がわからないしどっから出てきて何を意味してるんだ？
606:デフォルトの名無しさん
19/03/02 13:55:25.27 WupyvY1Q0.net
話変わるがセルのコピーとか移動したときに条件付き書式が壊れてやたら重くなって直すの苦労したことある
607:デフォルトの名無しさん
19/03/02 15:18:36.62 EfeqCtIS0.net
お前らまず、
ワークシートの機能を活用する
というのをどういうことかちゃんと合わせてから話してくれるか
608:デフォルトの名無しさん
19/03/02 18:22:41.70 BmvnLX83x.net
>>598
ワークシートの機能ってのはワークシートの機能一般のことでしかないだろ
ワークシートの特定の機能を想定して話をしてるんじゃない
ワークシートの機能を使えば事足りる処理をわざわざVBAのスクラッチでやろうとするのは車輪の再発明の極みだという話
609:デフォルトの名無しさん
19/03/02 19:24:09.91 PK2Geudt0.net
ワークシートって言いすぎww
Withでまとめたくなってきたわ。
610:デフォルトの名無しさん
19/03/02 19:30:50.79 6n8BrDHBH.net
With ワークシート
.の機能ってのは
.の機能一般のことでしかないだろ
.の特定の機能を想定して話をしてるんじゃない
.の機能を使えば事足りる処理をわざわざVBAのスクラッチでやろうとするのは車輪の再発明の極みだという話
End With
611:デフォルトの名無しさん
19/03/02 20:23:41.79 VydunwR60.net
ワークシートの機能って単独のワークシート関数で実現できることなの？
それをVBAでやるのは確かに馬鹿らしい。
そうじゃないならVBAのほうがいいな。
612:デフォルトの名無しさん
19/03/03 01:17:47.50 5kU0Dorz0.net
>599
だからワークシートの機能一般ってなんのことを言ってるの？
セルの計算式?
計算式用のワークシート関数？
Application.WorksheetFunction？
613:デフォルトの名無しさん
19/03/03 03:16:39.28 1gVEOeax0.net
VBA以外のExcelで出来ること全てだろ
理解力低過ぎないか？
614:デフォルトの名無しさん
19/03/03 11:57:08.93 XBWTxj+a0.net
なんでVBAを外すのか分からない
このスレにいる連中ならワークシートにはイベントも含まれるという感覚の方が普通でしょ
615:デフォルトの名無しさん
19/03/03 12:44:05.38 87SKey7q0.net
シートを方眼紙だと思っている人の視点での機能一般だろう。
ここの人たちは、クラスモジュールの1つくらいの感覚かもしれんが。
616:デフォルトの名無しさん
19/03/03 14:18:18.29 ilhG1tLW0.net
そこはかとなく臭うというか湧き出るダサさが嫌い
617:デフォルトの名無しさん
19/03/03 18:57:15.36 dGd12yAna.net
EXCELの全ての機能のうちVBAを除いた残りってことじゃね
618:デフォルトの名無しさん
19/03/03 19:26:33.74 2dKZwCIHx.net
エクセルのオブジェクトモデルでメソッドが提供されてるような機能をわざわざVBAでスクラッチするなって意味もあるんじゃね
ListObjectオブジェクト(テーブル)の存在や機能を知らずに、同一列内のセル数式ほコピーの機能を自作するような話だろ
619:デフォルトの名無しさん
19/03/03 20:55:07.59 C10iXUczM.net
初心者です。わかる方いましたらお教えください。
IE.Visible = False
として、
IE.Quitが何らかの理由で実行されなかったり、それを書かなかった場合
どうなってしまうんでしょうか…？
バックグラウンドでずっとフワフワといるんでしょうか？
見方もよくわからないタスクマネージャーで見てみるとアプリケーションとしてはたぶん起動されていませんでした…
IE.Visible = Falseとした場合はもしかして特に閉じる指示が必要ないのでしょうか…？
620:デフォルトの名無しさん
19/03/03 21:00:52.17 sl8Y8jOC0.net
>>610
バックグラウンドでずっと動き続ける、が正解
ちゃんと起動してないのはコードがおかしいかタスクマネージャの見方がおかしい
そこをTrueに変えるだけでちゃんとIEのウィンドウが表示されるか確認
621:デフォルトの名無しさん
19/03/03 21:44:32.70 C10iXUczM.net
>>611
Trueに変えるだけで表示はされたので、タスクマネージャーの見方がおかしかったようです
ちゃんとバックグラウンドなんとかの欄では起動されていました
ありがとうございました…
622:デフォルトの名無しさん
19/03/04 09:46:01.18 TvaJY4yu0.net
関数使うかVBA使うかも内容で決める。
関数だと物凄く重くなることがある。
Sumproductとかを多用した場合とか、複数シートの集計を1日の集計としてさらに1ヶ月分の集計するとか。
自動計算を切れば良いんだけど、運用で微妙だね。
それに昔、銀行の仕事で大量のデ―タとSumproductのせいで1回の計算でさえいつまでたっても終わらないことがあった。
その時はVBAに書いたら5秒で終わった。
623:デフォルトの名無しさん
19/03/04 10:53:05.90 RuY9YBtCM.net
ワークシート関数を関数と表現するのってUSBメモリをUSBと呼ぶのと同様にアレな感じ
624:デフォルトの名無しさん
19/03/04 10:55:32.34 TFGUk6BN0.net
その違和感を持てる知識がない頭が残念な人なんだろ
625:デフォルトの名無しさん
19/03/04 11:15:22.83 gwy/L6iPH.net
WorksheetFunctionプロパティで呼ぶもの（sumとかvlookupとか）がワークシート関数
VBAでしか使えないもの（CIntとかInstrとか）がVBA関数
上記と自作関数をまとめて関数
626:デフォルトの名無しさん
19/03/04 11:25:35.49 vFn2j9Kt0.net
＞VBA関数
標準関数だろう
エクセルの場合はVBA標準関数とでも言うべきか
＞自作関数
ユーザー定義関数という名称がある
まぁ俺は関数としか呼ばんけどな、ﾊﾊﾊ
vbaでワークシート関数使う時はそう呼ぶ
627:デフォルトの名無しさん
19/03/04 11:45:46.92 gwy/L6iPH.net
>>617
628:デフォルトの名無しさん
19/03/04 14:30:16.31 TvaJY4yu0.net
関数とVBAと対比させてるのに勘違いする奴がいるとはとても思えないが。
いたらそいつはアホだよ。
629:デフォルトの名無しさん
19/03/04 14:32:37.46 TFGUk6BN0.net
>>619
馬鹿が恥の上塗りに来ましたよ、と
630:デフォルトの名無しさん
19/03/04 14:57:43.98 TvaJY4yu0.net
>>620
あらら、アホが恥の上塗りに来たよw
631:デフォルトの名無しさん
19/03/04 15:02:35.15 vFn2j9Kt0.net
vbaだし何でもええやろ
どうせ大事に至ることはない、争う程の事ではない
632:デフォルトの名無しさん
19/03/04 15:28:20.01 TFGUk6BN0.net
>>621
馬鹿はVBAに関数がないと思っているのか？
馬鹿は早く死ねよ
633:デフォルトの名無しさん
19/03/04 16:20:08.03 RuY9YBtCM.net
「文脈上USBメモリのことであるとわかるときはUSBでいい」
「そもそもそんな呼び方普段からするなよ」
634:デフォルトの名無しさん
19/03/04 18:20:48.65 FDpjfwBmM.net
わかるかどうか判断するのは読み手側だからな
書く側が勝手に略すのは読ませる気がないんだろう
635:デフォルトの名無しさん
19/03/04 23:23:23.24 dF1M3atd0.net
そういえばCD-ROM2をロムって呼んでたやついたな
これSUPER CD-ROM2だから
636:デフォルトの名無しさん
19/03/05 00:24:00.61 YDI1bFmR0.net
ID:TvaJY4yu0みたいな馬鹿がメンテできなくなるVBAを作る
637:デフォルトの名無しさん
19/03/05 00:37:29.46 yUBkGE+g0.net
jsのAPI使える人いる？
使い方がサッパリ分からない
URLﾘﾝｸ(docs.microsoft.com)
URLﾘﾝｸ(docs.microsoft.com)
638:デフォルトの名無しさん
19/03/05 03:34:27.88 VDry4yCPa.net
馬鹿には無理
639:デフォルトの名無しさん
19/03/05 05:56:45.90 pou1Iepn0.net
>>628
見てきたけ
640:ど、なんかすげえめんどくさそう。出来ることも見新しいことってほとんどないじゃん 普通のWin32APIとかやったことあるのか。そっち勉強した方が遥かにまし。 VBAでもやれるから
641:デフォルトの名無しさん
19/03/05 07:48:42.24 VSxyPtP8a.net
いやMacとかOffice Onlineで使えることに意味があるんだろ
まあOffice Online使うくらいならGSuite使うという企業が殆どだろうけどw
642:デフォルトの名無しさん
19/03/05 08:12:27.21 yUBkGE+g0.net
>>628
はこういう事だった
誰も使ってないのね
URLﾘﾝｸ(qiita.com)
>>629
自己紹介乙
>>630-631
もちろんやれることは同じ
jsで書ける事自体がメリット
googleSpreadsheetのマクロを移植する時に使える
一生に一回もないと思うけどな
643:デフォルトの名無しさん
19/03/05 08:56:53.06 K5flI6jox.net
Win32APIとOffice JavaScriptAPIどっちを勧めるかと聞かれたら今なら後者かな
後者の案件あるのか知らんが
644:デフォルトの名無しさん
19/03/05 12:20:11.68 IGhfqt8ja.net
そもそも全くの別物を比較してどうすんねん
645:デフォルトの名無しさん
19/03/05 12:44:55.98 bZMGULjeF.net
>>623
日本語が理解出来ないようだな。
VBAと関数を対比させているんだからここで関数と言ってるのは"VBAの関数"のことでは無いと解釈するのがまともな日本人だ。
>>624
???
それは日本語として変だ。
USBメモリはUSBでは無い。
VBAの関数は関数ではある。
そもそもの例が適当でないわけだ。
>>625
文脈や、やり取りでVBAの関数なのかワークシート関数なのかを判断する必要があるのは>>66、>>142、>>172も一緒だ。
お前らと違って普通の日本人は文脈ややり取りから判断出来てるんだよ。
>>614のようなことを言い出すのはお前らのような頓珍漢な奴らだけだよ。
646:デフォルトの名無しさん
19/03/05 12:47:21.71 bZMGULjeF.net
>>142、>>186、>>448
も文脈で判断するな。
647:デフォルトの名無しさん
19/03/05 12:51:32.81 bZMGULjeF.net
>>634
正にその通り。
Win32APIではじめて出来ることがjsで出来るなら分かるけどね。
648:デフォルトの名無しさん
19/03/05 13:01:00.32 yUBkGE+g0.net
>>634
あぁやっぱりそうだよね
知識不足かと思って調べてしまったわ
649:デフォルトの名無しさん
19/03/05 13:14:26.63 YDI1bFmR0.net
ID:bZMGULjeF
マジモンのアスペルガーのキチガイ
650:デフォルトの名無しさん
19/03/05 13:18:51.34 yUBkGE+g0.net
jsアドインもう少しぐらい使われてるのかと思ったけど、
誰も使ってないようで安心した
651:デフォルトの名無しさん
19/03/05 13:32:20.37 YOwkwz810.net
Excel Python API とかも Excel.js Office.js とかと同じ扱いになる悪寒
652:デフォルトの名無しさん
19/03/05 13:36:30.59 yUBkGE+g0.net
>>641
ｹﾞｪｯ
vbaはこの手軽さが最強の武器なのに、VSからアドイン作成とかあまりに残念すぎる
653:デフォルトの名無しさん
19/03/05 20:23:23.29 ruLmgCaM0.net
>>639
これだからアホは困る。
お前、出版社にはクレーム入れるなよw
URLﾘﾝｸ(www.amazon.co.jp)関数
654:デフォルトの名無しさん
19/03/05 20:34:12.08 ruLmgCaM0.net
URLエンコードしてなかったな。
URLﾘﾝｸ(www.amazon.co.jp)
655:デフォルトの名無しさん
19/03/05 20:39:11.81 yUBkGE+g0.net
逆引き系辞典はネットあると本当に使わない
656:デフォルトの名無しさん
19/03/05 21:11:49.71 WmyrgrGT0.net
会社で異動になった人が作ったマクロの稀に出るバグを直そうと頑張っています。
ちょっと怪しいかなと思ったプロシージャがあるので見にくく長いと思うのですが見て頂けませんか？
勉強しながらの初心者です。
Sub wait(IE As InternetExplorer)
Const リトライ = 2
Dim IEDOC As HTMLDocument
Dim ReCount As Long,i As Long
Do
«略»
Set IEDOC = IE.Document
«略»
Loop While IEDOC Is Nothing
If IEDOC.frames.Length < リトライ Then
ReCount = リトライ
Else
ReCount = IEDOC.frames.Length
End If
For i = 0 To ReCount
Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Next
End Sub
このあとすぐに書き込みに参ります
657:デフォルトの名無しさん
19/03/05 21:26:50.63 WmyrgrGT0.net
オレンジの部分がIE.Busy = Trueという風に教科書通りになっていないのですがこれで大丈夫なのでしょうか
上手いことちゃんとなっているか調べようとやってみましたが私には難しかったです
そして水色の部分なのですが、フレーム数を取得してその数だけ念の為回しておくという感じでしょうか
フレームがいくつかあると取得のたびにIE.BusyがTrue,Falseに切り替わると聞いたのでそのためで合っていますか
それよりもさっき調べて出てきた
'完全にドキュメントが読み込まれるまで待機する
Do Until IE.document.ReadyState = "complete"
DoEvents
Loop
ではダメなのでしょうか、別物でしょうか
ざっとみておかしい部分はありますか？
図々しくすみません
URLﾘﾝｸ(i.imgur.com)
658:デフォルトの名無しさん
19/03/05 21:32:38.87 WmyrgrGT0.net
どういうマクロかと言うと、IEを開いてリンクボタンをいくつか押して文字を引っ張ってきてIEを閉じるというのを何度か繰り返すものです。
リンク先を正しく閉じられていないまま次の回転に入っていることが稀にあるのです
659:デフォルトの名無しさん
19/03/05 21:58:09.97 yUBkGE+g0.net
>>646
別物だな
>>646はvbaオブジェクトのプロパティ
WebBrowserControl.ReadyState
URLﾘﾝｸ(docs.microsoft.com)
>>647はwebのapi
Document.readyState
URLﾘﾝｸ(developer.mozilla.org)
どっちが信用できるかは分からない
どちらにしてもIEオブジェクトがどこまでwebの技術に対応してるか分からない。難しい
かなり雑な解決策としては、
＞リンク先を正しく閉じられていないまま次の回転に入っている
とりあえず必ず開いていると仮定して、最初に閉じる処理を噛ませばいいだけな気もする
あと個人的にだけど、untilはあんまり好きじゃない。「否定の否定」が出て来ないように注意した方が良い。あれは読みづらくなる
とりあえず応急処置として、併用してみてはどうかな。うまくいくかどうかはわからない
Do While IE.Busy Or _
IE.readyState <> READYSTATE_COMPLETE Or _
IE.document.readyState <> "complete"
DoEvents
Loop
660:デフォルトの名無しさん
19/03/05 23:41:58.62 b71Efr460.net
IE11からreadystateもbusyも使えなくなったとかどこかで見た
利用出来ないという意味ではなくて使い物にならないという意味で
なので移動後に表示されるタブ見つけたら、とか移動後に表示される文字列を見つけたらという条件で対処してるわ
661:デフォルトの名無しさん
19/03/05 23:46:48.59 yUBkGE+g0.net
ここでもIEかよ・・・
662:デフォルトの名無しさん
19/03/05 23:57:28.83 AE45wcOz0.net
逮捕されないように気をつけろ
663:デフォルトの名無しさん
19/03/06 00:08:19.97 qZfNBEKA0.net
>>646
・ IE.Busy = Trueという風に教科書通りになっていない
「if A then B」自体が既に「AがTrueならB」っていう意味だから、更に「= True」は冗長
・ フレーム数を取得してその数だけ念の為回しておくという感じでしょうか
作者はそのつもりだったんだろうけど、Whileの条件が真になった瞬間に全ループが終わるだろうから無意味
その後何かがFalseになってもEnd Subになる
・完全にドキュメントが読み込まれるまで待機する
偶にIEの受信が終わってもDocumentが読み込み終わってない時があるから、付けたほうがいい
フレームの件も、フレーム毎にdocument.ReadyStateを待つことで解決できる（ことが多い）
>>649
VBAは短絡評価出来ないから、IE.documentが取得できないとreadyStateプロパティが見れずに参照エラーが起きるよ
先にIEを待ってから、安全策としてdocument.readyStateも確認すると安定してDOMが使える
664:デフォルトの名無しさん
19/03/06 00:12:35.24 M8vFX/4l0.net
csvを読み込む手法はいくつかありますが以下のような場合どの方法が最適でしょうか
1行1レコードになっていない（セル内改行あり）
csvが複数ありそれをすべて読み込んで集計処理がしたい
普段はデータインポートやopenで1行づつ読み込んでいましたが1行≠1レコードだと難しいのかと考えています
665:デフォルトの名無しさん
19/03/06 00:17:18.56 0oqXehnm0.net
>>649
長文でわかりにくい環境にも関わらず教えて下さってありがとうございます
参考にして、これから開きたいリンク先のウィンドウタイトルと同じタイトルを持ったウィンドウがすでにあれば閉じるという風に書いてみます
下の方に書いてくれたコードも試してみます
本当にありがとうございました
また下らない質問者したらすみません
>>650
会社のパソコンが古いのでしばらくは大丈夫そうです
ですが重要なことなので覚えておきますありがとうございます
666:デフォルトの名無しさん
19/03/06 00:29:35.50 qZfNBEKA0.net
>>655
既存のウインドウを触るのは初心者にとっては結構大事だよ
閉じれてないのはQuitメソッドの前に次の処理が入ってしまってるだけだと思うから、
処理が終わったと思われる場所に自分でコードを挿入したらどうだろう
667:デフォルトの名無しさん
19/03/06 00:33:49.27 qZfNBEKA0.net
>>654
改行が含まれてるセルは""で括られてるという認識でいいなら、
丸ごと文字列として読み込んだ後に正規表現で""内の改行を全部改行コードに書き換えるのが良いと思う
668:デフォルトの名無しさん
19/03/06 00:36:57.21 qZfNBEKA0.net
>>657訂正
改行を全部改行コードに書き換える
↓
改行コードを全部書き換える
669:デフォルトの名無しさん
19/03/06 00:54:59.22 jXlQSKwgr.net
>>657
試してないので想像ですが1ファイル数mb程あるので一括読み込みで取得出来るんでしょうか…？
変数に入るのか、pc動作的にどうなのかが気になりますが…一度試してみます
670:デフォルトの名無しさん
19/03/06 01:00:18.09 wqRC+Uom0.net
>>654
replace(str,vbcrlf,"うんこ")
671:デフォルトの名無しさん
19/03/06 01:08:03.42 qZfNBEKA0.net
>>659
文字列型に格納すればいいと思います
確か数Gbぐらい格納できたはず
672:デフォルトの名無しさん
19/03/06 07:35:28.45 3ub5rlP9H.net
IEってBusy以外にステータスも見てないとループ抜けちゃわなかったっけ
673:デフォルトの名無しさん
19/03/06 07:51:07.24 9ZQV49QQM.net
抜けた気がする
要素がありませんってよく怒られた
674:デフォルトの名無しさん
19/03/06 08:14:30.41 OZZFIuGOd.net
両方見てても抜ける時が有る。
滅多に無いけど。
例えばClickで遷移する場合に、抜けてからBusyになることがあった。
Submitに比べてClickは単純に文字通りClickするだけなので遷移しないページも有るから必ずBusyになると想定されていないと想像してる。
それ以降Clickの時は最初にSleepを入れるようにしてる。
675:デフォルトの名無しさん
19/03/06 08:20:35.12 OZZFIuGOd.net
>>654
別に方法は色々あると思うけど1行ずつ読み込んでも良いんじゃない?
1行ずつでも条件に合うまで1レコードとしなければ良い。
1レコードの最後にも改行は有るんだろ。
もし1行ずつ読むなら1レコード内に複数改行が有る可能性を考慮すること。
676:デフォルトの名無しさん
19/03/06 08:57:22.69 Uli2bEJM0.net
>>654
Ruby では、列をダブルクオートで囲むと、その中にカンマや改行を含める事もできる。
他の仕様も含め、詳しくはRFC4180を参照
require 'csv'
p CSV.parse_line( "a,\"あ\nい\"" )
# => ["a", "あ\nい"]
\n は改行
列区切りはカンマで、外側の"～" は文字列を表すための囲み。
内側の\"～\" は、"～"内での"～"を表すため、\ でエスケープしている。列囲みを表す
a の部分は、\"～\"で囲まなくてもよい
677:デフォルトの名無しさん
19/03/06 09:17:24.17 R/1sU7PR0.net
rubyって・・・
もう完全に終わってる言語なんだからそんなもの勧めないでよ
678:デフォルトの名無しさん
19/03/06 09:47:16.43 HGc0sPl8M.net
Twitterで紹介されてたこれ一度試してみたけど機能してたよ
URLﾘﾝｸ(www.excelspeedup.com)
679:デフォルトの名無しさん
19/03/06 11:28:25.04 p4qnJjw30.net
下記リンク先のページ下部にあるユーザ定義関数がVBAとして正しく書けてるかチェックして貰えませんか
URLﾘﾝｸ(peltiertech.com)
680:デフォルトの名無しさん
19/03/06 11:39:12.31 R/1sU7PR0.net
>>669
どういう計算をしてるかは知らんけど、コード上は問題ない
681:デフォルトの名無しさん
19/03/06 15:05:39.78 p4qnJjw30.net
多分スレチだろうと思いますが、>>669をLibreoffice最新版に実装したところ戻り値に=LOESS(x,y,z,n)で指定したyの配列がそのまま表示されたのでコードどこか間違ってるか仕様変更したのを俺が見落としてるのかなと思って聞きました
ありがとうございました
682:デフォルトの名無しさん
19/03/06 15:12:15.84 n2VNtnMC0.net
>>666
市ね
683:デフォルトの名無しさん
19/03/06 21:16:11.63 qNVr+Lwh0.net
指定した列以外の列を削除する方法を模索しています。
たとえば、ABCDE列の１行目にそれぞれ
あ い う え お
と入っていて、
"あ"と"う"と"お"以外の列を削除し、
あ う お
というよにしたく、
このようなプログラミングをしたのですが意図するように動作しません。
ド素人と罵られること承知で質問に参りました。
論理式自体考え方がおかしいものとも思っています。
どなたかお力添えいただけないでしょうか？
Sub 不要列削除()
Dim i As Long
For i = 1 To 50
If Cells(1, i).Value <> "あ" Or Cells(1, i).Value <> "う" Or Cells(1, i).Value <> "お" Then
Columns(i).Delete
End If
Next
End Sub
684:デフォルトの名無しさん
19/03/06 21:30:16.04 o9MkSJEKa.net
>>673
ifの条件がおかしい
685:デフォルトの名無しさん
19/03/06 21:31:48.30 LIhekGiK0.net
表示形式が混在したセルを見た目通りのまま表示形式が文字列の別のセルにコピーするいい方法ありませんか
例えばA1～A3を、この見た目のまま表示形式が文字列のB1～B3にコピーしたい場合
A
1 $1,000
2 2019/1/1
3 9:30
①
Dim buf() As Variant
buf = Range("A1:A3").Value
Range("B1:B3").Formula = buf '←そのまま入れてみる
B1～B3は 3/6/2019、0.836111111、\10,000.00 になる
②
Dim buf() As Variant
Dim buf2(1 to 3, 1 to 1) As String
buf = Range("A1:A3").Value
For i = 1 to 3
buf2(i, 1) = buf(i, 1) '←文字列型にして入れてみる
Next
Range("B1:B3").Formula = buf2
B1～B3は 2019/03/06、0.836111111111111、10000 になる
①②どちらも書式が勝手に変わります
ちなみにセル範囲を配列に直接つっこまず、文字列型の配列に1セルずつ buf = Range(i, j).Text みたいな感じで入れてからセルに貼り付けると希望の結果になりますがめちゃくちゃ時間がかかります（大量データに使いたいので）
他にやり方があれば教えてください
686:675
19/03/06 21:34:55.08 LIhekGiK0.net
例のA列は↓の間違いです、すいません
1 2019/3/6
2 20:04
3 \10,000
687:デフォルトの名無しさん
19/03/06 21:37:03.61 o9MkSJEKa.net
画面表示を止めても遅い？
688:デフォルトの名無しさん
19/03/06 21:54:06.80 ZuXoITq7x.net
>>673
列インデックスで加算ループをしている途中で列削除をしてるから、削除した回数分だけ参照参照列の位置がおかしくなるのでは
例えば2列目を削除した後にループ処理の最初の処理に戻ると、�
689:氓ﾉi=3として.Cells(1,3)とセルアクセスしたときに見ることになるのは本来D1に位置していたセルになる 列削除した分インデックスがずれるので こうやって減算ループにするのが正解の一つかと Sub 不要列削除() Dim i As Long For i = 5 To 1 Step -1 If Cells(1, i).Value <> "あ" Or Cells(1, i).Value <> "う" Or Cells(1, i).Value <> "お" Then Columns(i).Delete End If Next End Sub あるいは、列削除した場合にはEnd Ifの手前でiから1を引いてインデックス調整するようにしたりか
690:デフォルトの名無しさん
19/03/06 21:56:07.90 ZuXoITq7x.net
>>673
改めて見たらIfの条件もおかしいね
And条件にしないと
691:デフォルトの名無しさん
19/03/06 22:13:28.72 0dxLNo3Q0.net
馬鹿過ぎるのが問題
692:デフォルトの名無しさん
19/03/06 22:23:00.33 R/1sU7PR0.net
>>675
textプロパティ
Sub foo()
Range("c1").Value = Range("a1").Text
End Sub
範囲で代入は出来なかったので、適当にforeachで回してくれ
Range("c1:d2").Value = Range("a1:b2").Text
693:デフォルトの名無しさん
19/03/06 22:36:44.70 LIhekGiK0.net
>>677
止めた状態で遅いです
>>681
セルに直接入力していくと更に遅くなると思います
694:デフォルトの名無しさん
19/03/06 22:56:49.85 xGO4PHc60.net
CSVで書き出せばTEXTが得られるぞ
695:デフォルトの名無しさん
19/03/06 23:08:59.57 R/1sU7PR0.net
>>682
あぁtext使ったって書いてたね、ゴメン
配列でも無理なら高速化はどうだろうか
URLﾘﾝｸ(15g.jp)
高速化でも配列でも重いなら、
もうアクセス辺りに移行した方がいいかも
696:デフォルトの名無しさん
19/03/06 23:09:20.80 R/1sU7PR0.net
>>683
csvは勝手に変換されるのが鬼門すぎる
697:675
19/03/06 23:48:56.32 LIhekGiK0.net
やっぱりTextプロパティ使う以外無理そうですかね…
698:デフォルトの名無しさん
19/03/07 00:01:59.48 UepKFInK0.net
後は>>683かな
住所の"1-1-1"みたいなものがなければ行けると思う。
後はダメ元でgoogleスプレッドシートに移植してマクロ組んで見るとか
699:デフォルトの名無しさん
19/03/07 00:20:00.91 UmWyYgm40.net
>>686
textの取得だけループでまわして、
二次元配列に直して代入するとかは？
700:デフォルトの名無しさん
19/03/07 00:26:34.58 bl5ieqXF0.net
>>688
遅いって書いてあるだろ。もっと上をお望みなんだよ
701:デフォルトの名無しさん
19/03/07 00:44:39.67 UmWyYgm40.net
>>689
直接入力が遅いって言ってるから、入力だけ一括でやれば？と思ったんだが
702:675
19/03/07 00:46:43.69 zt2fCEgu0.net
>>687
他のファイルは使えない状況なんです…
>>688
その処理がすごく時間がかかるので他の手段を探していました
諦めます
今回の事でRangeのValueやFormulaみたいにTextも配列に入れられるようにしてくれと心から思いました
色々考えてくれたみなさんありがとうございました
もしいい方法思い付いたらいつでも待ってます
703:デフォルトの名無しさん
19/03/07 01:15:09.98 UmWyYgm40.net
描写と計算止めてCopyメソッドで10万行×30列を列ごとにコピペしたら一瞬で終わったが・・・
っていうかこれ以上増やそうとするとリソース不足でエクセルが悲鳴を上げるし、どういうデータをコピーしたいんだろ
704:デフォルトの名無しさん
19/03/07 01:18:31.96 UmWyYgm40.net
あ、書式変わるのか・・・上のレスは忘れてください
705:デフォルトの名無しさん
19/03/07 02:33:57.63 cMWEbvvB0.net
コピーしてテキストとして貼り付けじゃダメなのか？
706:デフォルトの名無しさん
19/03/07 02:58:39.40 Wb+CU65ma.net
早い遅いは個人の感覚でしかないとおもう
707:デフォルトの名無しさん
19/03/07 07:14:54.02 RImgiSgC0.net
>>691
>>684 の Application.ScreenUpdating = False
は効かないのか。 画面描画が止められるよ。やってないから適当なこと言ってるかもしらんが
画面描画以外で時間がかかるってどんなだよ。 ちょっと想像できんがなあ
なんでだろう
708:デフォルトの名無しさん
19/03/07 07:24:21.94 ldY6B6U1d.net
>>691
valueで配列コピペした後に、セルに対してそれぞれ書式設定を手動もしくはマクロですれば？
書式は列ごとくらいは揃ってると思うし。
それもバラバラってことだと、そもそも集計の仕方が悪過ぎる。
709:デフォルトの名無しさん
19/03/07 07:28:16.03 IFVQ3Zq/0.net
>>674 >>678
ありがとうございます！
意図するようになりました。
-1で減らしていく発想は本当になかったのでいい勉強になりました。
このたびは本当にありかございました。
710:デフォルトの名無しさん
19/03/07 07:44:13.43 ldY6B6U1d.net
>>696
684じゃないけど、複雑に関数組んだりとか遅い関数が大量に入っててかつデータ数がエクセル上限近くで再計算に時間がかかるとか、あとセル上で反復計算やソルバー使ってたりするとある。
ただ684は書式がバラバラなセルを扱ってる時点で、複雑な計算をしてるとは思えないけど。
711:デフォルトの名無しさん
19/03/07 07:52:53.03 RImgiSgC0.net
>>699
>>675をもう一度見て来いよ。 これだぞ。そんなややこしいことしている話ではないと思うが
>表示形式が混在したセルを見た目通りのまま表示形式が文字列の別のセルにコピーするいい方法ありませんか
712:675
19/03/07 08:38:04.86 QURDMn8Xd.net
再描画等定番の部分は止めています
セル数は100万ぐらい、列数、行数分回してTextプロパティを1セルずつ配列に入れる処理だけです
シートへの貼り付け処理ではなくこの取得部分に時間がかかります
同じ回数回す②や、Format関数、worksheetfunction.textを使った場合その半分以下の時間ですが望みの結果を得る方法はわかりませんでした…
713:デフォルトの名無しさん
19/03/07 10:57:17.39 QGzmAmpt0.net
コピーした後NumberFormatで整えればええんちゃうん？
Dim buf() As Variant
buf = Range("A1:A3").Value
Range("B1:B3").Formula = buf
Range("b1").NumberFormat = "yyyy/m/d"
Range("b2").NumberFormat = "h:mm"
Range("b3").NumberFormat = "[$\-ja-JP]#,##0;-[$\-ja-JP]#,##0"
データが多すぎて無理？
714:デフォルトの名無しさん
19/03/07 10:58:23.63 QGzmAmpt0.net
アー、見た目が同じまま、「文字列」なのか・・・
すんません無視してください
715:デフォルトの名無しさん
19/03/07 11:39:04.19 OUaGUe4hM.net
>>675
A1:A3をコピーしてメモ帳とかに貼り付け
全選択してコピーしてB1:B3に貼り付けでできた
VBAだけで完結させる方法は知らん
716:デフォルトの名無しさん
19/03/07 12:41:45.56 g1Ak82VsF.net
勘違いしてる奴が多いが、自動計算を止めたり描画を止めるのは初心者が速度アップのためにやる方法で、>>675のように速度アップの為に考えて組まれている場合には効果が無い。
上級者はこういう場合に描画止めたりしないよ。
考えずに組んで面倒くさい場合にやる奴はいるかもしれんけど。
717:675
19/03/07 12:42:12.66 QURDMn8Xd.net
>>702
あとからNumberformatを適用させるんでなく配列に入れる時点で適用させる手を考えたんですが、
適用させるのにworksheetfunction.textを使うと書式に「マイナス値は[赤]」みたいな色設定があるとなぜか1004エラーが出るし、Format関数使うと表示形式が標準の時なぜか値が「標準」という文字列になってしまいます
速度的にはtextプロパティ使うよりずっと速いんですが…もう訳がわからない
718:デフォルトの名無しさん
19/03/07 12:46:54.74 g1Ak82VsF.net
>>675
他に方法があるか探る時間が無いので何とも言えんが、DB処理にするか、マルチプロセスで上手いことすれば早くなると思う。
719:デフォルトの名無しさん
19/03/07 12:50:28.91 g1Ak82VsF.net
よく考えたらDB処理は駄目な気がする。
表示部分を扱え無さそうだ。
720:デフォルトの名無しさん
19/03/07 18:02:24.90 6oCjCAip0.net
メモ帳にコピペすると書式が全部消えて見た目通りの文字列になる
メモ帳アプリの実体はエディットコントロールそのものだから、ユーザーフォームにエディットコントロールを貼っただけの作業場所を作って、そこ経由でコピペしてみたら？
721:デフォルトの名無しさん
19/03/07 18:03:18.10 hp531q160.net
UserForm1にTextBox1とCommandButton1、TextBox2とCommandButton2の計4つが配置され
UserForm2には入力フォームが配置されています。
CommandButton1からUserForm2を呼び出した時は、TextBox1に記入
CommandButton2からUserForm2を呼び出した時は、TextBox2に記入
させるには、どうすれば良いですか？
722:デフォルトの名無しさん
19/03/07 18:34:04.34 rXPjoswtF.net
>>709
これ、本当?
だったらクリップボード弄って高速化できるかもしれない。
723:デフォルトの名無しさん
19/03/07 18:34:43.55 qs1KmWLa0.net
複雑な処理でデータ量が多いなら遅くても仕方ないんじゃね？
どうせエクセルだし、専門職じゃないし、大した会社じゃないし、給料安いし
724:デフォルトの名無しさん
19/03/07 19:03:35.19 qo/Sl71gx.net
>>710
やり方はいくつもある
一番簡単な方法を書くと、
Userform1側の各ボタンのクリックイベント内に、任意のセルや標準モジュール上のPublic変数等にコマンドボタンのオブジェクト名をコピーする処理を書く(Me.ActiveControl.Nameでフォーム上でフォーカスされているコントロールオブジェクトの名前を取れるのでこれを使う)
Userform2側のイベントコードではそのコピーされたボタン名を読み取って書き込み先のテキストボックスを判定するようにする
725:デフォルトの名無しさん
19/03/07 19:11:06.28 ximLdO0ya.net
>>710
コマンドボタンのクリックイベントプロシージャで、グローバル変数に呼び出したボタン番号を格納→ユーザーフォーム2のコンストラクタでグローバル変数で分岐させる方法
もしくはコマンドボタンのクリックイベントプロシージャでユーザーフォーム2のマルチページコントロールのプロパティを変更する（value=1,2）方法もある
726:675
19/03/07 21:34:32.55 zt2fCEgu0.net
セル範囲をコピーしてクリップボードから直接二次元配列に入れるようにしたら何十秒もかかってたのが0.5秒になりました
ただ、クリップボードから切り出す時にうっかりセルの値に手を加えてしまわないかが心配です
単純にVbCrLfで行を区切って、VbTabで列を区切ってるんですがそれで問題ないんでしょうか？
727:デフォルトの名無しさん
19/03/07 22:48:37.99 6oCjCAip0.net
>>715
セル内改行を使ってなければそれで大丈夫
728:デフォルトの名無しさん
19/03/08 00:03:05.83 +kJkkfKW0.net
>>716
セル内改行入れてみたら…またこんな落とし穴が…
729:デフォルトの名無しさん
19/03/08 02:12:12.40 k3BFo3Xw0.net
>>713
>>714
プロジェクトが大きくなるにつれグローバル変数は神経を使うので
極力さけたかったのですが
Form1.ActiveControl.Name、でいけそうですね
730:デフォルトの名無しさん
19/03/08 03:08:04.26 Tjqa7GxLa.net
システムの大規模化が想定されるならユーザーフォームでユーザーフォームを呼び出すのは危険w
ユーザーフォーム間の依存性を高めてしまうw
ここはユーザーフォームを呼び出すクラスを作った方がいいw
クラスを介して情報を渡せば安全だし再利用性も高まるw
731:デフォルトの名無しさん
19/03/08 08:00:14.88 IUpgvQZO0.net
やっぱりuserformからuserform呼ぶのってよくないのか
こういうのってクラスモジュール使えるんだろうなって思ってたんだけど
余り使ったことなかたんで、ちゃんと勉強してみよう
参考書ぽちってきたわ
JavaとかC#を多少触ってきたからオブジェクト指向の概念は分かってるんだけど
VBAでの効果的な使い方をマスターしたいわ