Excel VBA 質問スレ Part61

Excel VBA 質問スレ P ..

405:デフォルトの名無しさん
19/05/28 15:57:40.29 JWvhlEsx0.net
>>386
>>387
話題を気にせずに、切り込んだ形で質問をしてしまいました。
ホントに困ってしまったのでココで質問をしてみましたが、割り込んだ形でご迷惑をおかけしました。
VBAなんでも質問スレで聞いてみます。
お邪魔しましたm( _ _ )m

406:デフォルトの名無しさん
19/05/28 15:58:05.43 8ZgSX7bEF.net
>>404
構造的に考えるべきという意味付けの為に必要。
初心者にありがちだということで、初心者からレベルアップした方が良いということになる。

407:デフォルトの名無しさん
19/05/28 16:01:17.83 8ZgSX7bEF.net
>>405
別に迷惑でも何でも無い。
元々、初心者の質問に難癖を付けた奴が悪いと思ったから >>355を書いたんだが、内容を見ずに変に絡んでくる奴が出てきただけのこと。

408:デフォルトの名無しさん
19/05/28 18:23:49.73 PIv3udRAr.net
i=の行をloopの中に入れる

409:デフォルトの名無しさん
19/05/28 18:25:13.81 PIv3udRAr.net
その上のtempaddressも

410:デフォルトの名無しさん
19/05/28 18:29:24.54 Bg5LHkgbH.net
マウントしてると誤解を招くような
会話しかできない奴は能力低い奴多い
他人の意見も聞かないしね。
傲慢が後に返り討ちにあう

411:デフォルトの名無しさん
19/05/28 18:33:26.76 C7Ijh9EKa.net
>>397
こんなんあったんですね！
自分で作るなら他にも機能足してたかもしれないけど、これなら簡単で皆で使えるからこれでいきます

ウイルスメールの作成方法……確かに……

412:デフォルトの名無しさん
19/05/28 19:06:09.82 +01nmcZGF.net
>>410
誤解を招く前に、プライドに触ったのか碌に内容読まずに絡む奴の方がよっぽど問題だと思うが。

413:デフォルトの名無しさん
19/05/28 19:42:52.66 ID0apHa80.net
ところでここは「Exce VBA」の質問スレ

414:デフォルトの名無しさん
19/05/28 19:55:29.19 P/fMeUQp0.net
>>410
マウントしたい奴と思ったら絡むなよ
意味もなく伸びrだけ

415:デフォルトの名無しさん
19/05/28 22:28:38.54 6NK7Ep/b0.net
>>384
functionなら1行で書ける!
と思ったけど、よく見たらどっちも2行かかるな。
Dim A
A = function()
Dim A
sub(ByRef A)
functionのメリットって何だろ?
1個しか返せないし。

416:デフォルトの名無しさん
19/05/28 22:45:21.26 g3Ue34fJ0.net
>>415
馬鹿はいい加減黙れよ

417:デフォルトの名無しさん
19/05/28 22:46:58.82 exe6lUi60.net
>>415
教えてほしいなら教えてくれと言えば良い
君以外全員わかってるぞ

418:デフォルトの名無しさん
19/05/28 23:03:25.05 sz8y6/Um0.net
>>416
容赦なくてﾜﾛﾀw
>>415
If func(x) Then
とか
func1(func2(a), func3(b))
とか

419:デフォルトの名無しさん
19/05/28 23:15:31.12 MN8nEIAEd.net
>>415
1個しか返せないといっても工夫の問題。
配列で返せば実質何個でも返せるし、Collectionで返すこともできる。
クラスインスタンスを返すなんてことも出来る。
どれも普通にやることだよ。
何を返せば使いやすいかを構造的に考えて人間にとってピンと来るように組めばメンテナンスも楽だし、プロシージャの内容も理解しやすい。
初心者のコードは何をする処理なのか全く分からないことも多いが上級者のコードは考えて組まれてるので理解しやすいんだ。
>>416
>>417
罵倒するだけで内容を書かないんじゃ君らのレベルも押して知るべしだな。

420:デフォルトの名無しさん
19/05/28 23:18:36.46 MN8nEIAEd.net
>>418
むしろ
Function Hoge(Arg() As String) As String()
の方が適切かな。
或いは
Function Hoge(Arg() As String) As Collection
とか。

421:デフォルトの名無しさん
19/05/28 23:45:10.83 sz8y6/Um0.net
>>419
AddressOf で関数を返すことすら出来るのだ

