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 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個しか返せないし。 416 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 22:45:21.26 ID:g3Ue34fJ0.net] >>415 馬鹿はいい加減黙れよ 417 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 22:46:58.82 ID:exe6lUi60.net] >>415 教えてほしいなら教えてくれと言えば良い 君以外全員わかってるぞ 418 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 23:03:25.05 ID:sz8y6/Um0.net] >>416 容赦なくてﾜﾛﾀw >>415 If func(x) Then とか func1(func2(a), func3(b)) とか 419 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 23:15:31.12 ID:MN8nEIAEd.net] >>415 1個しか返せないといっても工夫の問題。 配列で返せば実質何個でも返せるし、Collectionで返すこともできる。 クラスインスタンスを返すなんてことも出来る。 どれも普通にやることだよ。 何を返せば使いやすいかを構造的に考えて人間にとってピンと来るように組めばメンテナンスも楽だし、プロシージャの内容も理解しやすい。 初心者のコードは何をする処理なのか全く分からないことも多いが上級者のコードは考えて組まれてるので理解しやすいんだ。 >>416 >>417 罵倒するだけで内容を書かないんじゃ君らのレベルも押して知るべしだな。 420 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 23:18:36.46 ID:MN8nEIAEd.net] >>418 むしろ Function Hoge(Arg() As String) As String() の方が適切かな。 或いは Function Hoge(Arg() As String) As Collection とか。 421 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 23:45:10.83 ID:sz8y6/Um0.net] >>419 AddressOf で関数を返すことすら出来るのだ 422 名前：デフォルトの名無しさん mailto:sage [2019/05/28(火) 23:58:45.95 ID:0rD99vo/0.net] IF Func() Then とか Loop Until Func() なんてのがSubでは代用しにくい使い方だな (できないとは言わないが) むしろ普通の数式で A = Func1() + Func2() + Func3() みたいに書きたい時の方が、Subに置き換えた時の無駄が多くなりそう 423 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 00:02:34.60 ID:S0wmSPvZ0.net] 2年ぐらい前にもSubとFunctionに違いなんかないと言い張る粘着がいたのを思い出した 424 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 00:03:33.14 ID:6UUzdaAE0.net] BASICなんだからGOTOだけで十分 425 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 00:47:16.25 ID:aQ2xiGWFd.net] >>421 おう、ここで初めて高度な話を見た。 426 名前：デフォルトの名無しさん [2019/05/29(水) 03:04:42.46 ID:1woLKBVkM.net] ・Sub ・返り値のないFunction この違いは何ですか？ 427 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 04:29:34.43 ID:WducifPVa.net] subじゃ１個も値返せないじゃん 428 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 05:02:37.42 ID:E4T3mNp50.net] 戻り値ないならsubでいいじゃんって話だと思うんだけど俺も一応はそう思う 昔はsubばかりで書いてた subは単体で実行できるけどfunctionは単体では実行できないという違いがある functionは他から呼び出さないと実行できないという意味でね。 ここからは俺の好みみたいなもんだけど、 ボタンに直結してるようなエントリーポイント的なものは subで書いて、それ以外、特に引数を受けとって処理するものは 単体では実行できないことを明確にする意味で全てfunctionにしてる そう論理的で整合性のある区分というわけではないんだけど。 429 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 08:46:31.68 ID:WZbm0MMEM.net] >>428 単体で実行できるかどうかはSub/Function の差じゃなくて、引数を取る/取らないの差じゃなかったっけ？ 430 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 08:57:09.71 ID:dT9QfEjx0.net] >>429 正解 Sub foo() '単体実行可能 End Sub Sub bar(baz) '単体実行は出来ない End Sub 431 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 08:58:24.42 ID:dT9QfEjx0.net] あと、実行可能かどうかはpublic/privateで切り分けるべきだろう 432 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 09:10:25.71 ID:QQeifizk0.net] セルに式として関数を入力して呼べるFunctionと呼べないSub 433 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 09:17:16.17 ID:dT9QfEjx0.net] >>432 あれ、じゃあ何のためにsubって存在するんだ return 0しなくていいってだけ？ 434 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 09:30:42.49 ID:dT9QfEjx0.net] 基本はfunction スクリプトとして何かをさせたい時にだけsubで定義する。C言語で言うint main(){} 戻り値や引数のありなしでは切り分けない と考えると自然と思うんだけど、どうだろう この考えだと、private subは使うべきじゃないって事になる 435 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 10:59:47.52 ID:bJuQUiqr0.net] 別に良いんだよ何を使おうと、まあ好きにすればって程度 まあ、ただ論理的に考えずごみを量産するやつはいるな 436 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 11:30:55.13 ID:zbMbGE8SM.net] >>426 戻り値のないFunctionは存在しない 戻ってきた値を無視することができるだけ つまり戻り値を格納するためにメモリを必ず使うから、Subと比較して速度とメモリ効率の2点で不利になる 437 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 11:31:54.96 ID:WZbm0MMEM.net] Excel長老の話って知ってる？ 438 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 11:32:51.36 ID:WZbm0MMEM.net] >>436 メモリ効率ってネタだよね？ 439 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 11:39:17.00 ID:zbMbGE8SM.net] >>433 今から40年以上前、それまでのシーケンシャルなプログラムでは能率が悪いから構造化しようという話しが出て、その時に提唱されたのが「手続き(Sub)」と「関数(Function)」という概念 しかし、教育用として作られたPascalという言語では忠実に実装されたけど、C言語には関数しか用意されなかったし、その後に登場したJavaも関数しかない 結局は言語を設計した人のリテラシーというか、単なる好みで決まったようなもん 今でもたくさんの言語が乱立してるのは、結局はみんな「ぼくの考えたさいきょうのげんご」が作りたいだけと思って、あながち間違いじゃない 440 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 11:41:11.71 ID:zbMbGE8SM.net] >>438 ネタじゃないよ リカーシブなプログラムを書いてみればすぐわかる VBAでもFunctionは呼び出すたびにヒープを最低4バイトずつ消費するから、再帰の最大回数が少ないのは簡単な実験ですぐに確認できる 441 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 11:48:47.33 ID:WZbm0MMEM.net] >>440 「ヒープ」ってネタだよね？ 442 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 11:53:59.73 ID:dT9QfEjx0.net] >>439 ありがとう！そういう事か sub便利だけど、便利過ぎてかなり変な事になってるね subから呼び出すのはfunctionと決めていれば良いんだろうけど、 でもsubからsub呼び出す事もあるから・・・ 結局subって意味なくね？ C言語のsub無しが正解のような気がする。 >>441 なんでネタと思うんだ？ 443 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 11:58:48.77 ID:zbMbGE8SM.net] 簡単な実験 Funcの方がメモリをたくさん消費するから繰り返せる回数が少ない データキャッシュも有限なリソースだから、どちらでもいい時はFuncの方が不利 Sub sub_test() 　　test_sub (1) End Sub Sub func_test() 　　test_func (1) End Sub Sub test_sub(n) 　　n = n + 1 　　Debug.Print n; 　　test_sub (n) End Sub Function test_func(n) 　　n = n + 1 　　Debug.Print n; 　　test_func (n) End Function 444 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 13:23:20.90 ID:AfH1iVf/M.net] Selenium+vbaを使って ChromeでWebページをPDF保存することは可能でしょうか？ 445 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 13:29:26.76 ID:dT9QfEjx0.net] >>444 vbaは不要っぽい takuya-1st.hatenablog.jp/entry/2017/06/21/140000 記事が古いから一度試したほうが良いと思う 446 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 13:43:28.26 ID:aQ2xiGWFd.net] >>442 だから構造的に考えて意味的にFunctionが適するかSubが適するかを選択するんだ。 意味的にというのは人間の感覚にとって合った方を採用すべきということ。 Cだってvoidがあるじゃねーの。 無理矢理1を返すとかすれば戻り値が絶対に必要な言語設計だってできた筈。 なんでvoidがあるかといえば、やっぱり意味的に戻り値無しが人間にとってピッタリ来ることがあるからだと思うが。 447 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 15:03:19.55 ID:eVQzoh+sa.net] 処理結果をpublicで判断するよりは 値を返すほうが使いやすい 448 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 17:40:58.36 ID:S0wmSPvZ0.net] プログラムを一人で作って自分だけが永遠に保守するなら好きなように作ればいい 大規模なアプリをチームで作ったり、他人が修正したりする時には間違いを起こさないようにルールを決める必要があって、 経験上、カプセル化した方が結果的に安全で能率がいいということになっている そのための手法の一つが変数のスコープを狭くすること、グローバル変数は使わないこと、なんだな だから結果はどこかの変数に入れるんじゃなくてFunctionで返すんだよ 複数の値を返したいなら設計を見直すべきで、構造体を使うか、1つずつFunctionを分けるか考える 449 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 18:50:10.49 ID:b/xKBA/BM.net] >>445 SeleniumではなくSeleniumBasic の間違えでした。 ごめんなさい。 450 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 18:57:16.16 ID:dT9QfEjx0.net] グローバル汚染はマジでエグいからな 「name」「mail」この変使われてたら超めんどい >>449 Selenium使えばいいんじゃない 451 名前：デフォルトの名無しさん mailto:sage [2019/05/29(水) 19:33:05.85 ID:gbtQDfh8M.net] seleniumってもう使い物にならなくなってなかったっけ 452 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 00:50:17.75 ID:oM5Ks3kV0.net] >>440 ヒープとスタックの違い理解してる？ 453 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 03:19:10.04 ID:1qsenVBka.net] byref もあるしな 454 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 08:21:00.17 ID:oyMl0bcF0.net] >>452 それって日本昔話に載ってる？ 今も気にすること？ 455 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 12:02:16.59 ID:fCKFoHR/M.net] 使うスタック量によって再帰での有利不利って理屈の上ではあるだろうけど 現実的な意味ってあるの？ 条件によってスタックオーバーフローする「かもしれない」プログラムに対して 引数や返り値を考慮とか再帰深度に気を使うとか、ちょっとVBAで考えられないんですけど 456 名前：デフォルトの名無しさん [2019/05/30(木) 12:25:00.74 ID:0nKLhIYFr.net] >>454 SubとFunctionでメモリ効率の違い考慮するレベルなら 457 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 12:31:21.82 ID:NTWA4E5yM.net] >>454 別に気にしなくてもいいけど>>440みたいなツッコミ入れるならちゃんと理解してないと恥をかく 458 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 15:33:21.51 ID:oyMl0bcF0.net] >>457 おれも、昔話書きたくなったレベル z80とか8080とかな8086なんて凄いよな 459 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 18:56:24.47 ID:86kk1xI3a.net] ここできいていいのか分かりませんがマクロの組み方で教えてください 「=5月シートＡ1」 「=5月シートＡ2」 みたいに引っ張っているセルを 「=6月シートＡ1」 「=6月シートＡ2」 みたいに変えるマクロを組みたいんですが それを毎月自動で7月、8月、と月に合わせて変えるのはどうやるのですか？ 理想としては、5月と書いてあるセルを6月と入力し、そのセルをコピペしていくマクロを組みたいのですが、その流れを作っても元の5月だけがコピペされてしまう状態です。 説明が下手ですみません。 460 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 19:04:11.68 ID:1nLCMVmfr.net] 今月=month(date) activesheet.range("a1").resize(5).formula="="&今月&"!a1" 461 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 19:12:37.62 ID:3bWSKYGBM.net] >>459 5月シートをコピーして6月シートにする。 5月を6月に文字列全置換え 処理日によって月を自動判定でもいいが、フォームで値を確認、修正後に実行の方がいいんじゃないかな 462 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 19:18:06.10 ID:86kk1xI3a.net] >>460 すみません初心者なので詳しくは分かりませんが、今の月を参照するセルを作り、それをコピペするように組めばいい感じでしょうか。 間違ってたらすみません。 >>461 今まではそうやっていたのですが、それ以外にも、不要な場所を削除して、一番下の数値を一番上に持っていってみたいな作業があるので、その置き換えも合わせてマクロにしたいと思いまして。 463 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 19:37:14.94 ID:/EJeltR2r.net] >>462 今月の月を取得して、a1からa5までの数式を置き換えるイメージです。 携帯からなので試せていませんが・・・ 464 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 19:38:13.64 ID:86kk1xI3a.net] >>463 ありがとうございます。 試してみます 465 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 19:41:48.72 ID:S1ohEoHj0.net] >>464 文字列の検索や置換は数式にも有効 5月を6月に置換すればいい VBAは必要ない 466 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 19:49:45.60 ID:vA8HeCKe0.net] >>459 他の処理はともかく数式に関してはマクロいらない =INDIRECT(MONTH(NOW())&"月!A1") 467 名前：デフォルトの名無しさん mailto:sage [2019/05/30(木) 19:55:45.24 ID:vA8HeCKe0.net] 間違えたわ、こうだわ =INDIRECT(MONTH(NOW())&"月!A"&ROW(A1)) 468 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 10:21:23.92 ID:iXFRocgY0.net] なんか、今月にこだわる人多いが説明だと選んだ月のシートからデーターを 持ってきたいだけだろ、勿論INDIRECTを使うことでマクロを使う必要はない 例えば、値を参照するシートとのA1セルに入力規制で１月〜12月を選択して =INDIRECT($A$1 & "!A" & ROW(A1)) でいいだろ 469 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 10:48:51.98 ID:xVkqny4q0.net] >>468 > それを毎月自動で7月、8月、と月に合わせて変えるのはどうやるのですか？ 470 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 11:09:05.87 ID:iXFRocgY0.net] >>469 自動だったらA1セルをNow()にして表示形式を 月だけにすればいいだけだろ 各セルに設定する関数は簡素に共通化する 471 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 11:20:16.63 ID:xVkqny4q0.net] >>470 > なんか、今月にこだわる人多いが 472 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 11:34:43.20 ID:iXFRocgY0.net] >>471 今月か選択なんてExcelをちょろって知ってればどっちでもいいんだよ １っか所変えただけで要は１っか所を変えただけでその月に対応すればよいだけ こんなのマクロなんか書いたら笑えるレベル 473 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 11:36:26.16 ID:iXFRocgY0.net] あら〜ダブって入ったわ　すまぬの 474 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 11:48:24.92 ID:fWZN/ECyM.net] なんかVBA使わずにワークシート関数使えっていうコンセンサスでもあるの？ 思い込みと違う？ 475 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 11:53:29.26 ID:iXFRocgY0.net] >>459 お題は >理想としては、5月と書いてあるセルを6月と入力し、そのセルをコピペしていくマクロを組みたいのですが、その流れを作っても元の5月だけがコピペされてしまう状態です。 だけどな、マクロを使わないと気が済まないやつっているのかな 476 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 11:57:27.72 ID:iXFRocgY0.net] >>474 これでマクロを作るやつのマクロを参考にしたいな ぜひ作ってね 477 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:02:31.59 ID:kMeHCJPt0.net] >>474 数式だけならファイル形式をxlsxのままにできて安全 同じ機能なら数式で済ませた方が良いだろう 家計簿ならどっちでも良いのは間違いない 478 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:17:34.40 ID:iXFRocgY0.net] まあなんだな、$A$1この書き方って絶対参照だが良くないんだよな 普通はそのセルに名前を付けてその名前で参照する 例えば「設定月」みたいな名前ね 479 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:21:40.48 ID:UKwhkiwBr.net] VBAのスレでマクロつかうなとか(笑) 480 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:23:22.93 ID:xVkqny4q0.net] >>472 >>462 > それ以外にも、不要な場所を削除して、一番下の数値を一番上に持っていってみたいな作業があるので、その置き換えも合わせてマクロにしたいと思いまして。 481 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:27:21.46 ID:wdWzuIo7p.net] シートを左のものからきっちり順に印刷する（印刷指示を出す）vbaありませんか？ スプール云々はプリンターの詳細設定弄れなくなってるのでvbaでどうにかなればしたいのですが・・ 482 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:27:47.02 ID:iXFRocgY0.net] Excelの関数や機能も知らん奴がVBAでマクロを作るか 少しは勉強しろよ、ってか 運転できないやつが、自動運転を作るみたいなもんか？ ってか参照で十分なものを何でマクロ(笑) 483 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:31:43.08 ID:xVkqny4q0.net] >>482 >>459 > 毎月自動で7月、8月、と月に合わせて変える 　>>468 > 今月にこだわる人多いが >>462 > その置き換えも合わせてマクロにしたい 　>>472 > こんなのマクロなんか書いたら笑えるレベル 一部読み飛ばして回答してしまうのはなんなのネタなの 484 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:32:47.94 ID:iXFRocgY0.net] >>480 すまないが、そんなのどうして関数でできないと思うんだ？ ちゃんと説明すれば？、今まで書いているのはあまりにも簡単な質問で 関数で十分なんだが 485 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:37:34.60 ID:iXFRocgY0.net] >>483 別に、マクロで提案してみたら 486 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 12:54:17.71 ID:jiw85AG60.net] 自動車つくれなくても、つくってもらって乗ればいいじゃん 487 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 13:01:15.44 ID:iXFRocgY0.net] >>486 でも、企画があってな　わけなわからん奴の作った自転車に 乗れるか？ 責任は運転者だよ、関数は規格通りだな その自転車がすごきゃいいよ、単に危ないだけじゃな 488 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 13:10:48.90 ID:iXFRocgY0.net] >>483 で、お前は何ができるんだ？ 何が気に障った？(笑) 489 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 13:26:58.37 ID:iXFRocgY0.net] >>483 VBAで提案できないやつが・・・・ ネタだよな・・関数なら即座なのに 490 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 13:43:20.27 ID:xVkqny4q0.net] >>489 今月にこだわっててもおかしくないし 一連の流れをマクロにしてその一部の質問してるわけでしょ だから>>468も>>472も的外れって話 訂正するわけでもないのに再アンカをしかも連投するってせっかちすぎない？ 491 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 13:55:19.86 ID:iXFRocgY0.net] >>490 今月とかどうでもいいんだよ 単に参照すればいいだけ、それで質問者の意図に対応できないか？ 自分の主張じゃなく、何が正しいかで提案するんだよ VBAで作れば何でもできるさ、でも単に絶対参照でいいものをこねくり回すなよ 492 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 14:07:14.86 ID:xVkqny4q0.net] >>491 次は話ループさせんの？ 「毎月自動、VBA」という質問の前提をこねくり回してるのはそっちでは？ 493 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 14:14:55.01 ID:kMeHCJPt0.net] 普通のExcelスレはあんなに紳士的なのに・・・ 494 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 14:31:03.11 ID:iXFRocgY0.net] 何だろうな、普通に絶対参照すればいいものをVBA・VBAって叫ぶの 怖いは 495 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 14:48:52.06 ID:2f7ZWXQQ0.net] >>494 >>459>>462でマクロでやりたいと言ってるし、 マクロ以外の回答に対してノーリアクション 数式での回答を求めてないのだろう。結果を求めるだけじゃなく、マクロ自体を書きたいという質問者もいるわけだしな あまり押し付けるのもどうかと思う もちろん一般的な場合は君のやり方が正しいのは明らか さすがにそれが分かってない人はいないだろう 496 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 15:04:15.42 ID:jiw85AG60.net] >>462 削除等はマクロで、他シート参照は数式でいいんでないの 497 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 15:50:07.97 ID:xVkqny4q0.net] 元の前提無視して絶対参照・絶対参照って叫ぶの 怖いは って言えばいいのかな 498 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 16:21:11.81 ID:iXFRocgY0.net] >>496 削除が必要って単なる思い込みではないのかな Excelの使い方もわからないのってVBAって魔法の玉手箱じゃないの でなければ、質問者に対する最適の解をさっさとVBAで示せばいいんだよ 499 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 16:31:39.12 ID:Q8fJ9KqCF.net] 元々の質問を見る限り、詳細が無いのでVBAで解決すべきか数式で解決すべきか判断できん。 逆に言えばこれだけの情報でVBAを必要無いとか言ってしまえる人って初心者とまでは言わないけど大したスキルは無いんだろうなと思ってしまう。 500 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 16:43:05.14 ID:agbDawORM.net] >>499 そうか　君はプロなんだね(笑) 501 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:06:59.36 ID:Q8fJ9KqCF.net] >>500 初心者は自分の状況を上手く説明出来ないし、それはしようが無い。 一方回答する方も、初心者は自分の狭い土俵で回答しようとするんだよね。 502 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:12:13.76 ID:agbDawORM.net] >>501 いまだにＶＢＡでの回答すらないけどね 503 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:17:59.31 ID:Q8fJ9KqCF.net] >>502 俺はこんな質問に回答しないよ。 何処の掲示板でもそうだけと面白いテーマじゃなきゃ回答しない。 俺が回答する必要も無いだろう。 >>460とかを見てどうにか頑張れば良いんじゃね?と思ってる。 504 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:21:09.14 ID:Q8fJ9KqCF.net] 技術レベルは大したことない問題だけど最近回答したのは>>284だな。 テーマとしては面白いから。 505 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:33:03.28 ID:NquLpIx1r.net] てか>>464で終わっとるやろ… 506 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:36:44.72 ID:xVkqny4q0.net] >>498 むしろ思い込み(というか自分の都合のいいように解釈)してるのはそっちなんだよなぁ 507 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:42:42.79 ID:agbDawORM.net] >>503 君に、回答を求めてないよ 俺も、VBA の回答は基本的に出さない まあヒントだけだな いや〜これのマクロを作る奴見てみたい(笑) 508 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:43:17.34 ID:2P/bRCUed.net] というか>>499に書いた通り、状況を判断する材料が少ない。 例えば月のシートが沢山あって、それぞれのシートの集計結果を集計シートで閲覧したいという状況なら数式の方が良さそうだ。(それでも情報が足りないから「良さそう」としか言えん。) 509 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:44:39.75 ID:2P/bRCUed.net] >>507 じゃあ、俺に>>502のレスするんじゃね―よw 510 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 17:46:18.67 ID:a67Z5WHaM.net] >>499 ほんそれ ど真っ赤で力説してるのが滑稽やなw 511 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 18:08:13.80 ID:agbDawORM.net] >>509 意識過剰だろ(笑)事実を書いただけ 512 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 19:20:39.09 ID:frxzLdPfr.net] VBAでやるか数式でやるかの判断はこのスレでやる話じゃないだろ ここはVBAのスレだぜ 513 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 19:22:19.42 ID:2P/bRCUed.net] >>511 ??? ">>501"を付けるなと言ってる。 514 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 20:32:30.11 ID:XAbM3vU30.net] >>481 dim ws as worksheet for each ws as thisworkbook.worksheets 　ws.printout 〜 next 515 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 20:58:10.12 ID:wdWzuIo7p.net] >>514 大荒れの中レスありがとう 来週試してみます 516 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 22:18:19.39 ID:XAbM3vU30.net] >>515 ごめん for each ws in の書き間違い 517 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 22:31:58.82 ID:aMsRRK9D0.net] ん? 全シート印刷じゃダメだったの? 518 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 22:40:38.73 ID:agbDawORM.net] >>513 ふん、おれ５００　お前が笑えるレスつけただけだろ 519 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 00:10:30.70 ID:Re37ayj0p.net] >>517 もちろん全シート一括で印刷かけてるんですけど、スプール設定？の関係で重いシートの印刷が後回しになるので10ページ1ページ2ページの3シートのファイル印刷すると10ページのシートが一番最後に印刷されちゃって不便なんです 520 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 02:54:17.07 ID:48zxZgqm0.net] ListBox使ってるんですけど、たまに表示がバグります 薄い横線がListBox内の全ての行間に表示されちゃうんです 行のフォーカスを動かすと、動かした範囲ではこの変な横線は一旦消えるんだけど、 何かをするとまた横線があらわれる こういうのって何が原因かわかりますか？ 再現性がそう高くないので、対策しづらいです 表示がおかしいだけでプログラム自体は問題なく動きます 521 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 03:41:24.97 ID:48zxZgqm0.net] >>520ですけどもしかしたら直ったかもしれないです multiSelectをfmMultiSelectExtendedに設定してるんですけど、 UserForm Initialize内で設定するのではなく プロパティウィンドウで選択して設定するようにしたら今の所出ないです 再現性があれなんで確実とは言えないんですけど 522 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 07:48:48.81 ID:FEI28S1s0.net] >>520 ListBoxに限らず、Excelのオブジェクトは変だよ。 そんなもんだと思う。 俺もこんな現象に遭遇した。 ・印刷プレビュー直後に、リストボックスを操作できなくなる。(シートを切り替えると直る。) ・MSクエリやADOを使うと、ボタンやテキストボックスの位置が、見た目と合わなくなる。 　[コマンドボタン]　　　　　　　　　　何もない部分 　　　　　↑　　　　　　　　　　　　　　　　　↑ ここにボタンがあるのに　　ここを押さないと反応しない 523 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 07:53:01.65 ID:FEI28S1s0.net] あと、なんじゃそりゃ!???? と思ったのが、 　[コマンドボタン] 　　　　↑ 　　押すと・・ 　　　　　　　　　　　　　→→→　[コマンドボタン] 　　　　↑ 　ボタンが逃げる 多分、押す前のボタン画像が左にあって、 押した後の(凹んだ状態の)画像が右にあるんだと思う。 524 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 08:43:23.59 ID:48zxZgqm0.net] >>523 論理的に解決できる方法がないから山勘に頼っていじってみて 運良く解決できたらもうけもんってことですかね 表示がぶれると、使ってる人が、このプログラム大丈夫かと心配し始めちゃうんで できるだけ避けたいところです 525 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 10:54:28.04 ID:/THuLu8v0.net] >>518 ??? バカなの? お前が500なのもお前に俺がレスしたのも誰でも分かるわ。 >>502のレスにおいて">>501"を付けるから俺に回答を求めてると判断されても仕方ないだろが。 526 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 15:58:14.75 ID:Vz6e2VkK0.net] >>525 笑えるな、答えられないやつに答えを求めないって(笑) 527 名前：デフォルトの名無しさん [2019/06/01(土) 16:00:03.94 ID:Vz6e2VkK0.net] まあ、プロさんのようだから答えられないの恥ずかしいのか(笑) あげとくは 528 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 17:24:08.45 ID:/THuLu8v0.net] >>527 煽ってもお前のレベルが低いのは変わらんぞw 相手のレベルを推しはかれないのは相手よりスキルがかなり低いからなんだが。 529 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 17:41:52.05 ID:FFwlyzcq0.net] まだやってんの 最近多い無関係の人が巻き込まれるような事件起こしそう 530 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 17:42:25.49 ID:ZZxkmLZAM.net] >>528 あら、単に引きこもりのカスでろくなの作れんて思ってるよ(笑) 531 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 17:47:36.35 ID:/THuLu8v0.net] >>530 そりゃスキルの無い奴は人を評価出来ないからなw 532 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 20:32:00.88 ID:XF0/4x+50.net] データベースでエクセルのフィールド(3)を下に読み取っていって、入ってる型が文字列以外の物が入っているかチェックしたいんですけど何かないですか？ 533 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 20:51:09.32 ID:fYRCWk9w0.net] >>532 vartypeがvbStringかどうか typenameが"String"かどうか など 534 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 22:43:59.23 ID:g0N7gK6Z0.net] >>532 わざとやってみてどうなるか確認してみよう 先頭何レコードで判断するんだっけ？ 535 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 22:55:52.58 ID:g0N7gK6Z0.net] >>532 早速やってみたけど、逆のパターンである 「先頭に数値が入っていて途中から文字列に変化した」場合は判定できた。 具体的には数値部分だけ読み込んで文字列の部分はNULLになった。 「先頭に文字列が入っていて途中から数値に変化した」場合は全部文字列扱いになったので厳密には判定不能。 536 名前：デフォルトの名無しさん mailto:sage [2019/06/02(日) 18:41:53.51 ID:3MovPWtK0.net] 初心者なので意味がわかりづらかったらすみません まず、やりたいことは 1.ユーザーにB2〜E2あたりに文字を入力してもらう 2.それを5行前後繰り返す 3.この後にボタンを押してもらう (以降マクロ処理) 4.入力して貰った行の各左セル(A列)に営業日(月初)を入力する 入力内容を下の行にコピペして、A列日付だけ翌営業日にする それを月末日まで繰り返す これを実現したい場合、営業日付をどう表示し、どう繰り返せばよいか検討がつきません アドバイス頂けませんでしょうか 日付に関してyyyymmのみユーザーに手入力して貰う予定で、それを利用できるかなと思っています 537 名前：デフォルトの名無しさん mailto:sage [2019/06/02(日) 19:17:16.23 ID:wosufaXU0.net] >>536 Sub foo() コピー元_行数 = Cells(Rows.Count, 2).End(xlUp).Row - 1 Range(Cells(2, 2), Cells(コピー元_行数 + 1, 5)).Copy 処理年 = InputBox("処理する年を四桁で入力してください", "", Format(Date, "yyyy")) 処理月 = InputBox("処理する月を1桁で入力してください", "", Format(Date, "m")) 'ここに上記が数値以外なら終了させる分岐をかます。めんどいのでしてない For i = 1 To Day(DateSerial(処理年, 処理月 + 1, 0)) Cells(コピー元_行数 * (i - 1) + 2, 2).PasteSpecial Range(Cells(コピー元_行数 * (i - 1) + 2, 1), Cells(コピー元_行数 * i + 1, 1)).Value = _ DateSerial(処理年, 処理月, i) Next End Sub 538 名前：デフォルトの名無しさん mailto:sage [2019/06/03(月) 23:29:52.65 ID:+V4WoVbB0.net] >>535 上にあるようにvartypeだとだめかね？ 539 名前：デフォルトの名無しさん [2019/06/04(火) 00:44:40.62 ID:Vr0YkSWUa.net] 教えてください。 ActiveCell.EntireRow.Copy Destination これで「任意のセル選択中で1行コピー」になりますが、 改造して「任意の複数セル選択中の複数行をコピー」に変えたいんですがわかりますか？ 540 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 01:01:51.67 ID:sjSsEz0E0.net] 仮面ライダー本郷猛は改造人間である。彼を改造したショッカーは世界制覇を企む悪の秘密結社である。仮面ライダーは人間の自由のためにショッカーと戦うのだ！ 541 名前：デフォルトの名無しさん [2019/06/04(火) 07:28:25.36 ID:CwYFwdXYa.net] >>539 Selection で自己解決したんですが、 ThisWorkbook.Worksheets("sheetA").Activate Selection.EntireRow.Copy Destination:=ThisWorkbook.Worksheets("SheetB").Range("A57:A62") ThisWorkbook.Worksheets("SheetB").Activate Range("A3:I4").Select End Sub で所定の6行のスペースにペーストするんですが、選択セルが5以下だと重複して貼り付けられます。 重複しない方法を教えてください。 542 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 07:51:19.62 ID:kIR0GcUMx.net] コピー先のセルのアドレスをシンプルに"A57"に変えるだけでいいと思う 543 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 08:26:51.88 ID:0SaUhvTtM.net] >>538 それだと対象のブックを開かなきゃダメじゃん 544 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 11:03:51.11 ID:ABA6WeJwH.net] 【速報】金券五百円分とすかいらーく優侍券をすぐもらえる　 https://pbs.twimg.com/media/D8I_sqPU0AEizjq.jpg　　　 　　　 �@　スマホでたいむばんくを入手　　　　 �A　会員登録を済ませる �B　マイページへ移動する　　　 �C　招待コード→招待コードを入力する [Rirz Tu]（スペース抜き）　　　　　 　 今なら更に4日18時までの登録で2倍の600円の紹介金を入手 クオカードとすかいらーく優待券を両方ゲットできます。　　　　　 　　　　　　　 数分の作業でできますのでご利用下さい。　　　 545 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 11:40:41.30 ID:ClB/ngZb0.net] ここにも来たかフィッシング詐欺 546 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 13:24:40.51 ID:g1r7g3uN0.net] >>544 TVCM見た後に入れた 547 名前：デフォルトの名無しさん [2019/06/04(火) 18:55:29.74 ID:w6NTuaQma.net] >>542 できました。ありがとうございます。 548 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 22:55:20.87 ID:JKzLDG9lp.net] 直前に開いたファイルのキャッシュ的なものを参照して情報を取得することってできますか？ 例えば直前に開いて印刷して閉じて消去したファイルのA1セルに記載の値を別ファイルのB1セルに転記する、みたいな 549 名前：デフォルトの名無しさん [2019/06/04(火) 23:07:17.09 ID:e2Nk6zam0.net] >>548 そんなの知るか 550 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 23:20:09.51 ID:GvHzI0140.net] >>548 必ずバックアップしてから開くようにバッチファイル作ればいいだけじゃね 551 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 00:02:17.80 ID:b19uQdIQp.net] >>549 知らないならわざわざ書き込まなくていいよw 552 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 09:28:21.10 ID:d6kiH4sy0.net] 印刷時には転記先のファイルが必ず開いてる状態なの？ それならWorkbook_BeforeCloseで閉じる直前に転記は？ 553 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 14:54:24.90 ID:1kcRpkSq0.net] これはそんなの知るかという気持ちもよく分かる。 工夫次第でどうとでもなるけど、そういう問題かどうかをはっきりさせるべき。 そういう仕組みを作ることなくできるかと言われれば、できないと答えるだろう。 工夫でそういう仕組みを作りたいというなら、それについて自分の考えを述べるべきだ。 VBAの問題じゃなくて考え方を考える問題なんだから単純なスキルの問題ではない。 554 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 15:52:32.95 ID:bp5RZsKU0.net] 事前に、ファイルを閉じる前や消す前に準備しておけばどうともできる 他人が使ったパソコンをこっそりのぞき見したいなら、それはかなり難しい 不可能じゃないけど、現時点では動機が不明で教えるべきじゃないと思われるので書かない 555 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 17:22:15.93 ID:b19uQdIQp.net] >> 556 名前：デフォルトの名無しさん [2019/06/05(水) 19:30:41.08 ID:5zNRcsxz8] 日・時・分が漢字で入力されたエクセルの文字列データを、時間データに変換したいです。 どのようにすればよいでしょうか？出来れば、マクロでお願いします。 よろしくお願いします。 例） -- 2日8時間　→　56:00 2時間30分 →　2:30 5分 →　0:05 4時間　→　4:00 557 名前：デフォルトの名無しさん [2019/06/05(水) 19:31:41.43 ID:5zNRcsxz8] ユーザ関数で…… 標準モジュールに下記のコードを入れ、適当なセルに =fTimestamp(A1)　の様に式を入れて下さい。 式を入れたセルの書式はユーザ書式で　[h]:mm としてください。 Function fTimestamp(sData As String) As Date 　　For i = 1 To Len(sData) 　　　　sOne = Mid(sData, i, 1) 　　　　If IsNumeric(sOne) Then 　　　　　　sNum = sNum & sOne 　　　　ElseIf sOne = "日" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) 　　　　　　sNum = "" 　　　　ElseIf sOne = "時" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) / 24 　　　　　　sNum = "" 　　　　ElseIf sOne = "分" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) / (24 * 60) 　　　　　　sNum = "" 　　　　End If 　　Next i End Function 558 名前：デフォルトの名無しさん [2019/06/05(水) 19:38:17.24 ID:5zNRcsxz8] >>556です。 >>557を試したところ、 2日8時間　→　56:00 2時間30分 →　2:30 5分 →　0:05 4時間　→　4:00 は上手くいきましたが、秒変換がうまくいきません。 例） 5分4秒 >>557 に単純に、 　　　　ElseIf sOne = "分" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) / (24 * 60 * 60) 　　　　　　sNum = "" を追加しての結果です(^^;) 何がいけないのでしょう？ 559 名前：デフォルトの名無しさん [2019/06/05(水) 19:41:46.35 ID:5zNRcsxz8] >>558 間違えました。追加したのは 　　　　ElseIf sOne = "秒" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) / (24 * 60 * 60) 　　　　　　sNum = "" です。お手数をおかけしますが何方かご助力いただけると助かります(^^: 560 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 19:45:36.22 ID:UgnFbYyua.net] ファイルの履歴とか拾うのかな？ 561 名前：デフォルトの名無しさん [2019/06/05(水) 20:56:36.68 ID:5zNRcsxz8] >>560 よくわかりませんが、単純にエクセルのセルに文字列で ◯時間〇分●秒単位で入力されていて その列の合計と平均を求める感じです。 562 名前：デフォルトの名無しさん [2019/06/05(水) 20:58:28.96 ID:5zNRcsxz8] 文字列形式で入力されているので先ずは数値に変換しないとどうにもなりません。 563 名前：デフォルトの名無しさん [2019/06/05(水) 21:22:31.39 ID:5zNRcsxz8] >>556 ~ >>559 です。わかりにくいので、再度まとめ直させていただきますと(_ _) 以下の通りです。 日・時・分が漢字で入力されたエクセルの文字列データを、時間データに変換したいです。 どのようにすればよいでしょうか？ 例） 2日8時間 → 56:00 2時間30分 → 2:30 5分 → 0:05 4時間 → 4:00 以下のマクロを参考にしたところし分までは成功しました。 564 名前：デフォルトの名無しさん [2019/06/05(水) 21:29:26.90 ID:5zNRcsxz8] >>563 の続きです。 ユーザ関数で…… 標準モジュールに下記のコードを入れ、適当なセルに =fTimestamp(A1) の様に式を入力。 式を入れたセルの書式は [h]:mm 565 名前：デフォルトの名無しさん [2019/06/05(水) 21:34:37.94 ID:5zNRcsxz8] >>564の続きです。 Function fTimestamp(sData As String) As Date For i = 1 To Len(sData) sOne = Mid(sData, i, 1) If IsNumeric(sOne) Then sNum = sNum & sOne ElseIf sOne = "日" Then fTimestamp = fTimestamp + Int(sNum) sNum = "" ElseIf sOne = "時" Then fTimestamp = fTimestamp + Int(sNum) / 24 sNum = "" ElseIf sOne = "分" Then fTimestamp = fTimestamp + Int(sNum) / (24 * 60) sNum = "" End If Next i End Function 566 名前：デフォルトの名無しさん [2019/06/05(水) 21:35:38.04 ID:5zNRcsxz8] >>565の続きです。 次に分まで（例　5分2秒）実現するために 以下を感で追加してみたところ失敗しました。 ElseIf sOne = "秒" Then fTimestamp = fTimestamp + Int(sNum) / (24 * 60 * 60) sNum = "" 無理を言って申し訳ありませんが、何が悪いのかアドバイス いただけると幸いです。何卒よろしくお願いします。 567 名前：デフォルトの名無しさん [2019/06/05(水) 21:41:19.12 ID:5zNRcsxz8] >>566 次に秒までの間違いでした(_ _) 568 名前：デフォルトの名無しさん [2019/06/05(水) 22:34:22.55 ID:5zNRcsxz8] >>566 なぜか (24 * 60 * 60) の代わりに 86400 にするとうまくいく感じです。。。 なぜ？？？ 569 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 20:51:53.11 ID:zo8mZEUL0.net] >>560 > 消去したファイルのA1セルに記載の値 なので履歴じゃダメだろうな マジでなんのためにそんなことをしたいのがさっぱりわからん… 570 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 22:41:29.46 ID:4nGxoieG0.net] >>537 遅くなりましたがありがとうございました！とても参考になりました おかげさまでメイン処理はひとまず形になりました ツール完成させられるよう頑張ります 571 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 23:22:07.87 ID:Uovi79l30.net] >>570 こんなこともわからんような馬鹿が作ったものを使わされるとか 572 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 23:37:24.78 ID:PwgeLPYz0.net] >>571 人間性に問題のある君と同じ職場よりは大分マシだろう 573 名前：デフォルトの名無しさん [2019/06/05(水) 23:48:39.29 ID:70FqVZZPd.net] いやいや ここは御大層に「ツール」とか書かれて吹き出す場面だろ 574 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 00:27:01.25 ID:vR0zkRe5M.net] ここは、あれだ。ﾌﾟｰｸｽｸｽ、ﾏｼﾞ受けるんですけど！というやつだ。 575 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 06:36:27.46 ID:ME671i1fx.net] Use after free攻撃のやり方を聞かれてるのと一緒だよなこれ 576 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 12:05:19.65 ID:vG+mGYiZ0.net] まあな、Excelの標準機能で出来ることも知らん奴が、作りたいものを考えて質問するんだよな だけど、ちょっと知ったかぶってどんなプログラムを作りたいとか書くけど 普通にExcelの機能で出来ることも、質問してるんだよな 動作仕様をかける奴は普通VBAのマクロも作れる 作れないやつの動作仕様ってごみなんだよな、何がしたいかだけ書けよと思う 577 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 12:22:02.47 ID:GuX8oFrp0.net] >>576 日本語でおｋ 578 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 12:59:11.37 ID:vG+mGYiZ0.net] >>577 すみません、日本語難しいどこですか？ 579 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 15:41:00.01 ID:GuX8oFrp0.net] >>578 天丼やめろｗ 580 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 20:23:11.53 ID:ulk3mDRi0.net] 日本人の俺でもわからんｗ 581 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 22:44:54.22 ID:17p7tBKQ0.net] 標準機能が嫌いなんだろう。 あとは、VLOOKUPでも出来るけど、 遅いし面倒くさいからADO+SQLでやるとかさ。 582 名前：デフォルトの名無しさん [2019/06/07(金) 01:08:10.00 ID:RApS/5ei0.net] ファイルの保存先の権限がなくて、別のユーザーのアカウントとパスワードで保存できる？？ 583 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 07:52:48.12 ID:ONMYVTJLM.net] VBA関係ある？ 584 名前：デフォルトの名無しさん [2019/06/07(金) 12:45:57.13 ID:6q38d7bCM.net] あるよ 585 名前：中国人 [2019/06/07(金) 15:55:31.64 ID:DiCkvzGr0.net] ないあるよ 586 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 20:52:52.69 ID:Xpa0BB/Y0.net] どうやるんだそれ・・。 OS上でOSでも動かすのか? 587 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 20:58:22.20 ID:hQ9V7YAV0.net] そういや、Windows 3.1はMS-DOSの上で動いていたっけ… 588 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 21:14:02.26 ID:WJdNdQhR0.net] Win3.1はミドルウェア 589 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 21:30:42.69 ID:4L9BxcJD0.net] c:¥> win だっけ？ 590 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 21:36:57.74 ID:fqhLtcXL0.net] フロッピー12枚だか14枚だか組みだったな 591 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 23:29:54.75 ID:5cD0N+lz0.net] >>582 それってネットワーク先の話? 共有フォルダでの読み書きとか? 結構難しい。 592 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 05:37:42.55 ID:fRZrFeuoa.net] excelのセルに記載された文字を、 PDFに位置指定して、テキスト挿入できますか？ 593 名前：デフォルトの名無しさん [2019/06/09(日) 07:51:19.35 ID:6FBaXgmQM.net] できます 594 名前：580 [2019/06/09(日) 07:52:18.86 ID:6FBaXgmQM.net] >>593 できるかどうかを聞いているのではない。 やり方を聞いておるのだ。 595 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 08:13:30.81 ID:y15MKF+M0.net] ※わざとです 596 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 08:14:03.36 ID:fRZrFeuoa.net] >>593 a=cells(1,1).value b=cells(2,1).value �@abc.pdfをオープン �A3p目の左上を起点に左から100、上から50の位置に、8ptで幅20の黒色で、aの内容のテキスト挿入 if b=1 then �B3p目の左上起点の左から200上から300の位置に、黒色の縦10幅10の円を挿入 else if b=2 then �C上記�Bの位置違いパターン endif この�@�A�Bを教えていただきたいです。 597 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:04:09.38 ID:LJTYegK80.net] PDF直接作るの超めんどいぞ Excelで位置確認ずらしていきながら合わせるって方法取ったほうが良い 598 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:27:58.90 ID:fRZrFeuoa.net] >>597 マジかぁ pdfは書式が既にあって、それをまずエクセル化するところからしなくてはならない excelのセルから抽出し、wordに入力するのも大変？ 599 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:32:56.69 ID:LJTYegK80.net] >>598 Excel VBAでワードを開く方法がある https://tonari-it.com/excel-vba-word-application/ wordの細かい所をどこまで触るかによると思う 単純作業なら全然難しくないよ 600 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:45:03.10 ID:fRZrFeuoa.net] >>599 ありがとう、ちょっと読み込んでみる やりたいことは要は、エクセルにずらーっとリストがあって、その内容を、 雇用契約書の穴埋め書式みたいな他のファイル（エクセル、ワード、pdfあり）に展開したい 展開内容はセル内容の挿入と、履歴書の男・女みたいに、○を挿入する形がある 601 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:52:34.55 ID:Apn2tV9M0.net] ○で囲むのは止めたほうが良い。ずれる 以下のような形に変えれるなら買えたほうが良い。 □男　　?女 602 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:53:01.65 ID:Apn2tV9M0.net] 文字化けした。 女の左にあるのはチェックマークね 603 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:05:38.50 ID:fRZrFeuoa.net] >>601 いや、書式はもう決まってんのよ 変えれるものじゃないんだ □の方が楽だけどなぁ 604 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:07:50.02 ID:qEIP4aE00.net] >>599 参照設定してるのに、CreateObject(“Word.Application”)って何? 605 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:11:05.04 ID:Apn2tV9M0.net] >>603 そうか、じゃぁ・・・ 頑張って！！ 606 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:13:10.62 ID:47rhBQpmx.net] >>604 参照設定はあくまで参照先ライブラリの型をインテリセンスや型指定でネイティブに使えるようにするための設定 ワードのアプリケーションのインスタンスを生成しないとエクセルからワードの操作はできない 607 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:15:31.89 ID:qEIP4aE00.net] >>606 そういうことじゃなくて、参照設定でその書き方? っていう。 それやると、レイトバインドとアーリーバインド、どっちになるの? 608 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:17:10.52 ID:qQGT2b0kM.net] >>605 最終手段はワードとpdfは画像化してエクセルに貼り付けて、そこでマクロるかな… 609 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:19:23.94 ID:qEIP4aE00.net] >>606 何か変だと思って試したけど、 こうか Dim w As Word.Application Set w = New Word.Application こうじゃない? Dim w As New Word.Application 610 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:29:49.90 ID:47rhBQpmx.net] >>607 >>609 参照設定したときに参照先ライブラリのクラスについて必ずNewキーワードでインスタンス生成しないといけないという決まりはない 参照設定して変数にワードのアプリケーション型を適用してる時点でアーリーバインドになる Newキーワードで生成したインスタンスのポインタを変数で受けてもCreateObjectから返ってくるポインタを変数で受けても同じ 611 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:36:03.49 ID:47rhBQpmx.net] というか、参照設定時のインスタンス生成にNew使わないと駄目なんて決まりがあったら、GetObjectで他アプリのインスタンス取得して操作したいときはどうなるのって話になるよな 612 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 11:12:20.95 ID:wmlwj4f30.net] >>610-611 わざわざ参照設定してるのにCreateObject(…)するアホがいるとは… 613 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 11:16:29.03 ID:Apn2tV9M0.net] CreateObjectも参照設定もimportだから、どっちか一つでいいんじゃないの？ 両方やっても問題ないけど意味はないと思う あんまリンク内容見ずに貼ってしまった俺が悪いな、すまん 614 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 13:34:23.02 ID:IXdTYEKb0.net] 山椒設定はライブラリバージョン古いPCじゃ即フリーズじゃなかったっけ 615 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 13:37:36.61 ID:WDGftzb80.net] 配布するなら、参照設定でプログラミングしてテストして、参照設定外して createobject方式にして配布 配布先で参照設定か外れることがまれによくあるので、こうしとくと無難 616 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 15:01:31.22 ID:lDRLC8Vq0.net] >>615 そっすね

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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