Excel VBA 質問スレ Part77

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2ch.scのread.cgiへ]
Update time : 12/29 06:14 / Filesize : 265 KB / Number-of Response : 993
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：デフォルトの名無しさん mailto:sage [2022/07/17(日) 07:07:35.59 ID:tS4zKdphH.net]: !extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part76
https://mevius.5ch.net/test/read.cgi/tech/1651339421/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
512 名前：490 (ﾜｯﾁｮｲ bf66-bBdM) [[ここ壊れてます] .net]: >>505
なるほど。そういう方もおられるのですね。
EXCEL VBAのプロシージャはあんまり長くしない方がいいよみたいなサイト読んで影響受けてます。
コードの書き方って結構こだわりを持っている方がいるようで、自分はそれに影響を受けやすい方です。
自分もこだわりたい方なんだと思います。

EXCEL VBAを知って、宣言は直前が基本ですよみたいな記事読んで強く影響受けました。
だから使い終わるごとに未定義に出来れば毎度宣言しなおせるからすっきりするのになぁみたいな気持ちでした。
EXCEL VBAとしてはfor やfor eachに使うような変数は先頭宣言にしてやっていこうと思います。
513 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 47ac-DXwO) mailto:sage [[ここ壊れてます] .net]: ちゃんとfunction分けてたら直前でいいけど、
大抵クソデカ関数ひとつか、グローバル宣言祭りだろうからなあ
514 名前：デフォルトの名無しさん mailto:sage [2022/09/06(火) 20:37:51.18 ID:z3X/Y8zI0.net]: >>512
> EXCEL VBAとしてはfor やfor eachに使うような変数は先頭宣言にしてやっていこうと思います。
とりあえずそれで動くところまで持って行ってコードが固まったらこだわりのコードスタイルにリファクタリングすればいいかと
515 名前：デフォルトの名無しさん [2022/09/06(火) 21:28:56.11 ID:3UeoLADl0.net]: >>512
>他の言語だとあるのであるかなと思ったのです。

他の言語って具体的に何？
答えられない？逃げる？それともまた言い訳？
516 名前：デフォルトの名無しさん mailto:sage [2022/09/06(火) 21:54:35.94 ID:iobTnTaB0.net]: >>512
個人的に、VBAに限定した話で宣言は直前とかいう記事はあんまり信用できないと思ってる
最近の言語ならそれで良いんだけどね
517 名前：デフォルトの名無しさん mailto:sage [2022/09/06(火) 22:58:52.94 ID:z3X/Y8zI0.net]: >>515
>>509
煽るならもうちょい知識をつけてからにした方がいい
518 名前：デフォルトの名無しさん mailto:sage [2022/09/06(火) 23:05:26.43 ID:NuTb9qxy0.net]: あまり複雑化しても辛くなるしな
シンプルにシンプルによ
519 名前：デフォルトの名無しさん [2022/09/07(水) 07:28:44.73 ID:TmSq6TyA0.net]: >>516
どういうこと？
最近の言語と違って
・ブロックスコープがない
・宣言と同時に代入できない
以上VBAの特徴2点を差し引いたとしても、
先頭宣言が直前宣言より優れている所なんかひとつもないと思うんだが
520 名前：デフォルトの名無しさん [2022/09/07(水) 09:01:28.19 ID:l5y/t4MDM.net]: 個人的信条を議論するのは無意味
521 名前：デフォルトの名無しさん (ｱｳｱｳｸｰ MMbb-2Jzk) mailto:sage [[ここ壊れてます] .net]: 変数はImmutableにするのが最近の言語でしょ
こうなるもうどこで宣言しようが関係ない
522 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 19:33:33.73 ID:nObPwJJb0.net]: >>519
まあ>>520に同意しつつ、一番の理由は、
ＶＢＡでの一般的なスタイルに反するからなんだが

ブロックスコープがないのに直前で変数宣言するのは、
違うブロックで宣言された変数と宣言が被るリスクが上がるだけなんだが
むしろ直前宣言が優れている点ってどこだよ？
523 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 19:40:46.55 ID:qgePcMk7a.net]: >>519
同意する
まあ>>516は理由を書いてない時点であまり信用できないと思ってる
524 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 19:45:10.64 ID:qgePcMk7a.net]: >>522
> 違うブロックで宣言された変数と宣言が被るリスクが上がるだけなんだが
そんなものどこで宣言しても同じだろ

> むしろ直前宣言が優れている点ってどこだよ？
コードを追う時に見える範囲に宣言あれば型とかも分かるだろ
525 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 19:47:45.63 ID:URQHgzNh0.net]: >>522
・別functionにしない
・設計が出来ない
・順番がコロコロ変わる

こういう場合は直前の宣言がいいんだろうな
526 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 19:48:48.00 ID:ie60y+bR0.net]: インデックスとはいえ変数を使い回すのはNGなのです！
VBAだとしても許されません！ロボコン0点
527 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 20:14:29.57 ID:lr2lUZXda.net]: 質問でもなく他人のコードの変数をどこに書こうがどうでもいいのに書き方に熱くなる人はバカなんだろうね
まあそういう技術的な部分に関係ないところしか語れない程度が集まるスレなんだろうけどｗ
528 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 20:36:38.49 ID:pBpkzzj3a.net]: >>527
そんなに熱くなるなよｗ
529 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd7f-VPUc) [[ここ壊れてます] .net]: >>517
で、答えられずに逃げたのかよ
530 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 20:55:49.52 ID:qYDBMpOU0.net]: >>529
マジでアホなの？
PowerShellって書いてあるだろw
531 名前：デフォルトの名無しさん [2022/09/07(水) 21:25:08.49 ID:dOhAzb3IM.net]: >>530
へー、shellコマンドと言語の違いがわからない人か
納得
532 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 21:50:42.41 ID:qYDBMpOU0.net]: >>531
PowerShellって結構リッチなプログラム言語ですけど？
頭大丈夫？
533 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 22:25:03.60 ID:GXE70sRqM.net]: シェルとシェルスクリプトは間違えてませんですわー
534 名前：デフォルトの名無しさん [2022/09/07(水) 22:55:46.20 ID:N0bzWtYO0.net]: >>524
そうね。ブロックスコープは確かに便利。
ただ、匙加減の問題にもなるけど
ブロックスコープに慣れるとついつい
単一責任原則の考え方がおざなりになりがちで
密結合なものを作ってしまい易くなる。

なので、あくまで俺はだけど
EXCELのVBAに関してはメソッドや関数の
頭に変数定義を行うようにしている。
それでコードが読み辛くなるようであれば
その時点でリファクタリングの対象になるという考え。
535 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 23:29:34.28 ID:N0PmJDO50.net]: でも誰も読まないんだよなー
536 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 23:46:23.08 ID:QgSPv1dJ0.net]: ここの回答者は上級者なんだからVBAの事端から端まで知っていると思っていたんですけど？？
なんでこんなに荒れているのですか？
537 名前：デフォルトの名無しさん mailto:sage [2022/09/07(水) 23:51:19.61 ID:oCHm3LOdM.net]: VBAで単一責任て
そもそも表計算ソフトで画面やDBモドキ作ってる時点でおかしいと思わないのか
538 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 00:18:03.89 ID:GEpvz+Yp0.net]: 知識と人間性には何も関係がないからじゃね
539 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 01:29:45.47 ID:ih3U5PTX0.net]: だって回答者に回れるって事は知り尽くしてるって事なんでしょ？
ちょっと詳しいだけじゃ回答できるはずないもんね？
540 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 01:40:01.52 ID:eb3KVsRH0.net]: >>539
ソースは？
誰の発言？
541 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 04:43:57.30 ID:dSUuwrfW0.net]: >>534
なので、の前後の関係がよくわからん
> EXCELのVBAに関してはメソッドや関数の頭に変数定義を行うようにしている。
それこそ余計蜜結合になるかと
542 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 06:11:23.79 ID:vw1M88UR0.net]: 誰が上級者と認定したん？
ここのカキコに資格試験なんかあるかいな・・・

回答が使えるかどうか、正しいかどうかが全てじゃ。
543 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 06:33:16.02 ID:13BgqVgC0.net]: どこで宣言するか問題って、画面上部をスクロールせず固定出来るようになれば解決するんだろうな。
エクセルは出来るんだから、VBAの画面も出来るようにして欲しいものだ。
544 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 06:54:06.36 ID:9KZ4CtoQa.net]: >>543
VBEは昔ながらのUIなので垂直スクロールバーの上部を下にドラッグすると同一オブジェクトコードの水平分割表示ができるけれど
545 名前：デフォルトの名無しさん [2022/09/08(木) 08:07:26.88 ID:YfOXyicz0.net]: >>541
分かり辛かったかな？
平たく言うと変数が何に使っているか分かり辛くなるような長いコードをひとつの関数やメソッドに書くなということ。

そもそもひとつの関数やメソッドにはひとつの役割だけ持たせるべきで、そうした場合、変数が何に使ってるか分からないくらい長くなること自体あまりないし、
それで長くなるようであればそもそもの作りがおかしいのでリファクタリングの対象とする、ってことなんだけどね。
546 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa8b-Ro21) [[ここ壊れてます] .net]: VB/VBA/ExcelもAccessもOfficeごと窓からポイッ
547 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 10:06:01.26 ID:dSUuwrfW0.net]: >>545
> 平たく言うと変数が何に使っているか分かり辛くなるような長いコードをひとつの関数やメソッドに書くなということ。
それ変数の宣言位置とは違う話だろ
まあ先頭に変数宣言するメリットを説明できないならいいや、バイバイ
548 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f4f-ozIc) [[ここ壊れてます] .net]: >>547
なんで？
どうせ同じ関数内で同じ名称の変数なんて作れないんだから
全部纏めて同じ位置にあった方が「この変数はこのシチュエーションのときにこう言った意味で使う」とか命名し易いじゃん。

使ってる変数名を再宣言しようとして「あ」となることもないし、
同じ変数をバカみたいに使い回して本当は値変えると不味かったのに変えちゃったりとかアホなことも減るよ。
549 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f4f-ozIc) [[ここ壊れてます] .net]: ま、そもそもそんなこと気にするくらい長いコード書いちゃいけないんだけどね。
そちらのレベルに合わせて話してもそれだけのメリットはあるよ。
550 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 13:19:53.66 ID:E2yDW5TJ0.net]: Wordがどうしようもなく使いにくいので、
Excel VBAで代わりのツールを作りたいと思います。
こんな考え方は邪道でしょうか?
551 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 13:50:27.43 ID:N6XG++JQ0.net]: WordVBAを何故つかわない？
マウロ記録がないOutlookVBAやPowerpointVBAなら一瞬気持ちがわかるが
552 名前：デフォルトの名無しさん [2022/09/08(木) 14:17:07.18 ID:Sm7a3fWy0.net]: loopのカウンタを使用後に消さないと
順番入れ替えたらバグるとか気にする初心者にはvba向いてないと思う
553 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 16:06:28.64 ID:e4Jhfn6X0.net]: ワードにできることはエクセルでほぼ出来るからワードの使いかた忘れてしもた
しかし困ったことはない
554 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 17:02:48.44 ID:dSUuwrfW0.net]: >>548
> 全部纏めて同じ位置にあった方が「この変数はこのシチュエーションのときにこう言った意味で使う」とか命名し易いじゃん。
コボル臭が... w
まあ使ってる近くにあれば宣言なども簡単に確認できるメリットより命名のメリットを重視する人もいるんだね

> 使ってる変数名を再宣言しようとして「あ」となる
んだから
> 同じ変数をバカみたいに使い回して本当は値変えると不味かったのに変えちゃったりとかアホなことも減るよ。
なんてなるわけないと思うけど？
555 名前：デフォルトの名無しさん mailto:sage [2022/09/08(木) 19:47:18.35 ID:wUuMBq/Ad.net]: Excel → Markdown → Word アウトライン変換のマクロを作れば大分マトモになる予感
Excelの列で見出しを識別する感じで
556 名前：デフォルトの名無しさん mailto:sage [2022/09/10(土) 00:50:29.07 ID:yQKHhevv0.net]: intersect( activecell.ListObject.HeaderRowRange,activecell.EntireColumn).Address

テーブル上にアクティブセルがあり、そのセルの列ラベルのアドレスを調べたく
こんなのを書いたのですが、もっと他にイケてる書き方はないでしょうか
557 名前：デフォルトの名無しさん mailto:sage [2022/09/10(土) 10:48:25.59 ID:+u60WJ7w0.net]: activeCell.End(xlUp).Address は？
上に隣接する別のテーブルがないことが条件だけど
558 名前：デフォルトの名無しさん [2022/09/10(土) 15:51:20.36 ID:qRafw5tCp.net]: >>557
それだとテーブルが1行目開始でなくて
テーブルの項目名の部分にアクティブセルがあった場合は
テーブルから離れた位置にカーソルが行ってしまうな
559 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 01:14:19.08 ID:W9G67fQJ0.net]: バイナリデータの書き込みについて質問です。
hello という文字列をいったんバイナリにしてファイル書き込みするような
プログラムを書いているのですが、書き込みすると
h e l l o
というように変なゴミが入ってきます。
vbaではバイナリデータの書き込みは完全にはできないということなのでしょうか。

該当コード
https://ideone.com/MDI6yW
560 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 01:15:18.73 ID:W9G67fQJ0.net]: 書き込みすると変なゴミデータが見えなくなってしまいましたが、要するに
正確に半角英数字でhelloという文字が再現できないのです。
561 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 01:27:32.82 ID:PnV//sAoa.net]: >>560
どういう内容なのかダンプして確認しないのかい？
562 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 01:41:57.90 ID:yPB6Wd0g0.net]: >>559
Option Explicit
Sub main()
　　Dim bs(4) As Byte
　　bs(0) = Asc("h")
　　bs(1) = Asc("e")
　　bs(2) = Asc("l")
　　bs(3) = Asc("l")
　　bs(4) = Asc("o")
　　Dim fn As Integer: fn = FreeFile
　　Dim fpath　As String: fpath = "C:\指定のパス\output.txt"
　　Open fpath For Binary As #fn Len = 1
　　Dim i As Integer
　　For i = LBound(bs) To UBound(bs)
　　　　Put #fn, , bs(i)
　　Next i
　　Close #fn
End Sub
563 名前：559 mailto:sage [2022/09/11(日) 01:50:58.58 ID:W9G67fQJ0.net]: >>562
for each で受ける変数をvariant型にするとうまくいかんということですか？
open の変数にLen=1（１バイトごと）っていれられるんですね。
564 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 01:53:10.28 ID:yv0WXRwp0.net]: >>559
説明はちゃんと読もう
vbaはかなりゆるゆる言語なので、なるべくvbaにあわせたコードにしたほうがいい
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/put-statement

＞書き込まれる変数が数値型の Variant である場合は、Put により、Variant の VarType を識別する 2 バイトが書き込まれた後に、変数が書き込まれます。
こんなもん追いかけてられんよ
ステートメントは極力使わず、関数にした方がいいと思う

もう少し言うと、実現したい事を直接聞いた方がいい。
vbaでバイナリとかめんどくさすぎて誰もやってないので、
できるかどうかなんてあんまりみんな分かってない

>>561
してもあんま意味ないだろ
565 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 02:05:46.07 ID:yPB6Wd0g0.net]: >>563
Len = 1 にしても無駄
あと、EachはVariantしか使えない

>>564
ところがバイナリダンプしてみると1文字あたり2バイトしか書き込まれてないんだよな
その説明の通りだと3バイトずつ書き込まれるはずなのに
566 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 02:07:03.03 ID:W5Eoe6lQa.net]: >>564
今回はもう結果が出ているけれど、入出力を行ったら確認しないのか？
出力結果から意図するものとどう異なるかによって予測できる場合もあるだろ
567 名前：559 mailto:sage [2022/09/11(日) 02:11:34.10 ID:W9G67fQJ0.net]: >>564
正直説明一々読むの大変なのでここで聞いてそのあたりをつけようと思ってます。

>ステートメントは極力使わず、関数にした方がいいと思う
ちょっとここがよくわからないんですがどういうことですか。

