22/03/24 16:05:22.00 0iDW3zlua.net
数年前、外出時にexcelを使うため
windowsタブレット(atom)を、最適化してた
そこそこ使えるんだけど、
たまにすごく遅くなるから原因探ったらmdbにアクセスしてるときだった
510:デフォルトの名無しさん
22/03/24 20:19:51.61 ECMUHWnp0.net
会社はケチだから高級スペッコのパソコンを購入してくれない。
職場の古いデスクよか私物のノーパソの方がサクサク(Ryzen積んだヤツ)
511:デフォルトの名無しさん
22/03/24 20:23:26.56 /oHcKJ7o0.net
うちは全部SSDに変えたよ
i5 2400もサクサク
1万投資するだけでPCが復活するというのに、なんでみんなやらないんだろうな
512:デフォルトの名無しさん
22/03/24 21:32:40.98 XNeV8CRo0.net
儲かっている会社だけじゃないことくらい想像つくだろ
513:デフォルトの名無しさん
22/03/24 23:51:54.91 3J8f/LKg0.net
7年前に買ったi7のLavie。
何かメチャクチャ重いので中見てみたら
メモリが4G。そして当たり前のようにHDD。
メモリは買い換えて16G積んだけど
それでも立ち上げはなぜか遅い。
それ以来もうYAMADA電気では絶対PCを
買わないことを心に誓った。
514:デフォルトの名無しさん
22/03/25 01:16:28.60 XVe+E9v/0.net
さすがに、HDD は遅いでしょ
515:デフォルトの名無しさん
22/03/25 01:24:52.38 x94dfbyJ0.net
>>505
ヤマダ電機は関係なくお前が馬鹿なだけだろ
516:デフォルトの名無しさん
22/03/25 01:25:53.93 jqc8A7wc0.net
事務員が職場でゲーミングノートなんか使っていたらカオスだね
遊びに見られる
517:デフォルトの名無しさん
22/03/25 01:28:11.57 jqc8A7wc0.net
つか立ち上がりってメモリよりSSDが大きく関係しているんじゃないの？
過去にウィンドウズスレで詳しい人に教えてもらった。
518:デフォルトの名無しさん
22/03/25 01:40:28.27 p3htVTGSa.net
どうしてVBAプログラマーって、
コードの内容だけ調べて、
「はい、こうなってこうなって、こうなっています。
なぜこうなっているのか、これ以上のことに関しては、こちらではわかりません。
詳しい人に聞いてねー」
となるんだろう。
自分で何も動こうとしないで、
ただ VBE 開いて、コードを日本語訳して、終わり。
それで仕事した気になってるんだから笑っちゃうよ。
519:デフォルトの名無しさん
22/03/25 01:48:43.98 FbSlRBsRa.net
そういう人はプログラマーとは言わないよ
520:デフォルトの名無しさん
22/03/25 02:37:31.54 F54TZ40q0.net
どういう状況でその回答に至ったかの前提条件がないとそれが妥当な返答である可能性を否定できない
521:デフォルトの名無しさん
22/03/25 05:36:38.48 cwXcdCWcd.net
>>510
ネットや書籍でも人に読ませる気のないコードやつぎはぎだらけでそもそもまともに動かないコード置いてはい終わり。ってのが多いし情報量は多いが質が悪いので質の悪い解釈が更に増えるという悪循環に陥ってる
522:デフォルトの名無しさん
22/03/25 06:16:41.66 XWaROYx+0.net
>>509
正解
>>510
「ルーチンに関しては」詳しい人に聞いてね、だよ
むしろそれ以上なんか答えてほしい事はあるのだろうか
523:デフォルトの名無しさん
22/03/25 08:31:08.17 o8BOLFr/r.net
そら「知らん」からよ
給料の範疇じゃないんだろ
524:デフォルトの名無しさん
22/03/25 10:34:06.30 1zyB+7jua.net
>>510
お前が自分で動けばいいんじゃね
525:デフォルトの名無しさん
22/03/25 11:22:36.46 ieGzCLlt0.net
>>437
民族性としか言いようがない。山本七平さんが生涯かけて取り組んだ、
「なぜ我が国はこうも組織づくりと運営ががダメダメで、暴力と数合わせによる実態のないものに陥っていくのか」っていうあれ
526:デフォルトの名無しさん
22/03/25 12:05:26.87 jqc8A7wc0.net
本当にできる人はネットとか何も見ないでスラスラとコード書ける人だと聞いた。
なかなかいないと思うけど。
527:デフォルトの名無しさん
22/03/25 12:13:20.83 gLxuAzS/r.net
VBAは大体ググるわ
普段いじらんし構文まで覚えてないし独特な部分も多いし
528:デフォルトの名無しさん
22/03/25 12:38:22.10 dRfv/AP1a.net
ググる人はできない人なのかw
529:デフォルトの名無しさん
22/03/25 12:55:56.28 378bs0UD0.net
>>510
それはVBAに限ったことじゃないよ。
VBA使う人だってモデリングしてクラスの構成やらインターフェースとかどう使って行くか考えてから作る人もいるし、
Javaや.Net使っている人でもその場凌ぎの平べったいコード書く人もいる。
むしろ何がどうなってそのような結果となるのかは、VBAやってる年寄り連中の方が
今ある便利な部品ばかり使うことじゃなく、もっとハードよりな理屈を知ってる人(ついでにCやC++、アセンブラ等も経験している人)が多いだろうから
一概にその理屈では片付くものでもないよ。
530:デフォルトの名無しさん
22/03/25 13:23:03.47 rDRC/qkL0.net
>>510
どう考えてもそれ以上は「プログラマー」の仕事じゃないわけですが
業務分担外の仕事まで無理やりやらせるブラック会社の人ですか？
責任範囲外のことを要請されても困るわけですが
531:デフォルトの名無しさん
22/03/25 13:44:09.14 nD4Ua/6EF.net
会社のパソコンは底辺スペックが
多いからできるだけ配列必須
532:デフォルトの名無しさん
22/03/25 14:15:40.45 ogVYp57ed.net
ここで質問してくる人はプログラマと呼ぶにはどうかと思うスキルだという認識だし
>>510みたいな答え返してくる奴が自分の職場にいたらっていうかこんなやついないけどｗ
533:デフォルトの名無しさん
22/03/25 16:09:31.18 dbWOzFn0a.net
そもそもどうしてそういうプログラムになっているか、
どうしてそういう条件文になっているか、
わからなければ、
チームリーダーやマネージャーに聞けばわかるかもしれないし、
チームリーダーやマネージャーは、主査に聞けばわかるかもしれない。
主査は、わからなかったとしたら、そういう仕様でやっていると
クライアントに説明できる。
クライアントからオペレーターに問合せが入って、
オペレーターからプログラマーに問合せがきた場合は、
プログラマーとしては、チームリーダーやチームメイトに聞くのが筋。
それをめんどくさがって、コードだけ読んで、条件文を和訳して
オペレーターに回答するだけのプログラマーって、どうなの。
オペレーターからすれば、まさかの異次元回答をくらった思いになる。
そうじゃなくて、こういう場合どう対処すればよいか、
関係者に聞いてほしい、でも関係者
534:がわからないから、 唯一わかっている身近なプログラマーに聞いている。 そういう話だと思うんだけどなあ。 絶対いいたいこと説明できてない。 さすが俺。
535:デフォルトの名無しさん
22/03/25 16:25:13.86 qqk/wS7c0.net
前任が作ったコードをよくわからず使っているが、変な挙動があった
VBAかけるやつに聞いてみたら……
だとオレは思うけど
536:デフォルトの名無しさん
22/03/25 16:55:04.11 8xCVgHwf0.net
PGやSEを抱えていない職場で業務改善の一環としてワンオペで誰かが作ったものは仕様書すら作られてない時も少なくない
コーティング規約もないから中身が無法地帯なんてのもあるある
537:デフォルトの名無しさん
22/03/25 17:11:26.32 378bs0UD0.net
>>525
あー、そういうことね。
でもやっぱりそれはVBAがどうのではないよ。
要件定義、基本設計、詳細設計に携わっていて
仕様を押さえているかだもの。
つまり、>>527の人が言うように
PGと言うよりはSEのお仕事。
そしてここはVBAのスレだから
PGにそういうこというのはお門違いだし
このスレからしてみてもスレ違い。
で、VBAやってる人が仕様を押さえて
いないというのはそれこそ偏見だよ。
むしろちっちゃいツールばかりなんで
押さえ易いしね。
538:デフォルトの名無しさん
22/03/25 17:20:12.47 rDRC/qkL0.net
>>525
それはオペレーターが直接プログラマーに聞いてるのがおかしい
つか関係者わからんオペレーターがプログラマーならわかるってどんな異次元組織だよ
関係者がわからんからってプログラマーにきいてもわかるわけないだろ
ちゃんとした組織でのプログラマーの仕事と、事務員が片手間にプログラム作ったのと同じ次元で話されてもなぁ
539:デフォルトの名無しさん
22/03/25 17:30:04.98 jqc8A7wc0.net
ググってもおkなのか良かったわ
必死でヘルプ見て暗記していたのは非効率だよね
540:デフォルトの名無しさん
22/03/25 17:36:57.23 378bs0UD0.net
>>530
慣れでスラスラ書けるようにはなるだろうけど
どちらかといえばググり力の方が必要だよ
541:デフォルトの名無しさん
22/03/25 18:03:42.37 rDRC/qkL0.net
ググり方というより、公式ヘルプでの確認が大事だと思うんだが
いま公式ヘルプでさえオンラインとかいう時代だからなぁ
まあVBAの文法ていどなら暗記できるけど
エクセルのオブジェクト全部なんて暗記できる奴がいるとは思えん
542:デフォルトの名無しさん
22/03/25 18:39:02.37 ogVYp57ed.net
オペレータがプログラマに聞くって何を？ｗ
知ってる言葉ならべてるだけなのかな
543:デフォルトの名無しさん
22/03/25 19:43:12.04 RqRNte220.net
要求通りの動作をするコードが書ければできるやつだろ
検索しようが、他人に聞こうが何も見ないで作ろうが関係ないよ
544:デフォルトの名無しさん
22/03/25 20:11:44.87 XWaROYx+0.net
>>534
それだとエラーチェックとかどうでも良くなってしまう
使い捨てのスクリプトならともかく、その言い方はさすがに意識が低すぎる
545:デフォルトの名無しさん
22/03/25 20:12:25.07 /GQ4L54F0.net
納期を守ってちゃんと動く
結果がすべて
検索だろうがコピペだろうが関係ない
546:
547:デフォルトの名無しさん
22/03/25 20:40:46.85 jqc8A7wc0.net
さっき会社の上司とたまたまそういう話したけど、やっぱ何も見ないでスラスラとコード書けるヤツいたら貴重だから重宝するって言っていた。
ただ、そういう人ほど初歩的なミスに気がつかないとも。
548:デフォルトの名無しさん
22/03/25 20:44:28.64 ogVYp57ed.net
＞ただ、そういう人ほど初歩的なミスに気がつかないとも。
こんな話はないわ
たまたまそういう人としか仕事してないだけ
549:デフォルトの名無しさん
22/03/25 20:57:16.02 uzupo3Jn0.net
飯島 彩矢
いいじま よした
550:デフォルトの名無しさん
22/03/25 21:03:49.94 2zbf95kya.net
>>535
？？？
要求通りなんだから要求にエラーチェックが入ってたら当然実装するだろ
551:デフォルトの名無しさん
22/03/25 21:21:49.50 UnnJynAs0.net
エクセルのクエリで、一つのファイルにある複数のシートから、たとえば１つ目から４つ目のデータ（１０００行くらい）を１枚目を１から４、２枚目を５から８に転記していくにはどのような設定でやればいいでしょうか
552:デフォルトの名無しさん
22/03/25 21:22:42.56 8eXyKRPB0.net
どうしよう、>>541の言っている意味が分からない…
553:デフォルトの名無しさん
22/03/25 21:26:08.92 4vyR1Miw0.net
おらも分からん
554:デフォルトの名無しさん
22/03/25 21:26:33.02 378bs0UD0.net
>>537
まぁちっこいツールとかならそうかもね
ある程度大きくなったら後々のメンテナンスのし易さとか、テストの工数をどうやれば減らせるかとか
最初の内に構成練り込んで考えて作るから、いくらスラスラ組めてもその辺がすっぽ抜けてると
後々手を加えるごとに分岐だらけのスパゲッティコードになって行くことが多いんだよね
555:デフォルトの名無しさん
22/03/25 21:28:20.55 UnnJynAs0.net
>>542
えーっとですね
例えばシート１の１から４つめにA,B,C,Dってデータがあるとします
シートの１から１０まであって、
それを一つのシートの１箇所に横に並べたいんです
556:デフォルトの名無しさん
22/03/25 21:32:43.40 378bs0UD0.net
>>541
スピード重視でなければこの間からここで色々言われてたADO接続使ってSQLでレコードセットに値取得してそのままシートに貼り付ければいいんじゃない？
ヘッダがいるなら最初から書いとくか、レコードセットから取得するなら別ロジックが必要だけど
557:デフォルトの名無しさん
22/03/25 21:34:59.71 UnnJynAs0.net
>>546
単発での処理なのであまりそういう複雑なのは難しいです
558:デフォルトの名無しさん
22/03/25 21:38:14.89 q+5lBwTqM.net
>>547
こんなこともわからないような馬鹿は手を出すな
559:デフォルトの名無しさん
22/03/25 21:39:37.46 UnnJynAs0.net
クエリとかの簡単な操作でデータ整理できないですかね？
560:デフォルトの名無しさん
22/03/25 21:45:45.83 378bs0UD0.net
>>549
何だろう、クエリってSQLも立派なクエリだよ？
そっちの言ってるクエリの定義が分からない。
アクセスとかにあるあのツールっぽいのを言ってるのかな？
561:デフォルトの名無しさん
22/03/25 21:46:14.94 8eXyKRPB0.net
普通にマクロの記録使ってシート1の範囲をコピーして
シート2の開始地点で貼り付けたらいいだけじゃないの…
562:デフォルトの名無しさん
22/03/25 21:47:30.56 UnnJynAs0.net
そうすると横にデータを並べていきたいので重複していきます
シート全体の数もそのときどきで変わるので
563:デフォルトの名無しさん
22/03/25 21:50:02.56 378bs0UD0.net
？？？
どんどん何をしたいのか分からなくなってくるね
564:デフォルトの名無しさん
22/03/25 21:51:28.75 UnnJynAs0.net
>>553
簡単に言うと、複数シートにまたがる複数列の１から４列のデータを、
１枚のシートの横に縦の行を順番に並べていきたいのです
565:デフォルトの名無しさん
22/03/25 21:56:14.91 w2X6jrV+0.net
ｽﾞｺｰｯ !
566:デフォルトの名無しさん
22/03/25 21:56:37.17 378bs0UD0.net
>>554
本当に単純にそれだけなら
2シート目の1～4列目をコピーして
1シート目に貼り付けたあとに、
貼り付け先の列先を+4して
シート3以降、シートがある分だけそれを
繰り返せばいいんじゃないの？
567:デフォルトの名無しさん
22/03/25 21:57:03.52 qxuRWoIYM.net
ID:UnnJynAs0と一緒に仕事しなきゃいけない同僚には同情する
568:デフォルトの名無しさん
22/03/25 21:58:28.35 UnnJynAs0.net
>>556
そうなると場合によっては数百のシートを手作業でコピーしなければならないので現実出来ではありません
569:デフォルトの名無しさん
22/03/25 22:03:32.99 378bs0UD0.net
>>558
は？
手作業ってどこから出てきたの？
そういうコードを組めばいいという話をしてるつもりだったんbだけど伝わらなかったかな？
570:デフォルトの名無しさん
22/03/25 22:03:48.41 8eXyKRPB0.net
手作業でコピーしなければならない んじゃなくて
ループでそれぞれのワークシートを参照 したらいいじゃん
>>556 は 「手作業で」 なんて一言も書いてないよ
571:デフォルトの名無しさん
22/03/25 22:05:38.52 UnnJynAs0.net
>>560
どうすればそれができますか？
572:デフォルトの名無しさん
22/03/25 22:06:11.03 UnnJynAs0.net
エクセルの方のクエリでは縦に連結されて出てきたのでやり方を教えて下さい
573:デフォルトの名無しさん
22/03/25 22:08:44.67 378bs0UD0.net
>>562
いや、そもそもそれだけの処理ならクエリなんて必要ないでしょ
574:デフォルトの名無しさん
22/03/25 22:12:12.99 8eXyKRPB0.net
>>561
Worksheets.Count でシートの数を持ってこれるから
Worksheets(n) ※nは1始まり でそれぞれのワークシートを参照できるから
後はループの中で >>556 の言う通り行番号を加算しながら貼り付けするなり参照貼るなりすればできるよ
俺はもうここまで伝えるので限界
575:デフォルトの名無しさん
22/03/25 22:15:02.86 UnnJynAs0.net
>>563
すみません、パワークエリのことです
プログラム組んだりとかはできません
576:デフォルトの名無しさん
22/03/25 22:15:06.77 UnnJynAs0.net
>>563
すみません、パワークエリのことです
プログラム組んだりとかはできません
577:デフォルトの名無しさん
22/03/25 22:23:46.18 4vyR1Miw0.net
>>554
もしかしてPower Queryで言うところのマージをしたいの？
複数シートに共通する、keyとなる列が1つあれば出来るけど。
578:デフォルトの名無しさん
22/03/25 22:39:41.75 UnnJynAs0.net
>>567
複数シートの配列は同じで、データの内容だけがちがいます
579:デフォルトの名無しさん
22/03/25 22:44:11.29 3hBoOPeGa.net
>>565
来る板間違えてる
> ローカルルール
> この板はプログラムを作る人のための板です。
こっちへ行け
【Excel】Power Queryを語るスレ【Power BI】
ｽﾚﾘﾝｸ(bsoft板)
580:デフォルトの名無しさん
22/03/25 22:44:52.03 4vyR1Miw0.net
>>568
縦軸となる共通するkey列はなに？
何の順番で行が並んでるの？
581:デフォルトの名無しさん
22/03/25 22:58:31.64 UnnJynAs0.net
>>569
ありがとうございます
582:デフォルトの名無しさん
22/03/25 22:58:38.87 378bs0UD0.net
なんだ、Power Queryか。
いい機会だからVBAも勉強してってくれ
583:デフォルトの名無しさん
22/03/25 22:59:53.49 378bs0UD0.net
Sub hoge()
Dim targetSheet As Worksheet
Dim bottomRow As Long
Dim toPasteColumn As Long
Dim isFirstTime As Boolean
isFirstTime = True
toPasteColumn = 1
With ThisWorkbook
If .Sheets.Count = 1 Then
Exit Sub
End If
For Each targetSheet In .Worksheets
If Not isFirstTime Then
targetSheet.Activate
bottomRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row
targetSheet.Range(targetSheet.Cells(1, 1), targetSheet.Cells(bottomRow, 4)).Copy _
Destination:=Sheets(1).Cells(1, toPasteColumn)
toPasteColumn = toPasteColumn + 4
End If
isFirstTime = False
Next
End With
End Sub
584:デフォルトの名無しさん
22/03/25 23:02:44.53 378bs0UD0.net
うん、やっぱりインデントつぶれたね。
これで動くはずなので良ければVBEに張り付けて実施してみて。
最初のA列がキーであることが前提だけども。
585:デフォルトの名無しさん
22/03/26 00:22:2
586:2.08 ID:wN9O5mc/0.net
587:デフォルトの名無しさん
22/03/26 00:30:29.64 3d/IeTqK0.net
Sub aaa()
For bbb = 0 To 0
If ccc = 0 Then
ddd = eee
End If
Next
End Sub
588:デフォルトの名無しさん
22/03/26 01:25:30.54 x5oh4kDTa.net
ツールの利用者から、ツールの改修担当者に問合せがいったんでしょ。
改修担当といっても、前任者から引き継いだだけだから、全ての仕様はわかっていない。
現在の業務にそぐわない仕様があって、エラーが出たから、
利用者が改修担当者に問合せ。
前任者なら「もともとこういう仕様です」と答えれば、
「ああ、それなら業務が変わったから改修が必要だな」と
改修依頼を出せる。
ツールの利用者も着任して間もない人の場合、
業務が変わったのかどうかもわからない。
そういう場合、ソースコードの条件文を日本語にして
回答するのではなくて、
昔から存続しているチームの誰かに聞くのが普通。
それをしないのは職務怠慢。
自分一人で売上を引っ張ってこれていると勘違いしているのかな。
589:デフォルトの名無しさん
22/03/26 06:35:02.37 4/mAEYCl0.net
>昔から存続しているチームの誰かに聞くのが普通。
>それをしないのは職務怠慢。
つまりそれをしないで改修担当者に聞いてるやつが悪いってことだな
590:デフォルトの名無しさん
22/03/26 10:14:46.58 p8/YoqyTd.net
ここって長文で講釈を垂れる人おおいよね
しかもVBAにはまったく無関係という
591:デフォルトの名無しさん
22/03/26 12:35:46.08 OVfO91qG0.net
自力でできないのに調べない、人に聞かない、期待されているのものがつくれないのは できない人 としか言いようがない
592:デフォルトの名無しさん
22/03/26 15:44:49.86 wN9O5mc/0.net
時には長文になるのは仕方ないよ。
丁寧に説明するばそうならね？
上の方で個人名みたいの書いてるアレな人いるけど今の5ちゃんて個人名書いただけでNGじゃなかったか？
593:デフォルトの名無しさん
22/03/26 16:02:36.43 1KsbV4Zma.net
個人名NGの規制ってあるのか？
WindowsやLinux板とかでは機能していないように見えるけど
594:デフォルトの名無しさん
22/03/26 17:07:43.61 kCwfN6Gy0.net
個人名というか個人情報な
通報されたら警察来るかな
595:デフォルトの名無しさん
22/03/26 17:58:02.51 wN9O5mc/0.net
昔バイトしていた居酒屋のマスターが5ちゃんに実名晒されて誹謗中傷書かれていたのを思い出してさ。
596:デフォルトの名無しさん
22/03/26 18:09:02.02 Gn2xNTk6p.net
>>577
> 昔から存続しているチーム
そんなのは跡形もないから
597:デフォルトの名無しさん
22/03/26 20:17:20.58 wN9O5mc/0.net
職務怠慢は言い過ぎでは？
何かしらの事情あるだろうし。
598:デフォルトの名無しさん
22/03/26 23:22:10.99 lmdSWMnfa.net
dim ki as string
ki = "まあいろんな事情があるよね"
ki = ki & "チームメイトに嫌われていて聞きづらいとか"
dim shou as string
shou = ki
shou = shou & "「こんなことくらいしかわからなくて、すみません」と謝られても"
shou = shou & "お前がそんなことしかわからないことは、百も承知。"
shou = shou & "誰かに回してくれることも見込んでの質問なんだけど、"
shou = shou & "ってね。"
dim ten as string
ten = shou
ten = ten & "プログラマーは基本、自分ひとりで仕事完結して、周りに電話したりメールしたりチャットしたり、"
ten = ten & "という連携は面倒くさがる人が多いからね。"
ten = ten & "コーディングされていないことは、できませんが何か？ みたいな"
ten = ten & "職務はここまで。これ以上はできませんが何か？みたいな"
dim ketu as string
ketu = ten & "ロボットみたいな人が多い。"
599:デフォルトの名無しさん
22/03/26 23:52:13.63 4I5liEUu0.net
何？
この気持ち悪いスレ・・・・・・
600:デフォルトの名無しさん
22/03/26 23:57:27.46 zJILPsYJM.net
>>587
汚いコードだな、そんな代入の仕方じゃ変数を4つ用意した意味がまったくないじゃん
そういう時は最後に足すんだよ
Dim DeathStory As String
DeathStory = ki & shou & ten & ketu
601:デフォルトの名無しさん
22/03/26 23:58:14.85 zJILPsYJM.net
>>588
そっ閉じすりゃいいのに、そんなスレに何か書き込んでる時点で同類
602:デフォルトの名無しさん
22/03/27 03:21:42.29 hNNvtCzu0.net
深夜になると定期的に変な書き込みあるよね
603:デフォルトの名無しさん
22/03/27 03:29:36.79 /OZccBd9M.net
>>591
自己紹介かよ！
604:デフォルトの名無しさん
22/03/27 07:40:40.82 BqsGdBXW0.net
>>587
無駄に
変数 = 変数 & 文字列 をやると
その分余計にメモリを使用する。やり直し。
605:デフォルトの名無しさん
22/03/27 09:48:21.10 8deA3KtJa.net
そもそも >>587 だと
"まあいろんな事情があるよねチームメイトに嫌われていて聞きづらいとか「こんなことくらいしかわからなくて、すみません」と謝られてもお前がそんなことしかわからないことは、百も承知。誰かに回してくれることも見込んでの質問なんだけど、ってね。プログラマーは基本、自分ひとりで仕事完結して、周りに電話したりメールしたりチャットしたり、という連携は面倒くさがる人が多いからね。コーディングされていないことは、できませんが何か？ みたいな職務はここまで。これ以上はできませんが何か？みたいなロボットみたいな人が多い。"
ってなるし、適宜 vbCrLf 挟めや
606:デフォルトの名無しさん
22/03/27 10:09:59.57 GXS4gvi+M.net
>>594
読んでないけど読む価値のないレスであることだけは判る
607:デフォルトの名無しさん
22/03/27 10:21:55.52 dieR0oCra.net
↑ どこを読めばいいのかもわからんアホw
608:デフォルトの名無しさん
22/03/27 10:33:27.62 jqHr+5yx0.net
最初と最後の行しか読んでないけど
スペースも改行もつかないって突っ込みだって事だけは判る
609:デフォルトの名無しさん
22/03/27 10:56:36.33 hNNvtCzu0.net
ようは字下げしないと読みにくいって教えてくれたんですね親切な人。
610:デフォルトの名無しさん
22/03/27 11:49:34.86 17nxG3290.net
>>593
そうなのか
賢くなった
でもいつものクセでSQL文はこの式で書いているわ
611:デフォルトの名無しさん
22/03/27 12:17:45.42 CPBl4WFea.net
>>597
それで十分、てか最後の行読んだらわかるだろ
612:デフォルトの名無しさん
22/03/27 12:19:46.20 CPBl4WFea.net
>>599
まあ高々数十行位なら気にすることはないよ
613:デフォルトの名無しさん
22/03/27 12:41:21.31 cPay0R1J0.net
誰かSalseforceのAPIをVBAでたたく方法わかる人いませんか？
API関連に関して全く無知で、何をどうしていいのか、、、
詳しい人教えてほしいです、、
614:デフォルトの名無しさん
22/03/27 12:52:04.46 dAzXJbreM.net
字下げや改行なんてVBAでやることじゃない
印刷だろうが電子化だろうが、文書の整形は出力アプリ側に投げるもんだ
リーダー端末の画面サイズやフォントサイズなんて予測できんだろ？
615:デフォルトの名無しさん
22/03/27 13:07:11.24 OVREMJced.net
文書の整形と文書自体を一緒にしてしまうところが悲しい・・・
616:デフォルトの名無しさん
22/03/27 17:11:35.24 hNNvtCzu0.net
なんでよ？VBAの義務教育編で字下げは真っ先に学習するはずじゃ？？
617:デフォルトの名無しさん
22/03/27 17:22:28.69 2Abk94v90.net
年収1000万のインド人はインデントもコメントもなし
一般人はちゃんとつけよう
618:デフォルトの名無しさん
22/03/27 17:30:10.15 6akgwO9ga.net
>>602
アクセスするライブラリとAPIリファレンスを掲示してくれたら捗るんじゃね？
619:デフォルトの名無しさん
22/03/27 17:33:41.29 OVREMJced.net
>>607
APIは変に教えるとよくないと思うから
それを使って何かするような事をしたいなら正式な仕事なりで発注させるべきだと思うぞ
そもそも何もわかってない奴がここで質問してるのもおかしな話だろ
620:デフォルトの名無しさん
22/03/27 17:34:17.13 OVREMJced.net
スクレイピングもたまに質問するやつがいるけど
それも同じな
621:デフォルトの名無しさん
22/03/27 17:50:20.50 ob1ESvJwH.net
>>609
VBA でのスクレイピングはイマイチですねえ、動いたり動かなかったりするし、なにかいい方法はないものか？
Function ScrapingAlgoA003(objIE As InternetExplorer, url, keyword As String)
objIE.navigate url
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
Dim ReturnValue As Double
Dim div As HTMLDivElement
For Each div In htmlDoc.getElementsByClassName(keyword)
ReturnValue = CDbl(div.innerText)
ScrapingAlgoA003 = ReturnValue
Next div
Set htmlDoc = Nothing
End Function
622:デフォルトの名無しさん
22/03/27 19:02:58.02 jqHr+5yx0.net
>>600
そうだな
>>597は>>595へのレスだ
623:デフォルトの名無しさん
22/03/27 19:18:00.28 7EXZAGuD0.net
>>610
VBAのスクレイピングは今だとSelenium使ったChromeのスクレイピングが主流なんじゃなかろうか
バージョン合わせるのが面倒だけど安定してるし
624:デフォルトの名無しさん
22/03/27 19:39:07.33 2Abk94v90.net
Seleniumはほんといいね
IEからxpathで・・・ってやってたのがほんとアホらしくなった
625:デフォルトの名無しさん
22/03/27 19:43:23.36 U13zJWe20.net
Seleniumは昔インストールしたんだがよくわからず
未だにIEばかり使ってるんだが もうそろそろ切り替えた方がいいのかな
626:デフォルトの名無しさん
22/03/27 19:51:02.70 7EXZAGuD0.net
昔のSeleniumはChromeの方にも拡張機能入れて…とかだった気がするけど今は事前準備も書くのも凄く簡単になってるね
627:デフォルトの名無しさん
22/03/27 19:59:57.15 2Abk94v90.net
>>614
100%切り替えた方が良い
ちょっと癖があるけど、cssセレクタ覚えればアホみたいに楽になるぞ
ちなみにXPathはしんどい
628:デフォルトの名無しさん
22/03/27 20:17:18.33 Df2KiTxu0.net
質問です。
連想配列に格納した連想配列の値を取り出すには
どうしたらよいのでしょうか?
Dim dicA as Dictionary
Dim dicB as Dictionary
dicB.Add "a",100
dicB.Add "b",100
dicB.Add "c",100
dicA.Add "A",dicB
としたとき、dicAの中のdicB("b")の値を取得したいとき
どうしたらいいのでしょうか。
Debug.print dicA("A").("b")
とかで出せるかと思ったのですが駄目でした。
629:デフォルトの名無しさん
22/03/27 20:19:01.83 uW5IEa4H0.net
set TikuB = dickA("A")
Tikubi("b") = bibibibibi-----
630:デフォルトの名無しさん
22/03/27 20:22:07.59 EN8vWua40.net
>>610
For EachなのにIfで条件指定しないのか
631:デフォルトの名無しさん
22/03/27 20:29:11.49 hNNvtCzu0.net
乳首エロい
632:デフォルトの名無しさん
22/03/27 20:31:09.02 BqsGdBXW0.net
>>617
よく分からんのだけど、Dictionalyって
型宣言しただけで使えるの？
普通に考えると、
Set dic A = New Dictionaly
Set dic B = New Dictionaly
とか、必要そうに見えるけど。
633:デフォルトの名無しさん
22/03/27 20:33:33.24 BqsGdBXW0.net
おっと、Dictionalyのスペルが違ってるか
Dictionaryかすまんこ
634:デフォルトの名無しさん
22/03/27 20:45:16.14 Df2KiTxu0.net
元の文と違いますが解決しました。
ありがとうございました。
Sub foo()
Dim dicA As Dictionary: Set dicA = New Dictionary
Dim dicB As Dictionary: Set dicB = New Dictionary
Set dicA("A") = dicB
dicA("A")("a") = "test"
Debug.Print dicA("A")("a") 'test
End Sub
635:デフォルトの名無しさん
22/03/28 01:22:22.67 LEJNBveMa.net
("A")
636:デフォルトの名無しさん
22/03/28 02:04:12.07 dJWBHkZn0.net
（:; U: ::）
637:デフォルトの名無しさん
22/03/28 07:56:32.13 bggr0gZp0.net
Selenium Webdriver と、
Chrome の拡張機能・Selenium IDE の2種類ある
638:デフォルトの名無しさん
22/03/28 07:57:45.06 W5FkPi4A0.net
Selenium Webdriver
639:デフォルトの名無しさん
22/03/28 12:34:55.90 DkLhkvc4M.net
ウェブダイバー
640:デフォルトの名無しさん
22/03/28 13:29:17.84 9Kb03WZY0.net
ウェブダイバーはカラオケで歌うぞ
641:デフォルトの名無しさん
22/03/28 18:29:52.50 jKre83rL0.net
>>623
今更だけど
Dim dicA As New Dictuonary
みたいに普通に1命令で設定しなかったのは何故？
642:デフォルトの名無しさん
22/03/28 18:47:34.87 2Ad/srHwa.net
横からだけど
For ...
Dim D As New Dictionary
...
Next
ってやると最初の一回しかNewしないから常に
Dim D As Dictionary: Set D = New Dictionary
ってやる人はいるみたい
643:デフォルトの名無しさん
22/03/28 18:55:38.23 jKre83rL0.net
>>631
いやいや、ループでそれぞれ別インスタンスとして使うにしても、定義は1回でNewするのが複数回で済むでしょ。
例えば上のレスのようにDictionaryにDictionaryを格納する場合でもDictionaryにしまった時点で参照は渡されるんだから消えないし、
その後、Newしてまた渡してやればインスタンスはまた別物として扱われるよね。
644:デフォルトの名無しさん
22/03/28 19:07:54.06 AcTRGxgL0.net
コードで語ればいいのに
645:デフォルトの名無しさん
22/03/28 19:46:09.16 W5FkPi4A0.net
>>630
知らなかっただけじゃないか
646:デフォルトの名無しさん
22/03/28 19:46:21.63 jKre83rL0.net
>>633
Sub hoge()
Dim dic1 As Scripting.Dictionary
Dim dic2 As Scripting.Dictionary
Dim itemCounter As Long
Set dic1 = New Scripting.Dictionary
For itemCounter = 0 To 3
Set dic2 = New Scripting.Dictionary
dic2.Add 0, "fuga" & CStr(itemCounter)
dic1.Add itemCounter, dic2
Next
For itemCounter = 0 To 3
Debug.Print dic1(itemCounter)(0)
Next
End Sub
出力結果：
fuga0
fuga1
fuga2
fuga3
dic1の中にdic2を入れてるけど、dic2の変数自体は使いまわし。
dic2はループの中でNewされているけど、dic1の中にそのときの
dic2の参照情報が格納されているため、きちんと別の値が保持される。
つまりはそういうこと。
647:デフォルトの名無しさん
22/03/28 19:51:37.75 BH9MBdK/a.net
↑ こいつは一体何を説明してるんだろう…
648:デフォルトの名無しさん
22/03/28 19:53:39.70 nzzJclxc0.net
みんな教え方バラバラだから質問者が困ってるよー
649:デフォルトの名無しさん
22/03/28 20:06:46.75 GBAIeVpDp.net
>>636
分からないならすっこんでればいいんじゃないかな
650:デフォルトの名無しさん
22/03/28 20:07:19.86 jdteRYNZd.net
実務ではよくある話
651:デフォルトの名無しさん
22/03/28 21:12:23.25 DlrSWjY+a.net
>>637
>>617の質問は解決してるし、>>630
の質問は>>634が一番ありそうだし
困ってる質問者って誰？
>>638
そうだねw
652:デフォルトの名無しさん
22/03/29 00:49:06.48 zHBdUnr/a.net
>>638
うるさい、だまってればいいんじゃないかな
653:デフォルトの名無しさん
22/03/29 01:38:58.63 YOHlvasK0.net
まあ、知らなかっただけって可能性が高いんだが
DimでNewしてるオブジェクト変数はNothingにできないって罠があるからな
そして今更だが、VBAにDictionaryはないぞ、と
654:デフォルトの名無しさん
22/03/29 06:28:42.33 z3WwGups0.net
>>642
nothingに出来ないってどういう事だ？
以下のコード、間違えてるんだろうか
Sub foo()
Dim a As New Collection
Set a = Nothing
End Sub
655:デフォルトの名無しさん
22/03/29 07:06:07.15 YJRadFF90.net
>>643
URLﾘﾝｸ(thom.hateblo.jp)
656:デフォルトの名無しさん
22/03/29 07:24:06.81 Nk63wsBAa.net
それをNothingにできないと言うか？
657:デフォルトの名無しさん
22/03/29 07:25:09.72 z3WwGups0.net
>>644
量子論で草
nothingできるけど元に戻る、vbaの狂気を垣間見た気がする
658:デフォルトの名無しさん
22/03/29 08:16:28.05 JuGZiW1lM.net
dictionaryって連想配列だろ
VBA的にはマスタの代わりか、重複を避けて集計するぐらいしか使わないイメージ
だからここで問題にされてることってどうでもいい気もするけどなｗ
>>602
お前の質問に答えられるレベルに人はここにはいないだろｗ
海外のサイトで質問するほうがいいよ
659:デフォルトの名無しさん
22/03/29 08:48:32.13 ZoTD6ZCz0.net
そもそもVBAのオブジェクト型は参照カウンタ方式だから、Nothingの代入はオブジェクトの破棄じゃないし
破棄の予約とでも言えばいいのかな
システムは予約が入ってるかどうか定期的にチェックして、可能なら破棄する
実際に破棄するタイミングはシステムが勝手に決めて、いつのまにか予測不可能なタイミングで破棄されてる
ところで破棄のアルゴリズムって公開されてる？
あるいは誰かが解析した資料がどっかにある？
660:デフォルトの名無しさん
22/03/29 08:57:03.34 91VKkhT6M.net
カウントゼロで破棄だろ
説明するまでもない
661:デフォルトの名無しさん
22/03/29 08:58:53.63 TzrFOdrRd.net
>>648
トレーシングGCと参照カウントがごっちゃになってるのかな
参照カウントは基本的に参照が外れたら即破棄
662:デフォルトの名無しさん
22/03/29 10:42:09.75 YJRadFF90.net
この辺、VB.Netとかの他言語でCOMオブジェクトの解放とかやってないと想像つきにくいよね。
そういうの知ってても面倒くさいし、サーバーサイドでEXCEL自体ないこともあるから
あの手この手で別の方法使ってEXCELの更新行おうとするよね。
663:デフォルトの名無しさん
22/03/29 11:13:32.55 DZfi33jJd.net
想像というよりやるべき作法をわからずに適当に作るからでは
使ったら解放するものは何か理解していれば間違えないでしょ
適当にここでNothingすればいいやとか思ってるから問題がおきてしまう
664:デフォルトの名無しさん
22/03/29 11:35:23.69 4eDRgxgoM.net
>>602
Salesforce CLIを呼び出してCSV等に出力し、それを読み込めばいい
VBAから直接APIを呼ぶのは自前でパースしなきゃいけなくて面倒だぞ
665:デフォルトの名無しさん
22/03/29 12:59:23.02 YOHlvasK0.net
>>643
Set a = Nothing
のあとに
MsgBox (a Is Nothing)
とかやってみ
問題にしてるのはオブジェクト変数をNothingにできないことで
つまり
Set obj = Checkobj()
If obj Is Nothing Then
みたいなコードがバグるってことなんだが
>>648
インスタンスの解放とか問題にしてないが
破棄の予約ってなんなんだよ
Nothingの代入は単に参照カウンタを減らすだけだぞ
結果カウントゼロなら廃棄される
.Netじゃないし、VBAで
>システムが勝手に決めて、いつのまにか予測不可能なタイミングで破棄されてる
なんてことはないはず
666:デフォルトの名無しさん
22/03/29 13:35:16.03 oJxqSb9ha.net
>>654
> Set a = Nothing
> のあとに
> MsgBox (a Is Nothing)
> とかやってみ
>>644のリンク先にも書いてあるけどMsgBox にブレークポイントかけてウオッチウインドで見てみ
Nothing にできないことと、Nothing の時に参照されたら New されると言うのは違う
667:デフォルトの名無しさん
22/03/29 13:45:44.59 YOHlvasK0.net
>>655
ああ、そうだな
オブジェクト変数をNothingにできない
は
(VBAコードから)オブジェクト変数をNothingとして評価できない
に訂正しとくわ
668:デフォルトの名無しさん
22/03/29 13:49:11.35 DZfi33jJd.net
>>654
バグるんではなく自分でバグらせてるだけでしょ
Dimで変数を宣言する際にNewを付与するとヘルプのこちらの記載
「オブジェクト変数の宣言時に New を使用すると、その変数を最初に参照したときにオブジェクトの
新しいインスタンスが作成されるようになり、Set ステートメントを使用してオブジェクト参照を
割り当てる必要がなくなります。」
にある通り変数を参照する限りはNothingにすることはできない
（デバッグで変数を参照してしまっても同様）
変数がNothingか判定したいなら素直に宣言の際はNewを使わなければいいだけ
Newをどういうときに使うとコーディング上効果的かわからない、他人が理解�
669:ﾅきないかもしれないなら使わないほうがいい
670:デフォルトの名無しさん
22/03/29 13:53:26.54 /B8eDHF6d.net
>>656
評価って表現もなんかおかしくない？
Nothingになっていることを確認できない、とか
671:デフォルトの名無しさん
22/03/29 14:15:22.73 YJRadFF90.net
でもこれ、ちょっと怖いよね
Dimの宣言時にNewしてやると、Nothingにしたら次触るとき、インスタンスが設定されていなければ
勝手に新しいインスタンスを設定するなんて
知らなかったら分岐に Is Nothingとか使いそうだし、知ってたら知ってたでSet ～ As New ～の代わりに使って、知ってる人じゃなければ分からないような属人化コードわざと書いたり出来るってことだもんね。
.Netとかでも同じような挙動をするのかな？
672:デフォルトの名無しさん
22/03/29 14:49:39.05 DZfi33jJd.net
怖いもなにもヘルプに書いてあることを理解せずに伝えたりそれを聞きかじっただけでやるからでしょ
質問する側も答える側も一部分だけのやり取りしてるのを踏まえて会話しないと事故のもとだよ
まあ事故るのは質問する側だけなんで答える側はそこまで保証できないが
673:デフォルトの名無しさん
22/03/29 15:00:51.71 5Hfxlu6fa.net
>>657
> 「オブジェクト変数の宣言時に New を使用すると、その変数を最初に参照したときにオブジェクトの新しいインスタンスが作成されるようになり、Set ステートメントを使用してオブジェクト参照を割り当てる必要がなくなります。」
から
> 変数を参照する限りはNothingにすることはできない
と言うのは飛躍しすぎ
問題はそっちじゃなくて
> 「必ずオブジェクトが存在することが保証される (Nothing を設定してオブジェクトが破棄されたとしても、オブジェクト変数を再利用しようとすると、再作成される)」
の方な
ただ個人的には上記の文で「オブジェクトが破棄されたとして」のくだりは余計だと思う
複数から参照されてたらオブジェクト自体は破棄されないから
674:デフォルトの名無しさん
22/03/29 15:09:04.14 DZfi33jJd.net
Nothingしてもその後に”変数を参照した”らNothingが再作成されたインスタンスに変わるんだからできないと一緒じゃない？
それと変数とオブジェクトを一緒に考えてないか？
自分は
Dim A As Object
Dim B As Object
Set A = XXX
Set B = A
Set A = Nothing
この場合のAの話をしていてXXXで作成したインスタンスの話はしてないよ
675:デフォルトの名無しさん
22/03/29 15:12:01.06 DZfi33jJd.net
まあどうでもいい話だった無視してくれ
すまん
676:デフォルトの名無しさん
22/03/29 15:23:41.67 YOHlvasK0.net
>>657
元の話はなぜDimでNewしないって話だから
バグのもとだからやめといたほうが良いという、理由の可能性の一つを挙げてるだけだが
実際知っててもミスることはあるし、しらないとデバッグが困難だからな
677:デフォルトの名無しさん
22/03/29 15:30:09.53 9zoeUatEa.net
>>662
混同してるのはお前さんの方
Aは変数でオブジェクトじゃないぞ
678:デフォルトの名無しさん
22/03/29 15:31:19.17 YOHlvasK0.net
>>662
まあ、Nothingにできないは厳密には確かに違う。Nothing代入できるし
Nothingにならないって言うほうが正しいな
このコンテキストでその違いが重要か？とは思うが
679:デフォルトの名無しさん
22/03/29 15:54:16.92 ffasCIjOa.net
>>666
違いは重要じゃないけど
> Nothingにならないって言うほうが正しいな
と言う明らかな間違いを言い続けるのはどうかと思うぞ… ⇒ >>655
680:デフォルトの名無しさん
22/03/29 18:10:12.28 OyTS9aq30.net
列ではなく、選択した箇所だけを固定したいのですが出来ませんか？
681:デフォルトの名無しさん
22/03/29 18:32:44.42 ZoTD6ZCz0.net
>>666
違う
代入すればNothingになる
その次にアクセスすると、またそのタイミングで自動的にNewされる
682:デフォルトの名無しさん
22/03/29 18:52:31.36 DZfi33jJd.net
各自が想定してるコードが違うんだから言葉遊びにすぎないよ
自分のレスもいまいちだったかもしれんがNothingをセットして終了するならNothingかもしれないが
後続のコードにIs Nothingなり変数の参照があるならそれは結果的にNothingではなくなるのと一緒と自分は思ってるだけ
例に出して申し訳ないが
> Set a = Nothing
> のあとに
> MsgBox (a Is Nothing)
これとかね
自分なりの結論は宣言時にNewは使わないほうが無難
683:デフォルトの名無しさん
22/03/29 19:12:31.97 YOHlvasK0.net
>代入すればNothingになる
>その次にアクセスすると、またそのタイミングで自動的にNewされる
厳密にはその通り
そんなことは分かったうえで、それをコード上で確認できないから
Nothingにならない と表現したわけで、その表現が間違いらしいですわ
(VBAコードから)オブジェクト変数をNothingとして評価できない
すべての個所をそう読み替えといてくれ
飽きたし俺はこの話はもうこれで終わり
684:デフォルトの名無しさん
22/03/29 19:15:45.64 YJRadFF90.net
まぁ>>670の言う通り言葉遊びだよね
みんな実際の挙動は理解しての会話になってるみたいだし
685:デフォルトの名無しさん
22/03/29 19:19:18.21 y+mxjJK80.net
まあオレは今まで知らなかったけどな！
686:デフォルトの名無しさん
22/03/29 19:32:15.47 /IcSX3Pk0.net
>>644
おれ以外にもthom先生見てる人いたか
687:デフォルトの名無しさん
22/03/29 20:35:52.45 TgcL8J/yM.net
どう見ても最初はわかってなかったやろ
最後にやっと理解できたみたいだけど
688:デフォルトの名無しさん
22/03/29 21:25:13.63 YV5lTWI/0.net
人に優しく行きましょう
それは分かる人に与えられた特権なのです
689:デフォルトの名無しさん
22/03/30 05:40:49.56 bXpTryOw0.net
人生は優しくなるためにある
690:デフォルトの名無しさん
22/03/30 08:23:09.21 0ps204vGM.net
スマホ手打ちなので誤字等ありましたらすみませんがよろしくお願いします。
rangeを用いた範囲指定でcells(row,columns)の行、列の部分に端数切り上げで数式を入れたいと考えています。
vbaで roundupを用いる時はworksheetfunction.をつける必要があることをネットで知ったのですが、ページによって頭にapplication.をつけてるものとそうでないものが混在しました。有無によってどのような違いがあるのか教えてください。
691:デフォルトの名無しさん
22/03/30 08:47:30.52 06EhkzBAd.net
数式を入れるのかワークシート関数を使って値をいれたいのかよくわからないけど
後半の質問であればVBA上では動作に違いはないよ
「URLﾘﾝｸ(docs.microsoft.com)(object)」の
「アクティブ セル (ActiveCell プロパティ) など、最も一般的なユーザーインターフェイス オブジェクトを返すプロパティとメソッドのほとんどは、Application オブジェクト修飾子を指定しないで使用できます。」
と書いてある通り
こういう質問する前にヘルプを見ると知りたい事や知っておいたいいことが書いてる場合もあるし怪しい回答の知識を覚えなくて済むから見る癖つけたほうがいいぞ
692:デフォルトの名無しさん
22/03/30 08:54:37.31 6Q6BE8PxM.net
>679
ありがとう、参考にします。
693:デフォルトの名無しさん
22/03/30 09:15:22.27 p8/VPuFXr.net
いえいえ
694:デフォルトの名無しさん
22/03/30 10:25:12.15 otm0Hfbh0.net
実際に組んでみてうまく行かない場合に調べるとか質問とかしたらいいと思う
695:デフォルトの名無しさん
22/03/30 10:38:48.27 xL2+oAob0.net
ちょっと教えてください
複数のシートを一緒にスクロールして
常に同じ位置に同じ行列が表示させられるような移動方法ってありますか？
例）
シート１～シート10までをグループ化して
シート１をスクロールして1000行目を頭に表示すると
残りのシート２～シート１０も同じように1000行目を表示している
よろしくお願いします
696:デフォルトの名無しさん
22/03/30 14:07:54.57 4QxrGADI0.net
裸の王様がやってきた やってきた やってきたぞ
697:デフォルトの名無しさん
22/03/30 19:23:16.04 QNA9H61R0.net
>>683
いったんアクティブにしていいなら
Application.GotoとかWindow.ScrollIntoViewとかで表示位置は変えられるけど
まあ使い物にならない可能性が高いな
アクティブじゃないシートのスクロール位置を変える方法があるなら俺も知りたい
それかWindow10個作って同時にスクロールにするとか
698:デフォルトの名無しさん
22/03/30 19:31:25.53 ljpoek3c0.net
複数のシートのデータを纏めたシートを作ったらどうかな
699:デフォルトの名無しさん
22/03/30 19:32:55.87 2JfZorGz0.net
スクロールのイベントってないんか
クリックしたセルを同じにするマクロ
なんじゃこりゃ
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Sheet1" Then
Sheets("sheet2").Select
Sheets("sheet2").Cells(Target.Row, Target.Column).Select
Sheets("sheet3").Select
Sheets("sheet3").Cells(Target.Row, Target.Column).Select
Sheets("sheet1").Select
End If
End Sub
700:デフォルトの名無しさん
22/03/30 19:47:16.20 R9seM6Mc0.net
馬鹿が考えた操作なんて実装しても、所詮馬鹿の馬鹿な発想でしかない
701:デフォルトの名無しさん
22/03/30 22:06:13.73 wN+Ljz7f0.net
>>687
フォーム内のスクロールバーはイベント取得できるぽい
そういうのでいいならフォーム内スクロールバーに従ってシートをスクロールさせることはできそう
もしくはシート１のスクロールを監視して自分でイベント発行するか
702:デフォルトの名無しさん
22/03/30 22:25:38.10 N270RWsC0.net
彼女の下のお口から出る糸を、シート(She糸)と呼びます
703:デフォルトの名無しさん
22/03/30 22:25:54.14 2JfZorGz0.net
>>689
逆にスクロールを実装すればよかったのね
下スクロールを実装したら期待通りの動きになったわ
Sub Macro4()
' Keyboard Shortcut: Ctrl+Shift+P
Windows("Book1 - 1").Activate
ActiveWindow.SmallScroll Down:=30
Windows("Book1 - 2").Activate
ActiveWindow.SmallScroll Down:=30
Windows("Book1 - 3").Activate
ActiveWindow.SmallScroll Down:=30
End Sub
704:デフォルトの名無しさん
22/03/31 04:24:20.35 YoVJ22V0M.net
糸を出す女ってスパイダーガールか
705:デフォルトの名無しさん
22/04/01 07:19:21.13 fdMR9HVCM.net
宗教的な話題になりそうだけど、If文で判定入れてそれ以外の場合は何もしないって処理の時、elseを省く？それとも何も処理をしないって明示するためにelseの中に何も書かない？
706:デフォルトの名無しさん
22/04/01 08:08:06.08 AJ0kjIG/a.net
俺は省く
逆に Select Case の Case Else は必ずつけて何もしなくていいことを明示するコメントを書いておく
707:デフォルトの名無しさん
22/04/01 08:13:36.66 YZ/4IsUH0.net
こういう書き方ってどうにかしてうまくまとめる方法はありますか？
if C=1 then
if B=1 then
if A=1 then
msgbox "メイン処理を実行します"
else
msgbox "A=1じゃなかったので実行しなかった"
else
msgbox "B=1じゃなかったので実行しなかった"
else
msgbox "C=1じゃなかったので実行しなかった"
708:デフォルトの名無しさん
22/04/01 08:33:32.40 cX1o4aeta.net
>>695
If C <> 1 Then
msgbox "C=1じゃなかったので実行しなかった"
Goto Skip
End If
If B <> 1 Then
msgbox "B=1じゃなかったので実行しなかった"
Goto Skip
End If
If A <> 1 Then
msgbox "A=1じゃなかったので実行しなかった"
Goto Skip
End If
msgbox "メイン処理を実行します"
Skip:
Goto 嫌なら Sub に入れて Return とか
709:デフォルトの名無しさん
22/04/01 09:19:19.95 qbFmdfWP0.net
>>695
ネスト深くなるとわかりにくい
処理は簡単な単位でまとめたほうがいい
実行する／しないは一つの単位（success/errorのように）としてまとめたほうがいい
拒否理由="なし"
if c<>1 then 拒否理由="cじゃない"
else if b<>1 then 拒否理由="bじゃない"
else if a<>1 then 拒否理由="aじゃない"
if 拒否理由="なし"
メイン処理
else
msgbox 拒否理由&"ので実行しません"
710:デフォルトの名無しさん
22/04/01 19:02:13.39 qNIRpAbL0.net
わかりにくいってだけで正常に動作しているならコメントでも書いとけばいいんじゃね
711:デフォルトの名無しさん
22/04/01 19:04:18.25 iXF+QXI0M.net
>>696
do loop 0でブレイク
712:デフォルトの名無しさん
22/04/02 10:46:13.39 fjGlq1dk0.net
>>697
おれもこんな感じだな
Elseifは好きじゃないからSelectCaseかなあ
713:デフォルトの名無しさん
22/04/02 12:32:39.80 wbru5aYXa.net
VBA の Select Case は Case 節に式が書けるから素直に
Select Case True
Case C <> 1
msgbox "C=1じゃなかったので実行しなかった"
Case B <> 1
msgbox "B=1じゃなかったので実行しなかった"
Case A <> 1
msgbox "A=1じゃなかったので実行しなかった"
Case Else
msgbox "メイン処理を実行します"
End Select
がわかりやすいかな
714:デフォルトの名無しさん
22/04/02 13:02:04.64 ZSAOoecqp.net
>>701
俺もこんな感じにするかな
C#とかと違って;で止められないけど
まぁそれはそれとして。
715:デフォルトの名無しさん
22/04/02 19:50:51.52 xmwnc1Js0.net
複数の条件が成り立つ場合の優先度とか気にせんと・・・
716:デフォルトの名無しさん
22/04/02 20:08:08.57 rQp/oHNqa.net
>>703
なんでドキュメント読まないの？
複数の Case 句の expressionlist 式に一致する場合は、最初に一致した句に続くステートメントのみが実行されます。
URLﾘﾝｸ(docs.microsoft.com)
717:デフォルトの名無しさん
22/04/03 00:02:19.90 ZgXClf4M0.net
A=1かつB=1かつC=1だったらXが実行されるって言う事ではないのね
なんかややこしいね(´・ω・｀)
718:デフォルトの名無しさん
22/04/03 03:01:36.86 J74pUyNp0.net
俺は中身が1行の時はCaseを1行にまとめる派
Sub Macro()
Select Case True
Case C <> 1: errmsg ("C")
Case B <> 1: errmsg ("B")
Case A <> 1: errmsg ("A")
Case Else: MsgBox "メイン処理を実行します"
End Select
End Sub
Sub errmsg(s$)
MsgBox s & "=1じゃなかったので実行しなかった"
End Sub
719:デフォルトの名無しさん
22/04/03 06:50:49.06 o4u0MtXma.net
>>706
errmsg の呼出時の括弧は要らないのでは？
720:デフォルトの名無しさん
22/04/03 07:52:44.68 6Vj/pyuu0.net
>>706
こういうふうにはしないほうが良い？
Sub Macro()
Select Case True
Case C <> 1: msg ="C"
Case B <> 1: msg ="B"
Case A <> 1: msg ="A"
Case Else: msg= "メイン処理を実行します"
End Select
End Sub
msgbox(msg)
721:デフォルトの名無しさん
22/04/03 08:39:48.32 D1zTFGCZM.net
そうやって本筋じゃない方へ話題は逸れていく
722:デフォルトの名無しさん
22/04/03 09:01:58.41 Uf1/B9Ep0.net
Subの場合は
括弧を付けるならCallも付ける
Callを付けないなら括弧も付けない
それだけ
723:デフォルトの名無しさん
22/04/03 09:05:23.70 r53Jbhkva.net
>>708
> こういうふうにはしないほうが良い？
うん、それだと C = 2 でテストしたら単に C って表示されるだけだし
724:デフォルトの名無しさん
22/04/03 09:06:11.26 6Vj/pyuu0.net
>>709
今回はどんどん話を膨らませていいよ
725:デフォルトの名無しさん
22/04/03 10:18:01.32 spDayutJd.net
僕が考えた最高のコード
ってやつだろこんな話題にくいつくのもはずいわ
726:デフォルトの名無しさん
22/04/03 10:39:12.57 6Vj/pyuu0.net
>>708は間違いね
こういう風に、メッセージの中だけ変数に入れて最後で表示させるってのはやめたほうがいいでしょうか
Sub Macro()
Select Case True
Case C <> 1: msg ="C=1じゃなかったので実行しなかった"
Case B <> 1: msg ="B=1じゃなかったので実行しなかった"
Case A <> 1: msg ="A=1じゃなかったので実行しなかった"
Case Else: msg= "メイン処理を実行します"
End Select
End Sub
msgbox(msg)
727:デフォルトの名無しさん
22/04/03 10:49:41.47 LxaPNz9fM.net
好きにすればいい
728:デフォルトの名無しさん
22/04/03 12:48:35.67 AxYcslms0.net
>>714
実行しなかったって表示するのに実行しそうだな
729:デフォルトの名無しさん
22/04/03 13:26:31.81 mz7mxvwZp.net
しねーよハゲ
730:デフォルトの名無しさん
22/04/03 15:21:18.52 4YOQBH220.net
お前ら頑張ってるけど
メッセージなんかただの処理サンプルだろうから
>>701が採用されそうだけどね
731:デフォルトの名無しさん
22/04/03 15:52:40.85 vYlFEoJTd.net
実際の仕様でもなんでもない話に採用もクソもないのでは
好きにすればいいはなし
732:デフォルトの名無しさん
22/04/03 17:28:53.57 m8vuVm8ra.net
話題に食いつくのははずいのに批判だけはするんだな
てか、批判しかできないのかなw
733:デフォルトの名無しさん
22/04/03 17:42:03.95 6Vj/pyuu0.net
草
734:デフォルトの名無しさん
22/04/05 23:43:32.11 4aElhsU0a.net
>>714
最高のコード
735:デフォルトの名無しさん
22/04/07 20:06:13.11 k57kmbe60.net
>>722
End Sub の下に msgbox(msg) があるのに？
736:デフォルトの名無しさん
22/04/07 20:57:01.15 WZu7hIyw0.net
やっと書き込めた。
BB2Cが死んでJane Stileとかいうアプリで書き込んでるけど、VBAスレもその煽りかめっきり書き込み減ってるね。
737:デフォルトの名無しさん
22/04/07 22:52:18.94 shKfmndDa.net
>>723
最（もお茶が）高（く噴き出た）のコード
738:デフォルトの名無しさん
22/04/08 09:32:33.40 P5V0Axif0.net
ハイパーリンクで、他のファイルを開こうとすると、警告ダイアログが出ますが、
（「ファイルには、ウイルスやコンピューターに問題を…」）
非表示にできますか？
レジストリでDisableHyperlinkWarningをやっても、ダメでした…。
739:デフォルトの名無しさん
22/04/08 09:48:16.01 O75PAQWK0.net
ユーザーフォームに設置したボタンをクリックすると
Private Sub ～～～_Clickのイベントプロシージャが追加されますが、
このコードの追加位置はどういう基準で決まっていますか？
すぐ隣のボタンのClickの近くに挿入されることもあれば、
結構離れた位置に挿入されることもあります。
740:デフォルトの名無しさん
22/04/08 18:32:41.81 DozpoMh4a.net
質問は一人一つまで。
741:デフォルトの名無しさん
22/04/08 19:07:30.71 aNhRPKRk0.net
>>726
ウイルスでも作っているの？
742:デフォルトの名無しさん
22/04/08 19:44:29.30 p3Omju050.net
エクセルVBAでウイルスを作ることはできますか？
エクセルVBAでAIを作ることはできますか？
743:デフォルトの名無しさん
22/04/08 19:49:56.82 0/Kcf5P10.net
>>726
試してないから出来るか分からんけどディスプレイアラートは？
744:デフォルトの名無しさん
22/04/08 19:59:37.27 iHtexTHZ0.net
>>730
直クライアントだからな
余裕で出来る
745:デフォルトの名無しさん
22/04/08 20:10:13.83 cwm3b4Q1d.net
>>730
はい
はい
746:デフォルトの名無しさん
22/04/08 20:43:11.43 p3Omju050.net
>>732
でもおまえウイルスの作り方わからないじゃん
747:デフォルトの名無しさん
22/04/08 20:59:12.69 AMkeYZ900.net
ウィルスの定義は「操作する人が意図しない動作を起こすプログラム」
だから空白のボタン押すと背景の色が変わるとかそんなんでもウィルスです
748:デフォルトの名無しさん
22/04/08 21:53:49.35 iHtexTHZ0.net
やっとBB2Cが使えるようになった
>>734
煽ってもダメ
ウイルスなんて作らないし
作り方だって載せるつもりはないよ
749:デフォルトの名無しさん
22/04/08 22:14:19.86 AMkeYZ900.net
>>736
いやもう作り方載せたって>>735
750:デフォルトの名無しさん
22/04/08 22:18:44.47 7fG2FYL40.net
ヤンキー・ドゥードルが懐かしい
751:デフォルトの名無しさん
22/04/09 00:48:37.33 C63TJhml0.net
AIの定義が明確に定まってないので自己学習して勝手に洗練されていくものもAIだしただのマクロもAI
752:デフォルトの名無しさん
22/04/09 00:55:30.60 tyw5ZPAK0.net
AIは作るものじゃない
育むものなんだよ
753:デフォルトの名無しさん
22/04/09 02:28:28.01 FQQX8rtBa.net
>>736
もうすでにウイルスのソースコード載ってますが？
>>714
754:デフォルトの名無しさん
22/04/09 06:04:10.90 +bGajSMm0.net
任意の列が左端に来るように水平スクロールする方法ってある？
Application.Gotoで左端に寄せてSmallScrollで上下位置を調整してるけど完全な水平スクロールにはならないんだよね
755:デフォルトの名無しさん
22/04/09 07:34:48.36 Dec5MFVZ0.net
With ActiveWindow
.ScrollRow = x
.ScrollColumn = y
End With
756:デフォルトの名無しさん
22/04/09 08:12:43.36 +bGajSMm0.net
>>743
それも試したけど、アクティブセルが変わると数値が変わらない？
757:デフォルトの名無しさん
22/04/09 08:52:12.11 +bGajSMm0.net
任意の列とアクティブセルの列の差を求めればScrollRowで行けるかな？
今度試してみよう
758:デフォルトの名無しさん
22/04/09 11:14:24.15 Mfv2lAJId.net
Sub World()
Dim Abe As Virus
Set Abe = New prime minister
Abe.coin.End(xldown)
Abe.tax.End(xlup)
Abe.wing.End(xlright)
End World
759:デフォルトの名無しさん
22/04/09 12:54:27.64 FQQX8rtBa.net
で、誰かがズームしたりページレイアウト変えたりして、
トラブルの元になると。
ウィンドウ系はいじらない方がいいと
職場のおじいちゃんが言ってた。
760:デフォルトの名無しさん
22/04/09 13:45:19.95 6rDUdJJw0.net
アース、ファイア、ウォータ系の属性のほうがいいかもね
761:デフォルトの名無しさん
22/04/09 14:39:59.55 FQQX8rtBa.net
Excel VBA の Window 関連のオブジェクトって、船に刻して剣を求むって感じ
走っている電車の中から、指で窓ガラスに風景を描くみたいな
762:デフォルトの名無しさん
22/04/09 15:26:28.03 +bGajSMm0.net
さっぱり例えが分からんw
763:デフォルトの名無しさん
22/04/09 16:04:42.29 2h0/Yyo40.net
詩的すぎるだろｗ
764:デフォルトの名無しさん
22/04/09 18:41:50.44 8cH1hwr70.net
>>749
なるほど納得。
納豆食う。
765:デフォルトの名無しさん
22/04/09 20:23:31.13 8/Ft6Y7L0.net
日本人だけど意味がさっぱりわからんｗ
766:デフォルトの名無しさん
22/04/09 22:16:01.68 XcpxlUbda.net
ごめん失敗したテヘ
767:デフォルトの名無しさん
22/04/10 01:02:21.87 tD6svEJl0.net
ヘッドレスChromeをseleniumやWebdriverなしでどうにかなりませんか?
768:デフォルトの名無しさん
22/04/10 19:56:53.98 anoG1hsda.net
>>755
UiPathおすすめ
769:デフォルトの名無しさん
22/04/11 21:59:21.11 Kyp6sDnX0.net
オブジェクトの代入を同一プロジェクトで使いまわすことはできるでしょうか？
Public ws1 as worksheet
Module1
Sub test1()
Set ws1 = Worksheets("Sheet1")
ws1.Range("A1") = "Test1"
End Sub
Module2
Sub test2()
Set ws1 = Worksheets("Sheet1")
ws1.Range("A2") = "Test2"
End Sub
これを下記のようにできないかな、ということです。
Public ws1 as worksheet
Set ws1 = Worksheets("Sheet1")
Module1
Sub test1()
ws1.Range("A1") = "Test1"
End Sub
Module2
Sub test2()
ws1.Range("A2") = "Test2"
End Sub
770:デフォルトの名無しさん
22/04/11 22:26:56.33 p2QF/trT0.net
なにがしたいのか
771:デフォルトの名無しさん
22/04/11 22:56:21.06 7xr/cYmKd.net
オブジェクトは無理でしょ
Funtionで対応すれば良い
最もそうしない方が良いからデフォで出来ないようになってることは考慮すべきだと思う
772:デフォルトの名無しさん
22/04/11 23:25:19.91 9dLPe5470.net
ん
773:？そもそもワークシートってオブジェクト化されてるんだからわざわざ変数にセットする必要なくない？ 対象のシートがコードを書いているファイルにあるなら Sheet1.Range("A1").Value = "Test1" で良いでしょ？
774:デフォルトの名無しさん
22/04/11 23:56:27.01 Kyp6sDnX0.net
簡略化するためにThisworkbookを省略して書きましたが、実際には
マクロ動作中にほかのブックを触っても大丈夫且つコードがすっきり
するようにSet ws1 = Thisworkbook.Worksheets("Sheet1")のように
しています
少し時間ができたので増築増築でややこしくなったコードを整理している
最中で、複数のプロシージャで使う固定のシートはまとめて変数にセットして
おこうかと思ったのですがFunctionで調べてみます、ありがとうございます
775:デフォルトの名無しさん
22/04/11 23:58:43.07 amT3mnzR0.net
変数を使いまわす（というか広域で使う）のは普通にできる
モジュールレベルでPublic変数定義するだけ
なんならモジュール名で修飾してもいい
ただ、変数の寿命が管理しにくいから、
中身がセットされてないとか、いつの間にか中身が消えてるとかいうことになるかもなｗ
776:デフォルトの名無しさん
22/04/12 00:23:20.44 ccOkbRo70.net
シートをオブジェクト名で指定すればどのブックを触っていようがそのコードが書いてあるブックから参照すると思うのだけど
>>761 がやろうとしてる事って他のブックのシートを変数に収納したい場合しか使わなくないか？
777:デフォルトの名無しさん
22/04/12 02:00:50.12 vEgugssg0.net
>>763
一部のメソッドでオブジェクト名を省略できないのがあるじゃん
自分がちゃんと理解してないのが原因なのはわかってるけど、構文とかデフォルトのオブジェクトとかいちいち覚えるのが面倒くさいんだわ
778:デフォルトの名無しさん
22/04/12 06:30:21.52 j+U2fOIu0.net
やるならこうか？
init()に色々初期化みたいなものをまとめて、毎回呼び出す
Public ws1
Sub init()
Set ws1 = Worksheets("sheet1")
End Sub
Sub foo()
Call init
Cells(1, 1) = 1
End Sub
Sub foo2()
Call init
Cells(2, 2) = 2
End Sub
779:デフォルトの名無しさん
22/04/12 06:46:39.08 da5RcI7d0.net
汎用性と独立性を確保するなら引数でシートを渡せ
780:デフォルトの名無しさん
22/04/12 07:15:19.69 t+9U/8lg0.net
>>757
初心者がかち当たるあるある疑問だよね。
最初は>>762の言う方法でやってみればいいと思うよ。
もう少しやり込んでくればデバッグし易くするためにモジュールスコープレベルのPrivateな変数をPublicな関数やプロパティでやり取りするようになるんだけどね。
781:デフォルトの名無しさん
22/04/12 07:20:31.49 j+U2fOIu0.net
こういうイメージ？
よく考えたらpublicにする必要性が全くない
Sub init()
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
Set ws3 = Worksheets("sheet3")
Set ws4 = Worksheets("sheet4")
End Sub
Sub foo()
Call init
ws1.Cells(1, 1) = 1
End Sub
Sub foo2()
Call init
ws2.Cells(2, 2) = 2
End Sub
782:デフォルトの名無しさん
22/04/12 07:21:37.35 j+U2fOIu0.net
と思ったらpublicいるわスコープ他の言語と間違えたわ
783:デフォルトの名無しさん
22/04/12 17:42:54.51 oSnOjvyr0.net
Recordset.openでselect文を実行するとエラーになるけどツールでログに出した物を実行してもエラーにならない時って何が原因？
ダブルクォートは含まれてない
あとはイミディエイトウィンドウに出てくるsqlが変なとこで改行されてるけど関係ないよね？
784:デフォルトの名無しさん
22/04/12 17:45:16.76 pq/BAZJoM.net
シラネーヨ
785:デフォルトの名無しさん
22/04/12 19:22:20.07 D2BP6h+A0.net
742で書いた完全な水平スクロールできたわ
786:デフォルトの名無しさん
22/04/12 19:25:18.42 D2BP6h+A0.net
>>757
Sheet1モジュールに書くだけでは？
787:デフォルトの名無しさん (ﾜｯﾁｮｲ c6da-EhK1)
22/04/12 19:48:28 hYDOb6070.net
>>770
それだけで答えられるほどエスパーじゃない
788:デフォルトの名無しさん
22/04/12 19:58:04.86 t+9U/8lg0.net
>>770
まず出力されているエラーは何なの？
789:デフォルトの名無しさん
22/04/12 20:52:44.19 oSnOjvyr0.net
ora 00933
sqlコマンドが正しく終了されていません
が出るんだよね
790:デフォルトの名無しさん (ﾜｯﾁｮｲ e2da-vtdv)
22/04/12 21:13:36 cLFsXNmb0.net
そのままのエラー文でググれば一発で回答出てくるぢゃねーか
791:デフォルトの名無しさん (ﾜｯﾁｮｲ e24f-EtAN)
22/04/12 21:30:37 t+9U/8lg0.net
>>776
SQLのケツに;付けろってよ
792:デフォルトの名無しさん
22/04/13 01:24:31.19 idY8HIbz0.net
757です、いろいろご意見ありがとうございます
その後考えた結果、シートのオブジェクト名を変数として代入しようとした名前に変えればいいんじゃないかと思いついたんですが問題ないでしょうか
793:デフォルトの名無しさん
22/04/13 03:33:56.70 +aMOkW0p0.net
>>779
シチュエーションにもよるかな。
シート名を変えられてもそのシートを使う前提であればそれでいいんじゃないかな。
その場合、
自ブックのシートであれば
Dim targetSheet As Worksheet
Set targetSeet = 変更後のシートオブジェクト名
みたいに使えるし、
他ブックのシートを扱う場合は
Dim targetSheet As Worksheet
Set targetSheet = ブックオブジェクト.(シートオブジェクト.Name)
みたいに書けば設定出来る。
もっとも、後者の書き方で前者を賄えるから後者だけ関数化してそれを使い回してもいいけどね。
794:デフォルトの名無しさん (ﾜｯﾁｮｲ 7b68-xb3m)
22/04/13 07:03:06 CoVp5Ukt0.net
>>779
オブジェクト名はやめたほうが良い。あんまり意味が無い
やるなら、シートの内容を変数名にする
ローマ字
set shain_master = sheet("社員マスター")
日本語許容するなら
set 社員マスタ = sheet("社員マスター")
なおベストは英語
795:デフォルトの名無しさん
22/04/13 07:35:12.98 6wqio091M.net
会社員を英語でなんと言うかがわからんわ
worker(労働者)やemployee(被雇用者)じゃニュアンスが違うしー
辞書なしですぐ出てくるレベルのやつはVBAなんかやってないやろ、という偏見
796:デフォルトの名無しさん
22/04/13 07:37:38.41 CoVp5Ukt0.net
staffでええやろ
797:デフォルトの名無しさん
22/04/13 07:50:17.55 +aMOkW0p0.net
>>782
会社員だから
companyEmployeeでいいんじゃね？
798:デフォルトの名無しさん
22/04/13 07:56:48.50 HWn/7Hddd.net
Google翻訳だとmember
んー、なんかしっくり来ない
799:デフォルトの名無しさん
22/04/13 07:59:18.64 PsKYJxH90.net
staffは関係者ってイメージ
800:デフォルトの名無しさん
22/04/13 08:15:50.97 1kKv9jFRd.net
staffという単語はcompanyと同義で集団に対して使うって日本人は意外とわかってない
801:デフォルトの名無しさん
22/04/13 08:30:55.20 CoVp5Ukt0.net
employee以外ないだろう
802:デフォルトの名無しさん (ｽﾌﾟｯｯ Sd22-eTSu)
22/04/13 08:56:08 wBIIYhTid.net
会社員という表現は英語では難しい
大人しく syachiku か Karoushi_Man にしとけ
803:デフォルトの名無しさん (ﾌﾞｰｲﾓ MM02-CB6w)
22/04/13 09:04:23 YJgAVhDkM.net
業務用語の変数は日本語で業務用語そのものを使ってる
中途半端な英語だと誤解しやすいし、ローマ字は読みづらい
804:デフォルトの名無しさん
22/04/13 10:04:01.74 NHlBNLdW0.net
Accessならお馴染みの「Northwind」のテーブルでは Employee List とか Employee Details
概念としての会社員ではなく、自社の社員リストなので「従業員・使用人」の意で
ま、そのファイルを誰が見る？誰が使う？どこに出す？で適宜に 恥かかない程度で 何だっていいんだろうけれども
805:デフォルトの名無しさん
22/04/13 10:09:02.25 93SXwTUS0.net
リーマンが和製英語からすでに世界に浸透してる
806:デフォルトの名無しさん
22/04/13 10:28:39.30 Wmi1ga+iM.net
ワークマン
807:デフォルトの名無しさん
22/04/13 11:06:56.09 BozzLOUH0.net
ワークマンは流行りよ
808:デフォルトの名無しさん (ｽｯﾌﾟ Sd22-2p/j)
22/04/13 12:58:38 7IxClg8bd.net
緊急です！
マクロの入ったボタンが図だかイラストになってしまい困ってます。
直し方のアドバイスお願いします。
809:デフォルトの名無しさん (ﾜｯﾁｮｲ 6711-LXkm)
22/04/13 13:07:23 zDnWB3YN0.net
>>795
ｽﾚﾘﾝｸ(bsoft板:342番)
810:デフォルトの名無しさん
22/04/13 13:09:58.08 Wntan1Ql0.net
こういうの30分一万円無保証とかで稼げないかな
811:デフォルトの名無しさん
22/04/13 13:57:45.74 +aMOkW0p0.net
>>795
もうその図からマクロ実行させちゃえばいいじゃん
812:デフォルトの名無しさん
22/04/13 14:00:17.02 uBZa/q6E0.net
■質問
サウンド再生は何通りかあるけど、
一番遅延が小さい方法は何ですか？
winmmのPlaySound ？
813:デフォルトの名無しさん
22/04/13 14:08:46.36 6qNApkxLM.net
>>798
多分それ自体わからんのちゃう？
Excel作った本人とかじゃなく事務員とかだろうし
814:デフォルトの名無しさん
22/04/13 15:42:21.02 7cmYTCQn0.net
3時間くらいかけてVBA作って、合間に別のエクセルファイル開いて、閉じようとしたら
「変更を保存しますか？」って出たので、保存せずに閉じたら。
VBAを作った方のファイルまで変更保存せずに閉じられてしまったーーー！！
どうにかならない？
815:デフォルトの名無しさん
22/04/13 15:45:55.22 7IxClg8bd.net
とりあえず顧客に頭を下げてFAXでリスト送って頂いたのでしばらくはなんとかなりそうですがエクセルファイル自体のトラブルについては全員サッパリ意味不明なためどうしようも無さそうです…
（エクセルファイル作った方自身が既に会社にいないのでどうしようもない）
とりあえずエクセルファイルがどうする事もできないため私と社長ら数名は土日も休日出勤して1月から4月までの記録も全部紙ベースの資料に手書きで書き写す事になりそうです
しばらくは紙とペンでのアナログなやり方で回すしかないですがアドバイスくださった方ありがとうございました
816:デフォルトの名無しさん
22/04/13 17:20:07.59 SMVlXKyy0.net
>>801
3時間くらいなら今からやれよ
817:デフォルトの名無しさん
22/04/13 17:28:47.62 MldHjaMW0.net
>>802
あちこちマルチで書いて馬鹿かよ
どこかに金を出して頼めよ
ゆとりの馬鹿はこれだから
818:デフォルトの名無しさん
22/04/13 17:42:34.06 Wmi1ga+iM.net
>>801
該当のファイルを開いた状態でファイルタブのどこかにある自動保存云々が書いてある場所を探せ
運が良ければ一時ファイルが残ってる
残ってなけりゃ諦めろ
次からは動作確認をする前に保存する癖をつけるようにするんだな
819:デフォルトの名無しさん
22/04/13 19:21:42.96 9TA12m3K0.net
>>801
これがあるからコーティング中はOneDriveに置いとる
820:デフォルトの名無しさん
22/04/13 21:38:12.45 wBIIYhTid.net
>>805
何で誰でも言える極々普通のアドバイスをこんなに上から目線で言えるんだろう
821:デフォルトの名無しさん
22/04/13 21:47:36.66 MBul3VW80.net
便所の落書きにいちいち目くじら立てて突っ掛かるなよ
より一層老けて見えるぞ
822:デフォルトの名無しさん
22/04/13 22:55:33.89 uonj2wEf0.net
全国10エリアのそれぞれに、2016年度から6か年度分の「各年度集計用book」があり、
中身は1時間値と月合計を集計する等のクエリーが17あって、
これをsheet上のクエリーリストを基に
For Nextで順次更新・上書き保存するVBAを仕込んであります。
これとは別に、各エリアごとにやはりbookのフルパスリストを基に
For Nextで「各年度集計用book」を順次開いて、
中のVBAを実行するよう仕込んだ「各エリア一括更新book」を作りました。
(今さら2016年度を再集計するのは、たまにシレーッと修正が訴求修正が入るため)
これまで10ヶ月間ほどの月次更新では問題もなく動いてきたのですが、今月の更新で
・sheet名とクエリー名によるクエリー更新のステップでデバックエラーで止まった
・2つ目2017年度あたりのbookをVBAで開いたと思ったら、Excelごと落ちた
となり、不安定になりました。
モジュールごと再構成たり、「各年度用集計book」クエリー計算を簡略化して17ステップに削減したりして、
・タスクマネージャーでは動作中のメモリーは最大10GB/32GBくらい、CPU使用率は最大60%弱
・1つの「各年度集計用book」の所要時間に30秒程度
まで軽量化したのですが、今後もbook数が増えることを考えると
何か工夫のしどころはないものかと。
自分で気になっているのは、6か年度分のbook更新がどうにか上手くいっても、
「各エリア一括更新book」のプロジェクトに、
済んだはずの「各年度集計用book」の情報が残っていること。
URLﾘﾝｸ(i.imgur.com)
よく分からないけれど、VBAが扱えるインスタンス数を超過しているのか？
これが残っていて良いのか、よくわかりません。
・Set wb = Workbooks.Open で開いて
・wb.Close SaveChanges:=True で上書き保存して閉じているのですが、
・For Next内で済んだ変数はできる限りNothingで開放
していますが、改善の余地はありますか？
823:809
22/04/13 23:53:53.55 uonj2wEf0.net
>>809 タイポ訂正
誤) 訴求修正
正) 遡及修正
824:デフォルトの名無しさん
22/04/14 08:48:02.28 jf4kHNax0.net
>>809
825:デフォルトの名無しさん
22/04/14 09:46:20.53 EGNxXvqd0.net
>>809
マクロを１つの専用ブックにまとめてみたら
826:デフォルトの名無しさん
22/04/14 13:25:49.47 E7ePXpuT0.net
VBAで他ブックのプロシージャを実行したいんだけど、実行まちをなくすことてできる？
Application.Run "Book2!Test2"
を実行したあと、"Book2!Test2"の処理終了を待たずに次の行に移りたいんだが。
827:デフォルトの名無しさん
22/04/14 13:53:36.44 TZzbtw0W0.net
非同期は無理
試してないけど、別のApplicationインスタンスを作成して
そちらでファイルを読み込んで実行とか
828:デフォルトの名無しさん
22/04/14 18:58:30.99 RElcaA4D0.net
メソッドを使い回したいときはクラスを別のクラスに参照渡ししてるんだけど、これってVBAに継承があれば機能的に処理できるのか
829:デフォルトの名無しさん
22/04/14 19:03:41.33 sxqTZKvqM.net
クラスのメンバーに他のクラスを入れるのがマイルド
830:デフォルトの名無しさん
22/04/14 19:25:43.40 RElcaA4D0.net
いいね
それ試してみよう
831:デフォルトの名無しさん
22/04/14 20:26:12.03 VI/N1Akx0.net
>>816
継承を委譲で置き換える、というだけですね…
832:デフォルトの名無しさん
22/04/14 21:25:22.08 YCtpuDrNx.net
参照設定なしでエクセルからアクセスファイルの操作をしようとしているのですが
フィールド定義の構文エラーが出ます。
テーブルの登録数を減らすと通りますが
上限か何かに引っかかっているのでしょうか？
Sub Test()
Dim CN As Object
Set CN = CreateObject("ADODB.Connection")
CN.Open "Provider = Microsoft.ACE.OLEDB.12.0; Data Source =" & "C:\Users\Downloads\データ.accdb"
CN.Execute "CREATE TABLE TBL(管理 INT,日付 DATE,番号 INT,内容 MEMO,担当 MEMO,OrderTeam MEMO,Place MEMO,Floor MEMO,GuestNum INT,種別 MEMO,物品 MEMO,対象 MEMO,状態 MEMO,時間1 MEMO,時間2 MEMO,Note MEMO,Total MEMO);"
CN.Close
MsgBox "作成しました。"
End Sub
833:デフォルトの名無しさん
22/04/14 21:40:59.88 zMqJUzcEa.net
MsgBox は、End Sub の外に出して下さい。
このスレの流れ的に。
834:デフォルトの名無しさん
22/04/14 22:31:20.84 Ep0kCh050.net
フィールド名 DATE は？ 予約語では？
他には、day、month、table、text、user、when、where、year、zone とかも
835:デフォルトの名無しさん (ﾜｯﾁｮｲ e2da-EhK1)
22/04/14 22:55:38 Ep0kCh050.net
すまん 読み間違いだった MEMOが多いような気がするが、それも多分外してるな すまん 居ないことにしといてくれ
836:デフォルトの名無しさん
22/04/14 23:23:47.63 fL/YN0Wd0.net
予約後はNote
[]で括れ
837:デフォルトの名無しさん
22/04/14 23:41:44.78 kOhvUD5R0.net
838:解決しました。 感謝です！
839:デフォルトの名無しさん
22/04/15 14:24:02.27 TsNK8La+0.net
>>816
クラスになじめなかったくせに
840:デフォルトの名無しさん
22/04/15 15:02:32.60 m9CVWFGZ0.net
う、うるさい！
841:デフォルトの名無しさん
22/04/16 10:04:25.26 g0AA3ay0p.net
無理してクラス使わんでもええんやで
842:デフォルトの名無しさん
22/04/16 10:12:12.08 94XVUrLP0.net
保健室でいいってことか
843:デフォルトの名無しさん
22/04/16 10:20:43.39 Xjbe7mxod.net
特別クラスにさえ入れてもらえないのk
844:デフォルトの名無しさん (ﾜｯﾁｮｲ 17da-UOua)
22/04/16 14:51:07 gJCOre2S0.net
今は特殊学級は廃止されつつあると聞いたわ
差別に繋がるからだとか
845:デフォルトの名無しさん (ﾜｯﾁｮｲ b768-fNw1)
22/04/16 14:55:23 pYTE49690.net
>>830
それな
・ひまわり学級導入
差別だから廃止しろ！
・ひまわり学級撤廃
障がい者と一緒に授業できるわけねーだろ！分けろ！
これを5年ぐらいの周期でず～～～っと繰り返してる。少なくともここ30年はそう