[過去ﾛｸﾞ]
Excel VBA 質問スレ Part68 (1002ﾚｽ)
Excel VBA 質問スレ Part68 http://mevius.5ch.net/test/read.cgi/tech/1598756127/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
412: デフォルトの名無しさん (ﾜｯﾁｮｲ 1663-QTQj) [sage] 2020/09/28(月) 21:25:16 ID:d76PIxro0 質問させていただきます ユーザーフォームのテキストボックスにフォーカスがあたってる(入力状態)でwindowsのデスクトップがアクティブもしくは他アプリケーションがアクティブを検知することはできますでしょうか？ タッチパネルなどでユーザーフォーム外をタッチしてしまった時を検出したいです。 できるのであればご教授願いたい… http://mevius.5ch.net/test/read.cgi/tech/1598756127/412
413: デフォルトの名無しさん (ﾜｯﾁｮｲ b35f-OzOo) [] 2020/09/29(火) 00:06:40 ID:bEee4vhd0 Windowオブジェクトにどんなプロパティがあるんだっけ http://mevius.5ch.net/test/read.cgi/tech/1598756127/413
414: デフォルトの名無しさん (ﾜｯﾁｮｲ b35f-QE0L) [sage] 2020/09/29(火) 00:29:27 ID:zU8eGPuC0 フォームのdeactivateイベント拾ってテキストボックスのフォーカス状態見て処理するとかどうかな http://mevius.5ch.net/test/read.cgi/tech/1598756127/414
415: デフォルトの名無しさん (ﾜｯﾁｮｲ 237c-F8K1) [sage] 2020/09/29(火) 00:32:40 ID:zjqvAHva0 deactivateは用途が違う http://mevius.5ch.net/test/read.cgi/tech/1598756127/415
416: デフォルトの名無しさん (ﾜｯﾁｮｲ 4b2c-ozis) [sage] 2020/09/29(火) 00:49:54 ID:Iz7+ZlTk0 HTML, XML, CSV などのスクレイピングなら、 Ruby で、Nokogiri, Selenium Webdriver などが簡単 curl, wget でも、ファイルをダウンロードできるし Rubyで、nokogiri, curl を使った例 require 'nokogiri' html = `curl http://www.example.com/` doc = Nokogiri::HTML( html ) elements = doc.css( "h1" ) puts elements.first.content #=> Example Domain http://mevius.5ch.net/test/read.cgi/tech/1598756127/416
417: デフォルトの名無しさん (ﾜｯﾁｮｲ 23e6-T5KC) [] 2020/09/29(火) 06:58:50 ID:iE38wEdU0 外部プロセスの起動、待機、出力の取り込みまで実装してくださいよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/417
418: デフォルトの名無しさん (ﾜｯﾁｮｲ 5f01-b+lb) [sage] 2020/09/29(火) 09:56:21 ID:UZS7qkIf0 Rubyの自動運転は使いやすかったけど 早々にサポート切られたから印象悪い http://mevius.5ch.net/test/read.cgi/tech/1598756127/418
419: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa43-QTQj) [sage] 2020/09/29(火) 11:55:53 ID:NIgnBYPca >>413 調べて見ましたがそれっぽいものは発見できませんでした… >>414 >>415さんのおっしゃる通りブックやユーザーフォームのDeactivateイベントでは機能しませんでした。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/419
420: デフォルトの名無しさん (ｽｯｯﾌﾟ Sd32-OmYe) [sage] 2020/09/29(火) 23:34:39 ID:Rcn+G4xKd VBAでやる意味? VBA以外だとアホな操作が必要だぞ。 1.Excelを閉じる。 2.他言語で実行。 3.csvをExcelで開く。 全くアホらしい。 運用についての考え方がまるで違う。 他言語でやる場合ってのはバッチ処理なのか? それしか無いのか? そういうブツ切りでデータ加工していくというなら寧ろExcelなんぞ使わん。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/420
421: デフォルトの名無しさん (ﾜｯﾁｮｲ e3da-yeTY) [] 2020/09/30(水) 00:00:14 ID:BPaZHsLq0 >>407 jsしたかったらIEするしかないのね。 今時のHPほぼ全滅じゃん。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/421
422: デフォルトの名無しさん (ﾜｯﾁｮｲ b3e6-2+Dn) [sage] 2020/09/30(水) 00:36:25 ID:5bnpK3a00 >>419 WINAPIでポーリング https://i.imgur.com/NQMR2Km.png http://mevius.5ch.net/test/read.cgi/tech/1598756127/422
423: デフォルトの名無しさん (ﾜｯﾁｮｲ 53ce-2+Dn) [sage] 2020/09/30(水) 06:50:20 ID:RkFeWfqX0 イルカのカイル http://mevius.5ch.net/test/read.cgi/tech/1598756127/423
424: デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-67ZW) [] 2020/09/30(水) 16:18:36 ID:7F4wikGt0 >>419 そのマルチタスク、マルチウィンドウを否定したい理由は何なの？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/424
425: デフォルトの名無しさん (ﾜｯﾁｮｲ cf63-dtjG) [sage] 2020/09/30(水) 16:57:41 ID:QOxpj5qw0 >>424 フォームのテキストボックスに機器の計測値が入るようになっており テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れないのでおじーちゃんたちにも気づくようにフォーカスが離れた時に警告ユーザーフォームを出したいのです。他アプリケーションなどを立ち上げる事も想定されます。 >>422 情報ありがとうございます 画像の通りやってみましたがイルカさんは働いてくれませんでした… http://mevius.5ch.net/test/read.cgi/tech/1598756127/425
426: デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM9f-hUkp) [sage] 2020/09/30(水) 20:43:21 ID:2p9V72Q+M >>425 アホとしか言えんわ そもそも設計が間違えてる http://mevius.5ch.net/test/read.cgi/tech/1598756127/426
427: デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-Kk5w) [sage] 2020/09/30(水) 21:46:10 ID:d9KXZKY60 >>425 値を入れる部分を直せよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/427
428: デフォルトの名無しさん (ﾜｯﾁｮｲ ffe6-2+Dn) [sage] 2020/09/30(水) 22:51:09 ID:wQcBlxXT0 RPAとか使ったらこんなおぞましいものができたりするのかな？ でも普通はExcelぐらいサポートしてるよな。。。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/428
429: デフォルトの名無しさん (ﾜｯﾁｮｲ b37c-Uy5C) [sage] 2020/09/30(水) 23:05:33 ID:FnwBo45S0 むしろRPA向きの案件だと思う http://mevius.5ch.net/test/read.cgi/tech/1598756127/429
430: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM7f-vZte) [sage] 2020/10/01(木) 01:07:42 ID:lGabW6tFM >>425 > フォームのテキストボックスに機器の計測値が入るようになっており wの前にデータ取得しとるわなw >テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れない wそんな業務データを取りこぼすとか意味不明w >のでおじーちゃんたちにも気づくように wなんだ？老害か？w http://mevius.5ch.net/test/read.cgi/tech/1598756127/430
431: デフォルトの名無しさん (ﾜｯﾁｮｲ 7f4b-3DJV) [sage] 2020/10/01(木) 01:18:01 ID:eVzeZjSn0 意味がわからないなら黙ってればいいじゃない http://mevius.5ch.net/test/read.cgi/tech/1598756127/431
432: デフォルトの名無しさん (ﾌﾞｰｲﾓ MMff-gZNM) [sage] 2020/10/01(木) 07:38:17 ID:v/kjpRq5M 業務用ツール作るのってホント大変よな…… 使いたい人向けに配信するんじゃなくて、使わされる人に使ってもらうツールだからどんなに優しいUIにしても平気で想像を上回るイレギュラーな操作して動かなくなった！ポンコツめ！みたいなクレーム出してくる人もいるし 単純に新しい物を使いたくないからってワザとメチャクチャな操作したりもしてるんだろうけど ツールを要求してくる上の人達は現状の環境で対応出来るようにしたいからExcelのマクロでどうにかしてよ！とか言ってくるし、VBAはなんでも出来る魔法のツールだと思ってるし 長々と愚痴ってスマンな スレチだよな http://mevius.5ch.net/test/read.cgi/tech/1598756127/432
433: デフォルトの名無しさん (ｽｯｯﾌﾟ Sd1f-nakg) [sage] 2020/10/01(木) 07:49:06 ID:H0TKMoBwd Windowsの標準のユーザーインターフェイスを意識しないと、使いやすいと思ったものが結局つかいにくくなる。 フォーカスがあたってなくても計測値が取れるように作るという発想が無いのが厳しい。 そんなこと出来ないなら根本から違うユーザーインターフェイスを採用すべき。 こういう処理でユーザーに何かさせる必要は無い筈。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/433
434: デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-Kk5w) [sage] 2020/10/01(木) 10:04:49 ID:+ML6JMtp0 初心者がツール作るように言われたら大変なんだろうな、俺は大変だと思ったことないが http://mevius.5ch.net/test/read.cgi/tech/1598756127/434
435: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) [] 2020/10/01(木) 10:34:23 ID:6DJ6J+GDM タブレットでバーコードリーダーのキーボード入力モードでも使ってるんだろうなと想像 COMで操作できるライブラぐらい付いているだろうからそれ使えば解決 http://mevius.5ch.net/test/read.cgi/tech/1598756127/435
436: デフォルトの名無しさん (ﾜｯﾁｮｲ cf63-dtjG) [sage] 2020/10/01(木) 16:54:34 ID:Ld5Ou2iR0 >>435 まさにおっしゃる通りで作業進捗をバーコードで管理するものを作りました。 次は工程内のチェックシートと計測値などのトレーサビリティです禿げそう とりあえず計測器具も試用で借りてる段階なのでメーカーにライブラリの事聞いてみます… http://mevius.5ch.net/test/read.cgi/tech/1598756127/436
437: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM7f-vZte) [] 2020/10/01(木) 17:12:49 ID:W6bAQtLIM >>431 知ってた http://mevius.5ch.net/test/read.cgi/tech/1598756127/437
438: デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-ywH8) [sage] 2020/10/01(木) 18:58:16 ID:9Yax9dsIa >>434 かっけぇ http://mevius.5ch.net/test/read.cgi/tech/1598756127/438
439: デフォルトの名無しさん (ﾜｯﾁｮｲ ff1f-Fuq4) [sage] 2020/10/01(木) 21:36:53 ID:dM4yb7Ap0 罫線で囲われてたり、色塗りされたりするセルをマウスでドラッグ移動した時移動した場所は何もなくるなるのを罫線のみを残す方法ってありませんか？ 簡単に言うと罫線で作った表の形式を保持したい。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/439
440: デフォルトの名無しさん (ｵｲｺﾗﾐﾈｵ MMa7-gXeV) [sage] 2020/10/01(木) 21:50:29 ID:5ESnmk3DM >>439 テンプレートを隠しシートに保存しておいて、 ボタン押下で書式をコピペしてくるってどう？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/440
441: デフォルトの名無しさん (ﾜｯﾁｮｲ e33d-9f2k) [sage] 2020/10/01(木) 22:00:05 ID:gLHdGUpR0 >>439 切り貼りじゃなくてコピーアンドペーストした後に元のところの数式と値をクリア(右クリック+N)すればよいのでは http://mevius.5ch.net/test/read.cgi/tech/1598756127/441
442: デフォルトの名無しさん (ﾜｯﾁｮｲ ff02-Uy5C) [sage] 2020/10/01(木) 23:26:28 ID:ywfP0KwV0 changeイベントで常に罫線引くことしか思いつかん http://mevius.5ch.net/test/read.cgi/tech/1598756127/442
443: デフォルトの名無しさん (ﾜｯﾁｮｲ b37c-Uy5C) [sage] 2020/10/01(木) 23:48:07 ID:2OGRwJxy0 移動できないようにする http://mevius.5ch.net/test/read.cgi/tech/1598756127/443
444: デフォルトの名無しさん (ﾜｯﾁｮｲ e3da-yeTY) [] 2020/10/02(金) 01:42:30 ID:MWdBgx4Q0 セルをマウスでドラッグって何だよ? エクセルで将棋でもやるの? http://mevius.5ch.net/test/read.cgi/tech/1598756127/444
445: デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-67ZW) [] 2020/10/02(金) 01:43:49 ID:ChxT/cO/0 >>425 それExcel VBAでやるものではない。 自分のやりたいようにやりたければ、Windows SDKでの開発をしてください。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/445
446: デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-67ZW) [] 2020/10/02(金) 01:49:29 ID:ChxT/cO/0 >>439 そもそも手順というものを考えた方がいい。 移動する前の情報を移動先には持ってくるが、移動元にはその情報を適用しないのはなぜ？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/446
447: デフォルトの名無しさん (ﾜｯﾁｮｲ d3cc-gW4a) [sage] 2020/10/02(金) 10:09:18 ID:A7BNHAQE0 指定したフォルダ内の全てのＣＶＳファイルを配列に追記していき対のですが、コードを教えてください 配列の０列目（１次元目）にはそれぞれのＣＳＶファイルのファイル名をいれたいです。 Sub Sptyou() Dim FolderPath As String, buf As String, TargetDate As String '■フォルダを指定する With Application.FileDialog(msoFileDialogFolderPicker) If .Show = 0 Then MsgBox "キャンセルされました。" Exit Sub End If FolderPath = .SelectedItems(1) End With '■指定されたフォルダ内の全てのCSVファイルを開いて、そのファイルＡ列からＧＨ列を配列に入れていく ReDim BiforeArraybar(1, 190) As Variant http://mevius.5ch.net/test/read.cgi/tech/1598756127/447
448: 447 (ﾜｯﾁｮｲ d3cc-gW4a) [sage] 2020/10/02(金) 10:09:56 ID:A7BNHAQE0 つづき buf = Dir(FolderPath & "*.csv") Do While buf <> "" Open buf For Input As #1 'インプットモードでファイルを開く Line Input #1, TargetDate Do Until EOF(1) 'ファイルの終点まで Line Input #1, Tardt '開いたファイルを上から順に読み込んでいき、変数TargetDateに代入していく If Split(TargetDate, ",")(1) = "" Then Exit Do '配列に追記する ReDim Preserve BiforeArray(Ubound(BiforeArray) + 1 To ??, 1 To 190) = Sprit(TargetDate,",") Loop Close #1 buf = Dir() Loop End Sub http://mevius.5ch.net/test/read.cgi/tech/1598756127/448
449: デフォルトの名無しさん (ﾌﾞｰｲﾓ MM27-gZNM) [sage] 2020/10/02(金) 10:42:45 ID:cHoSzh9XM ReDim Preserveで操作可能なのは最右端の次元だけだから2次元配列で1次元目に使いたいなら一旦反転させた状態で操作して出力時にWorksheetfunction.transpose使って吐き出す必要があるぞ いまいち最終目的が分からなかったから取り合えず読んでて気になった所だけ http://mevius.5ch.net/test/read.cgi/tech/1598756127/449
450: デフォルトの名無しさん (ﾜｯﾁｮｲ d32c-G8Sl) [sage] 2020/10/02(金) 10:56:02 ID:ooD45Zz30 Linux のcat なら、複数のファイルを連結できるけど http://mevius.5ch.net/test/read.cgi/tech/1598756127/450
451: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) [] 2020/10/02(金) 12:25:22 ID:XdHW2/g2M win dosならcopyで連結できるけど http://mevius.5ch.net/test/read.cgi/tech/1598756127/451
452: デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-Kk5w) [sage] 2020/10/02(金) 12:29:54 ID:a296oIK60 >>448 内側のLoop内で Tardt ってのが気になった http://mevius.5ch.net/test/read.cgi/tech/1598756127/452
453: 447 (ﾜｯﾁｮｲ d3cc-jreG) [sage] 2020/10/02(金) 13:32:21 ID:A7BNHAQE0 >>449 右端にファイル名を入れるにはどうしたらいいですか？ それと、配列のＵｐｐｅｒをどう設定したらいいですか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/453
454: デフォルトの名無しさん (ﾜｯﾁｮｲ ff6d-Zm3W) [] 2020/10/02(金) 15:56:01 ID:7/1+1goB0 また馬鹿な質問者か。それともいつもの厚かましい馬鹿か？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/454
455: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) [] 2020/10/02(金) 16:13:26 ID:XdHW2/g2M 右端の次元と右端の列では話の次元が違うけどわざとやってんのかなー？ excelなんだからとりあえずシートに格納すればいいと思うんだけどなー 配列に1行づつ追加するよりはやいんじゃね？ VBは動的配列無いんだからパフォーマンス出すには頭を使わにゃいかんよ 行数をキーにしたDictionaryもいいかもね http://mevius.5ch.net/test/read.cgi/tech/1598756127/455
456: デフォルトの名無しさん (ﾜｯﾁｮｲ ffad-gZNM) [sage] 2020/10/02(金) 16:51:14 ID:p6rjz1Jr0 >>453 配列のUpperが何を意味してるのかいまいち分からんがこんな感じで良いんか？ Line Input #1, TargetDate BeforeArray(0, Ubound(BeforeArray, 2)) = ファイル名 For文[1〜190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む) ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1) Do Until EOF(1) Line Input #1, TargetDate For文[1〜190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む) ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1) Loop http://mevius.5ch.net/test/read.cgi/tech/1598756127/456
457: デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-Kk5w) [sage] 2020/10/02(金) 18:32:48 ID:a296oIK60 >>453 こういうことじゃないのか targetdata = buf & "," & targetdata http://mevius.5ch.net/test/read.cgi/tech/1598756127/457
458: デフォルトの名無しさん (ﾜｯﾁｮｲ e3da-Kk5w) [sage] 2020/10/02(金) 22:17:00 ID:MWdBgx4Q0 >>455 サイドブレーキを使う坂道発進をダサイと感じるようなもので、 どう考えてもシート格納が合理的なのに、無理して配列を使うわけですよ。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/458
459: デフォルトの名無しさん (ﾜｯﾁｮｲ d32c-G8Sl) [sage] 2020/10/02(金) 23:43:54 ID:ooD45Zz30 CSV の規格では、各要素をクォート文字で囲めば、 各要素中に、列区切り文字も入れられる "a,b", x Ruby などのCSVライブラリを使わず、 自力で、列区切り文字で分割すると、バグるだけ CSVの規格を知らない香具師が、よくやってる http://mevius.5ch.net/test/read.cgi/tech/1598756127/459
460: デフォルトの名無しさん (ﾜｯﾁｮｲ 7f4b-3DJV) [sage] 2020/10/03(土) 00:18:46 ID:DSTQ9BDR0 csvに規格ってあったんだ http://mevius.5ch.net/test/read.cgi/tech/1598756127/460
461: デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-MSJL) [] 2020/10/03(土) 07:11:14 ID:umHauNXS0 ExcelでCSVをダブルクリックで開いて編集、上書きして事故る人が多いね http://mevius.5ch.net/test/read.cgi/tech/1598756127/461
462: デフォルトの名無しさん (ﾜｯﾁｮｲ ff01-V07v) [sage] 2020/10/03(土) 07:17:22 ID:NCQ7EVNV0 >>460 一応あるけど結局Excelで読めないとダメって言うケースが大多数だったりする http://www.kasai.fm/wiki/rfc4180jp http://mevius.5ch.net/test/read.cgi/tech/1598756127/462
463: デフォルトの名無しさん (ﾜｯﾁｮｲ 53ce-2+Dn) [sage] 2020/10/03(土) 08:43:50 ID:2jz2H7gQ0 そのRFCって、たくさんあるローカルルールの1つを紹介してるだけだよな 強制力もなさそうだし、現時点ではあんまり意味がなさそう http://mevius.5ch.net/test/read.cgi/tech/1598756127/463
464: デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-67ZW) [] 2020/10/03(土) 11:51:59 ID:ylT9+9xh0 >>459 マイクロソフトの製品はそれに沿っているものがあるが、クォーテーションがついたり、つかなかったりするのは、人間にとってもタチが悪く、完全に失敗した仕様と結論が出ている。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/464
465: 459 (ﾜｯﾁｮｲ d32c-IT45) [sage] 2020/10/03(土) 13:01:37 ID:/wA+nWqo0 列区切り文字は、必要なければ省略できる つまり、x も、"x" も同じ。 全ての要素に、付けてもよい ただし、"a,b" みたいに要素内に、 行区切り文字・列区切り文字・クォート文字を含む場合は、省略できない http://mevius.5ch.net/test/read.cgi/tech/1598756127/465
466: 459 (ﾜｯﾁｮｲ d32c-IT45) [sage] 2020/10/03(土) 13:03:38 ID:/wA+nWqo0 >>465 修正 >列区切り文字は、必要なければ省略できる クォート文字は、必要なければ省略できる http://mevius.5ch.net/test/read.cgi/tech/1598756127/466
467: デフォルトの名無しさん (ﾜｯﾁｮｲ 7f4b-3DJV) [sage] 2020/10/03(土) 13:04:25 ID:DSTQ9BDR0 できないって言われましても強制力無いですし http://mevius.5ch.net/test/read.cgi/tech/1598756127/467
468: デフォルトの名無しさん (ﾜｯﾁｮｲ ff2f-G8Sl) [sage] 2020/10/03(土) 13:34:48 ID:zZGrTJee0 まあそもそも多数の実装が出てからそれ集めて決めた仕様だからな http://mevius.5ch.net/test/read.cgi/tech/1598756127/468
469: デフォルトの名無しさん (ﾜｯﾁｮｲ e3da-Kk5w) [sage] 2020/10/03(土) 19:43:36 ID:WrZNWJut0 そういやあれ何だろうな。 QueryTableだとセル内改行でずれるのに、 ADOだとずれないとか。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/469
470: デフォルトの名無しさん (ﾜｯﾁｮｲ 6309-gW4a) [sage] 2020/10/04(日) 19:09:07 ID:mqiPq7lq0 配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも しれないけど、いい感じにまとまったコードが書けない。 例えば、下の関数を、別のSubから2回実行させて、 「Ary(3) ※中身：path1,path2,path1,path2」 の結果を得たいです。 Function TestFunc() Dim testPath(1) testPath(0) = "path1" testPath(1) = "path2" 'return TestFunc = testPath End Function http://mevius.5ch.net/test/read.cgi/tech/1598756127/470
471: デフォルトの名無しさん (ﾜｯﾁｮｲ 6309-gW4a) [sage] 2020/10/04(日) 19:09:08 ID:mqiPq7lq0 配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも しれないけど、いい感じにまとまったコードが書けない。 例えば、下の関数を、別のSubから2回実行させて、 「Ary(3) ※中身：path1,path2,path1,path2」 の結果を得たいです。 Function TestFunc() Dim testPath(1) testPath(0) = "path1" testPath(1) = "path2" 'return TestFunc = testPath End Function http://mevius.5ch.net/test/read.cgi/tech/1598756127/471
472: デフォルトの名無しさん (ﾜｯﾁｮｲ 6309-gW4a) [sage] 2020/10/04(日) 19:09:56 ID:mqiPq7lq0 連投すいません http://mevius.5ch.net/test/read.cgi/tech/1598756127/472
473: デフォルトの名無しさん (ｽｯｯﾌﾟ Sd1f-+ya4) [sage] 2020/10/04(日) 19:15:03 ID:l1LxtJm7d 注意 ID:mqiPq7lq0 いつもの馬鹿です http://mevius.5ch.net/test/read.cgi/tech/1598756127/473
474: デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-Kk5w) [sage] 2020/10/04(日) 21:13:23 ID:3bz1Ts/P0 >>471 検索したらいいんじゃね http://mevius.5ch.net/test/read.cgi/tech/1598756127/474
475: デフォルトの名無しさん (ﾜｯﾁｮｲ b37c-Uy5C) [sage] 2020/10/04(日) 21:42:10 ID:NRUY+ZF00 >>471 例えとかいい感じとかじゃなくて正確にコードを提示してどの部分をどうしたいのか明確に説明した方がいいよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/475
476: デフォルトの名無しさん (ｽｯｯﾌﾟ Sd1f-EBv7) [] 2020/10/04(日) 21:43:28 ID:hlbFeQNpd 後出し続けて全部作ってもらおうという魂胆の奴だぞ http://mevius.5ch.net/test/read.cgi/tech/1598756127/476
477: デフォルトの名無しさん (ｵｯﾍﾟｹ Sr47-owA3) [sage] 2020/10/05(月) 01:21:09 ID:Roj0MJiCr VBAからIEを操作して、タグを指定して.valueやselctedで自動化しているのですが、ヤフオクの商品説明だけどうしても値の挿入ができません。 Tabや近い要素をフォーカスしたりクリックし、SendkeyなどでShift +Tabからエンダーなど試していますが、一向に解決できません。 直接でか無くてもカーソルが点滅させれれば、クリップボード経由で貼り付けるような仕様にしようと考えています。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/477
478: デフォルトの名無しさん (ﾜｯﾁｮｲ d32c-IT45) [sage] 2020/10/05(月) 07:08:41 ID:z7kgQPv30 漏れは、Ruby, Selenium Webdriver で、ブラウザを自動操作して、 send_key で、ユーザー名・パスワードを自動入力して、ヤフーにログインしてる require "selenium-webdriver" options = Selenium::WebDriver::Chrome::Options.new options.add_option( :detach, true ) # ブラウザを切り離す options.add_argument( '--start-maximized' ) # 画面最大 driver = Selenium::WebDriver.for :chrome, options: options driver.manage.timeouts.implicit_wait = 10 # default timeout driver.navigate.to "https://login.yahoo.co.jp/config/login_verify2?.src=ym" element = driver.find_element(:id => "username") element.send_key "ユーザー名" driver.find_element(:id => "btnNext").click element = driver.find_element(:id => "passwd") element.send_key "パスワード" driver.find_element(:id => "btnSubmit").click http://mevius.5ch.net/test/read.cgi/tech/1598756127/478
479: 478 (ﾜｯﾁｮｲ d32c-IT45) [sage] 2020/10/05(月) 07:11:02 ID:z7kgQPv30 そもそも、IE なんか動くのか？ 漏れは、Chrome http://mevius.5ch.net/test/read.cgi/tech/1598756127/479
480: デフォルトの名無しさん (ﾊﾞｯﾄﾝｷﾝ MMc7-7HYc) [sage] 2020/10/05(月) 12:57:11 ID:BlyIycRMM >>475 すみません。 Sub test Dim i,ary() For i = 1 to 2 ary = TestFunc ※ary配列の要素の最後に呼び出した配列を追加していきたい Next End http://mevius.5ch.net/test/read.cgi/tech/1598756127/480
481: デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-Kk5w) [sage] 2020/10/05(月) 13:22:13 ID:PJYbs+y10 配列に配列を追加するのを初心者がつくるなら 追加する2つの配列と結果を格納する配列の計３つを用意して順番に格納すればできないかな？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/481
482: デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMe7-hUkp) [sage] 2020/10/05(月) 14:35:29 ID:8f5Gi5TxM >>480 いい加減にしろや糞が http://mevius.5ch.net/test/read.cgi/tech/1598756127/482
483: デフォルトの名無しさん (ﾜｯﾁｮｲ ff2f-IT45) [sage] 2020/10/05(月) 14:54:20 ID:3En1oQ3G0 >>471 redim preserveとUBoundを使うのかも まあしかし、その処理ほんとに配列でやるのが良いのか検討したほうが良いんだが VBAコレクション系弱いからなぁ http://mevius.5ch.net/test/read.cgi/tech/1598756127/483
484: デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-y5MG) [sage] 2020/10/05(月) 15:05:07 ID:PJYbs+y10 検索すればすむのにね http://mevius.5ch.net/test/read.cgi/tech/1598756127/484
485: デフォルトの名無しさん (ﾊﾞｯﾄﾝｷﾝ MMc7-7HYc) [sage] 2020/10/05(月) 17:50:38 ID:BlyIycRMM >>481 >>483 ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/485
486: デフォルトの名無しさん (ﾌﾞｰｲﾓ MMe7-k/5x) [sage] 2020/10/05(月) 17:58:27 ID:FAPvswgpM 喧嘩腰だなあ 何しにきてんのさ http://mevius.5ch.net/test/read.cgi/tech/1598756127/486
487: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa27-y5MG) [sage] 2020/10/05(月) 18:26:34 ID:KW0b9HJla くれくれ君だからしょうがないだろ http://mevius.5ch.net/test/read.cgi/tech/1598756127/487
488: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) [] 2020/10/05(月) 19:48:49 ID:UUAqkjmTM >>484 F1キー押す方が早くね？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/488
489: デフォルトの名無しさん (ﾜｯﾁｮｲ 53ce-2+Dn) [sage] 2020/10/05(月) 19:51:04 ID:0f3oInSL0 >>488 押すだけならワンキーだけど、オンラインヘルプはそこからが長い http://mevius.5ch.net/test/read.cgi/tech/1598756127/489
490: デフォルトの名無しさん (ﾜｯﾁｮｲ d3da-Kk5w) [sage] 2020/10/06(火) 10:31:57 ID:9/35+5mY0 大人の対応でうまく誘導してやろうぜ http://mevius.5ch.net/test/read.cgi/tech/1598756127/490
491: デフォルトの名無しさん (ﾜｯﾁｮｲ 1b63-dHQN) [sage] 2020/10/07(水) 19:45:01 ID:FTOZLATq0 下記のように特定の文字を削除して、改行をやめて1行文にしたいのですがコードのご教示いただけないでしょうか やんやんつけ棒§ めちゃ美味い ポテトチップス§ めちゃ美味い ↓ やんやんつけ棒めちゃ美味い ポテトチップスめちゃ美味い http://mevius.5ch.net/test/read.cgi/tech/1598756127/491
492: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM86-J9E+) [sage] 2020/10/07(水) 20:04:32 ID:7ZMz7DKjM まともなテキストエディタ(VSCodeとかサクラエディタとか)で開いて正規表現置換で§¥r¥を空に置換すればよい http://mevius.5ch.net/test/read.cgi/tech/1598756127/492
493: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM86-J9E+) [sage] 2020/10/07(水) 20:05:03 ID:7ZMz7DKjM 訂正 §¥r¥n http://mevius.5ch.net/test/read.cgi/tech/1598756127/493
494: デフォルトの名無しさん (ﾜｯﾁｮｲ 1b63-dHQN) [sage] 2020/10/07(水) 20:27:15 ID:FTOZLATq0 >>492 なるほど…めちゃ助かります。ありがとうございます。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/494
495: デフォルトの名無しさん (ﾜｯﾁｮｲ 8ae6-SfJD) [] 2020/10/07(水) 21:05:04 ID:8t5FIA980 もっと面白い質問しろよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/495
496: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-tQNK) [sage] 2020/10/07(水) 21:08:11 ID:EPmDsevha やんやんつけ棒って何？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/496
497: デフォルトの名無しさん (ﾜｯﾁｮｲ 1b63-dHQN) [sage] 2020/10/07(水) 21:08:37 ID:FTOZLATq0 申し訳ありません、もう一点 A1：私は実は理学部出身 A2：の元々は地質学者です A3： A4：こうした南鳥島で A5： A6：レアアースの濃集が A7：起こる A8： A9：というのは A10： A11：特徴的な層準に ↓ A1：私は実は理学部出身 の元々は地質学者です A2：こうした南鳥島で A3：レアアースの濃集が 起こる A4：というのは A5：特徴的な層準に 下の行に文字列 → ２行の文章として、改行を入れてExcelの１マスにまとめる 下の行が空白 → 1行の文書なのでそのまま これをなんとかVBAで自動化したいのですが記述を教示願えますでしょうか 面白くない質問ですみません… http://mevius.5ch.net/test/read.cgi/tech/1598756127/497
498: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f7c-eFyE) [sage] 2020/10/07(水) 21:11:26 ID:JTTOzasI0 >>497 その条件2つそのままコードに直していけるよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/498
499: デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-xYNh) [sage] 2020/10/07(水) 21:17:21 ID:ueKkqa210 改行がLfなのかCrなのかCrLfなのか知らんが Replace("改行入りの文字列", vbLf, "") http://mevius.5ch.net/test/read.cgi/tech/1598756127/499
500: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f7c-eFyE) [sage] 2020/10/07(水) 21:58:27 ID:JTTOzasI0 >>499 そんなことしたら改行しなくなるが… http://mevius.5ch.net/test/read.cgi/tech/1598756127/500
501: デフォルトの名無しさん (ﾜｯﾁｮｲ ca6d-zMau) [] 2020/10/07(水) 22:16:39 ID:XaxSLEYL0 いつものクレクレ君かな http://mevius.5ch.net/test/read.cgi/tech/1598756127/501
502: デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM3a-pCej) [sage] 2020/10/07(水) 22:51:28 ID:7uT04k8fM ・コードを要求 ・追加で教えて いつもの人だね http://mevius.5ch.net/test/read.cgi/tech/1598756127/502
503: デフォルトの名無しさん (ﾜｯﾁｮｲ 8ae6-KV+F) [sage] 2020/10/07(水) 22:54:48 ID:8t5FIA980 普通に書けばできることを聞く意味が分からん もしかして書けないの？ 書けないならやめればいいのに http://mevius.5ch.net/test/read.cgi/tech/1598756127/503
504: デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM02-dHQN) [sage] 2020/10/07(水) 22:56:25 ID:Az9cGqg8M >>498 >>499 ありがとうございますm(__)m http://mevius.5ch.net/test/read.cgi/tech/1598756127/504
505: デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-xYNh) [sage] 2020/10/08(木) 01:49:40 ID:584FeZ4r0 >>497 VBAに慣れている人なら簡単に自動化というかVBAで組める内容ではある 問題はこの程度の内容を質問するより先に、自力でできるとこまで自分で やらなかった最初の一歩が間違っているんだと思う http://mevius.5ch.net/test/read.cgi/tech/1598756127/505
506: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-J9E+) [sage] 2020/10/08(木) 09:04:33 ID:BqKPxLQJa CSVとして保存 VSCode等のまともなエディタで開く ([^¥r]+)¥r¥n([^¥r]+)を”$1¥r¥n$2”に置換 ¥r¥n¥r¥nを¥r¥nに置換 Excelにインポート >>492同様にワンショットでいいならこんな感じでいけるんじゃね http://mevius.5ch.net/test/read.cgi/tech/1598756127/506
507: デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-tQNK) [sage] 2020/10/08(木) 14:32:22 ID:584FeZ4r0 それができないのが初心者 http://mevius.5ch.net/test/read.cgi/tech/1598756127/507
508: デフォルトの名無しさん (ﾌﾞｰｲﾓ MM76-HnI9) [sage] 2020/10/08(木) 15:37:32 ID:d1cy1ieUM クレクレ君のより煽ってる奴のがうざいんだけどね VBAだけが人並にできるからこのスレにいつも欠かさず覗きにきてる感じか？ いつものお前が邪魔ですよお http://mevius.5ch.net/test/read.cgi/tech/1598756127/508
509: デフォルトの名無しさん (ﾜｯﾁｮｲ 0668-xYNh) [sage] 2020/10/08(木) 15:59:16 ID:btiqMG+Y0 >>508 大丈夫スルーしてるから 遠まわしでも構うと同列に http://mevius.5ch.net/test/read.cgi/tech/1598756127/509
510: デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM3a-R/IE) [sage] 2020/10/08(木) 17:05:05 ID:+6fedHspM >>508 くれくれ君本人乙 http://mevius.5ch.net/test/read.cgi/tech/1598756127/510
511: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f7c-eFyE) [sage] 2020/10/08(木) 19:30:11 ID:bwT1M8vM0 >>507 できないことは問題じゃない やろうとしないことが問題 http://mevius.5ch.net/test/read.cgi/tech/1598756127/511
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 491 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.020s