>もう少し言うと、実現したい事を直接聞いた方がいい。
vbaの練習のためにとりあえずbase64エンコーディングを実装しようとしてました。
エンコーディングはできました。デコードでつまづいて格闘してましたが、デコードもとりあえずできました。
つぎは、bmpファイルを読み込んで1x1pixcelに縦横絞ったセルのシートに画像表示させるとか
やろうと思ってます。
568 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 02:12:49.77 ID:yv0WXRwp0.net]: >>565
3バイトずつだぞ
https://i.imgur.com/Um3HyuV.png
569 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 02:19:41.47 ID:yv0WXRwp0.net]: >>567
結局やりたいことはライフゲームとか、画像処理だろう
vbaは、事務処理特化なんだ。本当にやめたほうがいい。

vbaでクリエイティブな事をやろうとすると、めちゃくちゃ遅い
入出力用のセルがすごく見やすいのはわかるんだけど、別言語でやったほうがいい
具体的に言うとC#かvb.netがいい。
jsならそのままアプリにも移行できる
570 名前：559 mailto:sage [2022/09/11(日) 02:24:11.91 ID:W9G67fQJ0.net]: とりあえず入門したいんで、アルゴリズムわかるやつ実装してるだけなんであんま考えてない。
最終的には機械学習実装できりゃいいなと思ってるんで、bitmap表示実装できたら
vbaでそこまでやるレベルになるかなと。
571 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 02:44:48.34 ID:+Dglx5gI0.net]: vbaの使い方間違ってますよ
572 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 11:47:30.27 ID:scHPWuyOa.net]: 他人が何をやろうと勝手なんだから質問にこたえないなら放置すればいいと思うけど
説教野郎って減らないよね
573 名前：デフォルトの名無しさん [2022/09/11(日) 13:01:03.57 ID:qfkrXmQcd.net]: >>567

>正直説明一々読むの大変なのでここで聞いてそのあたりをつけようと思ってます

死ね
574 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 13:48:26.08 ID:4omWB5g70.net]: いや、普通に頭くるだろ？
ダメダメな使い方してると
575 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 17:18:35.58 ID:9MrulJbSd.net]: >>569
ライフゲームってなんなのかグーグルで検索したら
結果ページ上で勝手にライフゲームが始まってたわ
さすがグーグル
576 名前：デフォルトの名無しさん [2022/09/11(日) 18:42:32.58 ID:+bJdyqft0.net]: >>575
気づいたときにはライフがゲームオーバーになってるよ
577 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 20:43:41.22 ID:yPB6Wd0g0.net]: 本当だ
ブラウザの背景でライフゲームが動いてるw
無駄な機能多すぎるだろGoogle
578 名前：デフォルトの名無しさん [2022/09/11(日) 22:06:38.09 ID:mrmcBHlY0.net]: ttps://excel-ubara.com/excelvba5/EXCELVBA228.html
エクセルの神髄さんのところにあるクイックソートの引数について質問です
lngMinとlngMaxを必ず指定しないといけないようなのですが、
どんな数字を入れればいいのですか？

　vBase = argAry(Int((lngMin + lngMax) / 2))
こうなっていて、argAryインデックスの2倍を超える数値は入れられないようです。
インデックスとしての真ん中であるなら関数側でuboundとかlboundとかから計算すればいいように思いました。

バブルソートやインサートソートと違ってイマイチやってる事がわからないので、
lngMinとlngMaxの引数にいれるべき数値がわかる方おられましたら教えてください。
579 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 22:37:51.72 ID:3GTYFVAp0.net]: >>578
配列のうちでどこをソートするか指定できるようになってるんじゃないですかね
580 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 22:42:49.09 ID:6zTUjY+M0.net]: >>578
ソートしたいレンジの最初と最後のインデックス
クイックソートは最初にピボットを決めてそれより小さいものをピボットより前に、大きいものをピボットの後ろに移動して、ピボットの前の区間と後ろの区間をそれぞれクイックソートする方法を繰り返す

ピボットの決め方は色々あるけど、その人は配列の真ん中のオブジェクトを選んでるだけ。ランダムに選ぶと平均的には最も良い結果が得られるけど、もうひと手間かかる
581 名前：デフォルトの名無しさん mailto:sage [2022/09/12(月) 01:30:49.61 ID:0s0pxnwOM.net]: ユーザーフォーム内のコマンドボタンではfunctionの呼び出しはできない仕様でしょうか？
似たようなコードのボタンがあり、特定ブックを取得するための同じコードを全部のボタンに書いています
ごちゃごちゃしてしまっているのできれいにしたかったのですが、functionが呼び出せず変数が空でエラーになってしまいます
582 名前：デフォルトの名無しさん [2022/09/12(月) 07:39:53.33 ID:STPpGgy+0.net]: >>581
呼び出し出来るよ。そのエラーになったコードをここに書いてもらえれば原因がわかるかと。
583 名前：デフォルトの名無しさん [2022/09/12(月) 11:53:11.04 ID:fWVKyvtQa.net]: sub から呼ぶとか
584 名前：578 mailto:sage [2022/09/13(火) 09:42:49.11 ID:g8hgly2P0.net]: >>579
やってみたら確かに！驚きです。
>>580
クイックソートって発明品みたいなものですよね。
人間が手動で並べ替えても慣れる程にクイックソートみたいなやり方が高速になっていくんですかね。

皆さんありがとうございました。
585 名前：デフォルトの名無しさん mailto:sage [2022/09/13(火) 10:05:15.02 ID:kJFB2T9s0.net]: いえいえ
586 名前：デフォルトの名無しさん [2022/09/13(火) 23:06:23.52 ID:m4C/g6mCM.net]: >>582
フォームが３階層くらいありますが

１．モジュールからフォームの呼び出し
Sub commentForm()

rowBtn = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
colBtn = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column

大分類.Show vbModeless

End Sub
587 名前：デフォルトの名無しさん [2022/09/13(火) 23:09:43.50 ID:m4C/g6mCM.net]: すみません、1つ目フォーム呼び出しのモジュール内に以下のコードがあります
Public ShIndex As String

2階層目で3つの大分類の選択

２．分類選択
Private Sub CommandButton1_Click()

'コマンドボタンのタイトル反映 ※エクセルのセルを反映させています。
中分類.CommandButton1.Caption = Worksheets("2-1").Range("C1").Text
中分類.CommandButton2.Caption = Worksheets("2-2").Range("C1").Text
中分類.CommandButton3.Caption = Worksheets("2-3").Range("C1").Text
中分類.CommandButton4.Caption = Worksheets("2-4").Range("C1").Text
中分類.CommandButton5.Caption = Worksheets("2-5").Range("C1").Text

中分類.Show vbModeless

End Sub
588 名前：デフォルトの名無しさん [2022/09/13(火) 23:11:31.11 ID:m4C/g6mCM.net]: ３．さらに次の分類へ

Private Sub CommandButton1_Click()

ShIndex = "2-1"

'コマンドボタンのタイトル反映 ※エクセルのセルを反映させています。

中分類1.Caption = Worksheets(ShIndex).Range("C3").Value
中分類1.CommandButton1.Caption = Worksheets(ShIndex).Range("D3").Value
中分類1.CommandButton2.Caption = Worksheets(ShIndex).Range("D7").Value
中分類1.CommandButton3.Caption = Worksheets(ShIndex).Range("D11").Value
中分類1.CommandButton4.Caption = Worksheets(ShIndex).Range("D15").Value

中分類1.Show vbModeless
End Sub
589 名前：デフォルトの名無しさん [2022/09/13(火) 23:36:32.69 ID:m4C/g6mCM.net]: ４，最終の選択ボタン
コメントアウトの範囲内をfunction（wbSerch）として、値を返して変数を使用したいです
Private Sub CommandButton1_Click()
Dim wbRepName As String
'##########　ここから　##########
Dim i As Long
Dim wb As Workbook
Dim wbFullPath As String
For i = 1 To Workbooks.Count
Set wb = Workbooks(i)
If wb.FullName Like "*検索ワード*" Then ' * *に挟まれた文字を含むブックを検索する
wbFullPath = wb.FullName
Exit For
End If
Next
Dim pos As Long
pos = InStrRev(wbFullPath, "\")
If (pos > 0) Then
wbRepName = Right(wbFullPath, Len(wbFullPath) - pos)
End If
'##########　ここまで　##########
Dim rowRep As Long
rowRep = Worksheets("シート名").Cells(rowButton, "Q").Value
Dim num As Long
num = 1
If Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 1, "H") = "" Then
Workbooks(wbRepName).ActiveSheet.Range(Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 1, "H"), Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 2, "H")) = _
Worksheets(ShIndex).Range(Worksheets(ShIndex).Cells(3 + (num - 1) * 4, "E"), Worksheets(ShIndex).Cells(3 + (num - 1) * 4 + 1, "E")).Value
End If
Workbooks(wbRepName).ActiveSheet.Range(Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 4, "H"), Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 7, "H")) = _
Worksheets(ShIndex).Range(Worksheets(ShIndex).Cells(3 + (num - 1) * 4, "F"), Worksheets(ShIndex).Cells(3 + (num - 1) * 4 + 3, "F")).Value
End Sub
590 名前：デフォルトの名無しさん [2022/09/13(火) 23:37:53.43 ID:m4C/g6mCM.net]: コードをアップする際に一部書き換えで変数が微妙に違うのは許してくださいｗ
591 名前：デフォルトの名無しさん mailto:sage [2022/09/14(水) 01:24:17.40 ID:jzWlgqKP0.net]: >>589
大量のコード張るなら、どっかコード張るサイトあるからそこ使ってくれ

>コメントアウトの範囲内をfunction（wbSerch）として、値を返して変数を使用したいです
やれば良いとしか
自分でやって動かなかったっていうコード出せよ
エラーが出たならエラー内容も

Functionが呼び出されないんじゃなくて、呼び出したけど値を返してないか
返された値をちゃんと受け取ってないんじゃないかと予想したがな
592 名前：デフォルトの名無しさん [2022/09/14(水) 05:04:23.30 ID:Pxkwm+eH0.net]: >>589
色々気になるところばかりですが、Functionだけについていうと

Public Function プロシージャ名() As String
'処理
プロシージャ名 = ファンクション内で作成した文字列
End Function

という感じで作って、呼び出す側は下記で

wbRepName = ファンクション名
593 名前：デフォルトの名無しさん [2022/09/14(水) 08:09:29.31 ID:wHV8fEyKd.net]: >>592
ありがとうございます
やっぱりそれでいいんですよね
とりあえず動かないのは困るので、関数を呼び出すコードは削除してしまったのでまたやり直してみます

適当にネットで検索して継ぎはぎしているのですが、これはやめた方がいいみたいなところがあれば教えていただけると
594 名前：デフォルトの名無しさん [2022/09/14(水) 08:09:41.99 ID:wHV8fEyKd.net]: >>592
ありがとうございます
やっぱりそれでいいんですよね
とりあえず動かないのは困るので、関数を呼び出すコードは削除してしまったのでまたやり直してみます

適当にネットで検索して継ぎはぎしているのですが、これはやめた方がいいみたいなところがあれば教えていただけると
595 名前：デフォルトの名無しさん mailto:sage [2022/09/14(水) 10:47:45.73 ID:DQiHAQaU0.net]: >>594
ネットで継ぎはぎはやめたほうがいい
596 名前：デフォルトの名無しさん mailto:sage [2022/09/14(水) 14:30:03.63 ID:AS+oyxbj0.net]: 継ぎはぎっていちばんやってはダメな事でしょ
不具合でたら修正困難
597 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd0a-JgIN) [[ここ壊れてます] .net]: >>594
お前みたいな奴がVBAを使うのはやめた方がいい
598 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM3e-lqbG) [[ここ壊れてます] .net]: それな
599 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa21-bmfI) [[ここ壊れてます] .net]: ネットの情報をうのみにするのはよくない
600 名前：デフォルトの名無しさん mailto:sage [2022/09/14(水) 15:23:36.39 ID:mWSu9Hj1M.net]: 特にここの奴らの言うことなど……
601 名前：デフォルトの名無しさん mailto:sage [2022/09/14(水) 16:32:30.56 ID:AS+oyxbj0.net]: このスレも含めてネットをなんでもかんでも鵜呑みにしないように。
602 名前：デフォルトの名無しさん [2022/09/14(水) 20:19:10.06 ID:qlFB5bFT0.net]: むしろガンガンコードのコピーでも継ぎはぎだらけでも何でもやれ
それで痛い目を見れば二度とやらなくなるだろう
ただし、他の人に迷惑を掛けない範囲でな
603 名前：デフォルトの名無しさん mailto:sage [2022/09/14(水) 20:25:13.51 ID:tyPb8uvVM.net]: 継ぎ接ぎでもなんでも動きゃいいよVBAなんて
604 名前：デフォルトの名無しさん mailto:sage [2022/09/14(水) 22:09:32.51 ID:LR6kMMNU0.net]: どんなにひどいコードを書こうが仕事は結果がすべて
過程を見て部分点がもらえるのは高校まで
605 名前：デフォルトの名無しさん mailto:sage [2022/09/14(水) 23:32:37.08 ID:XFOFR3Sy0.net]: ひどいコード書いて、エクセルに殴られたら嫌だなあ
606 名前：デフォルトの名無しさん [2022/09/15(木) 02:24:16.54 ID:mZ1kOEzbd.net]: >>604
馬鹿はメンテナンスのことを考えない
こういう馬鹿がいるからVBAが禁止の会社が出てくる
607 名前：デフォルトの名無しさん [2022/09/15(木) 07:02:34.29 ID:K2oLP0MfM.net]: と、馬鹿が申しております。
608 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 07:47:29.25 ID:p0uH79QOd.net]: VBA禁止はメンテがどうのこうのじゃなくて
スキルが低い人間が酷い結果をもたらすコードを書いてしまうからじゃね
下手に書くと他人の労働の成果が一瞬にして無に帰すからね
609 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 08:13:47.40 ID:V+/rW9Cpd.net]: そもそもエクセル側でVBA使ってごちゃごちゃやる職場がセンス無い

エンジニアが管理画面を作ってVBAでやってた処理をそっちでやって、事務系の人は管理画面からcsvを落としてそれをまんま使うぐらいが良い
610 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 08:15:36.60 ID:HISUe1p20.net]: ほいきたばーかばーか
611 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 08:16:33.94 ID:HISUe1p20.net]: CSVって発想がだめだね
プロは引用符も不要になるTSVを使う
うんこ
612 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 08:20:49.72 ID:tsRCCw+k0.net]: いや事務員にはcsvがちょうどいいよ
tsv開けませ～んとか言われるだけ
もっと目線を合わせろ技術キモオタ
613 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 10:16:19.88 ID:HISUe1p20.net]: TSVはメモ帳で開いて全選択のコピペでシートに貼り付けできるんだよ
見事に馬鹿が露呈したな
614 名前：デフォルトの名無しさん [2022/09/15(木) 11:34:27.47 ID:9BPOZrDw0.net]: いやいや
そこは用途に合わせようよ
PDFやEXCEL出力した場合が良い場合もあるよ
615 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 14:52:36.98 ID:5XNYG1220.net]: なんで事務員がエラーの対処法を知らないんだよ。。
毎日いじってるから一通りの対応はできるだろ？
616 名前：デフォルトの名無しさん [2022/09/15(木) 16:19:16.15 ID:9BPOZrDw0.net]: エラーの対処法「システム部にお問合せ下さい。」
617 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 19:11:05.38 ID:5XNYG1220.net]: そんなのExcelできる事務員じゃないわ！
618 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 19:27:19.21 ID:2CSrOwDy0.net]: 最低限のことしかできないって人結構いるけどな
619 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 19:44:47.37 ID:bsuDXGPV0.net]: ボタン押してるだけの事務いるいる。
620 名前：デフォルトの名無しさん [2022/09/15(木) 20:05:30.90 ID:/Qo8z/Hb0.net]: ボタンの押し方で仕上がりが変わる。
優秀な事務員はボタンの押し方が素晴らしい。
日本の技術は世界一。
621 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 20:17:03.66 ID:QyIKtajFH.net]: >>608
いいえ、コードは汚いしドキュメントを残さないので、便利であってもレガシーとなってしまうからですよ
622 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 22:23:17.31 ID:5XNYG1220.net]: 事務員＝Excelを極めている
623 名前：デフォルトの名無しさん mailto:sage [2022/09/15(木) 22:31:56.27 ID:QsPmWhIy0.net]: VBA のファイル・テキスト処理などは、Ruby に比べて、圧倒的に可読性が悪い。
作った瞬間から、修正できない産業廃棄物となるw

だから、常に廃棄して新規開発しているw
624 名前：デフォルトの名無しさん mailto:sage [2022/09/16(金) 00:12:03.43 ID:vQLtnuER0.net]: VBAで複雑なものを作ろうという思考がおかしい
適当に組んで動きゃいい程度のスクリプトだろ
625 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5d79-VPVD) mailto:sage [[ここ壊れてます] .net]: VBAに飽きたらVBSがいいよ
VBAの枷から開放される
626 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sd0a-vfPx) mailto:sage [[ここ壊れてます] .net]: >>621
いいえ、レガシーとなることの問題は認めるけど、それは禁止になる理由とはならないわ
627 名前：デフォルトの名無しさん mailto:sage [2022/09/16(金) 02:37:02.68 ID:l4bz3k9Q0.net]: 他人がどんなに良いコードを書いてあろうが、容赦無く切り捨ててイチから書き直すのがプログラマーだと聞いたからよ
628 名前：デフォルトの名無しさん [2022/09/16(金) 04:32:30.78 ID:UN95gjXqd.net]: >>627
他人から聞いたことを鵜呑みにする馬鹿
629 名前：デフォルトの名無しさん [2022/09/16(金) 09:26:48.43 ID:jiIjsvyj0.net]: そもそもなんだけど
どんなPG言語使ったって綺麗に書く人は綺麗に書くし
ぐちゃぐちゃにする人はぐちゃぐちゃにする
630 名前：デフォルトの名無しさん [2022/09/16(金) 11:41:36.71 ID:eDTruZ7Ya.net]: だからほっとけばいい
自分の担当部分だけ直す
631 名前：デフォルトの名無しさん mailto:sage [2022/09/16(金) 13:52:21.47 ID:Zuqq5jJMd.net]: 自分の書くコードと自分に影響する人が書くだけ気にすればいいのに
無関係の人が書くコードなんてきたなかろうがどうでもいいのにな
632 名前：デフォルトの名無しさん mailto:sage [2022/09/16(金) 20:53:11.37 ID:IL7FnXUn0.net]: >>627
プログラマーはプログラムを書く人だし、設計すればエンジニアだし、営業や事務処理をすることもあるよ
会社員ならわかると思うが他人のコードは他人の給料、自分のコードは自分の給料になるってわかるよね？
633 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 00:16:02.34 ID:lfSciaka0.net]: ならねぇよ。
コード書くだけで給料貰えるとかいつの時代だよ？
634 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-w3i5) [[ここ壊れてます] .net]: 下請けの下請けのそのまた下請けの派遣だろ
635 名前：デフォルトの名無しさん [2022/09/17(土) 14:40:46.13 ID:P15Vbqti0.net]: 書けないでコピペするやつのひがみw
636 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 16:20:56.81 ID:93E6/MjHa.net]: コピペばかりのヤツってある意味恥ずかしく無いのかや？
知識ありませーん！
あるのはコピペのスキルだけです！
と、言っているようなモノだぜ。
637 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 18:06:13.42 ID:T834+5z1M.net]: コピペを極めるとオブジェクト指向になるのかもしれんな
638 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 20:26:19.25 ID:eUUvOszSM.net]: オブジェクト指向って奥深いな
639 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 20:30:59.86 ID:P15Vbqti0.net]: コードのコピーじゃなくアプリをコピーして販売したら違法だからな
640 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 20:39:13.29 ID:lfSciaka0.net]: でも現実はコピペ野良マクロ職人が各職場に溢れているんでしょ？
641 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 21:30:27.81 ID:c/Rfax+qa.net]: 何もかもは覚えられんからそりゃみんな多少はコピペするでしょな。
問題はちゃんと意味わかって使いこなして、修正や変更の対処ができるかどうか。
642 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 21:33:47.44 ID:VC1vunq70.net]: アマチュアはコピペと卑下するけど
プロは既存コードの利用と言って車輪の再発見で悦んでいる給料泥棒はクビにする

って誰かが言ってた
643 名前：デフォルトの名無しさん [2022/09/17(土) 23:02:08.58 ID:Q8wI91eUd.net]: >>642
参考にするのとコピペは違う
お前、>>627の馬鹿だろ
644 名前：デフォルトの名無しさん mailto:sage [2022/09/17(土) 23:46:26.93 ID:lfSciaka0.net]: >>643
そうやってすぐ他人と同一人物と決めつけるヤツの方が余程バカだと思うけどな。
あ、思い込み癖のある病気かゴメンゴメン。
645 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 05:37:23.90 ID:kct9LvbO0.net]: とあるアルゴリズムはコピペして使ったな
646 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 06:53:23.17 ID:6BtvF8DRa.net]: アルゴリズムは脳内コピペで使ってる
でないと例えばクイックソートなんて一生思いつかんし
647 名前：デフォルトの名無しさん [2022/09/18(日) 08:41:21.39 ID:flQCTRcU0.net]: 参考という意味でならコピペすることはあるね。
訳も分からずただ貼り付けて使うのは論外だと思うけど。
648 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 10:16:08.09 ID:Nn59gXvs0.net]: gitやらスニペットやらの今時機能たちを使う試みはよく見ますが
皆さんはどうされていますか
649 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 10:25:50.10 ID:XVqHa/Kgd.net]: >>648
VBAの使用を必要最小限に留める
650 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 11:33:12.72 ID:Nkc7aKdEd.net]: 回答の出なくていい話題ばかりでレスが増えてうんざりだな
651 名前：デフォルトの名無しさん [2022/09/18(日) 13:38:06.64 ID:KpBP36NGa.net]: VBAはオワコン
excelもオワプリ
652 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 13:39:06.35 ID:RKuP+gWA0.net]: >>650
そして一番の問題はそれなのにお前が来て文句を書きなぐることか
653 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 15:31:19.98 ID:umLTL+l4M.net]: >>651
代替ソフトは？
654 名前：デフォルトの名無しさん [2022/09/18(日) 16:13:20.55 ID:wwX2JCe10.net]: VBAと他言語できる人にしつもん
今までVBAしか知らなくていま他言語勉強してます
VBAだったらエクセルのシートに書いとけば良かったデータとか
一体どこに書いとけばいいのかしら
プログラム内の配列とかじゃ電源切ったら消えちゃうでしょう
やっぱデータベースソフトとか別にいるの？
言語はPythonとC
記録したいのは株価の過去データとかです
655 名前：654 mailto:sage [2022/09/18(日) 16:25:19.20 ID:wwX2JCe10.net]: ちなみにSQLとかあるのは知ってますが
数千行程度のデータでもそんなの使わなくちゃいけないのでしょうか
また別に勉強しなくちゃなんないし、面倒くさい
もっと楽な方法ないもんかと（´・ω・｀）
656 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 16:34:05.92 ID:K8Zbj7cX0.net]: データベースの導入が敷居が高く億劫と思うのならば
Pythonから慣れているexcelファイルを操作すればよい
そしてプログラムを組んでいるうちにいろいろ面倒で非効率である感じ
データベースの素晴らしさに気づいたときにデータベースを始めればよい

確かにpythonとデータベースを同時に学習するのは大変だよね
657 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 16:45:16.35 ID:aJoH8T5Ea.net]: >>655
> もっと楽な方法ないもんかと（´・ω・｀）
はい、解散！
658 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 16:46:45.71 ID:Ufv82Dax0.net]: >>654
VBAで作ったのをGoogleスプレッドシートに移行しつつある。
シートを複数人で同時参照できるとかメリットも多い。
659 名前：デフォルトの名無しさん [2022/09/18(日) 16:47:16.95 ID:si+E4x/dd.net]: csv,tsv,xml,データベースとか色々あるだろ
そういうのが難しいと思うならやめとけ
660 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 17:54:45.16 ID:69Jy4am90.net]: >>654
Python のオブジェクトとしてデータがもう手元にあるなら pickle でそのままディスクに残せる。もしくは csv か json に出力するか
データベースでもsqliteならサーバー立てる必要もない
661 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 17:57:42.22 ID:qB0Seojna.net]: >>651
そう
そしてお前らもここも終わり

～終了～
662 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 18:49:48.79 ID:Nkc7aKdEd.net]: >>654
「とか」に何が含まれるかしらんけどその程度のデータならDBなんて使わなくても
今まで通りExcelブックでもいいし、テキストファイルでもなんでもいいのでは
今時の言語（ツール）ならそれぞれのデータにアクセスするライブラリもあるから
質問にある内容だけなら言語なんてなに使っても問題ない

>>655
自分ができる中で楽な方法を探すならまだしもできないことだらけで楽な方法なんてないんじゃない
お金があるなら外注で作ってもらえば楽かもね
世間にあるIT企業はそういうもんだし
663 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 19:07:54.85 ID:N1Q6b8hc0.net]: 世の中は金あるヤツが強い
664 名前：654 [2022/09/18(日) 19:53:45.66 ID:wwX2JCe10.net]: 皆々様がたありがとう
とりあえず>>656氏の方針でいく

>>657
君はなにもわかっていない
他の商売は知らんがプログラマーの場合
「面倒くさい、なんか楽な方法ねえかな？」からスタートする
Zed Shawがそう言っている
665 名前：デフォルトの名無しさん [2022/09/18(日) 19:55:06.18 ID:si+E4x/dd.net]: はい、また他人の言葉を鵜呑みにする馬鹿でしたとさ
666 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 20:11:40.98 ID:/3elu/X80.net]: >>664
お前なにを勘違いしてるのか知らんけどプログラマーは
「楽をするためには苦労をいとわない」
という生物だぞ
単に楽をしたいなら>>662が言うように外注しろよw
667 名前：デフォルトの名無しさん [2022/09/18(日) 21:07:19.77 ID:a87PubfG0.net]: んなわけない。
そういうのは、安月給でヤリガイ搾取されてるような交渉力のないゴミムシ。
668 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 21:30:30.41 ID:N1Q6b8hc0.net]: このスレを含めてインターネットを鵜呑みにしてはいけません！
669 名前：デフォルトの名無しさん [2022/09/18(日) 21:53:06.97 ID:oVIBC1f90.net]: >>655
vba、C#、python、web系色々と勉強してきたけど、
単純なデータの入出力だけならエクセルvbaがダントツで一番楽

超絶高機能なエクセルってものがあるのにわざわざ他言語を選ぶ理由がない
なおスプレッドシート＋jsでも良い
670 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 22:11:40.89 ID:JTgtpdd/0.net]: プロのバックエンド・エンジニアなら、
YouTube で有名な雑食系エンジニア・KENTA の初心者向けRuby on Rails サロンが有名。
他には、RUNTEQ、東京フリーランスのデイトラなどもある

バックエンドは、Linux, Docker, AWS, データベース(DB)などが必須。
データベース・スペシャリストの資格があれば、部長クラス

RailsのO/R マッパーでは、DBの設計の仕方・組み方ばかり勉強する。
第3正規形、1対多・多対多とか、検索用インデックスの作り方など
671 名前：デフォルトの名無しさん [2022/09/18(日) 22:19:10.17 ID:si+E4x/dd.net]: >>670
釣り？それとも真正馬鹿？
それもいつものキチガイRubyクズ？
672 名前：デフォルトの名無しさん [2022/09/18(日) 22:23:40.29 ID:oVIBC1f90.net]: rubyとかもうすぐ無くなる言語じゃん
673 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 22:27:42.29 ID:K8Zbj7cX0.net]: VBAももうすぐ無くなると言われてから延命してるな
674 名前：デフォルトの名無しさん mailto:sage [2022/09/18(日) 23:15:37.10 ID:69Jy4am90.net]: Rubyとか2005年で時間止まってる？
675 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 01:07:42.95 ID:iZ5Ix3Ky0.net]: >>669
ほんとうにそう思う
データをシートに書けばいろいろ考える必要なくアクセスできるもんね
IDEでそういうとこが簡単にできるシートを作って欲しいもんだ
676 名前：デフォルトの名無しさん [2022/09/19(月) 01:41:49.94 ID:iY8r+Bg+0.net]: この人もRubyがいいと言っている。
https://youtu.be/ipMC90r26uA

完全に時代遅れ。
もうむちゃくちゃ。
自分を客観視できていない。
677 名前：デフォルトの名無しさん [2022/09/19(月) 05:00:23.87 ID:EY8w4DgiM.net]: >>675
小規模なデータしか扱ったことのない馬鹿
678 名前：sage [2022/09/19(月) 08:40:56.76 ID:ReLBLDbZ0.net]: ↑
なんか幼稚な煽りしてる奴いてるなあ
そんなことしてて楽しいのか
679 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 09:31:55.83 ID:vK/zDm8+d.net]: このまえ2000万レコード扱った時はC#でSQLite使った
680 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 10:27:41.73 ID:WQozd2gd0.net]: そろそろExcelもビッグデータを扱えるようにしないと時代に取り残される
最低2億レコードぐらいは一発で実用時間内で処理できないと
681 名前：デフォルトの名無しさん [2022/09/19(月) 11:09:06.92 ID:NE4NRLG3F.net]: tksqlite便利ですぉ
682 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 11:17:10.29 ID:/tS0t+5W0.net]: それソフトよりもハードの問題じゃね
683 名前：デフォルトの名無しさん [2022/09/19(月) 14:37:24.08 ID:Z9ZARiSG0.net]: >>679
どうだった？
更新、遅くならんかった？
684 名前：デフォルトの名無しさん [2022/09/19(月) 14:45:49.33 ID:LZxjUErQd.net]: >>678
内容を理解できない馬鹿は黙っていればいいのに
685 名前：デフォルトの名無しさん [2022/09/19(月) 15:32:14.37 ID:Z9ZARiSG0.net]: >>680
アクセスでさえテーブル容量に2GBの制限ｂｪあるらしいのｂﾅ、エクセルにｂｻんなもの求めｂﾄも仕方がないｂﾌでは？

2GBでも、中小企業の在庫管理には十分だし。

エクセルの使い道がない人は、無理して使うものでもないと思います。
686 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 16:01:28.33 ID:vK/zDm8+d.net]: >>683
てか、VBAスレでその質問するからには、エクセルとの比較で聞いてるんだろうけど
そもそもエクセルでこのボリュームのデータ扱えないから比較できない
データベースファイルだけで4GB超えるから
687 名前：デフォルトの名無しさん [2022/09/19(月) 16:05:58.47 ID:Z9ZARiSG0.net]: >>686
SQLiteで2000万レコードについて聞いてますよ。
以前試したときは、ファイルが10GB超えるあたりから性能が悪化したんだけど、今はどうなのかなと思って。
688 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 16:10:19.86 ID:vK/zDm8+d.net]: >>687
遅いですよ
自分の用途だと十分だけど
689 名前：デフォルトの名無しさん [2022/09/19(月) 16:24:13.35 ID:Z9ZARiSG0.net]: そうですか。
ご親切にどうも。
690 名前：デフォルトの名無しさん [2022/09/19(月) 18:23:11.48 ID:mA0CNwkF0.net]: win10
office2019

VBAの相談なんですけど、test.xlsmというファイルで練習をしていて
エラーが出てエクセルが落ちてしまいました。
そのあと、復旧したファイルでコードチェックをしてエラーが出ないようになりました。
しかし、test.xlsmファイルを開くと「セキュリティに問題がある」うんぬんという警告が
そのファイルでだけ出るようになりました。

ささいな事ですが気になっています。
もしかして特定のコードを含んでいると出るのでしょうか？
ループ処理が多いとか。
691 名前：デフォルトの名無しさん [2022/09/19(月) 18:26:26.58 ID:QQSMzDQg0.net]: マクロの場合って必ずでなかったっけ
692 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 18:47:49.51 ID:b1CdxAyP0.net]: トラストセンターで有効にしておけば警告は出ないよ、って言うかこのスレにいる人ならほとんどこの設定にしてると思う
https://www.officepro.jp/excelmacro/rec/img/p4-11.png
あとは1番下の「VBA プロジェクトオブジェクトモデルへのアクセスを信頼する」がクリアされててtest.xlsmにコードを触るようなコードが入ってる場合ぐらいかな
693 名前：690 [2022/09/19(月) 21:28:16.87 ID:mA0CNwkF0.net]: >>692
ありがとうございます。
もともとそのチェックはどのファイルにも入っていませんでしたので、
触るコードを書いてるという事かと思います。
どんなコードが該当するのですか？
バグに気付けていない可能性もあるので、知りたいです。
オブジェクトモデルっていってもdictionaryを一回重複チェックで使ってるくらいで、
後はsetしてるのは条件付き書式とかworksheetとかworkbookとかrangeくらいでしょうか。
たいした事はしてないのですが、結構長くなってるので特定しづらいです。
694 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 21:42:09.79 ID:b1CdxAyP0.net]: >>693
> どんなコードが該当するのですか？
そんなもん説明しきれんわ
そもそも
> しかし、test.xlsmファイルを開くと「セキュリティに問題がある」うんぬんという警告がそのファイルでだけ出るようになりました。
のスクショなりを上げなよ
695 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 22:00:45.12 ID:ai3lFfV6d.net]: コードを新規作成したtest 2.xlsm にコピペしてみりゃ一発だろうに
696 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 22:01:05.04 ID:s9D2fBDK0.net]: >>679
Ruby on Rails では、2千社・2億レコードでも全く問題ないと、外人が言ってた

Railsでは、開発環境ではSQLite も使うが、
本番環境では、MySQL, PostgreSQL

Heroku では、PostgreSQL

>>676
セレブエンジニアの小松和貴は、反SES/Java で有名。
Java土方はうつ病になるから、やるなと言ってる
697 名前：デフォルトの名無しさん [2022/09/19(月) 22:05:09.07 ID:LZxjUErQd.net]: rubyみたいなオワコンを持ち上げるキチガイは消えろ
698 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 22:36:59.93 ID:O/s366mO0.net]: 火に油を注ぐ発言はやめような
699 名前：デフォルトの名無しさん mailto:sage [2022/09/19(月) 23:45:50.71 ID:A/Pc+E3NH.net]: 火に油を注ぐから楽しいのに
700 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 00:31:18.18 ID:Rlnm1h+Y0.net]: それあぼーんな人だから触らないほうがいいよ
701 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 07:23:58.96 ID:Qfc1UF5x0.net]: >>697
黙れハゲ童貞
702 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 08:18:55.69 ID:TKjURbNB0.net]: なんだかんだで、納品物はエクセルで！とか言ってるからいつまでもVBAやめられなくて辛い
703 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 12:12:55.21 ID:ZsS5zbqxM.net]: >>702
Excelやめてなんのソフトを代替にしたいの？
704 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 14:20:11.48 ID:E6px8L9o0.net]: Excelを使わない事務仕事なんか無いだろうね
705 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 14:37:00.62 ID:a8qXzxjlM.net]: うちの会社は弥生会計をずっと使ってるぞ
706 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 17:24:35.64 ID:Qfc1UF5x0.net]: >>704
うちの会社の経理は紙の帳面だぞ
古代エジプト時代と変わらん
707 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-w3i5) [[ここ壊れてます] .net]: >>706
パピルスと現代の紙とは異なる
髪はその頃と一緒だが
708 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 19:11:26.07 ID:bPcXAKoD0.net]: >>702
そんなに辛いなら転職したらいいんじゃね
709 名前：デフォルトの名無しさん mailto:sage [2022/09/20(火) 20:36:15.87 ID:E6px8L9o0.net]: >>706
The 昭和
710 名前：デフォルトの名無しさん [2022/09/20(火) 20:42:24.19 ID:z6cIhAGk0.net]: 昭和の頃はすでにMZ-80とか有ったからね。
711 名前：デフォルトの名無しさん [2022/09/20(火) 21:20:11.78 ID:9PvWzZvw0.net]: >>695
ありがとうございました。
それで徐々にコードを消していったら判明しました。
助かりました。
712 名前：デフォルトの名無しさん [2022/09/20(火) 21:52:40.24 ID:9PvWzZvw0.net]: ユーザー定義型を配列に入れて使っているのですが、nameでソートしたり、
idでソートしたり、ageでソートしたり、その都度いろいろなプロパティでソートをしたいのです。
いままでは一旦二次元配列に入れてソートしていましたが、二次元配列のkeyposにあたるような
key elementsみたいに引数で渡す事はできないのでしょうか？

Sub Sort(ByRef User as Usertype,ByRef Property asここがわかりません)
なんというかworksheetオブジェクトとrangeオブジェクトみたいな関係みたいな

最悪プロパティ毎に違う名前のソート関数にすれば一応好きなプロパティの値でソートして返せるのですが

こんな感じで
713 名前：デフォルトの名無しさん [2022/09/21(水) 15:26:19.55 ID:IxQ+qaQI0.net]: まずユーザー定義型をクラスにして、その後は IComparer インターフェイスでよしなに

Sorting of objects by their properties in VBA
https://scripts4all.eu/sorting-of-objects-by-their-properties-in-vba/

個人的にはここまでやるならVBA以外を検討するけどね
714 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f749-GjCD) mailto:sage [[ここ壊れてます] .net]: 別の方法としてADODBでメモリ上にテーブルを持つのもある
テーブルにぶち込んでしまえば、ソート、フィルター、その際の項目指定とかどうにでもなる
その分のメモリは必要だし、テーブルに対する出し入れの処理はあるので
配列の大きさやソートの頻度で使うかどうか考える
715 名前：712 (ﾜｯﾁｮｲ bf66-W3aP) mailto:sage [[ここ壊れてます] .net]: >>713
そちらを見に行ってEnumの便利さに気付きました。
二次元配列のfor for ネストでやってるような処理、列が増えるほどだんだん
わからなくなりますが、enum使えば二次元配列の利便性も残しつつ
ユーザー定義型みたいに使えますね。
二次元配列の悪い所はだんだん自分が何を指定してるのかわからなくなるところだったので、
Enumと相性抜群ですね。

せっかく教えてもらった高度な手法は今回は見送りさせて頂いて、簡単なEnum＆二次元配列でやってみようと思います。
感謝です。
716 名前：デフォルトの名無しさん mailto:sage [2022/09/21(水) 20:40:31.74 ID:NsHiQ7yd0.net]: 元データがどこにあって、それをソートしてどうしたいのかわからんが
普通に考えればエクセルシートに展開すれば良いんじゃないかと思うんだが
717 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b7da-E+l9) mailto:sage [[ここ壊れてます] .net]: たぶんEXCELのソート機能を使わず自分でソートしたいんじゃね
718 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa5b-8eP5) [[ここ壊れてます] .net]: なぜ競プロではVBAの出番が無いのか
719 名前：デフォルトの名無しさん mailto:sage [2022/09/22(木) 11:36:03.90 ID:V4zanZlpM.net]: 遅いとか記述が冗長とかサーバーサイドで動かせないとかテクニカルな問題はいくらでもあるけど、
最大の理由は競プロやるような人はVBAなんか使いたがらないから
720 名前：デフォルトの名無しさん mailto:sage [2022/09/22(木) 18:38:55.33 ID:+Wi4osLB0.net]: >>718
年末のAdvent of CodeはVBAだかExcelだけかでやってる人たまにいる
721 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 97da-rZTD) mailto:sage [[ここ壊れてます] .net]: >>666
いいえて妙、ﾜﾛﾀｗ
722 名前：デフォルトの名無しさん mailto:sage [2022/09/23(金) 19:12:26.46 ID:27USMHor0.net]: 外注ってやっぱ高い？
723 名前：デフォルトの名無しさん mailto:sage [2022/09/24(土) 01:17:31.15 ID:mU6CwKwa0.net]: 素人にやらせると、見かけは安上がりだけど結果的に高く付くことが多い
724 名前：デフォルトの名無しさん [2022/09/24(土) 03:39:42.11 ID:sis0YFKKa.net]: 何人で何ヵ月かかるかで金額が変わる
725 名前：デフォルトの名無しさん mailto:sage [2022/09/24(土) 04:49:54.00 ID:rKbJBgHg0.net]: じゃあここのスレの方ならプロだから安心して頼むそうかな？？
金額以外は
726 名前：デフォルトの名無しさん [2022/09/24(土) 05:51:09.21 ID:Bbc/0kyt0.net]: RubyはそれだけではDBとなるものを持ってないからEXCELやACCESSのVBAとは比較できない。

もっとも、同様にDBを持たない言語と比較するなら
セーフティーでガベージコレクションの概念がなくスピードの速いRust辺りと比べるとゴミ同然
727 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c23d-dJZP) mailto:sage [[ここ壊れてます] .net]: エクスプローラーでフォルダーのプロパティを開いて
カスタマイズタブのところに「フォルダーの種類」が全般とかビデオとかになってるけど。
これをVBA/VBSで変更できる？
フォルダーのtypeを見ても全部「ファイルフォルダー」になる。
728 名前：デフォルトの名無しさん mailto:sage [2022/09/24(土) 09:33:48.67 ID:DeEi7HC40.net]: >>727
レジストリ操作でやりたいことができたわ。
729 名前：デフォルトの名無しさん mailto:sage [2022/09/24(土) 14:15:19.28 ID:qbD2jrks0.net]: お、おう、よかったな
730 名前：デフォルトの名無しさん [2022/09/25(日) 05:30:19.65 ID:/q7OsFL50.net]: 一般ユーザがある列のセルを編集できないようにしたい。
でも、VBAの実行や、セル関数の結果は反映させたい。

https://support.microsoft.com/ja-jp/office/excel-%E3%81%A7%E3%82%BB%E3%83%AB%E3%82%92%E3%83%AD%E3%83%83%E3%82%AF%E3%81%99%E3%82%8B-b942fe92-5e87-0985-214b-9617b5b6d53f
↑セルのロック
という機能で試してみたがVBAマクロでの変更は許されなくてちょっと困っています。

セルに対してマウスイベントを発生させない。みたいなことを考えて、調べているが。
皆さんも悩まれる案件かと思います。もっと良い方法ないでしょうか？
731 名前：デフォルトの名無しさん [2022/09/25(日) 06:18:07.93 ID:jaItMug30.net]: VBAん中でロック解除して
処理終了間際にロックし直しってんじゃだめなの？
732 名前：デフォルトの名無しさん mailto:sage [2022/09/25(日) 07:44:30.90 ID:dPa0+M2C0.net]: SheetSelectionイベントとIntersect使うだけでは
733 名前：デフォルトの名無しさん mailto:sage [2022/09/25(日) 09:13:59.54 ID:nIE2ah490.net]: お願いします。
検索をシートからではなくブックからをデフォルトにしたいです。
下記のサイトのコードを使い検索は出来るのですが、
結果表示ではなく（ '＜全てのシートの検索が終わったら、結果を表示します。＞）、
検索値まで移動するにはどのようにコードを書けばいいか、ご教授願います。。
https://www.moug.net/tech/exvba/0040005.html
734 名前：デフォルトの名無しさん mailto:sage [2022/09/25(日) 10:44:33.52 ID:mk9vdghN0.net]: >>730
worksheet_boforedoubleclick みたいなイベントプロシージャでできる
735 名前：デフォルトの名無しさん mailto:sage [2022/09/25(日) 10:58:13.51 ID:/q7OsFL50.net]: ありがとうございました。
>>731の方法で簡単にできました。
VBA実行時に保護を解除して、終了時に再度保護をかけることで、
すんなりといけました。
736 名前：デフォルトの名無しさん [2022/09/28(水) 13:31:05.50 ID:/kKDTdjO0.net]: A1:10もしくはA100に入力された値を配列に格納しています。
動的配列です。
Select Case 文字列A
case A1:A100のどれかに一致するなら
case B1:B100のどれかに一致するなら

みたいな書き方って出来ないのでしょうか？
737 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 13:35:10.17 ID:Rj0JQSes0.net]: ifで条件書けよ
738 名前：デフォルトの名無しさん [2022/09/28(水) 15:15:27.03 ID:n6LgYqsE0.net]: >>736
恐らく出来ない。
ただ、Select Case の後の文字列の部分をTrueとして、
A10:A100の中に該当文字列が有った場合、
Trueを返す関数を作成して、Case文の後ろに記載して
その条件に当たったかを判別して、Case文の下に
その条件下での処理を記載することは可能。

Caseにある条件のA10:A100にとある文字列が
有った場合とB10:B100にとある文字列が
有った場合と下に続く処理が同じなら、
先程言った関数の引数に対象範囲と検索対象文字列を
持たせておけばCase文を使う必要すら無い。
戻り値がTrueかFalseかをIf文で判断すれば良い。

その辺は実際の状況に合わせて上手く作ってくれ。
739 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 16:15:51.79 ID:vR69ytL90.net]: select caseにtrue??
知らなかったわ何それ？？
740 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 18:26:27.19 ID:Pxqx/4k10.net]: Do
With
End With
Loop

よりも

With
Do
Loop
End With

の方が計算が早い（PCにとっては楽）と考えてよいでしょうか
741 名前：デフォルトの名無しさん [2022/09/28(水) 19:01:46.26 ID:8l5UWazH0.net]: >>736
こんな感じ？
https://i.imgur.com/wuSExDf.png
742 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 19:28:29.47 ID:Aad51sjLa.net]: >>736
Private Function F(R As RangeRange, S As String) As Boolean
Dim C As Range
For Each C In R
If C.Value = S Then
F = True
Exit Function
End If
Next
F = False
End Function
...
Select Case True
Case F(Range("A1:100"), 文字列A)
...
Case F(Range("B1:100"), 文字列A)
...
Case ...
End Select
743 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 19:32:38.30 ID:Aad51sjLa.net]: >>740
たいていのプログラムだと有意な差はでないから気にせずに作りやすい方で作れ
有意な差がでそうならまず測定
744 名前：デフォルトの名無しさん [2022/09/28(水) 19:38:38.93 ID:n6LgYqsE0.net]: >>740
これも恐らくの話で申し訳ないけど、
元々Withで設定されているインスタンスが既に生成されているものであれば、その格納アドレス先を読むだけなので
Withがループの外にあっても中にあっても処理コストは変わらないと思う。
変わったとしても繰り返し実行での誤差と見分けが付かない程度と思われる。

逆にインスタンスが生成されておらず、With New ～のようにWithでインスタンスを生成する場合は
ヒープエリアのメモリにそのインスタンスを展開するため、Withがループの外に有った方が処理コストは低くて済む。

・・・はず。
745 名前：デフォルトの名無しさん [2022/09/28(水) 19:40:24.19 ID:2tCqxjcra.net]: とりっきー
746 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 19:51:29.67 ID:30UfjVhGd.net]: >>739

ケツの穴をガバガバにして全通しするいやらしい関数だよ

Select Case True
Case オナラ
よし通れ
Case うんこ
よし通れ
End Select
747 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 21:06:15.14 ID:Apn5XmOg0.net]: >>742
結局If文でラップしてるだけじゃん
748 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 21:06:47.83 ID:vR69ytL90.net]: >>746
汚ねえな。。
こっちは夕食のカレー食ってんだぞ。。
749 名前：デフォルトの名無しさん mailto:sage [2022/09/28(水) 21:20:17.00 ID:0sCmeNkX0.net]: >>747
If 文でラップとか意味わからんこと言われてもw
750 名前：デフォルトの名無しさん mailto:sage [2022/09/29(木) 00:27:52.00 ID:tkXe+LzA0.net]: ヘイヘイヘイ～！
もしも～オブジェクト変数でぇ～宣言したぁ～値がぁ🎵
ラップ調
751 名前：デフォルトの名無しさん [2022/09/29(木) 01:53:20.13 ID:I3DbECBa0.net]: ラップのセンスはいまいちだね
752 名前：736 mailto:sage [2022/09/30(金) 17:41:05.63 ID:8DTKPQSA0.net]: >>738-742
ありがとうございました。
変数Strの中の値が配列Listのどれかと一致するかということだったので、そのCountIFがまさにその通りでした。
それようの関数書いてSelect case True使わせていただきます。
753 名前：デフォルトの名無しさん [2022/09/30(金) 21:34:23.42 ID:RGIc4eHD0.net]: >>752
Select Case True の話持ち出しといてなんだけど
最初のCase の条件に引っ掛かってその下の処理を実行した後でも
次のCaseの条件に引っかかったらその下の処理も実行するからそれだけは気をつけてね
754 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd32-r4yT) mailto:sage [[ここ壊れてます] .net]: >>753
そんなことないのでは？と思って試したけどやっぱりそんなことなかったんだが
普通はcaseの条件の中に入ったら次のステップはEnd Selectにいかないか？
Dim ncount As Long
ncount = 0
Select Case True
Case 0 = 0
ncount = ncount + 1
Case 1 = 1
ncount = ncount + 1
Case 2 = 2
ncount = ncount + 1
End Select
Debug.Print ncount
これは1になるんだが
755 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 927c-cqZP) mailto:sage [[ここ壊れてます] .net]: >>754
多分breakいれなきゃいけないCとかと勘違いしてるんだと思う
756 名前：デフォルトの名無しさん mailto:sage [2022/09/30(金) 22:50:53.72 ID:oHn8O8ll0.net]: Select みたいな文で複数の選択肢が条件満たした場合に複数の選択肢を実行する言語って PowerShell ぐらいしか知らんけど他にもあるんだろうか？
757 名前：デフォルトの名無しさん mailto:sage [2022/09/30(金) 23:04:52.77 ID:FO5tGPcx0.net]: >>756
cとかそうだったはずだし、たぶん複数実行するほうが多数派なんじゃね
c#も、文法上は複数実行することになってるけど、break書いて抜けないと怒られるという
よくわからんことになってるし
758 名前：デフォルトの名無しさん mailto:sage [2022/09/30(金) 23:17:37.16 ID:2no5G0l30.net]: CもそうだしJavaもそうだしPythonもそうだしJavaScriptもそう
759 名前：デフォルトの名無しさん mailto:sage [2022/09/30(金) 23:34:30.49 ID:oHn8O8ll0.net]: >>757-758
C/C++ はそもそも複数選択肢が条件満たすことはないよ（たいていの処理系でコンパイルエラーになる）
fall through と勘違いしてるでしょ
760 名前：デフォルトの名無しさん mailto:sage [2022/09/30(金) 23:56:30.92 ID:2no5G0l30.net]: >>759
ああそうだ。勘違いです
申し訳ない
761 名前：デフォルトの名無しさん [2022/10/01(土) 00:36:40.48 ID:fyOJn4KOa.net]: >>754
これってコンパイル時に畳み込みで定数化されて同一のラベルが複数あってエラーになるとかしないのか
762 名前：デフォルトの名無しさん [2022/10/01(土) 01:42:48.83 ID:a0drtoBbd.net]: >>761
馬鹿にはそう思えるのだろ
763 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 01:48:20.03 ID:AX86MJ2c0.net]: >>759
ああ、まさにfall throughだった

つかそうなると、fall throughじゃなくて
複数一致したら複数ブロック実行するような言語って知らないな
PowerShellってそうなのか？
764 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 01:53:07.95 ID:AX86MJ2c0.net]: >>761
VBAのCaseは定数以外にいろいろ書けるから
765 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 04:50:29.38 ID:igg+s+OR0.net]: >>763
複数一致
同じ条件を複数回追加すれば、それらすべてがトリガーされます。
https://learn.microsoft.com/ja-jp/powershell/scripting/learn/deep-dives/everything-about-switch?view=powershell-7.2
766 名前：デフォルトの名無しさん [2022/10/01(土) 07:29:29.38 ID:66c8QTBM0.net]: みんないろんな言語やってるのね
767 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 07:40:45.91 ID:BiebxrBw0.net]: 他言語やってる人が暇潰しに見に来る場所って印象があるよね
質問も簡単だし答えるほうに余裕があるので他スレと比べると寛容というかギスギスしてない
768 名前：デフォルトの名無しさん [2022/10/01(土) 13:08:15.88 ID:sQwPc1U3d.net]: Excelでデータベースを作り、各レコード？事に
～月～日　～
～月～日　～
みたいなログを表示したいのですがどの様にすればできるのか教えていただけませんか？
769 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 13:10:34.86 ID:PSWCeSJW0.net]: キーボードで打ち込め
770 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 13:17:44.94 ID:GEkLNCKa0.net]: >>768
入門書買って自分で勉強したらどうかな
あ、EXCELが入っているPCを持ってないと無理かも
771 名前：デフォルトの名無しさん [2022/10/01(土) 13:31:32.89 ID:sQwPc1U3d.net]: テキストボックスにセルの値を参照するとか、繰り返しの処理とかlookup関数とかindexとmatch関数はわかります
あとはこのリストが欲しいです
772 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 13:34:23.97 ID:mp76wcbAa.net]: MSのサイトを見ればいいだけじゃね？
773 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 14:11:06.32 ID:m6/aGG23M.net]: >>771
漠然としすぎていて適切に回答できない
書式設定のこと？ファイル出力？
どこにそれを表示したいの？
774 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 14:50:47.98 ID:ozHkf13K0.net]: もう自分で勉強してくれって。
775 名前：デフォルトの名無しさん [2022/10/01(土) 15:38:51.00 ID:66c8QTBM0.net]: >>768
そもそもそのログの日付とやらはどこから持ってくるつもりなのか
776 名前：デフォルトの名無しさん [2022/10/01(土) 15:39:00.83 ID:05rfSfda0.net]: >>773
すみません
VBAのユーザーフォームで検索用のテキストボックスを作り、
検索結果に該当したレコード（行）を選択（抽出）？して
それをテキストボックス2やリストボックスに表示したいです

～番（ID）

名前
テキストボックス（リストボックス）
～月～日　何をした

みたいな表示画面が作りたいです
777 名前：デフォルトの名無しさん [2022/10/01(土) 15:40:48.76 ID:05rfSfda0.net]: >>775
～番号　名前　～～～
の様な感じで列に追加していくやり方で作ろうかなと考えています
778 名前：デフォルトの名無しさん [2022/10/01(土) 16:48:39.94 ID:vnBH5ihbM.net]: >>776
まずワークシート上でlookup,index,matchで検索、表示できるものを作る。
それからフォームのテキストボックスに入れた値をワークシートの検索用のセルに書き込み、結果をフォーム上のテキストボックス、リストボックスに書き込むVBAを作る。
779 名前：デフォルトの名無しさん [2022/10/01(土) 16:50:40.38 ID:05rfSfda0.net]: >>778
ありがとうございます
まずはそこからですよね
780 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 16:52:55.19 ID:GEkLNCKa0.net]: どこでつまずいているかを書かないで答えだけほしいとか言われてもね
781 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 16:55:41.93 ID:HuJ3UkiEd.net]: >>768
こんなんVBAでもなんでもなくシステムを作りたいっていってるようなもんでしょ
金払って作ってもらえよ
782 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 17:09:04.65 ID:AX86MJ2c0.net]: >>768
なぜそれをエクセルでやりたいと思ったのか

今のレベルだと一から勉強レベルだと思えるが
c#かせめてVB.Net覚えたほうがいいんじゃない
783 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 18:15:10.78 ID:BiebxrBw0.net]: セルの内容（日付のところは文字列型（頭にアポストロフィ）で入れてる）
ID 名前日付イベント
1 名前1 2012年3月14日Ａをした
2 名前2 2012年3月15日Ｂをした
3 名前3 2012年3月16日Ｃをした
4 名前4 2012年3月17日Ｄをした
5 名前5 2012年3月18日Ｅをした
6 名前6 2012年3月19日Ｆをした

※Sheet1のマクロ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With UserForm1
y = ActiveCell.Row
.TextBox1 = Cells(y, 1)
.TextBox2 = Cells(y, 2)
.TextBox3 = Cells(y, 3) + vbNewLine + Cells(y, 4)
End With
End Sub

フォーム(UserForm1)を作って下記コントロールを配置
TextBox,TextBox1,TextBox2,TextBox3(Multiline=true),CommandButton1

UserForm1のマクロ
Private Sub CommandButton1_Click()
Sheets(1).Range("A1").AutoFilter 2, "*" & UserForm1.TextBox.Text & "*"
End Sub

ファイル開くイベントとかボタン作って下記マクロでフォームを表示
UserForm1.Show vbModeless
聞いた限りではこんなのしか思い浮かばない
784 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 18:31:08.84 ID:oCrNNmAI0.net]: VBAのPicture.Insertでリンク貼付けさせないようにクリップボード利用でPasteで貼り付けてみたら画像が異常に重くなりすぎて使い物にならない…。
おとなしくShapes.addPicture使うしかない？
785 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 18:49:59.64 ID:PeKIyBQF0.net]: >>768
Listobject作ってListrowsを都度登録する仕組みを作って目的のListrows()を呼び出すユーザーフォームを作ればいいんじゃないっすかね。
786 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 18:55:31.78 ID:HuJ3UkiEd.net]: まず質問者は何ができて何ができないのか気になるが何もできないんだろうなと推測してる
なのでここで丸投げしてバカなお人よしに作ってもらおうとしてるんだろ
787 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 23:20:55.43 ID:BiebxrBw0.net]: 猪木が死んだ、時代が流れていく
思えばPCとの付き合いももう40年か
戦時中はと口癖のように言っていたジジイ共も消えてアマチュア無線なみにニッチな趣味だったPCが主流になるとは不思議なものだ
788 名前：デフォルトの名無しさん mailto:sage [2022/10/02(日) 07:27:45.20 ID:ySn/5a2I0.net]: >>784
もとの画像が大きいんじゃね、表示用の画像を別途つくってから貼り付けてみ
789 名前：デフォルトの名無しさん [2022/10/02(日) 13:27:44.47 ID:TlawqFoR0.net]: >>783
わざわざありがとうございます
助かりました
790 名前：デフォルトの名無しさん [2022/10/02(日) 15:47:28.98 ID:DdgukWIZ0.net]: >>787
おいおいいつだよって思ったら昨日かよ

>>786
それでいいと思うんだよな
それが社会の基本だし、暇な元事務のNEETはそれで快楽を得つつ勉強になり、
転職への自信になるだろう
791 名前：デフォルトの名無しさん [2022/10/02(日) 20:54:31.26 ID:TlawqFoR0.net]: VBAは作業を登録して自動化するくらいで覚えておいた方がいいですよね
792 名前：デフォルトの名無しさん mailto:sage [2022/10/03(月) 06:16:19.93 ID:S2WAje4f0.net]: >>788
800kの画像でやってみたけど15Mぐらいまで巨大化してしまう
やはりAddPictureで代用してみる
793 名前：デフォルトの名無しさん mailto:sage [2022/10/03(月) 07:27:24.16 ID:4wRZXMmm0.net]: VBEに書いたコードの整列っていうかコードを整えるっていうか自動インデントっていうかそんなショートカットキーがあったと思うけどなんだっけ？
794 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 53ce-OAEy) mailto:sage [[ここ壊れてます] .net]: タブ
795 名前：デフォルトの名無しさん [2022/10/03(月) 20:58:11.99 ID:FDmFS1zQ0.net]: >>791
変な枷付けること考えんと
好きに作っていいんやで
796 名前：デフォルトの名無しさん mailto:sage [2022/10/04(火) 15:00:55.06 ID:pLalriKq0.net]: イベントで質問

余所で作ったエクセルにVBAで改造加えてるんだけど
1マス入力だけするSheetにActiveXのコマンドボタン付けたら
Worksheet_SelectionChange
が発生しなくなった

コマンドボタン押したイベントは拾ってるので
EnableEventsがFalseってわけじゃない（イミディエイトで確認済み）

デザインモードを解除してもWorksheet_SelectionChangeイベントが起きないので
しょうが無いからまた一から作り直したんだが
この現象って頻発するもの？
ググってもOfficeの修復かEnableEventsしか解決策が出てこない
797 名前：デフォルトの名無しさん mailto:sage [2022/10/04(火) 15:54:59.32 ID:TDYI1fTGd.net]: >>792
Sub Macro1()
ActiveSheet.Pictures.Insert "C:\Work\Sample1.jpg"
End Sub

これで400KBのpngで試してみたけど
なぜかxlsmファイルのサイズは15KB
何か別の要因とか
798 名前：デフォルトの名無しさん mailto:sage [2022/10/04(火) 19:28:07.31 ID:uOFwOuxi0.net]: >>796
そりゃエクセルを改造したら駄目だろ
799 名前：デフォルトの名無しさん mailto:sage [2022/10/04(火) 19:47:41.77 ID:o+JurUyd0.net]: >>792
オプションの詳細設定-イメージのサイズと画質　ってどうなってる？
800 名前：デフォルトの名無しさん [2022/10/04(火) 21:08:36.46 ID:vyetwO+c0.net]: Dim ar(2) As Variant
ar(0) = 1
ar(1) = 2
ar(2) = Split("1,2,3,4,5", ",")
Dim i
For i = 0 To UBound(ar(2))
ar(2)(i) = CLng(ar(2)(i))
Next i

splitで作ったジャグ配列の中身をlong型に変換したいです。
variant変数に一度入ったらもう無理ですか？
一応他の変数に入れる事で型変換には成功するのですが。
余計な変数を二つも用意してstringで作成されたのを一時的なvariant型ノーマル配列に
おさめてｍそのあとで本当に使いたい配列のジャグ配列に入れていくというのが
どうも汚い感じで腑におちません。
アドバイスもらえると助かります。
801 名前：デフォルトの名無しさん [2022/10/04(火) 22:26:54.77 ID:cce3s7590.net]: >>800
出来ません
諦めてください
802 名前：800 [2022/10/04(火) 22:43:48.69 ID:vyetwO+c0.net]: >>801
ありがとうございます。
ジャグ配列はRedim出来ないのがデメリットですね。
動的な配列の中にジャグ配列なのですが、なんとか先に不確定な親配列の中にある
不確定な数のジャグ配列を一時的なLong型配列に作って
そこからさらにsplitなしでなんとか作ろうとあれこれしてたら
よっぽど>>800の方法の方が処理がわかりやすくなってしまい徒労に終わりました。

諦めます。踏ん切りつきました。
803 名前：デフォルトの名無しさん mailto:sage [2022/10/04(火) 23:35:06.72 ID:o+JurUyd0.net]: >splitで作ったジャグ配列
>動的な配列の中にジャグ配列
ジャグ配列って用語の使い方が微妙に間違ってる気がするが...

そもそも文字列を分割して配列作ってるんだから文字列の配列になるのが当然で
Variant上等でやるなら、それを使う側がVariantで受ければいいだけでは？

まあ俺ならどうしても文字列をSplitしてLongにしたいなら
Longの配列返すSplitのラップ関数作るけど
804 名前：デフォルトの名無しさん [2022/10/05(水) 04:48:52.00 ID:b9GTOuH90.net]: sqliteで作ったジャグ配列。
805 名前：デフォルトの名無しさん mailto:sage [2022/10/05(水) 07:10:06.74 ID:8YZU4Hq7a.net]: >>797
それでいくとうまくいくんだけどね、
通常のPictures.Insertだとリンク貼付けなのよ。他人に送付したら見れない。

だから一旦クリップボード経由でPaste使ってやってるんだがそれだと容量がヤバくなる。
806 名前：デフォルトの名無しさん [2022/10/05(水) 08:07:32.65 ID:hw4y4dFR0.net]: そもそも何でもかんでも配列で処理しようとするのがちょっとねぇ。
例えば列に当たる要素毎に違う型を使いたいなら
ちょっと仕組みは大きくなるけどADODBのRecordsetを使うことや
1行の列データ単位の値を格納するクラスを作ってそれを行単位としてディクショナリやコレクションに追加して行くことも検討することを視野に入れると
結局後で読みやすく汎用性の高いロジックが組めたりする。

処理速度優先なら配列一択だからそのときのシュチュエーションに合わせて使い分けだね。
807 名前：デフォルトの名無しさん mailto:sage [2022/10/05(水) 08:19:21.40 ID:SsR8S72r0.net]: 構造体ではできんの？
ジャグ使う機会無いからなんとも言えんが
808 名前：デフォルトの名無しさん mailto:sage [2022/10/05(水) 10:50:57.71 ID:HrKgxVhUd.net]: すぐDBとか持ち出す奴いるけどコスト考えたらそう簡単にDBなんか使わんと思うけどね
普通に配列処理用の関数のみのモジュールでコード管理すればいいだけと思うわ
809 名前：デフォルトの名無しさん [2022/10/05(水) 13:20:52.03 ID:7KiNZ4t1d.net]: >>808
何のコスト？
810 名前：デフォルトの名無しさん mailto:sage [2022/10/05(水) 14:41:00.50 ID:bxBPBLxH0.net]: やっぱ好きなように作るのが１番ね
811 名前：デフォルトの名無しさん mailto:sage [2022/10/05(水) 15:47:13.70 ID:DsSYxIFi0.net]: ワークシートがDBみたいなもんだしね
812 名前：デフォルトの名無しさん mailto:sage [2022/10/05(水) 15:53:15.41 ID:tZ9pwx2fM.net]: 学習コスト
813 名前：デフォルトの名無しさん mailto:sage [2022/10/05(水) 21:19:11.66 ID:/BrWnOTx0.net]: コストコ
814 名前：デフォルトの名無しさん mailto:sage [2022/10/05(水) 23:35:05.88 ID:bxBPBLxH0.net]: コスパ良い
815 名前：デフォルトの名無しさん [2022/10/06(木) 16:49:22.22 ID:wENRazb+d.net]: 例えば、誕生石を取得するGetBirthStone関数を作ろうとすれば引数は「日付 as Variant」と「月 as Integer(Long)」のどちらがいいでしょうか？
816 名前：デフォルトの名無しさん mailto:sage [2022/10/06(木) 16:54:16.04 ID:lmEPcDvIM.net]: Dateではあかんのか？
817 名前：デフォルトの名無しさん mailto:sage [2022/10/06(木) 16:55:37.45 ID:1FPDwTBGM.net]: そんなもんVLOOKUPで誕生石シートを検索すれば十分
VBAを正しく使うコツはVBAを可能な限り書かないことだよ
818 名前：デフォルトの名無しさん [2022/10/06(木) 17:19:15.50 ID:wENRazb+d.net]: >>816
Date型でも大丈夫ですか？

一応、最初の部分はこう書いてみました
If Not IsDate(日付) then
GetBirthStone ＝ CVErr(xlErrValue)
Exit Function
819 名前：デフォルトの名無しさん [2022/10/06(木) 17:48:34.71 ID:KR9VbeXw0.net]: >>817
いや、むしろVBAだけの方がメンテしやすい
データとロジックは分ける方がいい
820 名前：デフォルトの名無しさん mailto:sage [2022/10/06(木) 19:10:02.45 ID:YSVEcn1gd.net]: >>815
元のデータが何によるかで違うけど「月 as Integer(Long)」でいいのではと思う
仮に元のデータが日付でもGetBirthStone(Month(日付))で済む
月を渡すようなケースがありえないなら日付を渡して関数内でMonthを使うでもいい
821 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 435f-pIDl) [[ここ壊れてます] .net]: 月だけでいい
特定の日付に依らずある月の誕生石を知りたい場合に
意味のないDate値用意しなきゃいけなくなるから可読性が落ちる

>>817
誕生石みたいに改訂されたことがニュースになるくらい固定されてる内容ならコードにベタ打ちでいいと思う
祝日みたいに毎年変動するものとか、組合せの数が多すぎる要素ならシート管理の方が扱いやすいと思うけど
822 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-pIDl) mailto:sage [[ここ壊れてます] .net]: >>815
その程度のこと自分で決められんようでは時間かかってしょうがないだろ
823 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6f8c-SQdC) mailto:sage [[ここ壊れてます] .net]: >>815
Function getBirthStone(日付 As Date)
Application.Volatile True
getBirthStone = WorksheetFunction.Choose(Month(日付), "ガーネット", "アメシスト", "アクアマリン", "ダイヤモンド", "エメラルド", "ムーンストーン、真珠", "ルビー", "ペリドット", "サファイア", "オパール、トルマリン", "トパーズ", "トルコ石、タンザナイト")
End Function

こんなかんじ？
824 名前：デフォルトの名無しさん [2022/10/06(木) 22:32:10.00 ID:wENRazb+d.net]: >>823
ありがとうございます。
825 名前：デフォルトの名無しさん mailto:sage [2022/10/06(木) 22:47:25.99 ID:HCQdlFdq0.net]: >>823
わざわざワークシート関数を呼ばなくてもVBAにもChoose関数あるよ
https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/choose-function
826 名前：デフォルトの名無しさん mailto:sage [2022/10/06(木) 23:06:53.10 ID:gOgPUvPm0.net]: ほんとだｗ　てへ
827 名前：800 mailto:sage [2022/10/09(日) 17:09:18.30 ID:Kilq6kjS0.net]: >>803
ラップ関数作る解決方法最高です。
頭固かったです。
他にも導入できそうなところが見つかり助かりました。
感謝です。
828 名前：デフォルトの名無しさん mailto:sage [2022/10/10(月) 21:48:05.32 ID:P58+Ol8v0.net]: >誕生石みたいに改訂されたことがニュースになるくらい固定されてる内容ならコードにベタ打ちでいいと思う
>>823を見ての通りこの手は表記ゆれが問題になる事が多いから
可能な限り外部データにした方がいい
829 名前：デフォルトの名無しさん mailto:sage [2022/10/11(火) 13:53:54.44 ID:uAPvvwer0.net]: インプットボックスで入力される値が数字かどうか判断するコードってどう書けばいい？
830 名前：デフォルトの名無しさん mailto:sage [2022/10/11(火) 14:15:03.61 ID:fEDU7G4fd.net]: ・符号(+-)を許すか
・ドット(小数点)を許すか
・カンマ(桁区切り)
を踏まえて文字の妥当性チェックすればいいんじゃないの
831 名前：デフォルトの名無しさん mailto:sage [2022/10/11(火) 14:17:40.55 ID:fEDU7G4fd.net]: あと自分はWorksheetFunction使うの好きじゃないけど
WorksheetFunction.IsNumber
でもいいかもね
832 名前：デフォルトの名無しさん mailto:sage [2022/10/11(火) 14:26:37.29 ID:H84z/pNR0.net]: 全角は？漢数字は？ローマ数字は？欧米式の桁区切りは？
入力検査は考え始めるとキリがない分野の一つだぜ
833 名前：デフォルトの名無しさん [2022/10/11(火) 15:13:10.17 ID:DoWcBI1l0.net]: >>829
IsNumericじゃダメなの？
834 名前：デフォルトの名無しさん mailto:sage [2022/10/11(火) 17:02:04.45 ID:uAPvvwer0.net]: >>833
さんきゅーそれだ
てかVariant型が数値かどうか調べられるんだな～
書き方解ったらvartypeとかtypenameでも行けそうな気がする
ちょい試してみよ
835 名前：デフォルトの名無しさん [2022/10/11(火) 18:13:13.59 ID:DoWcBI1l0.net]: >>834
語弊があるといけないから言っておくと、
IsNumericはあくまで数値として扱える値(数値に変換出来る値)かどうかを判定するよ。
だからString型でも”123”みたいのはTrueを返すからそこは注意してね。
836 名前：デフォルトの名無しさん mailto:sage [2022/10/11(火) 20:16:52.08 ID:hb9m45MO0.net]: 考慮点はまだあるぞ
IsNumericって
"\3"とか"3e3"とか"&habc"とかもTrueだぜ
837 名前：デフォルトの名無しさん mailto:sage [2022/10/12(水) 08:33:18.55 ID:FAaW2+wFd.net]: じゃ足し算する関数を別に作ってﾉｰｴﾗｰで戻ってきたら数値

Sub Main()
　'全角数字も数字と見なす
　If Suujikana(StrConv(InputBox("入力せぇ"), vbNarrow)) Then
　　MsgBox "数字だよ"
　Else
　　MsgBox "数字じゃないよ"
　End If
End Sub

Function Suujikana(moji As Long) As Boolean
　On Error GoTo er
　moji = moji + moji
　Suujikana = True
　Exit Function
er:
　Suujikana = False
End Function
838 名前：デフォルトの名無しさん mailto:sage [2022/10/12(水) 08:35:48.26 ID:FAaW2+wFd.net]: あ、これじゃだめかえらーでるあ
839 名前：デフォルトの名無しさん mailto:sage [2022/10/12(水) 08:38:00.09 ID:FAaW2+wFd.net]: このやろ、variantにしたら＋で文字列つくりやがって
こんのやろぉ
840 名前：デフォルトの名無しさん mailto:sage [2022/10/12(水) 08:39:59.19 ID:FAaW2+wFd.net]: これでいい？らめ？

Sub Main()
　'全角数字も数字と見なす
　If Suujikana(StrConv(InputBox("入力せぇ"), vbNarrow)) Then
　　MsgBox "数字だよ"
　Else
　　MsgBox "数字じゃないよ"
　End If
End Sub

Function Suujikana(moji As Variant) As Boolean
　On Error GoTo er
　moji = moji * moji
　Suujikana = True
　Exit Function
er:
　Suujikana = False
End Function
841 名前：デフォルトの名無しさん [2022/10/12(水) 09:33:08.65 ID:JFXNmWRt0.net]: >>836
まぁその辺は数値として受け取れるとも言えるからね。
その辺除外したいなら最初に“¥”や“e”や“&h”が含まれていたら数値ではないって分岐入れとけばいいだけじゃないの？
842 名前：デフォルトの名無しさん mailto:sage [2022/10/12(水) 09:45:17.75 ID:05zETGAlM.net]: >>840
自分も同じこと考えたけど型の制約が緩いと面倒くさそうなので思考を放棄した、よく頑張ったな
843 名前：デフォルトの名無しさん mailto:sage [2022/10/12(水) 10:05:45.44 ID:05zETGAlM.net]: そういえば昔型はあるのとないのではどっちが良いのかって記事を見たことあるな
結局型がないと論理エラーが出ないように型をちゃんと理解する必要があるって書いてた
844 名前：デフォルトの名無しさん mailto:sage [2022/10/12(水) 10:15:23.77 ID:FnwlmZOz0.net]: kgとkmは単純に足し算しても意味ないからな
845 名前：デフォルトの名無しさん mailto:sage [2022/10/13(木) 04:03:11.23 ID:j3UF+2500.net]: 別にVBA使わなくてもワークシート関数でできるじゃんって意見どう思う？
846 名前：デフォルトの名無しさん [2022/10/13(木) 04:08:37.62 ID:QthptHxba.net]: やりたいようにやれ
847 名前：デフォルトの名無しさん mailto:sage [2022/10/13(木) 05:43:31.20 ID:l6HSpiwg0.net]: >>845
内容によるけどまあワークシート関数でできるならその方がいいだろうな
848 名前：デフォルトの名無しさん [2022/10/13(木) 06:51:28.60 ID:R3JkkIAh0.net]: A1に入力されているものが消えたらB1以降の入力セルデータが右から左に自動で繰り上がってくるようにしたいのですがこれで大丈夫ですか？

これをA20くらいまで適用したいんですけど教えて貰えませんか...？

Private Sub Worksheet_Change(ByVal
Target As Range)
If Target.Address = Range("A1").Address
And IsEmpty(Target) Then
Application.EnableEvents = False
lastrow = Cells (Rows.Count,
"A").End(xIUp).Row
Range("B1:F1"&lastrow).Copy
Range("A1").PasteSpecial xIPasteValues
Range ("A"&lastrow).ClearContents
Application.EnableEvents = True
End If
End Sub
849 名前：デフォルトの名無しさん mailto:sage [2022/10/13(木) 11:53:03.67 ID:Ue05WQwm0.net]: キーボード操作でマクロ作って呼べばいいんじゃね
850 名前：デフォルトの名無しさん mailto:sage [2022/10/13(木) 13:03:11.83 ID:8suwpN2kr.net]: "B1:F"&lastrow
下から4行目は何の処理かな
g列以降にデータがないなら、a列削除でもいけそう
851 名前：デフォルトの名無しさん mailto:sage [2022/10/13(木) 13:57:54.49 ID:UFLyO0SD0.net]: xIUp >> xlUp >> xlLeft
xIPaste >> xlPaste

excel だから　xl だよ
本から手入力したのかな
852 名前：デフォルトの名無しさん mailto:sage [2022/10/13(木) 15:04:44.40 ID:xeSsgHCJ0.net]: 文字列にしてTrimして
右から一文字づつAscでコード調べて数字判別してる
853 名前：デフォルトの名無しさん [2022/10/15(土) 01:10:39.87 ID:zmWNo0nm0.net]: そういや何気にVBAの中でCallByName使うとJavaScript 使えるらしいね。
使ったことないけど。
854 名前：デフォルトの名無しさん mailto:sage [2022/10/15(土) 01:25:23.69 ID:eU4yePu40.net]: >>853
どういうこと？　どうやるの？
855 名前：デフォルトの名無しさん mailto:sage [2022/10/15(土) 07:21:27.16 ID:tw/asOzR0.net]: >>853
文字列で言語書いて実行するのってどうも好きじゃないな
そもそも有効な場面ってあるんだろうか
bougyuusonnin.seesaa.net/article/191171013.html

>>854
調べなよ・・・
856 名前：デフォルトの名無しさん [2022/10/15(土) 09:05:24.46 ID:zmWNo0nm0.net]: >>855
さあ？
メソッドチェーンが使えるくらい？
まぁ無理して使うもんでもないような。
現にJavascript知っててもVBAに混ぜて
使うような状況なんてなったことないし、
大体記述がめんどいし。
857 名前：デフォルトの名無しさん mailto:sage [2022/10/15(土) 09:07:30.39 ID:tw/asOzR0.net]: >>856
ありがとう
やっぱりほとんど無いよね。
858 名前：デフォルトの名無しさん mailto:sage [2022/10/16(日) 03:31:09.39 ID:IoSf1xr/0.net]: メリットはネイティブの手段でJSONがパースできるようになる事なんだけどVBAで必要になることはほとんどないか
ちなみに似たような方法でHtmlFileからIEのjavascriptを呼ぶ方法もある
859 名前：デフォルトの名無しさん mailto:sage [2022/10/16(日) 05:54:19.77 ID:zEVEZIxw0.net]: ネイティブ？
860 名前：デフォルトの名無しさん mailto:sage [2022/10/16(日) 06:00:43.85 ID:q8mBJvHk0.net]: 予め言語側で用意されてるってことじゃない
861 名前：デフォルトの名無しさん [2022/10/16(日) 06:58:42.73 ID:4eBUdjNxM.net]: 正規表現をRegExpオブジェクトで利用することはネイティブですか？
862 名前：デフォルトの名無しさん [2022/10/16(日) 08:27:49.05 ID:6FfxZTeW0.net]: 正規表現をRegExpオブジェクトで利用したらハゲますよ
863 名前：デフォルトの名無しさん mailto:sage [2022/10/16(日) 23:46:46.75 ID:n3hO69PQ0.net]: 性器のことしか考えてないから禿げるんじゃね
864 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 02:28:59.55 ID:Foj5GBltM.net]: 正規表現はexcelapiを使うのが楽
865 名前：デフォルトの名無しさん [2022/10/17(月) 17:47:22.14 ID:LwSzkOCXr.net]: すみません、質問させてください
range内の空白セルを除いた部分を一気に配列に入れる方法ってありますか？
例えばA1、B2、A3、B3に1が入っていて、Range(Cells(1,1) ,Cells(2,2))を選んでいる状態で配列ArrにArr(1,1)＝1、Arr(1,2)＝1のみを入れる。ということです
「Range(Cells(1,1) ,Cells(2,2))を選んでいる状態」というのはFunctionで関数を作ったときにこの範囲を選んでいるという意味です
CurrentRegionを使ってもA2、B2の空白まで配列に入ってきてしまって困ってます
866 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 17:53:55.90 ID:c98RAUt6M.net]: selectionでforeach回せばできる気がするけどな
867 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 18:05:29.40 ID:PbBQX3S8M.net]: 一気にやるなら判定文をスピルで一気に適用するか
868 名前：デフォルトの名無しさん [2022/10/17(月) 18:22:32.67 ID:KXCnFpZrr.net]: すみません、先程の質問の意図はvba 100本ノックの以下の問題を解いていましたhttps://excel-ubara.com/vba100/VBA100_062.html
最初に範囲内を配列にすべて入れてdictionaryで出す方法を考えたんですけど、範囲のところがA1:C5とかならいいのですが、A:Cだと、すべての行まで配列に入ってしまって、それの行すべて処理するようになってしまったので、数字が範囲内の最終行までを配列に入れることができれば処理速度も変わるので、そういう方法があればという質問でした
869 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 18:56:02.19 ID:eqEJLsQnM.net]: 答えも解説も書いてあるんだからそれ見ろよ
870 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 20:25:02.38 ID:sP2+Ci5U0.net]: >>864
へーそんなのあるのか
871 名前：デフォルトの名無しさん [2022/10/17(月) 21:15:18.56 ID:8otnrSal0.net]: 作成依頼です。

G列に空白セルがあった場合、その空白セルの隣のセルに入力されている値をクリアにする。

というコードを作成いただけないでしょうか。