422:デフォルトの名無しさん
19/05/28 23:58:45.95 0rD99vo/0.net
IF Func() Then
とか
Loop Until Func()
なんてのがSubでは代用しにくい使い方だな (できないとは言わないが)
むしろ普通の数式で
A = Func1() + Func2() + Func3()
みたいに書きたい時の方が、Subに置き換えた時の無駄が多くなりそう

423:デフォルトの名無しさん
19/05/29 00:02:34.60 S0wmSPvZ0.net
2年ぐらい前にもSubとFunctionに違いなんかないと言い張る粘着がいたのを思い出した

424:デフォルトの名無しさん
19/05/29 00:03:33.14 6UUzdaAE0.net
BASICなんだからGOTOだけで十分

425:デフォルトの名無しさん
19/05/29 00:47:16.25 aQ2xiGWFd.net
>>421
おう、ここで初めて高度な話を見た。

426:デフォルトの名無しさん
19/05/29 03:04:42.46 1woLKBVkM.net
・Sub
・返り値のないFunction
この違いは何ですか？

427:デフォルトの名無しさん
19/05/29 04:29:34.43 WducifPVa.net
subじゃ１個も値返せないじゃん

428:デフォルトの名無しさん
19/05/29 05:02:37.42 E4T3mNp50.net
戻り値ないならsubでいいじゃんって話だと思うんだけど俺も一応はそう思う
昔はsubばかりで書いてた
subは単体で実行できるけどfunctionは単体では実行できないという違いがある
functionは他から呼び出さないと実行できないという意味でね。
ここからは俺の好みみたいなもんだけど、
ボタンに直結してるようなエントリーポイント的なものは
subで書いて、それ以外、特に引数を受けとって処理するものは
単体では実行できないことを明確にする意味で全てfunctionにしてる
そう論理的で整合性のある区分というわけではないんだけど。

429:デフォルトの名無しさん
19/05/29 08:46:31.68 WZbm0MMEM.net
>>428
単体で実行できるかどうかはSub/Function の差じゃなくて、引数を取る/取らないの差じゃなかったっけ？

430:デフォルトの名無しさん
19/05/29 08:57:09.71 dT9QfEjx0.net
>>429
正解
Sub foo() '単体実行可能
End Sub
Sub bar(baz) '単体実行は出来ない
End Sub

431:デフォルトの名無しさん
19/05/29 08:58:24.42 dT9QfEjx0.net
あと、実行可能かどうかはpublic/privateで切り分けるべきだろう

432:デフォルトの名無しさん
19/05/29 09:10:25.71 QQeifizk0.net
セルに式として関数を入力して呼べるFunctionと呼べないSub

433:デフォルトの名無しさん
19/05/29 09:17:16.17 dT9QfEjx0.net
>>432
あれ、じゃあ何のためにsubって存在するんだ
return 0しなくていいってだけ？

434:デフォルトの名無しさん
19/05/29 09:30:42.49 dT9QfEjx0.net
基本はfunction
スクリプトとして何かをさせたい時にだけsubで定義する。C言語で言うint main(){}
戻り値や引数のありなしでは切り分けない
と考えると自然と思うんだけど、どうだろう
この考えだと、private subは使うべきじゃないって事になる

435:デフォルトの名無しさん
19/05/29 10:59:47.52 bJuQUiqr0.net
別に良いんだよ何を使おうと、まあ好きにすればって程度
まあ、ただ論理的に考えずごみを量産するやつはいるな

436:デフォルトの名無しさん
19/05/29 11:30:55.13 zbMbGE8SM.net
>>426
戻り値のないFunctionは存在しない
戻ってきた値を無視することができるだけ
つまり戻り値を格納するためにメモリを必ず使うから、Subと比較して速度とメモリ効率の2点で不利になる

437:デフォルトの名無しさん
19/05/29 11:31:54.96 WZbm0MMEM.net
Excel長老の話って知ってる？

438:デフォルトの名無しさん
19/05/29 11:32:51.36 WZbm0MMEM.net
>>436
メモリ効率ってネタだよね？

439:デフォルトの名無しさん
19/05/29 11:39:17.00 zbMbGE8SM.net
>>433
今から40年以上前、それまでのシーケンシャルなプログラムでは能率が悪いから構造化しようという話しが出て、その時に提唱されたのが「手続き(Sub)」と「関数(Function)」という概念
しかし、教育用として作られたPascalという言語では忠実に実装されたけど、C言語には関数しか用意されなかったし、その後に登場したJavaも関数しかない
結局は言語を設計した人のリテラシーというか、単なる好みで決まったようなもん
今でもたくさんの言語が乱立してるのは、結局はみんな「ぼくの考えたさいきょうのげんご」が作りたいだけと思って、あながち間違いじゃない

440:デフォルトの名無しさん
19/05/29 11:41:11.71 zbMbGE8SM.net
>>438
ネタじゃないよ
リカーシブなプログラムを書いてみればすぐわかる
VBAでもFunctionは呼び出すたびにヒープを最低4バイトずつ消費するから、再帰の最大回数が少ないのは簡単な実験ですぐに確認できる

441:デフォルトの名無しさん
19/05/29 11:48:47.33 WZbm0MMEM.net
>>440
「ヒープ」ってネタだよね？

442:デフォルトの名無しさん
19/05/29 11:53:59.73 dT9QfEjx0.net
>>439
ありがとう！そういう事か
sub便利だけど、便利過ぎてかなり変な事になってるね
subから呼び出すのはfunctionと決めていれば良いんだろうけど、
でもsubからsub呼び出す事もあるから・・・
結局subって意味なくね？
C言語のsub無しが正解のような気がする。
>>441
なんでネタと思うんだ？

443:デフォルトの名無しさん
19/05/29 11:58:48.77 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:デフォルトの名無しさん
19/05/29 13:23:20.90 AfH1iVf/M.net
Selenium+vbaを使って
ChromeでWebページをPDF保存することは可能でしょうか？

445:デフォルトの名無しさん
19/05/29 13:29:26.76 dT9QfEjx0.net
>>444
vbaは不要っぽい
URLﾘﾝｸ(takuya-1st.hatenablog.jp)
記事が古いから一度試したほうが良いと思う

446:デフォルトの名無しさん
19/05/29 13:43:28.26 aQ2xiGWFd.net
>>442
だから構造的に考えて意味的にFunctionが適するかSubが適するかを選択するんだ。
意味的にというのは人間の感覚にとって合った方を採用すべきということ。
Cだってvoidがあるじゃねーの。
無理矢理1を返すとかすれば戻り値が絶対に必要な言語設計だってできた筈。
なんでvoidがあるかといえば、やっぱり意味的に戻り値無しが人間にとってピッタリ来ることがあるからだと思うが。

447:デフォルトの名無しさん
19/05/29 15:03:19.55 eVQzoh+sa.net
処理結果をpublicで判断するよりは
値を返すほうが使いやすい

448:デフォルトの名無しさん
19/05/29 17:40:58.36 S0wmSPvZ0.net
プログラムを一人で作って自分だけが永遠に保守するなら好きなように作ればいい
大規模なアプリをチームで作ったり、他人が修正したりする時には間違いを起こさないようにルールを決める必要があって、
経験上、カプセル化した方が結果的に安全で能率がいいということになっている
そのための手法の一つが変数のスコープを狭くすること、グローバル変数は使わないこと、なんだな
だから結果はどこかの変数に入れるんじゃなくてFunctionで返すんだよ
複数の値を返したいなら設計を見直すべきで、構造体を使うか、1つずつFunctionを分けるか考える

449:デフォルトの名無しさん
19/05/29 18:50:10.49 b/xKBA/BM.net
>>445
SeleniumではなくSeleniumBasic
の間違えでした。
ごめんなさい。

450:デフォルトの名無しさん
19/05/29 18:57:16.16 dT9QfEjx0.net
グローバル汚染はマジでエグいからな
「name」「mail」この変使われてたら超めんどい
 >>449
Selenium使えばいいんじゃない

451:デフォルトの名無しさん
19/05/29 19:33:05.85 gbtQDfh8M.net
seleniumってもう使い物にならなくなってなかったっけ

452:デフォルトの名無しさん
19/05/30 00:50:17.75 oM5Ks3kV0.net
>>440
ヒープとスタックの違い理解してる？

453:デフォルトの名無しさん
19/05/30 03:19:10.04 1qsenVBka.net
byref もあるしな

454:デフォルトの名無しさん
19/05/30 08:21:00.17 oyMl0bcF0.net
>>452
それって日本昔話に載ってる？
今も気にすること？

455:デフォルトの名無しさん
19/05/30 12:02:16.59 fCKFoHR/M.net
使うスタック量によって再帰での有利不利って理屈の上ではあるだろうけど
現実的な意味ってあるの？
条件によってスタックオーバーフローする「かもしれない」プログラムに対して
引数や返り値を考慮とか再帰深度に気を使うとか、ちょっとVBAで考えられないんですけど

456:デフォルトの名無しさん
19/05/30 12:25:00.74 0nKLhIYFr.net
>>454
SubとFunctionでメモリ効率の違い考慮するレベルなら

457:デフォルトの名無しさん
19/05/30 12:31:21.82 NTWA4E5yM.net
>>454
別に気にしなくてもいいけど >>440みたいなツッコミ入れるならちゃんと理解してないと恥をかく

458:デフォルトの名無しさん
19/05/30 15:33:21.51 oyMl0bcF0.net
>>457
おれも、昔話書きたくなったレベル
z80とか8080とかな8086なんて凄いよな

459:デフォルトの名無しさん
19/05/30 18:56:24.47 86kk1xI3a.net
ここできいていいのか分かりませんがマクロの組み方で教えてください
「=5月シートＡ1」
「=5月シートＡ2」
みたいに引っ張っているセルを
「=6月シートＡ1」
「=6月シートＡ2」
みたいに変えるマクロを組みたいんですが
それを毎月自動で7月、8月、と月に合わせて変えるのはどうやるのですか？
理想としては、5月と書いてあるセルを6月と入力し、そのセルをコピペしていくマクロを組みたいのですが、その流れを作っても元の5月だけがコピペされてしまう状態です。
説明が下手ですみません。

460:デフォルトの名無しさん
19/05/30 19:04:11.68 1nLCMVmfr.net
今月=month(date)
activesheet.range("a1").resize(5).formula="="&今月&"!a1"

461:デフォルトの名無しさん
19/05/30 19:12:37.62 3bWSKYGBM.net
>>459
5月シートをコピーして6月シートにする。
5月を6月に文字列全置換え
処理日によって月を自動判定でもいいが、フォームで値を確認、修正後に実行の方がいいんじゃないかな

462:デフォルトの名無しさん
19/05/30 19:18:06.10 86kk1xI3a.net
>>460
すみません初心者なので詳しくは分かりませんが、今の月を参照するセルを作り、それをコピペするように組めばいい感じでしょうか。
間違ってたらすみません。
>>461
今まではそうやっていたのですが、それ以外にも、不要な場所を削除して、一番下の数値を一番上に持っていってみたいな作業があるので、その置き換えも合わせてマクロにしたいと思いまして。

463:デフォルトの名無しさん
19/05/30 19:37:14.94 /EJeltR2r.net
>>462
今月の月を取得して、a1からa5までの数式を置き換えるイメージです。
携帯からなので試せていませんが・・・

464:デフォルトの名無しさん
19/05/30 19:38:13.64 86kk1xI3a.net
>>463
ありがとうございます。
試してみます

465:デフォルトの名無しさん
19/05/30 19:41:48.72 S1ohEoHj0.net
>>464
文字列の検索や置換は数式にも有効
5月を6月に置換すればいい
VBAは必要ない

466:デフォルトの名無しさん
19/05/30 19:49:45.60 vA8HeCKe0.net
>>459
他の処理はともかく数式に関してはマクロいらない
=INDIRECT(MONTH(NOW())&"月!A1")

467:デフォルトの名無しさん
19/05/30 19:55:45.24 vA8HeCKe0.net
間違えたわ、こうだわ
=INDIRECT(MONTH(NOW())&"月!A"&ROW(A1))

468:デフォルトの名無しさん
19/05/31 10:21:23.92 iXFRocgY0.net
なんか、今月にこだわる人多いが説明だと選んだ月のシートからデーターを
持ってきたいだけだろ、勿論INDIRECTを使うことでマクロを使う必要はない
例えば、値を参照するシートとのA1セルに入力規制で１月～12月を選択して
=INDIRECT($A$1 & "!A" & ROW(A1))
でいいだろ

469:デフォルトの名無しさん
19/05/31 10:48:51.98 xVkqny4q0.net
>>468
> それを毎月自動で7月、8月、と月に合わせて変えるのはどうやるのですか？

470:デフォルトの名無しさん
19/05/31 11:09:05.87 iXFRocgY0.net
>>469
自動だったらA1セルをNow()にして表示形式を
月だけにすればいいだけだろ
各セルに設定する関数は簡素に共通化する

471:デフォルトの名無しさん
19/05/31 11:20:16.63 xVkqny4q0.net
>>470
> なんか、今月にこだわる人多いが

472:デフォルトの名無しさん
19/05/31 11:34:43.20 iXFRocgY0.net
>>471
今月か選択なんてExcelをちょろって知ってればどっちでもいいんだよ
１っか所変えただけで要は１っか所を変えただけでその月に対応すればよいだけ
こんなのマクロなんか書いたら笑えるレベル

473:デフォルトの名無しさん
19/05/31 11:36:26.16 iXFRocgY0.net
あら～ダブって入ったわ　すまぬの

474:デフォルトの名無しさん
19/05/31 11:48:24.92 fWZN/ECyM.net
なんかVBA使わずにワークシート関数使えっていうコンセンサスでもあるの？
思い込みと違う？

475:デフォルトの名無しさん
19/05/31 11:53:29.26 iXFRocgY0.net
>>459
お題は
>理想としては、5月と書いてあるセルを6月と入力し、そのセルをコピペしていくマクロを組みたいのですが、その流れを作っても元の5月だけがコピペされてしまう状態です。
だけどな、マクロを使わないと気が済まないやつっているのかな

476:デフォルトの名無しさん
19/05/31 11:57:27.72 iXFRocgY0.net
>>474
これでマクロを作るやつのマクロを参考にしたいな
ぜひ作ってね

477:デフォルトの名無しさん
19/05/31 12:02:31.59 kMeHCJPt0.net
>>474
数式だけならファイル形式をxlsxのままにできて安全
同じ機能なら数式で済ませた方が良いだろう
家計簿ならどっちでも良いのは間違いない

478:デフォルトの名無しさん
19/05/31 12:17:34.40 iXFRocgY0.net
まあなんだな、$A$1この書き方って絶対参照だが良くないんだよな
普通はそのセルに名前を付けてその名前で参照する
例えば「設定月」みたいな名前ね

479:デフォルトの名無しさん
19/05/31 12:21:40.48 UKwhkiwBr.net
VBAのスレでマクロつかうなとか(笑)

480:デフォルトの名無しさん
19/05/31 12:23:22.93 xVkqny4q0.net
>>472
>>462 > それ以外にも、不要な場所を削除して、一番下の数値を一番上に持っていってみたいな作業があるので、その置き換えも合わせてマクロにしたいと思いまして。

481:デフォルトの名無しさん
19/05/31 12:27:21.46 wdWzuIo7p.net
シートを左のものからきっちり順に印刷する（印刷指示を出す）vbaありませんか？
スプール云々はプリンターの詳細設定弄れなくなってるのでvbaでどうにかなればしたいのですが・・

482:デフォルトの名無しさん
19/05/31 12:27:47.02 iXFRocgY0.net
Excelの関数や機能も知らん奴がVBAでマクロを作るか
少しは勉強しろよ、ってか
運転できないやつが、自動運転を作るみたいなもんか？
ってか参照で十分なものを何でマクロ(笑)

483:デフォルトの名無しさん
19/05/31 12:31:43.08 xVkqny4q0.net
>>482
>>459 > 毎月自動で7月、8月、と月に合わせて変える
　 >>468 > 今月にこだわる人多いが
 >>462 > その置き換えも合わせてマクロにしたい
　 >>472 > こんなのマクロなんか書いたら笑えるレベル
一部読み飛ばして回答してしまうのはなんなのネタなの

484:デフォルトの名無しさん
19/05/31 12:32:47.94 iXFRocgY0.net
>>480
すまないが、そんなのどうして関数でできないと思うんだ？
ちゃんと説明すれば？、今まで書いているのはあまりにも簡単な質問で
関数で十分なんだが

485:デフォルトの名無しさん
19/05/31 12:37:34.60 iXFRocgY0.net
>>483
別に、マクロで提案してみたら

486:デフォルトの名無しさん
19/05/31 12:54:17.71 jiw85AG60.net
自動車つくれなくても、つくってもらって乗ればいいじゃん

487:デフォルトの名無しさん
19/05/31 13:01:15.44 iXFRocgY0.net
>>486
でも、企画があってな　わけなわからん奴の作った自転車に
乗れるか？
責任は運転者だよ、関数は規格通りだな
その自転車がすごきゃいいよ、単に危ないだけじゃな

488:デフォルトの名無しさん
19/05/31 13:10:48.90 iXFRocgY0.net
>>483
で、お前は何ができるんだ？
何が気に障った？(笑)

489:デフォルトの名無しさん
19/05/31 13:26:58.37 iXFRocgY0.net
>>483
VBAで提案できないやつが・・・・
ネタだよな・・関数なら即座なのに

490:デフォルトの名無しさん
19/05/31 13:43:20.27 xVkqny4q0.net
>>489
今月にこだわっててもおかしくないし
一連の流れをマクロにしてその一部の質問してるわけでしょ
だから >>468も >>472も的外れって話
訂正するわけでもないのに再アンカをしかも連投するってせっかちすぎない？

