Excel VBA 質問スレ Part61

1 名前：デフォルトの名無しさん mailto:sage [2019/04/25(木) 23:41:03.61 ID:rni/4bMj0.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part60 https://mevius.5ch.net/test/read.cgi/tech/1552736349/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 315 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 07:43:57.81 ID:mLR+BkfhM.net] 別に用途は何でもいいさ 興味ゼロってわけじゃないけど 316 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 10:22:05.81 ID:WDXUv9KM0.net] こっちで作って欲しいと言われたものをつくってると そんなもの作られたら困る 楽になって人が減らされると困る、と古参がちくちく この古参、自分の作業を楽にしたい時には これがもう偉そうな態度で、「作らせてやる」とでも言わんばかりに頼んでくる どうしたいんよもう っていうことないっすか もう面倒なんで職場で作るのやめようかな すんません落書きしちゃって 317 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 10:56:07.55 ID:cSCM+dO10.net] 厚労省で配布されている https://www.mhlw.go.jp/stf/seisakunitsuite/bunya/000116890_00001.html にある https://www.mhlw.go.jp/content/10900000/000494621.xlsm なんだけど、内容は単純で 1件いくらの検査があって、件数を入力すれば請求書が作成されるというもの 1シート＝1自治体なので、複数の自治体へ請求する場合は、ユーザーがシートコピーして作る VBAで各シートを集計して総括表に転写する なんだけど、VBAみて 変数が多すぎてコーディング中に間違えても気づかんだろってのと 引っ張ってくるセルをConstで決め打ちしてるけど これ後のメンテナンスでセル一個挿入することになったら修正大変やん　と思いました。 というか、エラーメッセージの所で間違えて 行を表示すべきところを列表示しているけど これこそ変数多すぎて分かりにくくした事が原因だと思います。 じゃあどうする、と言われたらみなさんならどうしますか？ 同じ形の複数の2次元の表を合計するだけなんだから スタート地点とゴール地点決めてやって 後はずらしていけばいいやんと思うのですが 後、小数とか負の値ぶっこんでも動作するのはモヤモヤするんだけど まぁこの辺やりだしたらキリがないので使わせる相手によってどうするかは変えますかね 318 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 11:43:15.47 ID:mLR+BkfhM.net] >>316 義務教育でプログラミングを扱うようになって、自分の仕事くらい自分でプログラミングできないようでは大変な事になるよ、 と教えてやればいい。 もしかしたら「手下にプログラミングさせればいい」と勘違いするかも知れないが、 それでは通用しないよと言ってやろう。 こういう話もあるし https://lite.blogos.com/article/376203/ 319 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 16:11:36.77 ID:hFcQqqxb0.net] >>316 ただ単純に業務全体を見ずに作るから役に立たないんだよ 業務に対して目的と効果を文書ではっきり示せば古参の意見を聞かなくていい 320 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 16:13:59.49 ID:X/3FpVKz0.net] >>316 その古参の上司に報告しろ 321 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 16:14:38.98 ID:hFcQqqxb0.net] >>317 すまん、リンク先を読む気もしない 322 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 17:56:30.55 ID:pyUsEGpsM.net] >>317 べき論の先には「VBAを使うのをやめるべき」という結論しかないから不毛よ 俺ならどうするか？下請けに丸投げして終わりだよ 323 名前： mailto:sage [2019/05/23(木) 19:35:05.76 ID:QGT5qlDg0.net] >>318 ＞義務教育でプログラミングを扱うようになって、自分の仕事くらい自分でプログラミングできないようでは大変な事になるよ 脅かすことでプログラミングができるようになるとはおもいませんが… プログラミングって極めて創造的な作業ではないでしょうか、似たようなものは数学の証明問題だと思いますが証明問題を脅かして解けるようになるとは思えません 324 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 20:39:50.63 ID:X/3FpVKz0.net] 機械学習やweb系ならともかく、 VBAレベルなら極めて事務的な仕事だろう。どこにも創造性なんて無いよ ルーチンワークを自動化させてるだけ 325 名前： mailto:sage [2019/05/23(木) 20:58:31.34 ID:QGT5qlDg0.net] >>324 でもそのルーチンワークを実際に記述するとなると一本道というわけにはいかないでしょう？ 論理的な一貫性を維持しながらしたいことを記述するのは、いわれているほどやさしい仕事ではない 326 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 21:06:10.14 ID:X/3FpVKz0.net] >>325 一本道だよ、全然難しくない 強いて言えば例外を先に全部列挙した上でシステムに放り込むという順序の変更がある程度 面倒なのは仕様変更と、使いにくいというオバハンの嬌声。オバハンにalt+F8は覚えさせたけど、まぁそれぐらい 327 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 22:12:48.96 ID:0Fgm70+GM.net] まあ、自己満足で終わるなら簡単だな おばはんにも満足いくように作るんだよ 328 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 22:27:50.56 ID:49rcJhkB0.net] >>317 コンスト過ぎてﾜﾛﾀ。 329 名前：デフォルトの名無しさん mailto:sage [2019/05/23(木) 22:55:08.55 ID:EGX4zlJj0.net] >>323 それもそうだが、その老害を大人しく させることができれば上出来と考えた 330 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 01:42:55.95 ID:9kKOGm+S0.net] Excel2016にてpersonal.xlsbに「保存せず閉じて開き直すマクロ」を作ったところ挙動が変です Sub ReOpen() 　　Dim wb As Workbook 　　Dim path As String 　　Set wb = ActiveWorkbook 　　path = wb.fullName 　　'※1 　　If MsgBox("本当に変更を取り消しますか？", vbYesNo) <> vbYes 　　　　Exit Sub 　　End If 　　wb.Close(False) 　　Application.Wait([Now() + "00:00:01"]) 　　'※2 　　Workbooks.Open(path) End Sub このマクロ自体は動くのですが、※1のIf〜EndIfを消すと※2のOpen実行直後にExcelが通知無く落ちます また、※1※2を両方消してマクロ実行した後、手動でブックを開き直すとやっぱりExcelが落ちます 対象のブックはフォームやマクロを含んだ3MB程度のxlsmファイルです MsgBox出さないだけでなぜ不安定になるのか、思いつく原因を教えて頂けると幸いです 331 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 01:44:27.87 ID:9kKOGm+S0.net] あ、Ifの末尾のThen忘れたので脳内で補完してください 332 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 06:40:29.33 ID:/lvzTPqGM.net] >>331 ハイ　イイエ　が逆なのも利用者が自動変換するんですね 333 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 06:54:20.73 ID:/lvzTPqGM.net] >>332 すまん、継続がキャンセルか 334 名前：デフォルトの名無しさん mailto:sage [2019/05/24(金) 09:59:52.88 ID:RAYiE+wA0.net] >>330 2019で試したけど落ちなかった ＞　Application.Wait([Now() + "00:00:01"]) これを抜いても同じ カンで答えると、再計算が邪魔してるような気がする ・一度再計算や描画、イベントを切ってみてはどうかな Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ・あとはこの部分のウェイトをもう少し長くする ＞Application.Wait([Now() + "00:00:01"]) ・まっさらなブックで試してみる 335 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 07:54:51.56 ID:TRopVMeK0.net] アドインって、ファイルを閉じたら、 一緒に閉じられるものだと思ってたけど、 VBA実行中は残るということか。 一緒に閉じられたら、途中で止まっちゃうからな。 336 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 08:55:38.15 ID:nkVbmNSl0.net] vba実行中というかずっと残るっぽい 337 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 09:55:42.63 ID:wPp02VNQ0.net] エクセルの機能に追加してるからな アドイン使ったファイルをアドインがないエクセルで編集すると壊れるよね 338 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 10:07:50.37 ID:wPp02VNQ0.net] >>330 経験上納得できない動作をするときは何か見落としているところがある step実行で場所特定して、各変数の値が壊れてないか確認 イミディエイト画面で入力してみるなど 339 名前：デフォルトの名無しさん mailto:sage [2019/05/25(土) 10:14:01.11 ID:D2XIJyZK0.net] Excelに限って言えば、Excel自体に変な仕様が多い これが男を惑わせる 340 名前：デフォルトの名無しさん mailto:sage [2019/05/26(日) 04:10:46.96 ID:xQGdFtWrM.net] >>334 元に戻さないアホがいると大迷惑になるな >>335 アドインはExcelに組み込むよね >>339 配列数式なんか使うとブーイングになるよな 341 名前：デフォルトの名無しさん mailto:sage [2019/05/26(日) 15:23:19.13 ID:/taseRUt0.net] 以下の状態だとB1〜B3は全て1:1048576と表示されてしまいます Cells.SpecialCellsをRange("A1").SpecialCellsに変更した場合はB1〜B3は全てA1と表示されます Ctrl + Endで選択されるセルの番地を文字列として取得するにはどうすればいいですか？ 　　A　　　　B 1　Sheet1　=fn(A1) 2　Sheet2　=fn(A2) 3　Sheet3　=fn(A3) Public Function fn(sSheetName As String) As String fn = ActiveWorkbook.Worksheets(sSheetName).Cells.SpecialCells(xlCellTypeLastCell).Address(False, False) End Function 342 名前：デフォルトの名無しさん mailto:sage [2019/05/26(日) 15:41:58.63 ID:/taseRUt0.net] 関数呼び出しではなくマクロやボタンクリックでなら問題なかったので そっちの方法に切り替えますすみません 343 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 06:52:50.90 ID:lha2yOvQp.net] 入力項目を複数用意したinputboxって作れますか？ 344 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 07:55:59.33 ID:6csejWaN0.net] >>343 どんなものを考えているんだ 345 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 08:12:50.88 ID:lha2yOvQp.net] >>343 ごめん入力フォームじゃなくていいかも 最終的にやりたいことは、以下のボタン等が設置されたユーザーフォームを作ることです（他の要素も考えたら普通にinput boxでは無理と気づきました） ・AUTO openで開く ・押すと特定セルに文字が入力されるボタンを複数設置する ・カレンダーを設置する ・押すと印刷処理を行いつつファイルを上書き保存し閉じるボタンを設置する 346 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 08:30:52.72 ID:jh6nOFVKM.net] >>345 こんな特殊なものAUTO openでやるって非常識だな シートのマクロで十分だろてかマクロは印刷して保存だけでいいだろ それも自動記録でも十分 347 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 08:37:02.21 ID:jh6nOFVKM.net] Excelの勉強不足だろ 348 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 08:47:00.50 ID:6csejWaN0.net] >>345 それユーザーフォームにする必要がないような ユーザーフォーム超めんどいから止めたほうがいいよ あと、カレンダーはデイトピッカーと言う 349 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 09:45:56.73 ID:W0zr6KdF0.net] この程度の理解力だとカレンダーが必要かもわからない カレンダーなんか別にシートでもできるけど、どこまで使うかがわからないから 最適な解もわからない 入力をシートに反映するなんて普通にセルを参照すればいいだけ ExcelもVBAも１％以下の理解で動作仕様を描くのではなく結果で何をしたいかを描くべき これでも少しおだててるが 350 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 10:37:56.08 ID:6csejWaN0.net] おだてるの意味間違えてるよ。 351 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 10:41:41.92 ID:W0zr6KdF0.net] >>350 いや〜そうでもないよ 理解力は両方とも0.1％〜0.01％程度と思ってたから 352 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 11:25:38.71 ID:bVlhmZqp0.net] てか、みんなが >>345←この説明で全容を理解できてるのがすごいとおもったけど いろんな意味に解釈できそうで、おれにはそのうちの一つには絞りきれないんだけど 353 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 11:44:36.09 ID:dknccbkiM.net] >>352 教えたい人種の大半は問題の表層を自分の得意分野に転換して持論を得意気に展開してるだけ。 質問者の問題の背景に寄り添って解決を計ろうとする者は僅か。 354 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 13:50:33.03 ID:6csejWaN0.net] >>352 どういうパターンであれ、大体ロクでも無い物だという判定ぐらいなら可能 355 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:00:43.29 ID:zUYqf9yC0.net] >>345 ここの人達はマウント取りたいだけで実際はあまりスキルが無い人が大半なので程々に聞いていた方が良い。 あなたの要望については疑問が1つ、可能だけどあなたのスキルから考えて技術的に難しい点が1つある。 疑問は、AutoOpenで開いて、閉じるボタンで保存終了するのならExcelで作る必要は無いのでは?という疑問。 普通にC#辺りで作った方が適してると思う。この後に述べるけど、カレンダーの件もC#等の方が簡単。 技術的に難しいのはカレンダーの実現。 サブクラスとWin32の知識が無いと難しい。 後々を考えると汎用的にクラス作った方が良いからそういう技術も必要。 もっとも、ファイル追加とか自作するとかで良ければスキルが無くても出来るともいえる。 356 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:36:42.16 ID:dknccbkiM.net] >>355 この人はマウント取りたいだけで実際はあまりスキルが無い人なので程々に聞いていた方が良い。 357 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:38:46.48 ID:YnNlAtYud.net] >>356 そうくると思ったw 358 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:55:28.65 ID:W0zr6KdF0.net] >>355 具体的に簡単にできる方法を説明してやれよ 359 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 14:59:26.84 ID:6csejWaN0.net] >>358 まだ出せない 要件定義ができていないので、そもそもどういう設計が最適かも分からない 現状のまま作るのはめんどくさすぎる 具体的に言うとデイトピッカー、お前だ 360 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:11:18.55 ID:W0zr6KdF0.net] >>359 要件定義・・？この理解力だと 当然仕事に対する理解力もないってことだよ 361 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:14:09.75 ID:6csejWaN0.net] >>360 そこを何とかするのが面白いんじゃないの マウント取りたいならハエやカエル相手にしてればいいだけだしね 362 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:29:12.90 ID:W0zr6KdF0.net] >>361 だったら適当にすれば(笑) 出来ることを安易に提案することの影響を考えろよ 例えば、自動計算を止める こんなのそのままにされたら困るほかの人いるだろ でも単にONとOFFじゃあだめなんだよ、直前を記録して戻す また、エラーや中止でも戻さないとな 363 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:39:29.96 ID:W0zr6KdF0.net] >>361 きみはハエやカエル相手にして面白がってる 引きこもりさんってことね 364 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:42:22.97 ID:6csejWaN0.net] >>362>>363 韓国人？ 365 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:42:59.47 ID:6csejWaN0.net] おだてるの意味もわかってないみたいだし、韓国の方でしたか そりゃ話も合わないな 366 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:44:13.29 ID:W0zr6KdF0.net] >>364 きみはハエかカエル？ 367 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:45:54.11 ID:W0zr6KdF0.net] >>365 ハエかカエル？ しかたないな 368 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 15:53:54.48 ID:6csejWaN0.net] おだてる・・・ｗ 369 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 16:04:29.34 ID:6csejWaN0.net] これ以外の高速化ってありますか？ https://15g.jp/post-314/ 370 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 16:27:23.36 ID:aE9KPqY2M.net] >>369 これで問題ある場合はループしてるロジックが悪いか ネットアクセスではありませんか？ 371 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 16:42:48.59 ID:6csejWaN0.net] >>370 運用方法が急に変わりまして・・ 毎日 100ループ→毎時間 20000ループ 他の高速化が無いものかな、と 特になければ諦めてロジック組み直します 372 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 16:43:14.09 ID:2J++TcAHM.net] 再描画を止めるのは好かんな 373 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 17:19:36.20 ID:aE9KPqY2M.net] >>371 セルへのアクセスを減らし 変数テーブルで処理をするぐらいかな簡単なのは 374 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 17:53:10.57 ID:aE9KPqY2M.net] 変更のないセルはかきかえない 変数の型をこていするかな 375 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 20:18:12.39 ID:28fQIolrF.net] >>369 完全に嘘。 そもそも、それなりに書ける奴ならこの手法では速くならない。 376 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 20:19:14.57 ID:28fQIolrF.net] 逆に、これで格段に速くなったら恥ずかしいと思うべきだ。 377 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 20:29:10.36 ID:eWpgS1rnF.net] 高速化については下記が参考になる。 https://excel-ubara.com/excelvba4/EXCEL228.html 378 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 21:03:48.67 ID:TIEuQB3m0.net] >>345 できるけど、一番最後の処理が事故を起こしそうだから1クッション置いた方がいいかも 379 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 21:13:42.01 ID:Soi68xiZ0.net] セルというかシートは使わない データ保存には外部バイナリファイルを読み書きする 380 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 21:16:23.22 ID:TIEuQB3m0.net] >>369 これは描画を抑制するからその分の時間がかからなくなるというだけなので、表示に因らない処理の速度アップはまた別だよ 381 名前：デフォルトの名無しさん mailto:sage [2019/05/27(月) 22:07:18.66 ID:9GzIJnKt0.net] 何でユーザーフォームを使うのかって? シートに書くより格好いいからに決まってるじゃんwwwww いや、わりとマジでそんなもんだと思いますけど。 だって、ユーザーフォームじゃなきゃ再現できないようなものって、 普通の事務処理でそんなに無いでしょ。 382 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 01:04:45.98 ID:Rr62XR8Vx.net] ワークシートのイベントに重めの処理を書いている場合、シート側のイベントを避けるためユーザーフォームで出入力制御や演算を処理させることはある 383 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 08:43:02.61 ID:8P1bQTIM0.net] 入力のしやすさとかフォームの方が良い場合もあるし、ユーザーインターフェイスとしてはフォームの方が優れている。 Excel使わずにメモ帳とCSVで事足りるってのと同じような考えの人がいるな。 384 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 09:44:28.89 ID:CE2aKfrCH.net] 初心者レベルの知識で長いことVBAいじってる者なんだが、 functionプロシージャって使わなくない？ 普通のsubしか使ったことない どんな時に便利なの？ 385 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 09:47:42.25 ID:rhAlx8Ij0.net] >>384 値を返す時。便利というか必須。=sum()で値が返らなかった時の事を考えてみると良い むしろfunctionが普通なのだ vbaの場合、ワークシート変更しておしまいってパターンが多いから恩恵を得にくいけどね 386 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 09:55:56.33 ID:JWvhlEsx0.net] Findを利用したコードについて教えて下さい。 書籍、サイトで掲載されていたコードを利用し、少し変えたものです。 Findメソッドを使ってC列の”たろう”を検索します。 探し出したら、A〜C列の文字列をE列に結果を返すように作り替えてみましたが、結果がE1〜G1に上書きされてしまいます。 Cells(Rows,count　を理解しきれていない、11行目のCells(i,”E”)の部分も理解していないと感じます。 どのように違うのか、ご指導お願いします。 ワークシートはこんなかんじ　E列からG列は実行後の結果をイメージしたものです 　　A　　B 　　C　　　D　　E　　 　F　　G 1　日付　売上　担当者　　　　000　　AAA たろう 2　000　AAA たろう　　　　　333　　DDD たろう 3　111　BBB はなこ 4　222　CCC たかし 5　333　DDD たろう 6　444　EEE はなこ 7　555　FFF くみこ 387 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 09:56:25.54 ID:JWvhlEsx0.net] 386のつづき Sub Find() Dim temp As Range, tempAddress As String, i As Long With Range("A1").CurrentRegion.Resize(, 1).Offset(, 2) Set temp = .Find(what:=“たろう”) If Not temp Is Nothing Then tempAddress = temp.Address i = Cells(Rows.Count, "E").End(xlUp).Row Do temp.Offset(columnoffset:=-2).Resize(, 3).copy Cells(i, "E") Set temp = .FindNext(temp) Loop While temp.Address <> tempAddress End If End With End Sub Sub copy() Range("A:G").Clear Worksheets("template").Range("A1:C7").copy Destination:=Worksheets("Sheet1").Range("A1") End Sub 388 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 10:10:54.71 ID:CE2aKfrCH.net] >>385 うーん、値を返すのは分かるんだけど、わざわざsubから取り出す意味が分からんのよ subの中に入れちゃえば良くない？ コードが長くなる時とか、他のプロシージャにも流用したい場合なんかにfunctionで別プロシージャにしとくと分かりやすいってこと？ そういやfunctionを関数みたいに使う場合もあると聞いたな 389 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 10:32:00.95 ID:P/fMeUQp0.net] >>384 >>385意見に賛成だが少し付け加えます。 基本的にsubにしろfunctionにしろ長くだらだら作らない 出来るだけ意味のある汎用性のある処理はそのルーチンを呼び出すようにする その時に値を返せるfunctionの方が圧倒的に有利 初心者は同じようなルーチンをコピペで増殖させるが、後々メンテナンスに困る それらをライブラリーとして持つと自分の資産になるんだけどね、それが重要なんだよ 390 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 11:24:47.87 ID:aRCJr/ZnM.net] >>384 ネタでしょ？ モドリッチがない方が便利だなんて、そんな訳ないじゃん 391 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 11:26:30.05 ID:CE2aKfrCH.net] >>389 あーその説明で分かった ありがとう たしかに今までは、動けばいいやで作ってたからコードが長くなってた 顧客コードから各データを検索する時なんか、 Cells(i,2).value=Range(Z:Z).Find(Cells(i,1)).Offset(0,5).Value みたいなコードを10行とか書いてたわ 392 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 12:23:13.41 ID:1q3vxt7ga.net] OutlookのVBAもここで可でしょうか？ 違ったら誘導お願いします 上司へ「承認お願いします」と言った趣旨のメールを送った際、上司がボタン1つで承認する旨のメールが送れるようにしたいです しかし複数いる上司全員にマクロの設定方法を教えるのは面倒です 私から送信するメール本文にマクロを組み込み、上司が受け取った際に本文にあるリンクを押せば(マクロを自分で設定していなくても)返信メールが自動作成されるような手法が取れればベストなのですが、そういったことは可能なのでしょうか？ 393 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 12:47:38.41 ID:i1bbppKtM.net] >>392 ウィルスメールの作成方法きいてる様なもんだなw 394 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 12:51:48.37 ID:Z4r31YmpM.net] >>392 まずは社内でOLのセキュリティ設定がどうなのか。 ザルならやりようはいくつもあるが、ガチガチなら選択肢は少ない 395 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 13:44:15.47 ID:P/fMeUQp0.net] >>392 まあ、バカ上司をサポートするのと バカ上司の影響をサポートするのと どちっがしたいんだ？ 396 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 13:45:21.90 ID:8P1bQTIM0.net] >>388 VBA初心者にありがちな意見だね。 プログラムを組む時の考え方が全く違う。 組める奴なら最初から構造的に考える。 動きゃ良いなどと考える奴はいない。 397 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 13:48:09.91 ID:8P1bQTIM0.net] >>392 マクロでやらなくても承認ボタンを追加する機能があった筈だが。 398 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 13:50:35.37 ID:i1bbppKtM.net] > VBA初心者にありがちな意見だね。 はい、きょうもマウント取りたい人が来ましたよ 399 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 14:01:27.19 ID:8P1bQTIM0.net] >>391 >>389の言ってることは全くその通りなんだが、FunctionにしろSubにしろ、内容が汎用的なものをまとめる、同じような処理を纏める考え方をするようになると最初から構造的に組むようになる。 その方が圧倒的に楽だから。 あと、例に挙げてるコードは良くない。 ブックやシートの省略はバグの元。 400 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 14:03:33.28 ID:8P1bQTIM0.net] >>398 マウントも何も、明らかに初心者なんだから仕方ないだろ 401 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 14:18:44.11 ID:rhAlx8Ij0.net] > VBA初心者にありがちな意見だね。 この部分は必要なかったんだよなぁ 402 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 14:34:43.00 ID:8P1bQTIM0.net] >>401 必要なんだが。 403 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 15:27:43.49 ID:m2eXkVaQM.net] 初心者お断りな質問スレが存在した…？ 404 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 15:33:18.00 ID:rhAlx8Ij0.net] >>402 君はそう書かないと回答できないのか、なるほど 興味深い 405 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 15:57:40.29 ID:JWvhlEsx0.net] >>386 >>387 話題を気にせずに、切り込んだ形で質問をしてしまいました。 ホントに困ってしまったのでココで質問をしてみましたが、割り込んだ形でご迷惑をおかけしました。 VBAなんでも質問スレで聞いてみます。 お邪魔しましたm( _ _ )m 406 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 15:58:05.43 ID:8ZgSX7bEF.net] >>404 構造的に考えるべきという意味付けの為に必要。 初心者にありがちだということで、初心者からレベルアップした方が良いということになる。 407 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 16:01:17.83 ID:8ZgSX7bEF.net] >>405 別に迷惑でも何でも無い。 元々、初心者の質問に難癖を付けた奴が悪いと思ったから>>355を書いたんだが、内容を見ずに変に絡んでくる奴が出てきただけのこと。 408 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 18:23:49.73 ID:PIv3udRAr.net] i=の行をloopの中に入れる 409 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 18:25:13.81 ID:PIv3udRAr.net] その上のtempaddressも 410 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 18:29:24.54 ID:Bg5LHkgbH.net] マウントしてると誤解を招くような 会話しかできない奴は能力低い奴多い 他人の意見も聞かないしね。 傲慢が後に返り討ちにあう 411 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 18:33:26.76 ID:C7Ijh9EKa.net] >>397 こんなんあったんですね！ 自分で作るなら他にも機能足してたかもしれないけど、これなら簡単で皆で使えるからこれでいきます ウイルスメールの作成方法……確かに…… 412 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 19:06:09.82 ID:+01nmcZGF.net] >>410 誤解を招く前に、プライドに触ったのか碌に内容読まずに絡む奴の方がよっぽど問題だと思うが。 413 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 19:42:52.66 ID:ID0apHa80.net] ところでここは「Exce VBA」の質問スレ 414 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 19:55:29.19 ID:P/fMeUQp0.net] >>410 マウントしたい奴と思ったら絡むなよ 意味もなく伸びrだけ 415 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 22:28:38.54 ID:6NK7Ep/b0.net] >>384 functionなら1行で書ける! と思ったけど、よく見たらどっちも2行かかるな。 Dim A A = function() Dim A sub(ByRef A) functionのメリットって何だろ? 1個しか返せないし。

---

---

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

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