よろしくお願いします。
872 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 22:12:03.14 ID:ISXu5HOG0.net]: いやです
873 名前：デフォルトの名無しさん [2022/10/17(月) 22:18:07.47 ID:+NOpXqIT0.net]: 待て、これは孔明の罠だ
874 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 22:23:49.67 ID:AIOop8Dz0.net]: F、G、H列を無条件で消せばいいのね
875 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 22:24:49.52 ID:tLF3dHHy0.net]: 隣とはどっちだ
あまりにも指示が不明瞭でバカが書いたとしか思えない文章
スルーで決定
876 名前：デフォルトの名無しさん [2022/10/17(月) 22:28:51.88 ID:dYe0p6CB0.net]: >>871
マジレスするとここは質問スレであり
作成要請スレではありません。

作る方法等を聞けば教えてくれる人もいるかも知れませんが、作ってくれと丸投げにした場合、
その見返りを要求されるか一蹴されるかして終わるのが関の山です。

自分でそう言った趣旨のスレを探すか立てるかした方が賢明と思われます。
877 名前：デフォルトの名無しさん mailto:sage [2022/10/17(月) 22:46:52.95 ID:/WpPTN/JH.net]: >>871
welcome to https://mevius.5ch.net/test/read.cgi/tech/1434079972/
878 名前：デフォルトの名無しさん [2022/10/17(月) 23:47:38.34 ID:yX88xE7Ya.net]: >>874
消す方だったか、"クリア"って書くのかと思ったぜ
879 名前：デフォルトの名無しさん [2022/10/17(月) 23:49:43.92 ID:+NOpXqIT0.net]: >>878
甘い
空(そら)と白(しろ)で合わせて空白まで読み取らないと
880 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 05:15:15.98 ID:s0SrGZFEa.net]: 4000件くらいのデータのExcelファイルから
A. 特定の数十件の社員データを除いたデータファイル
B. Aで除いた数十件の社員のデータのみのファイル
を作成しなければなりません

元のファイルを2つFileCopyして
・Aから対象社員のデータをUINONメソッドでRangeに格納して一括削除
・Bから非対象社員のデータをUINONメソッドでRangeに格納して一括削除

もしくは

・Aから対象社員データをAutoFillterしてBに貼り付け
→Aから対象社員データ削除

を考えてますがどちらが速いでしょう
元の書式を活かしたExcelファイルが必要なので
CSV出力やExcelファイルにデータのみ転記することはできません
881 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 05:41:41.52 ID:o16XpPR+M.net]: 何度も繰り返し行なう作業とか面倒な作業ならVBA使うメリットもあるけど、その程度ならシートコピーとフィルターでさっさと手作業で済ませた方が手っ取り早いのでは？
882 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 07:10:04.49 ID:v8qBslO70.net]: >>880
画面の書き換えだけ止めとけば、たぶん、どの方法でも大差ないと思うよ
Unionは重いから、削除は一括じゃない方がいいかも
気になるならベンチマークとってみれば？
883 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 07:14:36.77 ID:NY9qjYA4d.net]: >>876
＞コード書き込みや作成依頼もOK
1をよくみような
884 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 08:05:51.17 ID:YCyRiw4bM.net]: 個人的にはコード作ってとか書かれてたら困ってるんす金くださいと言われてるくらい嫌なので余計に作らないわ～
書くのは勝手だけど
885 名前：デフォルトの名無しさん [2022/10/18(火) 08:46:11.19 ID:q+c/s7kpM.net]: 誰もお前には頼んでないのに、俺は作らない宣言しちゃう人って自意識過剰すぎません？
886 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2bcd-7iBv) mailto:sage [[ここ壊れてます] .net]: >>871
1:30で書けたけど・・・
これぐらい書くのにみんなどれぐらい時間かかるもんなの？

Sub foo()
最終行 = Cells(Rows.Count, 7).End(xlUp).Row
For i = 1 To 最終行
If Cells(i, 7) = "" Then
Cells(i, 6) = ""
Cells(i, 8) = ""
End If
Next
End Sub
887 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 09:45:31.08 ID:345TXlIrM.net]: >>880
回答待つより実際に作って比較した方が早くない？
888 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 10:14:58.17 ID:UuGhYYcHd.net]: >>887
いい回答だと思う
自分でやればわかることを他人に聞くのってほんとバカなのかなと思う
889 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 10:42:22.37 ID:fjjhfMGv0.net]: >>871
Ruby で作ってみた。
未入力の列はnil となるので、a, c も未入力となる

require 'csv'

input_text = <<TEXT
,a
b,b
,c
TEXT

output_text = String.new

CSV.filter( input_text, output_text ) { |row|
row[ 1 ] = nil unless row[ 0 ] # nil の時
}

print output_text

出力
,
b,b
,
890 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 11:09:36.18 ID:NJQ5BOf00.net]: >>885
で、誰もお前に意見聞きたいとか頼んでないのにどうしてそんな自意識過剰な反応してんの？
891 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 13:16:40.55 ID:O7d9QRYR0.net]: >>889
見づら！
なにこのクソ言語
892 名前：デフォルトの名無しさん [2022/10/18(火) 14:44:23.15 ID:5fCnmsLA0.net]: >>886
2～3分だな90分もかからんよ
893 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 19:46:45.52 ID:LJ6jaE7r0.net]: ちょうど今日別々のシートの範囲Unionして二次元配列にしようと思ったらエラーだったな
同一シートじゃないと無理らしいね
二次元配列同士を結合したからまあいいけど
894 名前：デフォルトの名無しさん mailto:sage [2022/10/18(火) 21:13:25.02 ID:bD7mk4M6d.net]: >>886
Nextのズレが気になって気になって今日は眠れないわ
895 名前：デフォルトの名無しさん [2022/10/18(火) 23:15:32.25 ID:fRTdwDaSa.net]: 変数に漢字w = 0
896 名前：デフォルトの名無しさん mailto:sage [2022/10/19(水) 15:06:47.27 ID:XsVwav6s0.net]: マウスで範囲指定した複数のセルから値を受け取ったり書き込んだりする方法はありますですか？

"A1:C3"　と指定した状態でそこに有る数値をVba側で受け取って一つ一つ何かをしたあと、
また今の指定した範囲のセルに書き込むとかです。

一つのセルであれば、ActiveCell.Value　とすればいいですよね。
897 名前：デフォルトの名無しさん [2022/10/19(水) 15:45:02.14 ID:RzDK/9cQa.net]: 日本語が不自由な人多いな
898 名前：デフォルトの名無しさん mailto:sage [2022/10/19(水) 16:40:42.06 ID:kjFQ3fMO0.net]: >>896
Application.Selection.Valueで出し入れできる
基本的に2次元配列を操作することになるが、
単一のセルだと配列にならないとか
複数の領域が選択されていたときにどうするかとか
細かいところを考えることになる
899 名前：906 mailto:sage [2022/10/19(水) 20:54:47.64 ID:wavRu5Wg0.net]: >>898
大変重要なキーワードを提示いただきありがとうございます。

とりあえずの目的は達成できました。

また、これで詳しい内容をググりに行けますです。
900 名前：906 mailto:sage [2022/10/19(水) 22:12:45.50 ID:wavRu5Wg0.net]: ここに書いてありました
ttps://detail-infomation.com/vba-selection/
901 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛﾗ Sp0f-HPGf) [2022/10/20(木) 01:06:22.80 ID:Rvw6iN3vp.net]: >>886
>>889
ありがとうございます。
902 名前：デフォルトの名無しさん mailto:sage [2022/10/20(木) 06:04:53.46 ID:I98JYgIT0.net]: 外出先でもスマホからマクロ実行したいからGASでプログラムやろうかと思ってる
903 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f42-M5DG) mailto:sage [2022/10/20(木) 07:03:58.77 ID:D7MvRF2u0.net]: 勝手にやればええやん
904 名前：デフォルトの名無しさん mailto:sage [2022/10/20(木) 09:47:53.53 ID:gU8aHBR/M.net]: GASいいよね
Googleスプレッドシートは単一のブックを皆で共有してつつき回すのが前提だから、
Excel VBAでよくあるようにデータとマクロ用ブックを分けて部署別の複数のデータファイルをVBAでまとめて集計するみたいなことをする必要性が低くて、
そもそもGASを書かなくて済むケースが多かったりする
外部APIとのデータ連携が必要なときくらいだな
905 名前：デフォルトの名無しさん mailto:sage [2022/10/20(木) 10:11:29.65 ID:od/5Btdhd.net]: ここで広げる話じゃねぇ
906 名前：デフォルトの名無しさん mailto:sage [2022/10/20(木) 11:53:08.75 ID:jbEEQ7MN0.net]: GASってスマホからも動かせるの？
907 名前：デフォルトの名無しさん mailto:sage [2022/10/20(木) 12:40:27.98 ID:gU8aHBR/M.net]: もちろん
908 名前：デフォルトの名無しさん [2022/10/20(木) 17:44:35.99 ID:zIYHKHDh0.net]: >>904
それってWeb版EXCELと何が違うの？
909 名前：デフォルトの名無しさん mailto:sage [2022/10/20(木) 17:58:16.85 ID:wfln4dMhM.net]: もちろん違わないよ
全く同じことがWeb版Excelにも言える
まあExcelにしちゃうとせっかく共有してても結局ローカルコピーを作るバカが必ず出てきて邪魔になりがちだから、間違った使い方をするのが難しいという点では好ましいかもね
910 名前：デフォルトの名無しさん mailto:sage [2022/10/20(木) 18:01:51.16 ID:rx8Gs0n5M.net]: それはWEB版を使いにくいと思ってる人が居るってことでは？
911 名前：デフォルトの名無しさん mailto:sage [2022/10/20(木) 23:20:50.15 ID:I98JYgIT0.net]: 試しにAndroidスマホからボタン（図形）をクリックしたけどgasを実行できなかったよ
なんか色々と制約があるみたいだし、JAVAやC#でスマホアプリ作ったほうがいいな
912 名前：デフォルトの名無しさん [2022/10/21(金) 00:43:10.35 ID:HmQfBwoT0.net]: どんどんスレの趣旨からはなれtrくなー
そもそもスマホアプリ作るならAndroidでC#使うならXamarin使うことが前提になるしiPhoneならSwiftかObjectiveCだろ

WindowsPhoneならxamlとC#かVB.Netで作ること出来たけど死滅しちゃったからなー
Javaは実行時に中間コード翻訳が挟まるから重いし
やっぱりスマホはiPhoneをSwiftで開発するのが最強だろうな
AppleのMacで開発することが前提になるからちょいお金が必要になるけど。

ExcelのVBAやってる人はMac買うんなら別途Windows も必要だな
MacのEXCELはVBAまともに動くことを期待しない方がいいから。
913 名前：デフォルトの名無しさん [2022/10/21(金) 01:50:58.42 ID:6vVdUlmSd.net]: >>912
突っ込み所が多過ぎ
914 名前：デフォルトの名無しさん [2022/10/21(金) 08:00:32.41 ID:K0Nv/hCp0.net]: >>912
突っ込み所がほんと多過ぎ
915 名前：デフォルトの名無しさん [2022/10/21(金) 17:19:06.50 ID:qYJSQXItd.net]: 質問ですが、
シートに動的に追加したボタンに対して、共通のクリックイベントを追加したいのですがやり方がわかりません。
教えてほしいです。

activesheet.buttons.addで追加したボタンに対して、
クラスモジュールで作成したクリックイベントを結びつけたいです。
916 名前：デフォルトの名無しさん [2022/10/21(金) 17:20:50.78 ID:qYJSQXItd.net]: 動的にボタン作成しながらそのボタンに対して共通のクリックイベントを結びつける方法です
917 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9fd8-NYmr) mailto:sage [2022/10/21(金) 18:49:07.97 ID:7JSr5kXR0.net]: >>916
.OnAction プロパティにプロシージャ名を設定
918 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7b2f-KWxC) mailto:sage [2022/10/21(金) 19:01:18.29 ID:DZ21JFev0.net]: 基本的にはボタンのOnActionにマクロ（Subのメソッド）名を設定すればいいんだが
クラスモジュールのメソッドとか直接指定できないんじゃないかな
間に標準モジュールかますとかすれば行けると思うが
919 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdbf-h7FX) mailto:sage [2022/10/21(金) 19:01:59.59 ID:2/IIqD8Nd.net]: マクロの記録でもやればおおよそやりたい事のひな型のコードはできると思うんだよね
そういうやり方で解決できない人ってなんだろと思う
ActiveSheet.Buttons.Add(168, 108, 186.75, 66.75).Select
Selection.OnAction = "Macro1"
マクロで作ったこれを参考にすればいいんじゃないのと思うが
Addで作ったものをObject型の変数で受け取ってその変数のOnActionに代入するだけでしょ
それにググればこの程度はいくらでもでてくるんだけどね
920 名前：デフォルトの名無しさん [2022/10/21(金) 23:26:00.91 ID:HmQfBwoT0.net]: >>918
確かに。
何でクラスモジュールのメソッドに紐付けようとするか謎だよな。
そもそもそれにはインスタンスが生成されていなければならない訳だし
VBAのクラスはそこまで万能では無いからシングルトンパターンでよく使われるみたいに自分で自分を生成することも出来ない。

そうすると前もって生成したインスタンスのメソッドに紐付けるしかない訳だけどそんなことVBAのクラスで本当に出来るのか？と思ってしまうわな。
921 名前：デフォルトの名無しさん [2022/10/22(土) 09:44:18.85 ID:+w0aEr6Jd.net]: クラスのモジュールではなくてもいいんですけど、何かしらの共通メソッドを呼び出せるようにしたいです。

動的に作った編集ボタンが100個くらいあって、編集するフォームを呼びだす共通メソッドに紐付けたいです。
922 名前：デフォルトの名無しさん mailto:sage [2022/10/22(土) 10:00:21.77 ID:tvj8JbCcF.net]: 初心者向けサイトに出てくるWithEventのやつじゃないの
クリックならいけるけどEnterとか一部はだめだから使わなかった
923 名前：デフォルトの名無しさん [2022/10/22(土) 10:24:34.97 ID:ivMt1YnGp.net]: >>921
それは同じ関数呼んで引数で関数内で何とかするんじゃダメなの？
924 名前：デフォルトの名無しさん mailto:sage [2022/10/22(土) 10:41:03.80 ID:ANF77yYL0.net]: この辺？
https://thom.hateblo.jp/entry/2016/10/13/005105