491:デフォルトの名無しさん
19/05/31 13:55:19.86 iXFRocgY0.net
>>490
今月とかどうでもいいんだよ
単に参照すればいいだけ、それで質問者の意図に対応できないか？
自分の主張じゃなく、何が正しいかで提案するんだよ
VBAで作れば何でもできるさ、でも単に絶対参照でいいものをこねくり回すなよ

492:デフォルトの名無しさん
19/05/31 14:07:14.86 xVkqny4q0.net
>>491
次は話ループさせんの？
「毎月自動、VBA」という質問の前提をこねくり回してるのはそっちでは？

493:デフォルトの名無しさん
19/05/31 14:14:55.01 kMeHCJPt0.net
普通のExcelスレはあんなに紳士的なのに・・・

494:デフォルトの名無しさん
19/05/31 14:31:03.11 iXFRocgY0.net
何だろうな、普通に絶対参照すればいいものをVBA・VBAって叫ぶの
怖いは

495:デフォルトの名無しさん
19/05/31 14:48:52.06 2f7ZWXQQ0.net
>>494
>>459 >>462でマクロでやりたいと言ってるし、
マクロ以外の回答に対してノーリアクション
数式での回答を求めてないのだろう。結果を求めるだけじゃなく、マクロ自体を書きたいという質問者もいるわけだしな
あまり押し付けるのもどうかと思う
もちろん一般的な場合は君のやり方が正しいのは明らか
さすがにそれが分かってない人はいないだろう

496:デフォルトの名無しさん
19/05/31 15:04:15.42 jiw85AG60.net
>>462
削除等はマクロで、他シート参照は数式でいいんでないの

497:デフォルトの名無しさん
19/05/31 15:50:07.97 xVkqny4q0.net
元の前提無視して絶対参照・絶対参照って叫ぶの
怖いは
って言えばいいのかな

498:デフォルトの名無しさん
19/05/31 16:21:11.81 iXFRocgY0.net
>>496
削除が必要って単なる思い込みではないのかな
Excelの使い方もわからないのってVBAって魔法の玉手箱じゃないの
でなければ、質問者に対する最適の解をさっさとVBAで示せばいいんだよ

499:デフォルトの名無しさん
19/05/31 16:31:39.12 Q8fJ9KqCF.net
元々の質問を見る限り、詳細が無いのでVBAで解決すべきか数式で解決すべきか判断できん。
逆に言えばこれだけの情報でVBAを必要無いとか言ってしまえる人って初心者とまでは言わないけど大したスキルは無いんだろうなと思ってしまう。

500:デフォルトの名無しさん
19/05/31 16:43:05.14 agbDawORM.net
>>499
そうか　君はプロなんだね(笑)

501:デフォルトの名無しさん
19/05/31 17:06:59.36 Q8fJ9KqCF.net
>>500
初心者は自分の状況を上手く説明出来ないし、それはしようが無い。
一方回答する方も、初心者は自分の狭い土俵で回答しようとするんだよね。

502:デフォルトの名無しさん
19/05/31 17:12:13.76 agbDawORM.net
>>501
いまだにＶＢＡでの回答すらないけどね

503:デフォルトの名無しさん
19/05/31 17:17:59.31 Q8fJ9KqCF.net
>>502
俺はこんな質問に回答しないよ。
何処の掲示板でもそうだけと面白いテーマじゃなきゃ回答しない。
俺が回答する必要も無いだろう。
>>460とかを見てどうにか頑張れば良いんじゃね?と思ってる。

504:デフォルトの名無しさん
19/05/31 17:21:09.14 Q8fJ9KqCF.net
技術レベルは大したことない問題だけど最近回答したのは >>284だな。
テーマとしては面白いから。

505:デフォルトの名無しさん
19/05/31 17:33:03.28 NquLpIx1r.net
てか >>464で終わっとるやろ…

506:デフォルトの名無しさん
19/05/31 17:36:44.72 xVkqny4q0.net
>>498
むしろ思い込み(というか自分の都合のいいように解釈)してるのはそっちなんだよなぁ

507:デフォルトの名無しさん
19/05/31 17:42:42.79 agbDawORM.net
>>503
君に、回答を求めてないよ
俺も、VBA の回答は基本的に出さない
まあヒントだけだな
いや～これのマクロを作る奴見てみたい(笑)

