Excel VBA 質問スレ Part83 (514ﾚｽ)
Excel VBA 質問スレ Part83 http://mevius.5ch.net/test/read.cgi/tech/1749348402/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
1: デフォルトの名無しさん [sage] 2025/06/08(日) 11:06:42.20 ID:j4jIPbHU ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part82 https://mevius.5ch.net/test/read.cgi/tech/1737657075/1 http://mevius.5ch.net/test/read.cgi/tech/1749348402/1
415: デフォルトの名無しさん [sage] 2025/07/17(木) 07:36:40.82 ID:rYvcj5zc 彼はこんなとこでしかマウントとれないかわいそうなやつなんだ そっとしといてあげよう http://mevius.5ch.net/test/read.cgi/tech/1749348402/415
416: デフォルトの名無しさん [sage] 2025/07/17(木) 07:41:07.22 ID:aYpECmLq >>407 目的のフォルダはどうやって示されてるの？ 効率的っていうのは、何に対するパフォーマンスを指してる？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/416
417: デフォルトの名無しさん [sage] 2025/07/17(木) 08:47:01.58 ID:sGHKyXGW >>410 Dirでワイルドカードが使えるので、こんな感じに仕上げてみた ※ヒットするパスの例 → C:\Documents\A001\B000X1\Excel\20250717\FileABC001.xlsx HomePath = "C:\Documents" SearchPath = "A???\B*\Excel\2025????\File*.xlsx" ResultPath = HomePath SearchPathList = Split(SearchPath, "\") For I = 0 To UBound(SearchPathList) If Dir(ResultPath) <> "" Then ResultPath = "ファイルの下は何もないよ！" Exit For End If FolderName = Dir(ResultPath & "\" & SearchPathList(I), vbDirectory) If FolderName = "" Then ResultPath = "そんなパスはないよ！" Exit For End If ResultPath = ResultPath & "\" & FolderName Next MsgBox "これかな？" & vbCrLf & ResultPath http://mevius.5ch.net/test/read.cgi/tech/1749348402/417
418: デフォルトの名無しさん [sage] 2025/07/17(木) 09:28:10.58 ID:TqONBLPd あたしゃ、ディレクトリ関係は「見える」の重視で、このあたり参考にしてワークシート関数でやっちゃうけど https://qwerty.work/blog/2021/01/excel-function-path.php http://mevius.5ch.net/test/read.cgi/tech/1749348402/418
419: デフォルトの名無しさん [] 2025/07/17(木) 20:37:37.93 ID:zBpNwhAR >>417 正規表現の様な事ができたのでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/419
420: デフォルトの名無しさん [] 2025/07/17(木) 20:38:38.98 ID:zBpNwhAR >>416 例えばファイルシステムオブジェクトの再帰処理で全フォルダをループしてしまうのは非効率だなぁという事です http://mevius.5ch.net/test/read.cgi/tech/1749348402/420
421: デフォルトの名無しさん [] 2025/07/17(木) 21:05:30.67 ID:zBpNwhAR >>417 本当に複数の階層で部分一致できますでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/421
422: デフォルトの名無しさん [] 2025/07/17(木) 23:17:21.95 ID:mypLb9KX 釣りでなければ真正馬鹿で確定 http://mevius.5ch.net/test/read.cgi/tech/1749348402/422
423: デフォルトの名無しさん [sage] 2025/07/17(木) 23:26:46.72 ID:DMF1qliv Chatさん。未検証 再帰使わずキュー処理 Sub FastSearchMinimal() Dim fso As Object, q As Collection, f As Object, i As Object Dim r As Long: r = 2 Dim k As String: k = "sample" Set fso = CreateObject("Scripting.FileSystemObject") Set q = New Collection: q.Add fso.GetFolder("C:\TestFolder") With Sheets(1): .Cells.Clear: .Range("A1:C1").Value = Array("種類", "名前", "パス"): End With Do While q.Count > 0 Set f = q(1): q.Remove 1 For Each i In f.SubFolders: q.Add i: If InStr(1, i.Name, k, vbTextCompare) > 0 Then WriteRow r, "フォルダ", i.Name, i.Path Next For Each i In f.Files: If InStr(1, i.Name, k, vbTextCompare) > 0 Then WriteRow r, "ファイル", i.Name, i.Path Next Loop MsgBox "完了" End Sub Sub WriteRow(ByRef r As Long, t As String, n As String, p As String) With Sheets(1): .Cells(r, 1).Resize(1, 3).Value = Array(t, n, p): End With: r = r + 1 End Sub http://mevius.5ch.net/test/read.cgi/tech/1749348402/423
424: デフォルトの名無しさん [sage] 2025/07/18(金) 03:56:36.13 ID:kCxulfmG 若い子はChatGPTのことチャッピーと呼んでる http://mevius.5ch.net/test/read.cgi/tech/1749348402/424
425: デフォルトの名無しさん [] 2025/07/18(金) 08:09:47.41 ID:JhLn+KYd Sub 探す() Dim fso As Object,root As Object Set fso = CreateObject("Scripting.FileSystemObject") ' ルートフォルダを取得して再帰処理スタート Set root = fso.GetFolder("パス") 再帰処理 root End Sub '――――――――――――――――――――――――――――――― Private Sub 再帰処理( ByVal f As Object) Dim file as Object,fpath as string If Instr(f.name,"目的") > 0 Then ' ファイルをチェック For Each file In f.Fileso If InStr(file.Name,"検索値") > 0 Then fpath = file.path Next End if Dim sf as Object ' サブフォルダを再帰処理 For Each sf In f.SubFolders If Instr(sf.name,"コード") > 0 or Instr(sf.name,"書類") > 0 or Instr(sf.name,"分類") > 0 or Instr(sf.name,"yyyymmdd") > 0 Then 再帰処理 sf Next End Sub http://mevius.5ch.net/test/read.cgi/tech/1749348402/425
426: デフォルトの名無しさん [sage] 2025/07/18(金) 08:22:30.72 ID:avd6O0J8 >>417 はちょっと手抜きしてたので、ちゃんと作り直した｡ Sub 使い方() Set Result = New Collection DirMulti "C:\Documents", "A???\B*\Excel\2025????\File*.xlsx", Result, vbNormal (以下略) End Sub Sub DirMulti(HomePath, SearchPath, ResultCollection, Optional Attributes As VbFileAttribute = vbNormal) Pos = InStr(SearchPath & "\", "\") Search = Left(SearchPath, Pos - 1) NextSearch = Mid(SearchPath, Pos + 1) Set SearchResult = New Collection Res = Dir(HomePath & "\" & Search, vbDirectory Or Attributes) Do While Res <> "" If Res <> "." And Res <> ".." Then SearchResult.Add Res Res = Dir() Loop If NextSearch = "" Then For Each Res In SearchResult ResultCollection.Add HomePath & "\" & Res Next Else For Each Res In SearchResult If (GetAttr(HomePath & "\" & Res) And vbDirectory) <> 0 Then DirMulti HomePath & "\" & Res, NextSearch, ResultCollection, Attributes End If Next End If End Sub http://mevius.5ch.net/test/read.cgi/tech/1749348402/426
427: デフォルトの名無しさん [sage] 2025/07/18(金) 09:23:27.37 ID:J+L+9run 要件定義せず走り出すとこうなるという見本 http://mevius.5ch.net/test/read.cgi/tech/1749348402/427
428: デフォルトの名無しさん [sage] 2025/07/18(金) 10:47:27.74 ID:kfpMJi4P ま、それぞれがこれに取り組むことで、それなり成長する(こともある)んだから、いいじゃん 外野から思索も模索もせずにつべこべ小言書くことしかできないご老体には言わせときゃいいだけ 相談者、夜中にしか出張って来ないから、日中に迷走するのはやむを得ない やりたいことは何となく見えてきたけど、それをどう実装したいのか？誰に使わせたいのか？何のために作るのか？ とかがイマイチ漠然としてて、方向ぐらいは提示して欲しいのはある エクスプローラー開いて検索じゃあダメな理由とか、ファイルじゃ無くてフォルダ(名)に拘ってるように読めて 例えば、各々が勝手にフォルダ作ってファイル放り込んでるのを是正したいんだ、とかなのか もう一歩踏み込んだ相談が出て来るまで待機、も有り得る http://mevius.5ch.net/test/read.cgi/tech/1749348402/428
429: デフォルトの名無しさん [] 2025/07/18(金) 16:30:22.97 ID:aPZeO8n7 VBAの作り方が上手すぎて情シスに異動させられそうになったセンスの塊こと俺だけどよく構文を知ってるとかテキスト通りにとか気にしてる奴は3流よ 使用者の使いやすさにまず全振り 次に拡張性を気にすりゃメンテナンスもしやすくなる エラー回避しない奴は論外 でも結局はどう動かすかなんよ http://mevius.5ch.net/test/read.cgi/tech/1749348402/429
430: デフォルトの名無しさん [] 2025/07/18(金) 16:43:02.04 ID:AbgnUBWx Aという処理をVBAでさせようってお手本みたいなコードを書いてもそのA自体にセンスが無い奴が多いんだよな それが役職も評価も年収も上がらないVBAを勉強しただけのおぢさん http://mevius.5ch.net/test/read.cgi/tech/1749348402/430
431: デフォルトの名無しさん [sage] 2025/07/18(金) 17:25:18.33 ID:kfpMJi4P >>427 読み直したら、ID末尾runだけに？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/431
432: デフォルトの名無しさん [sage] 2025/07/18(金) 18:03:06.70 ID:tx5irUc8 >>431 みんながみんなエスパーしながら好きに書いてる何を読み直すの？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/432
433: デフォルトの名無しさん [sage] 2025/07/18(金) 20:55:57.57 ID:kfpMJi4P わかんなきゃいいよw カリカリすんなよ フォルダ名を取得する記事見付けた 検索文字で絞る事もできる *とか?とかも要らん https://tmkr7788.livedoor.blog/archives/26830287.html で、一番上のフォルダ指定するのが手入力っぽいから、それも自動取得するなら Sub Sample() Dim FPath As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = "C:\ほにゃらら" .Title = "フォルダを選択してください" If .Show = -1 Then FPath = .SelectedItems(1) End If End With Cells(3,3) = FPath End Sub これを別ボタンに貼り付ければ、ディレクトリ探すのもマウスオペだけで済む お好みだけど ※ ほにゃらら部分は、デフォルトで指定しときたいフォルダ名に http://mevius.5ch.net/test/read.cgi/tech/1749348402/433
434: デフォルトの名無しさん [sage] 2025/07/18(金) 21:22:07.30 ID:VbDqcBb9 >>431 これ何言ってるのか理解できない なにがrunだけに、なのか http://mevius.5ch.net/test/read.cgi/tech/1749348402/434
435: デフォルトの名無しさん [] 2025/07/19(土) 04:46:02.20 ID:s8PmOx3D >>45 え、Accessは2027年で使えなくなるの！？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/435
436: デフォルトの名無しさん [] 2025/07/19(土) 06:29:44.25 ID:QjhfSjEw >>433 馬鹿 http://mevius.5ch.net/test/read.cgi/tech/1749348402/436
437: デフォルトの名無しさん [sage] 2025/07/19(土) 07:33:32.95 ID:xtuIEHIA >>435 Access2027が最後のAccessになるって、 Windows10が最後のWindowsになるって言ったMicrosoftが言ってた http://mevius.5ch.net/test/read.cgi/tech/1749348402/437
438: デフォルトの名無しさん [] 2025/07/19(土) 08:03:25.99 ID:hkkuRgMQ 昨日初めてwin12て使ってる記事見たわ http://mevius.5ch.net/test/read.cgi/tech/1749348402/438
439: デフォルトの名無しさん [sage] 2025/07/19(土) 09:32:36.51 ID:S5W6kZB3 指定したフォルダ以下の、サブフォルダとファイルを取得する記事も見付けた >>433 のは、フォルダのみだけど、その中身もそのファイル情報も見れるのはいい 何よりシンプル 開きたい場合は上のを参考にすればいいと思う https://akira55.com/showfoldertree/ ExcelにTreeViewって無かったっけ？とか思い直してググってて辿り着いた TreeViewを実装しようと試みて、みんな大好きTANAKAさんのサイト参考にしようとしたら Form上に配置するのに、その他のコントロールから選ばなきゃならなく成ってて ImageListに至っては追加はできてもプロパティ変更しようとするとエラー 64bitのせい？ TANAKAの例はExcel2003で説明してるからなのか もはやオワコンなのか なぞ まぁ、後日のメンテとかも面倒そうだから、Sheet上に書き出すのがいちばん楽なんだろうな http://mevius.5ch.net/test/read.cgi/tech/1749348402/439
440: デフォルトの名無しさん [] 2025/07/19(土) 10:05:18.56 ID:TEpbrrsS >>437 きっとwin11はwindowsではない新種のOSなんだろう http://mevius.5ch.net/test/read.cgi/tech/1749348402/440
441: デフォルトの名無しさん [sage] 2025/07/19(土) 15:57:41.07 ID:ZTd2BQVd >>439 実行結果のファイルうｐしてみて http://mevius.5ch.net/test/read.cgi/tech/1749348402/441
442: デフォルトの名無しさん [sage] 2025/07/19(土) 16:20:49.62 ID:A8cbKdEJ パス長いとかいい加減にしろとな http://mevius.5ch.net/test/read.cgi/tech/1749348402/442
443: デフォルトの名無しさん [sage] 2025/07/19(土) 16:52:52.55 ID:S5W6kZB3 >>441 ？ リンク先に実行結果の画像出てるけど？ 他に何を出せと？ おれが実行した後のファイルなんて 中身まるごと見られたら困るものだらけだから、嫌なんだけど？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/443
444: デフォルトの名無しさん [sage] 2025/07/20(日) 12:26:16.14 ID:UYPMBFMH 見られて困るものだらけのPCって犯罪的な？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/444
445: デフォルトの名無しさん [] 2025/07/23(水) 07:42:55.14 ID:jnXMDL+k >>429 その様にコードを書いてマクロを作成するのに何日くらいかかりますか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/445
446: デフォルトの名無しさん [sage] 2025/07/23(水) 08:46:08.98 ID:Rz/tc4F0 回避ルートが無い場合はエラーで止まる分は放置だな 下手なメッセージ出して止まるより分かりやすい http://mevius.5ch.net/test/read.cgi/tech/1749348402/446
447: デフォルトの名無しさん [sage] 2025/07/23(水) 10:53:39.46 ID:S2JD2z+w >>444 C:\ドキュメント\重要機密\A～E(1)\新しいフォルダ\巨乳物 >>445 俺はこの道30年、最近やっとコメントをしっかり書く習慣が身についてきた感じがしてる 昔も一応は書いてたけど、今見ると言葉が足りてなさすぎて解読に苦労する >>446 自分だけが使うんならいいけど、他人はエラーメッセージとかさっさと消しちゃったり自力で解決しようとして何が起きたかわからなくされちゃうからなあ http://mevius.5ch.net/test/read.cgi/tech/1749348402/447
448: デフォルトの名無しさん [] 2025/07/23(水) 19:11:51.35 ID:jnXMDL+k >>447 コメントですか AIに書かせると楽かもしれませんね http://mevius.5ch.net/test/read.cgi/tech/1749348402/448
449: デフォルトの名無しさん [sage] 2025/07/23(水) 20:20:01.08 ID:jSDoEOvR コメントは最低限しか書かないなあ リファクタリングしまくって、コメント書かなくてもわかるコードにする方がいいと思う 1〜2日で作成したら、最低1週間はリファクタリング期間 http://mevius.5ch.net/test/read.cgi/tech/1749348402/449
450: デフォルトの名無しさん [sage] 2025/07/23(水) 21:02:26.59 ID:3kQj9G/6 規模感がちょっとわからないけどテスト込みで手直し１週間？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/450
451: デフォルトの名無しさん [sage] 2025/07/23(水) 21:55:41.80 ID:jSDoEOvR 規模はまちまちだけど、この例ではテスト込みで作成1〜2日 完成後1週間は毎日コードを読み直す時間をとる すると何かしら改善点が見つかる 毎日読んでも何にも改善点なく1週間過ぎたらステーブル http://mevius.5ch.net/test/read.cgi/tech/1749348402/451
452: デフォルトの名無しさん [] 2025/07/24(木) 21:58:34.96 ID:GZnFTazm 複数のシートをpdf出力したいのです。 wb.Sheets(arr).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath の様に、ActiveSheetで指定するしか方法はないのでしょうか？ ActiveSheetは明示的でないので避けたいです http://mevius.5ch.net/test/read.cgi/tech/1749348402/452
453: デフォルトの名無しさん [sage] 2025/07/24(木) 22:07:09.88 ID:CXis1mnI >>452 wb.Sheets(arr).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath http://mevius.5ch.net/test/read.cgi/tech/1749348402/453
454: デフォルトの名無しさん [sage] 2025/07/24(木) 22:09:24.06 ID:GZcfs+u1 >>452 まずはAIに聞く癖を付けろ 以下の方法でActiveSheetを使わずに複数シートをPDF出力できます： ```vb wb.Worksheets(arr).ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=pdfPath ``` `wb.Worksheets(arr)`で直接シートコレクションを指定すれば、ActiveSheetに依存せずに済みます。 http://mevius.5ch.net/test/read.cgi/tech/1749348402/454
455: デフォルトの名無しさん [sage] 2025/07/24(木) 22:21:03.69 ID:3SMUfFNx ↓は実行できるけど、 ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select ↓はエラーにならね？ ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath http://mevius.5ch.net/test/read.cgi/tech/1749348402/455
456: デフォルトの名無しさん [] 2025/07/24(木) 22:52:04.71 ID:GZnFTazm >>454 はい、AIは大嘘つき http://mevius.5ch.net/test/read.cgi/tech/1749348402/456
457: デフォルトの名無しさん [] 2025/07/24(木) 22:52:55.23 ID:GZnFTazm >>453 無理でーす http://mevius.5ch.net/test/read.cgi/tech/1749348402/457
458: デフォルトの名無しさん [] 2025/07/24(木) 22:53:12.34 ID:GZnFTazm >>455 正解！ http://mevius.5ch.net/test/read.cgi/tech/1749348402/458
459: デフォルトの名無しさん [] 2025/07/24(木) 22:57:55.91 ID:GZnFTazm wb.Sheets(配列).Select ActiceSheet..ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path でしかエラーになります http://mevius.5ch.net/test/read.cgi/tech/1749348402/459
460: デフォルトの名無しさん [sage] 2025/07/25(金) 01:14:02.16 ID:f/mD0P8I >>452 Selectが必要なことに変わりはないがActiveSheetを排除したいのならこう書ける wb.Sheets(arr).Select wb.Sheets(arr(0)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath http://mevius.5ch.net/test/read.cgi/tech/1749348402/460
461: デフォルトの名無しさん [] 2025/07/25(金) 01:45:35.35 ID:YmqTu82J >>460 それは複数シートではなく、単一のシートですよな http://mevius.5ch.net/test/read.cgi/tech/1749348402/461
462: デフォルトの名無しさん [sage] 2025/07/25(金) 07:52:00.89 ID:UfHu+jPG 変数使ってループさせるくらいの頭働かせられないくらい頭沸いちゃったのかな 暑いからね http://mevius.5ch.net/test/read.cgi/tech/1749348402/462
463: デフォルトの名無しさん [] 2025/07/25(金) 08:02:36.99 ID:YmqTu82J >>462 複数のシートを個別のpdfファイルにエクスポート、ではないです 複数のシートを1つのpdfファイルに、です これの方法がActiceSheet.ExportAsFixedFormatしか見つからなくて、ActiceSheetの様な曖昧な指定は嫌だなぁと思うのです http://mevius.5ch.net/test/read.cgi/tech/1749348402/463
464: デフォルトの名無しさん [sage] 2025/07/25(金) 08:22:07.09 ID:JviM2itp ActiveSheetを明示するだけでしょ 今のActiveSheetをテンポラリに持っておいて、 特定のシートをActivate それを書き出した後テンポラリをActivate http://mevius.5ch.net/test/read.cgi/tech/1749348402/464
465: デフォルトの名無しさん [sage] 2025/07/25(金) 08:40:06.97 ID:f/mD0P8I >>461 選択中のどれかのシートをエクスポートすれば選択シートすべてが出力される不思議仕様 http://mevius.5ch.net/test/read.cgi/tech/1749348402/465
466: デフォルトの名無しさん [sage] 2025/07/25(金) 09:10:21.07 ID:6JkrjnZc ActiveSheetはワークシート(単・複数)へのポインタみたいなものだよ シートを省略して書かれたメソッドは常にActiveSheetを対象操作にする http://mevius.5ch.net/test/read.cgi/tech/1749348402/466
467: デフォルトの名無しさん [] 2025/07/25(金) 12:31:12.82 ID:YmqTu82J そうだったんですか wb.Sheets(arr).Select 〜中略〜 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath と書いたにも関わらず、何故か出力されたpdfが1シートのみ という事があって、もしかしてcopy modeの様に、ちょっとした操作でシートのグループ化が解除されるのかなと思いました。 http://mevius.5ch.net/test/read.cgi/tech/1749348402/467
468: デフォルトの名無しさん [sage] 2025/07/25(金) 12:41:13.91 ID:7k67EuH4 そりゃ解除されるよ 選択していないシートをアクティベートしたりね ユーザー操作で違和感なく動作するのが大前提だから http://mevius.5ch.net/test/read.cgi/tech/1749348402/468
469: デフォルトの名無しさん [sage] 2025/07/25(金) 18:16:56.05 ID:O3RmL+0a >>466 >常にActiveSheetを対象操作にする シートモジュールでシート指定しないやつは、ActiveSheetじゃなくてそのシートだったと思ったが http://mevius.5ch.net/test/read.cgi/tech/1749348402/469
470: デフォルトの名無しさん [sage] 2025/07/25(金) 20:45:59.47 ID:6JkrjnZc VBの内部コード(Pコード)は解析されてるのかな AIに全部ぶち込んでしまえば、どういう理屈でという疑問は解消しそうだけど http://mevius.5ch.net/test/read.cgi/tech/1749348402/470
471: デフォルトの名無しさん [] 2025/07/26(土) 08:11:28.23 ID:ZNo9mvnh wb.Sheets(arr).Select wb.Sheets(2).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath でもグループ化したシートが出力できるのですね 今知りました でも怖いですね wb.Sheets(2).Selectはグループ化解除だから http://mevius.5ch.net/test/read.cgi/tech/1749348402/471
472: デフォルトの名無しさん [sage] 2025/07/26(土) 13:26:56.16 ID:8rv+r4rK 名前付き引数書く派なんだなおまいらも http://mevius.5ch.net/test/read.cgi/tech/1749348402/472
473: デフォルトの名無しさん [sage] 2025/07/26(土) 14:28:31.18 ID:F1jFmomB ExportAsFixedFormat xlTypePDF, pdfPath,,,,,, 名前を覚えるか糞長引数の位置を覚えるかのトレードオフ http://mevius.5ch.net/test/read.cgi/tech/1749348402/473
474: デフォルトの名無しさん [] 2025/07/26(土) 15:15:43.28 ID://AUV0sR 別にどちらでもいい http://mevius.5ch.net/test/read.cgi/tech/1749348402/474
475: デフォルトの名無しさん [sage] 2025/07/26(土) 17:35:17.71 ID:UKLeI2W+ どっちの書式も覚えてない 検索で上位に出てきたコードをコピペするだけ http://mevius.5ch.net/test/read.cgi/tech/1749348402/475
476: デフォルトの名無しさん [] 2025/07/28(月) 17:59:42.76 ID:vQ0dL+ep 一次配列しか対応していないからFilter関数を避けてきましたが、worksheet関数で一次配列に簡単に直せるのと、Filter関数は部分一致なので、ループで重ねがけをするととても便利ですね。 http://mevius.5ch.net/test/read.cgi/tech/1749348402/476
477: デフォルトの名無しさん [sage] 2025/07/28(月) 18:28:01.59 ID:23Svm7lo ネット検索でコピペ 実際はこんなのが大半なんだよな http://mevius.5ch.net/test/read.cgi/tech/1749348402/477
478: デフォルトの名無しさん [] 2025/07/28(月) 23:33:08.81 ID:/EYYRyt0 部署内と提携仕入先でVBAで金かけずに簡易システムの共同開発ってことで メール本文にプロシージャ貼って相手に送ってる 相手からうまく動きました、こっちもこうしてほしいですと回答がくる また直したのをメールに貼って送る なんという原始的な外資企業だよ http://mevius.5ch.net/test/read.cgi/tech/1749348402/478
479: デフォルトの名無しさん [] 2025/07/28(月) 23:37:37.11 ID:ofRNtrsX 草 http://mevius.5ch.net/test/read.cgi/tech/1749348402/479
480: デフォルトの名無しさん [] 2025/07/29(火) 12:30:27.63 ID:cpAOUjwH できることからコツコツと ですよ マニアでもいないと飛躍しない 責任取らされるかもと思えば何もしない http://mevius.5ch.net/test/read.cgi/tech/1749348402/480
481: デフォルトの名無しさん [] 2025/07/29(火) 19:57:27.87 ID:G836h0I1 vbaではfor のループ処理で条件に一致しないときはループをスキップ（次へ）が出来ないと聞きます なんとかif文のnot then の時はスキップみたいなコードを書いていますがなかなか難しいです AIはGo To文を書いているので私も書いていいでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/481
482: デフォルトの名無しさん [sage] 2025/07/29(火) 19:59:00.98 ID:wqm1/dtV whileとか使えば？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/482
483: デフォルトの名無しさん [] 2025/07/29(火) 20:10:20.21 ID:G836h0I1 >>482 whileもDoもしっかりと理解しておかないと無限列車編になりそうで怖いです 仮にもしIf not 〜 Then Next と言う様なコードがあったとしてもそれが事実上のGo To文だと言われたらそうなのかもしれません http://mevius.5ch.net/test/read.cgi/tech/1749348402/483
484: デフォルトの名無しさん [] 2025/07/29(火) 20:24:56.02 ID:cpAOUjwH continueが無いと言うことなら goto continue はわかりやすく代替になる ネストあるしでオレの場合は LBL_CONTINUE_10: とかにしてるけど http://mevius.5ch.net/test/read.cgi/tech/1749348402/484
485: デフォルトの名無しさん [] 2025/07/29(火) 20:27:33.99 ID:J9oCD99i >>483 馬鹿には難しいのか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/485
486: デフォルトの名無しさん [] 2025/07/29(火) 21:03:16.99 ID:G836h0I1 >>485 Doとwhileはよく理解して使わないと無限ループになると聞いているので避けてきただけです Go To もスパゲッティコードになると聞いているので避けいるだけです If not 〜 Then 次 次 : にすればいいですね http://mevius.5ch.net/test/read.cgi/tech/1749348402/486
487: デフォルトの名無しさん [] 2025/07/29(火) 21:10:27.10 ID:vWW6c4Rp i=i+1をセットに考えとけば無限ループなんて起こすことそんなにないっしょ http://mevius.5ch.net/test/read.cgi/tech/1749348402/487
488: デフォルトの名無しさん [] 2025/07/29(火) 21:41:08.56 ID:ii3Lf2qi >>486 こんな簡単なことも瞬時に理解できないとかやっぱり馬鹿だろうが Go Toと書いてるだけで馬鹿とわかるんだよ それとも境界知能か？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/488
489: デフォルトの名無しさん [] 2025/07/29(火) 21:54:22.96 ID:G836h0I1 Power Queryでフィルターしたり、データベースの真似事をするのは大好きだけど、 vbaのauto filterをするのは苦手意識が強い この気持ちわかってくれますか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/489
490: デフォルトの名無しさん [sage] 2025/07/29(火) 22:09:39.89 ID:hgNMIII1 夏休みのせいか？それとも暑さで頭がやられているのが出てきてるのか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/490
491: デフォルトの名無しさん [sage] 2025/07/29(火) 22:28:38.75 ID:eRHOoyzY こだわりがあるようだから温かく見守ってあげて http://mevius.5ch.net/test/read.cgi/tech/1749348402/491
492: デフォルトの名無しさん [] 2025/07/29(火) 22:29:41.49 ID:49whZmZ7 いつもの人か 誰が付き合ってあげて http://mevius.5ch.net/test/read.cgi/tech/1749348402/492
493: デフォルトの名無しさん [] 2025/07/29(火) 22:40:34.46 ID:G836h0I1 >>492 いつもの人ってなんですか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/493
494: デフォルトの名無しさん [sage] 2025/07/30(水) 00:33:34.98 ID:JW2l3Q+S しらんけど煽りしかしてないやつはなんなんだ？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/494
495: デフォルトの名無しさん [] 2025/07/30(水) 00:42:25.90 ID:wwipb9hb 白痴が書き込むようになると一気にレベルが下がるからな 悪貨は良貨を駆逐する http://mevius.5ch.net/test/read.cgi/tech/1749348402/495
496: デフォルトの名無しさん [] 2025/07/30(水) 02:51:59.94 ID:UyfVNIk6 >>493 どうしようもなく頭が悪くて理解力が足りないだけなのにネチネチと質問を繰り返す人のこと http://mevius.5ch.net/test/read.cgi/tech/1749348402/496
497: デフォルトの名無しさん [] 2025/07/30(水) 06:00:40.49 ID:0FpGkecW >>496 一体どこが理解力がないのでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/497
498: デフォルトの名無しさん [] 2025/07/30(水) 06:21:59.30 ID:hYsgvs3H ダメだこりゃ http://mevius.5ch.net/test/read.cgi/tech/1749348402/498
499: デフォルトの名無しさん [sage] 2025/07/30(水) 08:09:34.32 ID:tLf0EMwW 質問する側ならともかく、真夜中ひとが寝静まってる頃合いに、回答するでもなく 煽りや虚仮にするだけのカキコする人に関わってはいけない ダークサイドに取り込まれる じゃあ、そういう人等が得意な分野の質問をすれば回答が付くのか？というと、そんなことも無い 得意なのは他人を罵ることだけなんだから http://mevius.5ch.net/test/read.cgi/tech/1749348402/499
500: デフォルトの名無しさん [sage] 2025/07/30(水) 08:21:21.59 ID:tLf0EMwW そもそも、優秀な人材は真夜中はきちんと睡眠をとっている 夜中に寝付けずにあまつさえ掲示板にわざわざ出向いて あろうことか罵詈雑言書き込んで己の不甲斐無さの不満の吐け口にしてる時点でお察し http://mevius.5ch.net/test/read.cgi/tech/1749348402/500
501: デフォルトの名無しさん [] 2025/07/30(水) 08:32:17.89 ID:ZrfB2rqA ID:tLf0EMwW 頭悪そう http://mevius.5ch.net/test/read.cgi/tech/1749348402/501
502: デフォルトの名無しさん [] 2025/07/30(水) 12:03:26.15 ID:8Rlxo22+ ID:ZrfB2rqA 頭ハゲてそう🦲 http://mevius.5ch.net/test/read.cgi/tech/1749348402/502
503: デフォルトの名無しさん [sage] 2025/07/30(水) 14:51:27.88 ID:tLf0EMwW わずか10分後に反応されてた！ もはや、殆どbotだな この応答を見れば明白なように ヒトでも無いカキコの相手するだけ時間の無駄だといういい見本 新しくここに来た人たちは、botが居着いてることを承知の上で 相談や質問をするのが、ひとつの心構え http://mevius.5ch.net/test/read.cgi/tech/1749348402/503
504: デフォルトの名無しさん [sage] 2025/07/30(水) 17:11:39.24 ID:2dwihfai 専ブラを知らないキチガイはNG http://mevius.5ch.net/test/read.cgi/tech/1749348402/504
505: デフォルトの名無しさん [] 2025/07/30(水) 18:05:33.89 ID:bqS2T+6f 優秀の定義は年収で決まる 年収が30代で750万、40代で900万これを超えない奴がさわるVBAなんてもれなくポンコツだから ふふ http://mevius.5ch.net/test/read.cgi/tech/1749348402/505
506: デフォルトの名無しさん [sage] 2025/07/30(水) 19:00:00.76 ID:+PBQOhAV つまり会長・社長クラスの触るVBAは素晴らしい出来 生徒や学生の触るVBAはポンコツ んなわけあるか http://mevius.5ch.net/test/read.cgi/tech/1749348402/506
507: デフォルトの名無しさん [] 2025/07/30(水) 21:07:45.62 ID:T2pHe4I2 極論そうだよね 低年収の触るVBAは質が低い 質が低いからVBAを覚えても低年収 専門分野と違ってこんなに強みになるプログラミングは他にないから http://mevius.5ch.net/test/read.cgi/tech/1749348402/507
508: デフォルトの名無しさん [] 2025/07/30(水) 22:02:33.58 ID:3dlCCuCF >>506 ほんそれ バカの言ってることなんてポンコツなことばかり http://mevius.5ch.net/test/read.cgi/tech/1749348402/508
509: デフォルトの名無しさん [sage] 2025/07/31(木) 19:07:57.07 ID:QmW4aWFz 優禿の定義は年収ではないと思う http://mevius.5ch.net/test/read.cgi/tech/1749348402/509
510: デフォルトの名無しさん [] 2025/07/31(木) 19:22:24.31 ID:IqvQqgPR まあ馬鹿にしたいだけなんで定義も根拠もないんだけどな http://mevius.5ch.net/test/read.cgi/tech/1749348402/510
511: デフォルトの名無しさん [sage] 2025/07/31(木) 19:42:34.79 ID:PLayNHBZ そんなもんやろな http://mevius.5ch.net/test/read.cgi/tech/1749348402/511
512: デフォルトの名無しさん [sage] 2025/07/31(木) 21:06:19.26 ID:2YdreDTb >>509 ＿人人人人人人人人人＿ ＞ また髪の話してる ＜ ￣Y^Y^Y^Y^Y^Y^Y^Y^Y￣ ＿ γ ⌒ ヽ 彡 ⌒ ミ . 彡 ＝ ミ (´・ω・｀) (´・ω・｀) (´・ω・｀) ﾂﾙﾋﾟｶ ｳｽｹﾞ ﾊﾞｰｺｰﾄ http://mevius.5ch.net/test/read.cgi/tech/1749348402/512
513: デフォルトの名無しさん [] 2025/07/31(木) 21:31:34.28 ID:Sbsp3WvH 仕事の能力は年収じゃないって否定しても実際は年収だけどな VBAなんてどう処理させるかじゃなくどう運用するかなんだよ http://mevius.5ch.net/test/read.cgi/tech/1749348402/513
514: デフォルトの名無しさん [sage] 2025/07/31(木) 22:18:52.27 ID:Dd41SAEI 処理の結果がすべて ソースコードがきれいかどうかで評価する会社なんかない http://mevius.5ch.net/test/read.cgi/tech/1749348402/514
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.022s*