Newしたcommandbuttonにaddeventhundlerみたいなことって出来ないのかな
925 名前：デフォルトの名無しさん mailto:sage [2022/10/22(土) 10:49:28.11 ID:tqPxko+s0.net]: だから何人も.OnActionだって言ってるのにアホなん？
926 名前：デフォルトの名無しさん mailto:sage [2022/10/22(土) 11:20:03.36 ID:c1Knyq/s0.net]: 目的や使用場面が不明だけど、それは1Sheet上にボタン100ヶ必要なものなのか？
そのボタンは、どう配列・配置されるものなのか　マス目に10×10とかなのか、タテとかヨコにぞろぞろ100ヶなのか
何らかのデータの塊の傍にボタンを動的に配置し、それを押すことでひな型の編集フォームを呼び出すというのか
>>924 とか上に書かれてきたサンプルを参考にして苦心して作れたとしても、結果として「それ違くね？」には成らないのか
設計の妥当性が問われる
「動的に編集ボタンをつくる」ための何らかのイベントが在るわけだし、だったらそれに結びつけた方が無駄が少ない　とも
927 名前：デフォルトの名無しさん [2022/10/22(土) 15:30:44.10 ID:UYHwlHOK0.net]: >>926
確かにねー
でもリストの行の横っちょにボタン付いてて
そのボタン押すとその行のデータ読んできて処理するとか
ExcelのVBAじゃなくてもよくあることだし
そう考えると100どころか1000くらいくっついてても
それがユーザーにとって使いにくいとは言い切れない
ケースもあるから何とも言えないね
928 名前：デフォルトの名無しさん mailto:sage [2022/10/22(土) 16:00:19.50 ID:Md3R6uzp0.net]: ポタン100個つけるならフォームは考えないでワークシートでselectionchangeでいいと思う
929 名前：デフォルトの名無しさん mailto:sage [2022/10/22(土) 16:21:19.65 ID:ANF77yYL0.net]: onclickでセルによって判別でもいいかもね
930 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMe6-QNr5) mailto:sage [2022/10/22(土) 17:25:01.86 ID:R6+v0VTJM.net]: >>929
あ、そっちのほうがいいね
931 名前：デフォルトの名無しさん mailto:sage [2022/10/22(土) 18:08:51.98 ID:8rFwb/oz0.net]: ボタンって最大何個ぐらい貼り付けできるんだろ？
メモリがあれば10万個とか貼れんのかな
932 名前：デフォルトの名無しさん [2022/10/22(土) 18:14:52.06 ID:CPpJyo/d0.net]: >>928
>>929
確かにボタンにこだわる必要はないですね
セルクリック時にフォーム呼び出したらいいですね
933 名前：デフォルトの名無しさん mailto:sage [2022/10/22(土) 22:30:23.86 ID:GMPaa0s5d.net]: と言う事で無事解決しましたね
934 名前：デフォルトの名無しさん mailto:sage [2022/10/23(日) 11:33:27.17 ID:le1S+yxh0.net]: Excelのイベントに onclick とか無いけどな
OnDoubleClick ならあるけど　余計な位置でクリック・ダブルクリックした時に
そのたんびに編集フォーム出るのを対策必要かな
違うイベントに関連付けた方がいいのかな
935 名前：デフォルトの名無しさん mailto:sage [2022/10/23(日) 16:22:22.37 ID:BP6ngYdb0.net]: まあワイだったら単純にするために、
セル(か行)を選ばせて、
ボタンではその値を参照してフォームに渡させるって感じで作るけどな
シートにオブジェクト何個も置くのはワイ的に無し
936 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-ze3V) [2022/10/23(日) 18:53:55.43 ID:WPTFsqfB0.net]: 初心者は100ぐらい根性で書けばいいのだ
937 名前：デフォルトの名無しさん [2022/10/23(日) 20:53:35.93 ID:+izIRcqGM.net]: >>936
そのあと「これは効率が悪い」と気付いて修正するならいいけど、それしか考えられず500,1000と増やし続けているおじさんがウチの会社にいます。
938 名前：デフォルトの名無しさん [2022/10/23(日) 23:34:27.69 ID:3vnbJWYw0.net]: >>935
セルを選択させてボタンを押してその行の値をユーザーフォームに引き渡すの？
939 名前：デフォルトの名無しさん mailto:sage [2022/10/24(月) 03:27:38.59 ID:lrg5VPVy0.net]: (；・∀・)1000個やった。。プログラマはすげぇやって思ったけど効率いいやり方あるんか。
940 名前：デフォルトの名無しさん mailto:sage [2022/10/24(月) 06:08:08.92 ID:6AUN+j8g0.net]: 似たような処理ならforでもdoでもいいから1000回ループさせればいいわいな
941 名前：デフォルトの名無しさん [2022/10/24(月) 11:49:03.56 ID:iXy6XZlxa.net]: 動いているなら問題ないと思うよ
942 名前：デフォルトの名無しさん mailto:sage [2022/10/24(月) 20:02:23.15 ID:lrg5VPVy0.net]: 時間できたら改修してみるわ
943 名前：デフォルトの名無しさん [2022/10/25(火) 13:18:15.56 ID:dMEmx1y0a.net]: 問題なく動いているのを変に直してバグ入れる人よくいる
944 名前：デフォルトの名無しさん mailto:sage [2022/10/25(火) 14:05:40.72 ID:Awxzqqqu0.net]: ん？
俺の悪口やめろよ
945 名前：デフォルトの名無しさん [2022/10/25(火) 15:35:28.46 ID:zuyTceYk0.net]: wordVBAについて質問したいのですがここでも良いですか？
win10
2019版ですが、ページ番号5のページ全体を選択状態にしたいのですが、ググって見つかったrectangles(1)の手法は2019ではうまくいきません。
解説サイトがExcel VBAに比べてとても少ないので困っています。
ご存知のかたいませんでしょうか？
946 名前：デフォルトの名無しさん [2022/10/25(火) 15:37:35.82 ID:rYg1mhKw0.net]: >>945
死ねよ
947 名前：デフォルトの名無しさん mailto:sage [2022/10/25(火) 15:39:53.50 ID:PC01Ck0J0.net]: いや、あんたじゃないよ、おれの悪口だよ
948 名前：955 [2022/10/25(火) 15:48:40.06 ID:zuyTceYk0.net]: https://www.wordvbalab.com/code/3737/
ここで解決しました。

ルール違反だったようですみませんでした。
949 名前：デフォルトの名無しさん mailto:sage [2022/10/25(火) 17:07:14.74 ID:KrF65cxW0.net]: >>948
956が頭おかしいだけだから気にすんな
950 名前：デフォルトの名無しさん mailto:sage [2022/10/26(水) 01:53:51.72 ID:cEMR/QGK0.net]: 今は死ねとか言っちゃいけないんだぞ！
951 名前：デフォルトの名無しさん [2022/10/26(水) 11:34:25.48 ID:gGo/2Fws0.net]: VBAのスレはこの今に存在するし、Excelって書いてあるのに無視して質問してる
更にはあまりにくだらないないようであるし
この手の連中はつけ上がるからな
952 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8201-yYWu) mailto:sage [2022/10/26(水) 14:36:09.42 ID:xzd5i3vP0.net]: なら誘導してやればいいだけだろ

VBAなんでも質問スレ Part3
https://mevius.5ch.net/test/read.cgi/tech/1631184381/
953 名前：デフォルトの名無しさん mailto:sage [2022/10/26(水) 19:48:54.22 ID:EO+J62QK0.net]: バカは死ななきゃ治らないそうですよ
954 名前：デフォルトの名無しさん mailto:sage [2022/10/26(水) 21:41:45.13 ID:Zi5ur2ypM.net]: >>953
それは残念でしたね
955 名前：デフォルトの名無しさん mailto:sage [2022/10/26(水) 22:17:58.40 ID:izoyFRHN0.net]: >>953
あっ・・・
956 名前：デフォルトの名無しさん [2022/10/28(金) 13:09:52.87 ID:KYP1+/DId.net]: Excel初心者です。
カレンダーから日付入力のアドインをチェックボックスを使って表示・非表示したいのですが可能ですか？
また、スクロールしても画面内の同じ位置に表示し続けることは可能ですか？
できればコードを教えてほしいです(*_ _)
957 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 16:04:55.62 ID:OMbpfHro0.net]: おまいら親切すぎるんだわ
どんだけお人好しなんだ？
958 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 16:17:16.47 ID:n9kqTWYK0.net]: >>957
って思うじゃん？
ここで回答すると、違っていた時やもっといい方法があるときに上乗せして回答される
すっげーいい勉強になるんだぜ
959 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 18:37:43.76 ID:OMbpfHro0.net]: 単にマウント取られてるんじゃなくて？
960 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 19:20:57.49 ID:YuCy5lGNM.net]: マウント取られるならむしろ勉強になるだろ
961 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 19:39:15.46 ID:sCscEEFEd.net]: 優劣つけたがる奴多いけど
技術的な解決方法の話（こういう方法もあるぞ）だったらマウントいうのはおかしくないか？
962 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 19:49:26.94 ID:xzhsh84s0.net]: 質問に対しての回答例ならマウントという表現はおかしいと思うが
その後の雑談は確かにマウントの取り合いに見える
963 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 20:29:32.46 ID:TnsRe9wR0.net]: 僕が一番VBAをうまく使えるんだって言いたくなるのはわからなくはない
964 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 20:42:13.46 ID:xzhsh84s0.net]: 二位じゃ駄目なんですか
965 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 21:17:01.84 ID:n9kqTWYK0.net]: >>959
頼むからマウント取ってください！
とにかく俺の上のスキルを見せて欲しい。なんでもしますから！

>>961
実際、確実に上って人はいくらでもいるよ
966 名前：デフォルトの名無しさん mailto:sage [2022/10/28(金) 21:23:26.29 ID:ZY9+XqOP0.net]: お前がぐちゃぐちゃ入ってないで解答教えてやれや
971がやきもきしてるぞ
967 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 00:12:28.15 ID:LP1UZCi+0.net]: >>956
カレンダーアドインは使ったことないんでわからん
カレンダー程度なら自作できるので融通の利かないアドインは好かんのです
968 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 02:12:02.06 ID:Q43C9b/9M.net]: 汎用性のある日付入力カレンダーの自作は結構大変だろ
休日祝日の更新処理が面倒で自作はあきらめた
969 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 07:19:37.14 ID:EvNBvM9mM.net]: >>968
最近使ってるが祝日はこれ使うと楽だぞ
https://excelapi.org/docs/datetime/holiday-list/
970 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 07:56:20.37 ID:y8vo38aP0.net]: >>968
> 休日祝日の更新処理が面倒で自作はあきらめた
それ汎用性のある日付入力カレンダーでやることじゃないだろ...
971 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 09:53:33.94 ID:WkAX7jzB0.net]: 日数算出するの面倒いよな
うちの会社は祝日が全部休みじゃないし
972 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 10:12:47.32 ID:S8npcbCXM.net]: 結局、日付入力はカレンダー形式やめてテキストボックスとスピンボタンで適当に誤魔化した
973 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 11:10:55.70 ID:zPpzpsf30.net]: >>956
アドインでは無くてユーザーフォーム作ってそこにボタン配置してシート上のセル操作ならやったことある
[BttnF] という名のユーザーフォームを呼び出すのに、A1セルにボタン [cmdBttnF] を配置(ウィンドウ枠の固定でA1はずっと表示してるから)

Private Sub cmdBttnF_click()
With BttnF
.StartUpPosition = 0
.Top = 100
.Left = 800
.Show vbModeless
End With
End Sub
これだけで、画面スクロールしてもシート上の同じ位置に居続けるし、もちろんフォーム掴んで動かし回してもいい　×で閉じることもできる
うっかり閉じても、又A1セルにあるボタン押せば表示できるし
974 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 11:19:55.02 ID:LP1UZCi+0.net]: >>956
少しだけ補足すると、質問の文章がきちんと書かれていないので回答しにくい部分があって
EXCELのバージョンとカレンダーアドインについての情報がないので私の環境での説明では質問者のものと異なるかもしれない
アドインの表示/非表示はVisibleとかの表示関係のプロパティーは調べないのか
スクロール範囲は「ウインドウ枠の固定」かユーザーフォームとかが考えられるんじゃね
975 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 14:34:50.58 ID:zPpzpsf30.net]: >>956　「カレンダーから日付入力」のアドインは個人用アドインに取り込まれて
毎回それをダイアログから追加するか貼り付けたまま使い続けるかの使用方法しかない様子
マクロの記録で一連の操作をしても望む動きしないし、ユーザーフォームに貼り付けるとか
コピペとかいろいろ試したけど、どれもできず断念
作者に交渉して「こういう使用方法したい」と改善依頼するしかないような　誰か他の案プリーズ
976 名前：デフォルトの名無しさん [2022/10/29(土) 17:02:02.57 ID:pObfyH4Kr.net]: 初心者あるあるの後だし条件
977 名前：デフォルトの名無しさん [2022/10/29(土) 18:34:46.28 ID:XVu26ZuG0.net]: 質問です。
VBAの処理の途中経過をログのようにコマンドプロンプトに表示させたいのですが、
どうすればよろしいでしょうか？
高速だと尚嬉しいです。
978 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 19:12:37.96 ID:LP1UZCi+0.net]: >>977
表示だけならユーザーフォームにテキストボックス貼り付けるだけでいいんじゃね
979 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 69cd-Tk+f) mailto:sage [2022/10/29(土) 22:00:56.05 ID:Ty5cM9IY0.net]: >>977
debug.printでイミディエイトウィンドウじゃだめなの？
フロートさせることもできるからわざわざコマンドプロンプトに投げなくてもいいと思う
https://i.imgur.com/yslLf52.png
980 名前：デフォルトの名無しさん [2022/10/29(土) 22:52:21.52 ID:XVu26ZuG0.net]: ありがとうございます。
フォームか、イミディエイトウィンドウを独立に出すのですね。
VBAを別のシステムから呼び出すのですが、エクセルをアクティブにしていなくても前面に出てきますでしょうか？
981 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 23:18:52.58 ID:PRTnNeqn0.net]: 別の、、システム？
982 名前：デフォルトの名無しさん [2022/10/29(土) 23:36:52.05 ID:pTxh4CzU0.net]: Pythonとかじゃね
983 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 23:38:18.77 ID:epZm7Ut5M.net]: Excelを他のシステムから呼び出すならVBAではなくてOfficeアドイン(COMアドイン)
984 名前：デフォルトの名無しさん mailto:sage [2022/10/29(土) 23:45:53.72 ID:VMSbDQpEd.net]: そこまでの事するわりにここで質問するとかｗ
985 名前：デフォルトの名無しさん mailto:sage [2022/10/30(日) 01:27:01.53 ID:PMPwr2WR0.net]: すみませんいろいろとあるのですが、とりあえずイミディエイトウィンドウで試してみます
986 名前：デフォルトの名無しさん mailto:sage [2022/10/30(日) 03:01:55.11 ID:fzG7wj8e0.net]: よく分からんけど、VBSなら呼び出しも黒窓も両方できるぞ。
987 名前：デフォルトの名無しさん mailto:sage [2022/10/30(日) 08:52:03.88 ID:OaWd/xmf0.net]: >>986
コマンドラインプロンプトからvbs経由でエクセルのマクロ叩くのはいいけど、そのマクロからDebug.Print的なのを画面に書き出すのはどうやるの？マクロからテキストファイル開いてログを書き出す方法ならわかるけど
988 名前：デフォルトの名無しさん mailto:sage [2022/10/30(日) 10:19:47.96 ID:5A/AyQcT0.net]: ドラマや映画の中でよくある、でっかいマルチモニター複数枚に
犯人画像や防犯カメラ映像、それに並べてプロファイリングや位置情報やらの隅っこで
黒窓の中に意味不明な文字列がズラズラ流れてるような　そんなのを作りたいんだと思う　おれはつくりたい
989 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1901-Uvty) mailto:sage [2022/10/30(日) 10:52:42.98 ID:PMPwr2WR0.net]: >>988
イメージとしてはそうです。
ありがとうございます。
黒窓だとログっぽさが出て使う人がわかりやすいかなぁと思っていた次第です。
Microsoft同士なのに単純には出来ないんですね
990 名前：デフォルトの名無しさん mailto:sage [2022/10/30(日) 11:37:34.89 ID:LcJSLwmnd.net]: ログっぽさとかｗ
VBAだけでやろうとせずにPowershellでも使ってファイルに出力したログをずっと表示するような仕組みでいいんじゃないの
画面に流しても見逃したらログのいみなくね？
991 名前：1001 [Over 1000 Thread.net]: このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 105日 4時間 30分 0秒
992 名前：デフォルトの名無しさん [2023/07/25(火) 15:40:42.48 ID:9LIYNDaoI]: 要するに少子化対策ってのは本来て゛あれば孑なんか産んた゛ら遺棄罪で逮捕懲役にされるへ゛き貧乏人に孑を産ませようという遺棄の幇助だろ
男は６○代て゛も妊孕能あるが女はЗ○才で妊娠困難．ひと昔前なら女学校時代に孑を産んた゛り．許嫁がいたり，行き遅れとか言われたりと
女性の特性に合致した社会風土によって多くの子が作られていたわけた゛が．そんな大事な時期を資本家階級の家畜にする目的て゛，洗腦して
奇妙な社会的圧迫を加えて子を産めなくしてるのか゛最大原因た゛ろうに更に子供手当だのと憲法の下の平等すら無視した社會的歪みを加えて
余裕か゛あるから孑を作るという真っ当な家庭の孑が10萬のiPhone(笑)とか持ってて，私は買ってもらえないから始まって．公明党齋藤鉄夫
国土破壊省によるクソ航空騷音に勉強妨害されて精神的圧迫されて．路上で幸せそうな親孑に斬りつけた不幸ＪСみたいのを増やそうとか
奨学金ガ━なんてミ二バン飲酒運転して事故って死んでる某大生とか典型た゛か゛そいつらに遊ふ゛金くれてやることに何の意味か゛あるってんだか
やることなすことすへ゛てがてめえの私利私欲のために賄賂癒着してる資本家階級の利益を追求してるた゛けなのがハ゛レバレでキモチワルヰな

創価学會員は，何百万人も殺傷して損害を与えて私腹を肥やし続けて逮捕者まで出てる世界最悪の殺人腐敗組織公明党を
池田センセ━か゛ロをきけて容認するとか本気で思ってるとしたら侮辱にもほと゛か゛あるそ゛！
ｈТΤрｓ：／／ｉ，ｉｍｇｕｒ，сοｍ／hnli1ga.jpeg

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

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