508:デフォルトの名無しさん
19/05/31 17:43:17.34 2P/bRCUed.net
というか >>499に書いた通り、状況を判断する材料が少ない。
例えば月のシートが沢山あって、それぞれのシートの集計結果を集計シートで閲覧したいという状況なら数式の方が良さそうだ。(それでも情報が足りないから「良さそう」としか言えん。)

509:デフォルトの名無しさん
19/05/31 17:44:39.75 2P/bRCUed.net
>>507
じゃあ、俺に >>502のレスするんじゃね―よw

510:デフォルトの名無しさん
19/05/31 17:46:18.67 a67Z5WHaM.net
>>499
ほんそれ
ど真っ赤で力説してるのが滑稽やなw

511:デフォルトの名無しさん
19/05/31 18:08:13.80 agbDawORM.net
>>509
意識過剰だろ(笑)事実を書いただけ

512:デフォルトの名無しさん
19/05/31 19:20:39.09 frxzLdPfr.net
VBAでやるか数式でやるかの判断はこのスレでやる話じゃないだろ
ここはVBAのスレだぜ

513:デフォルトの名無しさん
19/05/31 19:22:19.42 2P/bRCUed.net
>>511
???
">>501"を付けるなと言ってる。

514:デフォルトの名無しさん
19/05/31 20:32:30.11 XAbM3vU30.net
>>481
dim ws as worksheet
for each ws as thisworkbook.worksheets
　ws.printout ～
next

515:デフォルトの名無しさん
19/05/31 20:58:10.12 wdWzuIo7p.net
>>514
大荒れの中レスありがとう
来週試してみます

516:デフォルトの名無しさん
19/05/31 22:18:19.39 XAbM3vU30.net
>>515
ごめん for each ws in の書き間違い

517:デフォルトの名無しさん
19/05/31 22:31:58.82 aMsRRK9D0.net
ん?
全シート印刷じゃダメだったの?

518:デフォルトの名無しさん
19/05/31 22:40:38.73 agbDawORM.net
>>513
ふん、おれ５００　お前が笑えるレスつけただけだろ

519:デフォルトの名無しさん
19/06/01 00:10:30.70 Re37ayj0p.net
>>517
もちろん全シート一括で印刷かけてるんですけど、スプール設定？の関係で重いシートの印刷が後回しになるので10ページ1ページ2ページの3シートのファイル印刷すると10ページのシートが一番最後に印刷されちゃって不便なんです

520:デフォルトの名無しさん
19/06/01 02:54:17.07 48zxZgqm0.net
ListBox使ってるんですけど、たまに表示がバグります
薄い横線がListBox内の全ての行間に表示されちゃうんです
行のフォーカスを動かすと、動かした範囲ではこの変な横線は一旦消えるんだけど、
何かをするとまた横線があらわれる
こういうのって何が原因かわかりますか？
再現性がそう高くないので、対策しづらいです
表示がおかしいだけでプログラム自体は問題なく動きます

521:デフォルトの名無しさん
19/06/01 03:41:24.97 48zxZgqm0.net
>>520ですけどもしかしたら直ったかもしれないです
multiSelectをfmMultiSelectExtendedに設定してるんですけど、
UserForm Initialize内で設定するのではなく
プロパティウィンドウで選択して設定するようにしたら今の所出ないです
再現性があれなんで確実とは言えないんですけど

522:デフォルトの名無しさん
19/06/01 07:48:48.81 FEI28S1s0.net
>>520
ListBoxに限らず、Excelのオブジェクトは変だよ。
そんなもんだと思う。
俺もこんな現象に遭遇した。
・印刷プレビュー直後に、リストボックスを操作できなくなる。(シートを切り替えると直る。)
・MSクエリやADOを使うと、ボタンやテキストボックスの位置が、見た目と合わなくなる。
　[コマンドボタン]　　　　　　　　　　何もない部分
　　　　　↑　　　　　　　　　　　　　　　　　↑
ここにボタンがあるのに　　ここを押さないと反応しない

523:デフォルトの名無しさん
19/06/01 07:53:01.65 FEI28S1s0.net
あと、なんじゃそりゃ!???? と思ったのが、
　[コマンドボタン]
　　　　↑
　　押すと・・
　　　　　　　　　　　　　→→→　[コマンドボタン]
　　　　↑
　ボタンが逃げる
多分、押す前のボタン画像が左にあって、
押した後の(凹んだ状態の)画像が右にあるんだと思う。

524:デフォルトの名無しさん
19/06/01 08:43:23.59 48zxZgqm0.net
>>523
論理的に解決できる方法がないから山勘に頼っていじってみて
運良く解決できたらもうけもんってことですかね
表示がぶれると、使ってる人が、このプログラム大丈夫かと心配し始めちゃうんで
できるだけ避けたいところです

525:デフォルトの名無しさん
19/06/01 10:54:28.04 /THuLu8v0.net
>>518
???
バカなの?
お前が500なのもお前に俺がレスしたのも誰でも分かるわ。
>>502のレスにおいて">>501"を付けるから俺に回答を求めてると判断されても仕方ないだろが。

526:デフォルトの名無しさん
19/06/01 15:58:14.75 Vz6e2VkK0.net
>>525
笑えるな、答えられないやつに答えを求めないって(笑)

527:デフォルトの名無しさん
19/06/01 16:00:03.94 Vz6e2VkK0.net
まあ、プロさんのようだから答えられないの恥ずかしいのか(笑)
あげとくは

528:デフォルトの名無しさん
19/06/01 17:24:08.45 /THuLu8v0.net
>>527
煽ってもお前のレベルが低いのは変わらんぞw
相手のレベルを推しはかれないのは相手よりスキルがかなり低いからなんだが。

529:デフォルトの名無しさん
19/06/01 17:41:52.05 FFwlyzcq0.net
まだやってんの
最近多い無関係の人が巻き込まれるような事件起こしそう

530:デフォルトの名無しさん
19/06/01 17:42:25.49 ZZxkmLZAM.net
>>528
あら、単に引きこもりのカスでろくなの作れんて思ってるよ(笑)

531:デフォルトの名無しさん
19/06/01 17:47:36.35 /THuLu8v0.net
>>530
そりゃスキルの無い奴は人を評価出来ないからなw

532:デフォルトの名無しさん
19/06/01 20:32:00.88 XF0/4x+50.net
データベースでエクセルのフィールド(3)を下に読み取っていって、入ってる型が文字列以外の物が入っているかチェックしたいんですけど何かないですか？

533:デフォルトの名無しさん
19/06/01 20:51:09.32 fYRCWk9w0.net
>>532
vartypeがvbStringかどうか
typenameが"String"かどうか
など

534:デフォルトの名無しさん
19/06/01 22:43:59.23 g0N7gK6Z0.net
>>532
わざとやってみてどうなるか確認してみよう
先頭何レコードで判断するんだっけ？

535:デフォルトの名無しさん
19/06/01 22:55:52.58 g0N7gK6Z0.net
>>532
早速やってみたけど、逆のパターンである
「先頭に数値が入っていて途中から文字列に変化した」場合は判定できた。
具体的には数値部分だけ読み込んで文字列の部分はNULLになった。
「先頭に文字列が入っていて途中から数値に変化した」場合は全部文字列扱いになったので厳密には判定不能。

536:デフォルトの名無しさん
19/06/02 18:41:53.51 3MovPWtK0.net
初心者なので意味がわかりづらかったらすみません
まず、やりたいことは
1.ユーザーにB2～E2あたりに文字を入力してもらう
2.それを5行前後繰り返す
3.この後にボタンを押してもらう
(以降マクロ処理)
4.入力して貰った行の各左セル(A列)に営業日(月初)を入力する
入力内容を下の行にコピペして、A列日付だけ翌営業日にする
それを月末日まで繰り返す
これを実現したい場合、営業日付をどう表示し、どう繰り返せばよいか検討がつきません
アドバイス頂けませんでしょうか
日付に関してyyyymmのみユーザーに手入力して貰う予定で、それを利用できるかなと思っています

537:デフォルトの名無しさん
19/06/02 19:17:16.23 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:デフォルトの名無しさん
19/06/03 23:29:52.65 +V4WoVbB0.net
>>535
上にあるようにvartypeだとだめかね？

539:デフォルトの名無しさん
19/06/04 00:44:40.62 Vr0YkSWUa.net
教えてください。
ActiveCell.EntireRow.Copy Destination
これで「任意のセル選択中で1行コピー」になりますが、
改造して「任意の複数セル選択中の複数行をコピー」に変えたいんですがわかりますか？

540:デフォルトの名無しさん
19/06/04 01:01:51.67 sjSsEz0E0.net
仮面ライダー本郷猛は改造人間である。彼を改造したショッカーは世界制覇を企む悪の秘密結社である。仮面ライダーは人間の自由のためにショッカーと戦うのだ！

541:デフォルトの名無しさん
19/06/04 07:28:25.36 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以下だと重複して貼り付けられます。
重複しない方法を教えてください。

次ページ