Excel VBA 質問スレ Part76

1 名前：デフォルトの名無しさん mailto:sage [2022/05/01(日) 02:23:41.78 ID:2t63WK/jM.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part75 https://mevius.5ch.net/test/read.cgi/tech/1644384272/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 641 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa47-vQ73) [2022/06/24(金) 09:49:37 ID:K2we1Lara.net] こういうのが尼崎事件を起こすんだろうな 642 名前：デフォルトの名無しさん [2022/06/24(金) 12:20:36.40 ID:SlsiDUV+a.net] 需要と供給 643 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 15:06:54.11 ID:kZFfj4TG0.net] 難しい話ね。 これから他の言語も必要なら習得の必要あるしね。 644 名前：デフォルトの名無しさん [2022/06/24(金) 15:26:03.25 ID:bvc+MoD20.net] VBA覚えるの大変ですね 理解してコピペできるくらいにはなりたい 645 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 15:31:46.16 ID:RLAl6U0RH.net] 一度VBAエキスパートとか取るくらい勉強すれば 毎回Offsetの横は行が先か列が先かどっちだったかな？って（Resizeでも同じことやってる）やってるワイでも 大体コピペで作れるくらいには成長するよｗ 646 名前：デフォルトの名無しさん [2022/06/24(金) 19:49:28.19 ID:bvc+MoD20.net] >>637 ありがとう やってみるか 参考書検討しようかな 647 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 20:26:28.92 ID:oJCwQA/d0.net] コピペしたVBAってみんな捨てて去ってるのかな、貰ったことないかも。 648 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 21:29:08.60 ID:kZFfj4TG0.net] コピペはダメと教わったがな最初の会社で。 あちぃなしかし今日は 649 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 21:34:54.88 ID:p6zHePCT0.net] 熱がこもって32度あるわ 650 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 21:35:55.33 ID:p6zHePCT0.net] コピペしてそのまま使うことはほぼなくなる コンパクトにまとめないと、後で見て何書いてるかわからなくなる 651 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 23:00:17.91 ID:oJCwQA/d0.net] ネットにうpしてあった100行のやつをコピペして100000行にしてる、コンパクトという発想がなかったわ。そもそも意味わかんない行もあるけど消すと動かないし。 後任に渡そうと思ったけど恥ずかしいからやめとくか...。 おまえら上級者なんだね。 652 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 23:49:49.39 ID:ueFhN9Vh0.net] VBAはコピペして動くからいいよな。 Pythonはだいたい動かない。 しかも、Pythonのページ作るやつて 断片的にソースを乗っけるから、なおさら動かない。 653 名前：デフォルトの名無しさん mailto:sage [2022/06/24(金) 23:54:16.48 ID:WnxbT+0Sr.net] コピペして動かすのって怖くないか？ 少ない量ならまだしも100行だと何が起きてもおかしくない 654 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 01:09:59.54 ID:XeF3ZBAK0.net] それを修正できるスキルがあれば別かもだけど、なかなかいないのでは 655 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 08:29:17.86 ID:hk0FSiYld.net] ネットソースだとwsの指定とか省略されててコピペじゃ怖くて使えたもんじゃない 656 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 09:09:54.09 ID:HMw3/wS6H.net] 自分で一から書ける能力があればわざわざコピーなんざしないのさ。。。(-_-) 切り貼りつぎはぎだらけで変数の宣言がぐちゃぐちゃになってる 分かってくれる人いないかな（笑） 657 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 09:43:24.30 ID:XeF3ZBAK0.net] 独創でコード書けないと保守で詰むでしょ。 658 名前：デフォルトの名無しさん [2022/06/25(土) 10:00:09.34 ID:kapo/xgia.net] コピペが悪いのではなく、コピペで作ったコードを自分が提供した責任があるのだよ 659 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 10:15:11.28 ID:HMw3/wS6H.net] >>649 自分だけで時間短縮のために使ってるマクロだからそんなに困らないよ みんなに配布するレベルはこれからもしないと思う＾＾ 660 名前：デフォルトの名無しさん [2022/06/25(土) 10:49:20.62 ID:Wc9Qs34b0.net] >>648 分かるけど理解はしない それを許したらそこでおしまい 661 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 10:54:34.90 ID:PITDVbGU0.net] まあ自分で使うだけならいいんじゃね 662 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 12:26:01.77 ID:W4jZJdCLd.net] 書ける能力あっても今までに作ったコードをコピペするだろ？ 場合によっては共通関数の入ったモジュール程度を持ってくるにしても お前らもしかして同じこと1から書いてるの？ 663 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 12:41:36.76 ID:7YC4We+Er.net] 別部署に行って、「規則が変わるからこのマクロも修正してくれ」って言われ、中を見てみたらセレクトメゾットやコピーメゾットが使われてた時の絶望感 「クリップボードの履歴を有効にしていると正常に作動しない事があるから必ず無効にしてくれ」ってそれ書き方おかしくないか？ そして変数の宣言が強制されていなくて更に絶望する 664 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 12:56:07.50 ID:Fu1pMYi/M.net] >>655のレベルもたぶん似たようなもんだよ 665 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 14:57:17.56 ID:XeF3ZBAK0.net] >>654 と言うより、作って使用したらマクロは消しているのです。 再び必要になったら１から書いてますはい。 職場のローカルルールとして。 666 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3f7c-PGuA) mailto:sage [2022/06/25(土) 17:13:39 ID:ehcxDoIm0.net] >>657 ないわー 関数自体が使いまわし前提の考え方だし 667 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 17:43:12.02 ID:hk0FSiYld.net] >>654 理解しないでコピペするか理解して書いたコードを使い回すかの差は途轍もなく大きい 668 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 18:56:11.02 ID:XeF3ZBAK0.net] それどころか回りの奴らはVBAにしろExcelの学習すらやろうとしない。 仕事終わったら飲みに行く事しか考えていない。休日も何も努力しない現実。 興味ないヤツには進めてもダメなのかな 669 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 19:21:59.19 ID:WbawSRHfM.net] VBA使いに向上心を求めるのは酷でしょ それがないからこそVBA止まりなのに 670 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 21:29:35.48 ID:Ujo38STt0.net] >>660 自分が使うのは勝手にしろだけど、それで優越感に浸って「周りの奴らは～」とかキモすぎだろ たかが仕事で使うの1つのツールごとき　にここまでイキれるのはヤバいわ 671 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 21:31:08.83 ID:tv1Cabyi0.net] 他はすべて負けてるから何か一つでも勝てるものがほしいんや 672 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 21:32:27.25 ID:xn3lQ0RO0.net] レスバで勝てば世界ランクあがるしな 673 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 21:44:09.88 ID:VazVwqbS0.net] >>647 それってコピペしただけじゃ動かないってことよね？ 動くように自分で指定すると思うんだけど、こわいってのはどういう事なんだぜ？ 674 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 21:53:20.34 ID:Of9vbGQH0.net] >>663 負けの数ではお前が一番だ 675 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 22:26:51.85 ID:XeF3ZBAK0.net] 勝利するかために複雑な知識や技術を身につけているのだが？？ 間違ってる？ 676 名前：デフォルトの名無しさん mailto:sage [2022/06/25(土) 22:29:13.51 ID:hk0FSiYld.net] >>665 wsを指定しないとActiveSheetで動こうとするから誤作動の原になる 677 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 00:40:58.82 ID:NOZ7SEa20.net] Webbrowserで証明書を自動選択する方法は無いものでしょうか? 678 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 00:44:34.36 ID:NC1QoP++r.net] >>667 誰に勝利するの？ 何に勝利するの？ 679 名前：デフォルトの名無しさん [2022/06/26(日) 07:38:11.30 ID:5vPg/0Rp0.net] 他言語やったからって excelやVBAでやったことが無駄になることはないよ 他の言語で作ったもののUTのエビデンスをとるのに excelがもし無ければと思うとゾッとするし テストデータ作成にもVBA使うととっても便利な場合が多いし 680 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8f63-BYhf) mailto:sage [2022/06/26(日) 09:43:13 ID:/e5N//9v0.net] エクセルのある列に数字が入ってます。 そのエクセルと同じ階層にあるフォルダの下に 上記の数字から始まる名前のフォルダがあります。 (数字のあとに日本語が付いてます) このフォルダの探し方を教えていただきたく 681 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0f63-BYhf) mailto:sage [2022/06/26(日) 09:45:37 ID:Xa6L6yDT0.net] 会社のパソコンでVBAを使って pdfをテキストへ変換しています。 (com.adobe.acrobat.plain-text) 変換処理は不安定でエラーが出ることが多いが 成功することが多いです。 しかし有料ライセンスは一切買ってもらっていません。 これはライセンス違反ですよね？？ 違反ならもうやめます。 682 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM5f-c/Mv) [2022/06/26(日) 09:56:38 ID:IFq6Yt8DM.net] >>672 num=cells(行,列).value dirname=dir(thisworkbook.path&"\"&num&"*",vbDirectory) 683 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM5f-c/Mv) [2022/06/26(日) 09:59:07 ID:IFq6Yt8DM.net] dirname=dir(thisworkbook.path & "\" & num & "*", vbDirectory) 684 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 10:18:26.90 ID:6drPPg2U0.net] >>673 PowerQueryでもAdobeのAcrobatなしで pdfをある程度変換出来るけど？ 685 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 10:25:43.07 ID:yfX3wl/l0.net] >>673 adobeに聞けとしか 686 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 11:39:03.04 ID:XMcnD9d40.net] EULA読んでダメって書かれてなきゃいいだろ 687 名前：デフォルトの名無しさん [2022/06/26(日) 12:11:58.60 ID:hFDBYOe90.net] クラスが入ってるCollectionの要素を置き換えるにはどうすればよいでしょうか？ Set col(2)=New MyClass() とやってもできないんです。 688 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 12:23:08.37 ID:tixRR40Y0.net] 置き換えはダメだからRemoveしてAdd 689 名前：デフォルトの名無しさん [2022/06/26(日) 13:30:17.16 ID:hFDBYOe90.net] >>680 そうですか ありがとうございます でもなぜ置き換えできないのでしょう？ そのしくみを理解したいのですが スキルがあがるステップだと思うので 690 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 13:35:51.31 ID:VKkh0pnir.net] IEの入力欄に値いれるマクロ使ってたんだけど、エッジに移行して動かなくなったんよ エッジの入力欄いじる方法ってご存知ないですか？ 調べてもよくわからなくて 691 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 13:39:54.64 ID:PhXCrOZEd.net] VBAを投げ捨ててEdgeの拡張機能を作ろう 692 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 14:11:21.83 ID:1bCfGQVkd.net] Sendkeys 693 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 15:05:50.62 ID:WjaufMigd.net] まだInternetExplorer.Application は有効でしょ サポートは切れたが動かなくなる訳ない 694 名前：デフォルトの名無しさん [2022/06/26(日) 15:26:20.76 ID:hFDBYOe90.net] なぜMsedge.Applicationにしないの？ 695 名前：デフォルトの名無しさん [2022/06/26(日) 15:32:17.63 ID:hFDBYOe90.net] クラス(例:MyClass)が入ってるCollectionの要素(つまりMyClass)をある条件でsortしたいのですが 簡単な方法はないのですよね？ これは標準モジュールにそのソート用のsubかfunctionを書くのが一般的ですか？ 「ある条件」というのが複数あるので、複数個それを作るのが面倒。 あといま思い付いたけど、そのCollectionをメンバとして含む親クラスをつくり、その親クラスにその複数のsortに相当するfunctionを作るのがカッコイイです？ 696 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 18:21:23.39 ID:WjaufMigd.net] たぶん用途的にArrayListが良いと思う >>687 697 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 21:43:05.30 ID:h799Melv0.net] VBAのマクロ名てなにか制限ある？ Sub n98() MsgBox "a" End Sub というマクロを作ったんだが、実行できない。実行ボタンがグレーアウトする。 しかも、マクロボタンを押すとセルカーソルが彼方に飛ばされるんだが� 698 名前：B https://i.imgur.com/7iCfenT.mp4 [] [ここ壊れてます] 699 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 22:29:47.48 ID:UUS+pyK9H.net] >>689 ワイはそのコードコピペしたらちゃんと動いたよ モジュールのコード上でＦ５キー押してみたら？ 700 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 22:31:36.52 ID:UUS+pyK9H.net] マクロ名の制限ももちろんあるよ ググればすぐ出てくるはず だけどこのコードのマクロ名は問題無い 701 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 22:39:05.59 ID:h799Melv0.net] >>690 VBEでF5なら動くが、 エクセル本体で開発タブのマクロボタン押すとああなる。 ちなみにバージョンは2013。 マクロ名が英字2字＋数字だと、マクロボタン押すとそのアドレスのセルに飛ばされるな。 もちろんマクロは実行できない。 そんな制限あったけ？ セルのアドレスて「予約語」になるのか？ 702 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 23:12:48.18 ID:47IFcp1V0.net] >>689 excel2010だけど全く同じ現象が起こるわ Ｆ5からじゃくてＡｌｔ+Ｆ8な 703 名前：デフォルトの名無しさん mailto:sage [2022/06/26(日) 23:30:30.80 ID:CNfWwh200.net] この画面開いたらn98セルに行って勝手に選択（コピー？）してくれる https://i.imgur.com/8G6jMt0.png 逆に、alt+f8でマクロを開いた状態でセル選択するとテキストボックスに反映されるので、 ここは参照かなにかで連動してるっぽい https://i.imgur.com/cIRhTsz.png 704 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 07:11:11.91 ID:KEClHONvr.net] >>694 予約語とかセル番地名、数字始まりは駄目 705 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 07:18:40.52 ID:pJh/2YwLH.net] >>695 セル番地もダメだったのか、ウソついてごめんなさい 706 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 07:20:43.06 ID:kD2T1aicd.net] セル番地名ってダメだったのか 707 名前：デフォルトの名無しさん [2022/06/27(月) 07:28:39.14 ID:JHJu1s6G0.net] For each i in collection 　if a=1 then 　　if b=1 then 　　　if c=1 then 　　　　Debug.print "うんこ" 　　　end if 　　end if 　end if next i こんな階層はしないほうがいいですか？もしそうならどうすべきですか? ちなみに実際の条件文はa=1などのように単純ではなくてもっと複雑怪奇で長い文字列です。 708 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 07:42:09.30 ID:/YUVVdlZD.net] インデント揃えてれば良いんじゃない？ それかある程度深くなったら別ルーチンや関数に飛ばすとか 709 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 07:44:02.36 ID:cx09ANOo0.net] if a=1 and b=1 and c=1 にすればすっきり 710 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sdbf-tCSL) mailto:sage [2022/06/27(月) 08:00:18 ID:qwmHCu1Hd.net] >>700 VBAはショートサーキットじゃないから遅くなる 711 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3f01-DrrO) mailto:sage [2022/06/27(月) 08:05:04 ID:3L19Fpz+0.net] >>695 それどこかに書いてある？ まあ予約語や数字始まりがダメなのはわかるけどセルアドレスは盲点だわ 712 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 09:20:29.88 ID:WYWqaC3Yd.net] >>698 何がしたくてそのIF文を書いてるかわからないけどELSEに対しての記述がなければ>>700みたいな書き方にしてもいいけど 自分はその程度のネストは許容範囲だけどね それとなんでしないほうがいいと思ったかも書くと他の回答もらえるかもね 713 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 09:26:36.50 ID:iDqL/u9w0.net] 年取ると4階層なんかもう見たくない 714 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 09:27:26.36 ID:HPVEPi/ad.net] Excel2021でも再現したわ セル番地はモジュール名にできないのか、知らんかった 捨て変数とか作業ファイル名なんか普通にaaa1とか使ってるから、いつひっかかってもおかしくなかったのに 思い返してみると、なぜか捨てSubはtest1とかmacro1にしてた 715 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 09:31:15.07 ID:iDqL/u9w0.net] 今わかってる範囲では、モジュール名にできるけど挙動が少しおかしくなる 避けられるなら避けたほうが無難だろうね 716 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 09:34:13.54 ID:Kt0Hv+oPd.net] >>692 英字1文字でも3文字でも飛ばされる なんかの裏技に使えそうな気がする 遠くのセル範囲をちょっと確認したいとか 717 名前：デフォルトの名無しさん [2022/06/27(月) 09:36:09.63 ID:kVADuAyl0.net] >>698 いわゆる早期リターンとかガード節ってやつ For Each i In Collection If a <> 1 Then GoTo continue If b <> 1 Then GoTo continue If c = 1 Then Debug.Print "OK" End If continue: Next 718 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 09:50:33.84 ID:WYWqaC3Yd.net] >>708 自分としてはもともとの判定を変更するような回答はどうかと思ったりするんだよね 複雑怪奇とかいてるのでわかりやすい回答なら「if not (a = 1) then」にしたほうがいいのではないかと それとそこまで書いたらcの判定もcontinueで飛ばしたほうがすっきりするかと 719 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 09:53:16.46 ID:H4LNDdnJ0.net] >>707 マクロじゃなくてジャンプでいいってなるんじゃ 720 名前：デフォルトの名無しさん [2022/06/27(月) 10:00:09.47 ID:Do3p35pda.net] >>698 内容がわかるようにコメントつければいいんじゃね 721 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 10:15:26.20 ID:3L19Fpz+0.net] >>705-706 モジュール名にはできないけど>>694のは手続き名だからモジュール名で修飾(※)すれば呼び出せるよ ※ マクロ名の欄に直接 Module1.n98 のように入力する 722 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 10:19:02.79 ID:iDqL/u9w0.net] >>712 スマン、勘違いしてた 723 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 10:24:13.47 ID:3L19Fpz+0.net] >>698 一般論としてネストは浅い方が理解しやすいからそのコードであれば>>700や>>708みたいにした方が読み易い ただ>>701が言うようにVBAにはショートサーキット（短絡評価）がないので遅くなるのはいいとしても If N <= UBound(A) And A(N) = 1 Then ... みたいなのは If N <= UBound(A) Then If A(N) = 1 Then ... のようにする必要がある 724 名前：デフォルトの名無しさん [2022/06/27(月) 10:29:53.48 ID:kVADuAyl0.net] まあ、複雑な判定するならメソッドに切り出すのが間違いないわな VBEだとIDEのサポートないから若干めんどくさいけど 725 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:00:14.42 ID:tRNW+/P90.net] >>698 賛否あると思うが For Each i In Collection: Do 　If a <> 1 Then Exit Do 　If b <> 1 Then Exit Do 　If c <> 1 Then Exit Do 　Debug.Print "OK" Loop: Next みたいな書き方もある 726 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:01:13.33 ID:tRNW+/P90.net] 最後の行間違えた Loop Until 1: Next 727 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:05:37.12 ID:zkyvRAcfa.net] あんまりにもネストするなら、判定文(if複数)だけ別プロシージャ(Function)として外出しして、TrueかFalseを返させるようにするかな IsGoukaku みたいなプロシージャ名にすると何したいかがわかってメンテ楽だし 728 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:29:16.42 ID:gUdOjGv30.net] セル番地がダメならダメでいいけど、あんな挙動をするのはバグだよ。 本来はメッセージだして弾くべきじゃね？ office365でも同じならだれかMSにチクってみてくれ。 以前、MSの掲示板にWinの不具合を書いたら、 速攻で消されたが、 こっちでも確認できたから開発にレポしといたていうメールが来て感動したわ。 729 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:31:14.56 ID:iDqL/u9w0.net] >>719 365でも同じだよ 730 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:34:53.87 ID:gUdOjGv30.net] >>700 if a=1 and b=1 and c=1 にすると内部では判断を3回することになる。 if a=1 then if b=1 then if c=1 then にすると判断は少なくなるのだから、ネストするほうが正解じゃね？ もちろん、ifを書く順番は判定が少なくするようにする必要はあるが。 731 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:48:23.44 ID:Fr547gX6r.net] >>719 ゆうてVBAとかアプデすんの？ 732 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:52:04.31 ID:iDqL/u9w0.net] してるよ 733 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:52:52.11 ID:nfvw1vkN0.net] セキュリティ以外で？ 734 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:57:18.86 ID:iDqL/u9w0.net] うん 735 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:59:27.42 ID:iDqL/u9w0.net] 頻度はwindoewsやエクセルに比べたらかなり低いけど、やってるよ 確かちょっとずつ便利になってる。本当にちょっとだけ。関数が増えたりはしていないはず。 ソース探したけど見つからねぇ 736 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 12:02:08.29 ID:nfvw1vkN0.net] ふーん。。 まあ元号はあったね。。 古臭いよね。。 737 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 12:04:52.44 ID:nfvw1vkN0.net] 言語仕様っぽいページはあった https://docs.microsoft.com/en-us/openspecs/microsoft_general_purpose_programming_languages/ms-vbal/d5418146-0bd2-45eb-9c7a-fd9502722c74 結局代替がないからなあ 738 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 13:50:25.11 ID:FDoLWwM/d.net] >>718 俺も大体これでやってる 739 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 19:05:07.99 ID:IOT9Z53O0.net] >>698 そもそもi使ってねーじゃん 740 名前：デフォルトの名無しさん [2022/06/27(月) 19:57:12.47 ID:UdQiWAN30.net] どなたか教えてください。 売掛金消し込みのマクロを作成しています。VBAでソルバーを自動化したいと思っています。 目的セル、制約条件の参照セルの開始行が40行ごとに下がっていき、指定値は数値ではなく、セルを指定したいです。 とりあえず、全部の変数をvariant型にしてますが、なかなか上手くいきません。 741 名前：デフォルトの名無しさん [2022/06/27(月) 20:18:45.52 ID:UdQiWAN30.net] 731です。 sub ソルバー() dim 振込1 as variant 振込1=worksheets("ソルバー").range("n2:n8") solverok setcell:= worksheets("ソルバー").range("i3"), maxminval:=3, valueof:=振込1, bychange:=worksheets("ソルバー").range("e2:e40"), enginedesc:="grg nonliner" solveradd celreff:=worksheets("ソルバー").range("e2:e40"),relation:=4 solversolve userfinish=true

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef