[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
393: (ﾜｯﾁｮｲ 03ef-b+lb) 2020/09/25(金)23:34 ID:3gugGrYy0(1) AAS
>>390
これ、たしか罫線の種類で、基本ごっつい順に優先順位があったはず
ついでに、セルの書式設定で罫線設定すると、隣のセルの罫線設定も消えたり変わったりする
394: (ﾜｯﾁｮｲ 4b49-b+lb) 2020/09/26(土)11:57 ID:aYgi9d/P0(1/2) AAS
太いほうだった（Excelばーじょん2016）
画像ﾘﾝｸ[png]:i.imgur.com
印刷境界とかは分けて認識されてるから、なんだかんだ自分のコードを検証したほうがいいな
395: (ﾜｯﾁｮｲ 4b49-b+lb) 2020/09/26(土)13:23 ID:aYgi9d/P0(2/2) AAS
あ、宣言とかしときながらシート指定するん忘れてやがる
396: (ﾜｯﾁｮｲ 5f01-b+lb) 2020/09/26(土)19:01 ID:J5kcfwi60(1) AAS
ﾜﾗﾀ
397(3): (ﾜｯﾁｮｲ 5fda-b+lb) 2020/09/26(土)20:07 ID:wDXyaCpN0(1) AAS
getElementBy飽きたんだけど、RPA的制御じゃなくて、htttp通信を駆使してどうにかする、みたいのない?
APIとか使えない古いシステムに対して。
398: (ﾜｯﾁｮｲ 4bda-b+lb) 2020/09/27(日)07:29 ID:KJpIeh7z0(1) AAS
htttp通信がわからんがセキュリティー的に問題起きるんじゃね
399: (ﾜｯﾁｮｲ 168e-jKyR) 2020/09/27(日)15:17 ID:a7rnW+2W0(1) AAS
htttpは、ハイパー・トンマ・トンチンカン・タコ・( ´,_ゝ｀)ﾌﾟｯの略かな
400(1): (ｽｯﾌﾟ Sd52-OmYe) 2020/09/27(日)15:27 ID:o5RjmHqkd(1) AAS
>>397
アセンブラやりたいってこと?
というのと同じ話。
InternetExplorer.Applicationじゃ無くてもみんなgetElementBy使う。
こういう便利なものを放棄するならhtmlのソースを自前テキスト処理で頑張るしかないと思うが。
普通はmsxml2.xmlhttpとかでソース取得して、それをDocumentに入れてgetElemetsByだな。
401(1): (ﾜｯﾁｮｲ 5f01-b+lb) 2020/09/27(日)17:34 ID:V5qiYsAI0(1) AAS
>>397
その辺は自作ライブラリでビブラートに包めばOK
402(1): (ﾃﾃﾝﾃﾝﾃﾝ MMde-Pn4v) 2020/09/27(日)18:37 ID:ZqjiPey8M(1) AAS
>>401
> >>397
> その辺は自作ライブラリでビブラートに包めばOK
震わせてどうすんのさ。オブラートだろって釣られた
403(1): (ﾜｯﾁｮｲ 5fda-b+lb) 2020/09/27(日)18:40 ID:6iq7bspN0(1/2) AAS
>>400
マジか!
xmlがどうとか、APIがないとダメなんだと思ってたわ。
404(1): (ﾜｯﾁｮｲ 5fda-b+lb) 2020/09/27(日)18:44 ID:6iq7bspN0(2/2) AAS
ん?
それだと、逆に何のためにGUI操作(IE制御)の方法があるの?
初心者用?
405: (ｽｯﾌﾟ Sd32-OmYe) 2020/09/28(月)07:43 ID:VRZutR0gd(1) AAS
>>403
勘違いしてる。
別のAPI使ってるということだ。
で、別のAPIにもgetElemetByが出てくると言ってる。
406: (ﾜｯﾁｮｲ 922f-ozis) 2020/09/28(月)13:09 ID:LAwWa5+y0(1) AAS
RPA的制御がなにかよくわからんが
getElementしたくなかったら、API利用してxml取得しろみたいな話を言われたんじゃないか
それでAPI使えないけどgetElementしない方法ないの？と
取得できるものがhtmlなら、すなおにgetElementしとけ 以上
ちなみにxmlだろうとhtmlだろうとcsvだろうと、それは多くの場合httpで取得してるだろうがな
407(1): (ｵｲｺﾗﾐﾈｵ MM6e-oFxJ) 2020/09/28(月)15:51 ID:m7hqrCGdM(1) AAS
>>402
オブラートに包んでもおかしくないか
普通ラップするとかカプセル化するとか言うんじゃ・・・
>>404
どれもhttp通信でデータを取得できる共通点があるだけで、目的はそれぞれ違う
IEクラスはブラウザを操作する為のコンポーネントの一部
mshttpクラスはIEがスクリプトでhttp通信をするためのコンポーネントの一部
WinHttpRequestクラスはWindowsがhttp通信をするためのコンポーネントの一部
(コンポーネントっていうのはプログラムの部品として使うのが想定されている小さいプログラムのこと)
それぞれ色んなシステムで使えるようにCOMインターフェースっていう取説のようなものが実装されていて、VBAはそのおかげで間借り出来てるだけ
省2
408: (ｽｯﾌﾟ Sd32-PD9b) 2020/09/28(月)16:26 ID:gMLgNw+wd(1) AAS
それをVBAでやる意味は何？
もっと他に簡単に出来る言語でやれは？
409: (ﾗｸｯﾍﾟﾍﾟ MMde-T5KC) 2020/09/28(月)16:37 ID:oE/worxcM(1) AAS
結果をexcelで扱うならVBAが最適では？
410: (ﾃﾃﾝﾃﾝﾃﾝ MMde-AIC5) 2020/09/28(月)18:37 ID:jqaTJ4CpM(1) AAS
CSVで吐いてExcelで開くだけだろう
411: (ﾜｯﾁｮｲ 124f-OaTC) 2020/09/28(月)19:21 ID:JyFvX52s0(1) AAS
あーい
あーい
ああああーい
412: (ﾜｯﾁｮｲ 1663-QTQj) 2020/09/28(月)21:25 ID:d76PIxro0(1) AAS
質問させていただきます
ユーザーフォームのテキストボックスにフォーカスがあたってる(入力状態)でwindowsのデスクトップがアクティブもしくは他アプリケーションがアクティブを検知することはできますでしょうか？
タッチパネルなどでユーザーフォーム外をタッチしてしまった時を検出したいです。
できるのであればご教授願いたい…
413(1): (ﾜｯﾁｮｲ b35f-OzOo) 2020/09/29(火)00:06 ID:bEee4vhd0(1) AAS
Windowオブジェクトにどんなプロパティがあるんだっけ
414(1): (ﾜｯﾁｮｲ b35f-QE0L) 2020/09/29(火)00:29 ID:zU8eGPuC0(1) AAS
フォームのdeactivateイベント拾ってテキストボックスのフォーカス状態見て処理するとかどうかな
415(1): (ﾜｯﾁｮｲ 237c-F8K1) 2020/09/29(火)00:32 ID:zjqvAHva0(1) AAS
deactivateは用途が違う
416: (ﾜｯﾁｮｲ 4b2c-ozis) 2020/09/29(火)00:49 ID:Iz7+ZlTk0(1) AAS
HTML, XML, CSV などのスクレイピングなら、
Ruby で、Nokogiri, Selenium Webdriver などが簡単
curl, wget でも、ファイルをダウンロードできるし
Rubyで、nokogiri, curl を使った例
require 'nokogiri'
html = `curl 外部ﾘﾝｸ:www.example.com`
省3
417: (ﾜｯﾁｮｲ 23e6-T5KC) 2020/09/29(火)06:58 ID:iE38wEdU0(1) AAS
外部プロセスの起動、待機、出力の取り込みまで実装してくださいよ
418: (ﾜｯﾁｮｲ 5f01-b+lb) 2020/09/29(火)09:56 ID:UZS7qkIf0(1) AAS
Rubyの自動運転は使いやすかったけど
早々にサポート切られたから印象悪い
419(2): (ｱｳｱｳｳｰ Sa43-QTQj) 2020/09/29(火)11:55 ID:NIgnBYPca(1) AAS
>>413
調べて見ましたがそれっぽいものは発見できませんでした…
>>414
>>415さんのおっしゃる通りブックやユーザーフォームのDeactivateイベントでは機能しませんでした。
420: (ｽｯｯﾌﾟ Sd32-OmYe) 2020/09/29(火)23:34 ID:Rcn+G4xKd(1) AAS
VBAでやる意味?
VBA以外だとアホな操作が必要だぞ。
1.Excelを閉じる。
2.他言語で実行。
3.csvをExcelで開く。
全くアホらしい。
運用についての考え方がまるで違う。
他言語でやる場合ってのはバッチ処理なのか?
それしか無いのか?
そういうブツ切りでデータ加工していくというなら寧ろExcelなんぞ使わん。
421: (ﾜｯﾁｮｲ e3da-yeTY) 2020/09/30(水)00:00 ID:BPaZHsLq0(1) AAS
>>407
jsしたかったらIEするしかないのね。
今時のHPほぼ全滅じゃん。
422(1): (ﾜｯﾁｮｲ b3e6-2+Dn) 2020/09/30(水)00:36 ID:5bnpK3a00(1) AAS
>>419
WINAPIでポーリング
画像ﾘﾝｸ[png]:i.imgur.com
423: (ﾜｯﾁｮｲ 53ce-2+Dn) 2020/09/30(水)06:50 ID:RkFeWfqX0(1) AAS
イルカのカイル
424(1): (ﾜｯﾁｮｲ f35f-67ZW) 2020/09/30(水)16:18 ID:7F4wikGt0(1) AAS
>>419
そのマルチタスク、マルチウィンドウを否定したい理由は何なの？
425(4): (ﾜｯﾁｮｲ cf63-dtjG) 2020/09/30(水)16:57 ID:QOxpj5qw0(1) AAS
>>424
フォームのテキストボックスに機器の計測値が入るようになっており
テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れないのでおじーちゃんたちにも気づくようにフォーカスが離れた時に警告ユーザーフォームを出したいのです。他アプリケーションなどを立ち上げる事も想定されます。
>>422
情報ありがとうございます
画像の通りやってみましたがイルカさんは働いてくれませんでした…
426: (ﾜﾝﾄﾝｷﾝ MM9f-hUkp) 2020/09/30(水)20:43 ID:2p9V72Q+M(1) AAS
>>425
アホとしか言えんわ
そもそも設計が間違えてる
427: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/09/30(水)21:46 ID:d9KXZKY60(1) AAS
>>425
値を入れる部分を直せよ
428: (ﾜｯﾁｮｲ ffe6-2+Dn) 2020/09/30(水)22:51 ID:wQcBlxXT0(1) AAS
RPAとか使ったらこんなおぞましいものができたりするのかな？
でも普通はExcelぐらいサポートしてるよな。。。
429: (ﾜｯﾁｮｲ b37c-Uy5C) 2020/09/30(水)23:05 ID:FnwBo45S0(1) AAS
むしろRPA向きの案件だと思う
430: (ﾃﾃﾝﾃﾝﾃﾝ MM7f-vZte) 2020/10/01(木)01:07 ID:lGabW6tFM(1) AAS
>>425
> フォームのテキストボックスに機器の計測値が入るようになっており
wの前にデータ取得しとるわなw
>テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れない
wそんな業務データを取りこぼすとか意味不明w
>のでおじーちゃんたちにも気づくように
wなんだ？老害か？w
431(1): (ﾜｯﾁｮｲ 7f4b-3DJV) 2020/10/01(木)01:18 ID:eVzeZjSn0(1) AAS
意味がわからないなら黙ってればいいじゃない
432: (ﾌﾞｰｲﾓ MMff-gZNM) 2020/10/01(木)07:38 ID:v/kjpRq5M(1) AAS
業務用ツール作るのってホント大変よな……
使いたい人向けに配信するんじゃなくて、使わされる人に使ってもらうツールだからどんなに優しいUIにしても平気で想像を上回るイレギュラーな操作して動かなくなった！ポンコツめ！みたいなクレーム出してくる人もいるし
単純に新しい物を使いたくないからってワザとメチャクチャな操作したりもしてるんだろうけど
ツールを要求してくる上の人達は現状の環境で対応出来るようにしたいからExcelのマクロでどうにかしてよ！とか言ってくるし、VBAはなんでも出来る魔法のツールだと思ってるし
長々と愚痴ってスマンな
スレチだよな
433: (ｽｯｯﾌﾟ Sd1f-nakg) 2020/10/01(木)07:49 ID:H0TKMoBwd(1) AAS
Windowsの標準のユーザーインターフェイスを意識しないと、使いやすいと思ったものが結局つかいにくくなる。
フォーカスがあたってなくても計測値が取れるように作るという発想が無いのが厳しい。
そんなこと出来ないなら根本から違うユーザーインターフェイスを採用すべき。
こういう処理でユーザーに何かさせる必要は無い筈。
434(1): (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/01(木)10:04 ID:+ML6JMtp0(1) AAS
初心者がツール作るように言われたら大変なんだろうな、俺は大変だと思ったことないが
435(1): (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/01(木)10:34 ID:6DJ6J+GDM(1) AAS
タブレットでバーコードリーダーのキーボード入力モードでも使ってるんだろうなと想像
COMで操作できるライブラぐらい付いているだろうからそれ使えば解決
436: (ﾜｯﾁｮｲ cf63-dtjG) 2020/10/01(木)16:54 ID:Ld5Ou2iR0(1) AAS
>>435
まさにおっしゃる通りで作業進捗をバーコードで管理するものを作りました。
次は工程内のチェックシートと計測値などのトレーサビリティです禿げそう
とりあえず計測器具も試用で借りてる段階なのでメーカーにライブラリの事聞いてみます…
437: (ﾃﾃﾝﾃﾝﾃﾝ MM7f-vZte) 2020/10/01(木)17:12 ID:W6bAQtLIM(1) AAS
>>431
知ってた
438: (ｱｳｱｳｴｰ Sadf-ywH8) 2020/10/01(木)18:58 ID:9Yax9dsIa(1) AAS
>>434
かっけぇ
439(3): (ﾜｯﾁｮｲ ff1f-Fuq4) 2020/10/01(木)21:36 ID:dM4yb7Ap0(1) AAS
罫線で囲われてたり、色塗りされたりするセルをマウスでドラッグ移動した時移動した場所は何もなくるなるのを罫線のみを残す方法ってありませんか？
簡単に言うと罫線で作った表の形式を保持したい。
440: (ｵｲｺﾗﾐﾈｵ MMa7-gXeV) 2020/10/01(木)21:50 ID:5ESnmk3DM(1) AAS
>>439
テンプレートを隠しシートに保存しておいて、
ボタン押下で書式をコピペしてくるってどう？
441: (ﾜｯﾁｮｲ e33d-9f2k) 2020/10/01(木)22:00 ID:gLHdGUpR0(1) AAS
>>439
切り貼りじゃなくてコピーアンドペーストした後に元のところの数式と値をクリア(右クリック+N)すればよいのでは
442: (ﾜｯﾁｮｲ ff02-Uy5C) 2020/10/01(木)23:26 ID:ywfP0KwV0(1) AAS
changeイベントで常に罫線引くことしか思いつかん
443: (ﾜｯﾁｮｲ b37c-Uy5C) 2020/10/01(木)23:48 ID:2OGRwJxy0(1) AAS
移動できないようにする
444: (ﾜｯﾁｮｲ e3da-yeTY) 2020/10/02(金)01:42 ID:MWdBgx4Q0(1/2) AAS
セルをマウスでドラッグって何だよ?
エクセルで将棋でもやるの?
445: (ﾜｯﾁｮｲ f35f-67ZW) 2020/10/02(金)01:43 ID:ChxT/cO/0(1/2) AAS
>>425
それExcel VBAでやるものではない。
自分のやりたいようにやりたければ、Windows SDKでの開発をしてください。
446: (ﾜｯﾁｮｲ f35f-67ZW) 2020/10/02(金)01:49 ID:ChxT/cO/0(2/2) AAS
>>439
そもそも手順というものを考えた方がいい。
移動する前の情報を移動先には持ってくるが、移動元にはその情報を適用しないのはなぜ？
447: (ﾜｯﾁｮｲ d3cc-gW4a) 2020/10/02(金)10:09 ID:A7BNHAQE0(1/3) AAS
指定したフォルダ内の全てのＣＶＳファイルを配列に追記していき対のですが、コードを教えてください
配列の０列目（１次元目）にはそれぞれのＣＳＶファイルのファイル名をいれたいです。
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
省4
448(1): 447 (ﾜｯﾁｮｲ d3cc-gW4a) 2020/10/02(金)10:09 ID:A7BNHAQE0(2/3) AAS
つづき
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,",")
省5
449(1): (ﾌﾞｰｲﾓ MM27-gZNM) 2020/10/02(金)10:42 ID:cHoSzh9XM(1) AAS
ReDim Preserveで操作可能なのは最右端の次元だけだから2次元配列で1次元目に使いたいなら一旦反転させた状態で操作して出力時にWorksheetfunction.transpose使って吐き出す必要があるぞ
いまいち最終目的が分からなかったから取り合えず読んでて気になった所だけ
450: (ﾜｯﾁｮｲ d32c-G8Sl) 2020/10/02(金)10:56 ID:ooD45Zz30(1/2) AAS
Linux のcat なら、複数のファイルを連結できるけど
451: (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/02(金)12:25 ID:XdHW2/g2M(1/2) AAS
win dosならcopyで連結できるけど
452: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/02(金)12:29 ID:a296oIK60(1/2) AAS
>>448
内側のLoop内で Tardt ってのが気になった
453(2): 447 (ﾜｯﾁｮｲ d3cc-jreG) 2020/10/02(金)13:32 ID:A7BNHAQE0(3/3) AAS
>>449
右端にファイル名を入れるにはどうしたらいいですか？
それと、配列のＵｐｐｅｒをどう設定したらいいですか？
454: (ﾜｯﾁｮｲ ff6d-Zm3W) 2020/10/02(金)15:56 ID:7/1+1goB0(1) AAS
また馬鹿な質問者か。それともいつもの厚かましい馬鹿か？
455(1): (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/02(金)16:13 ID:XdHW2/g2M(2/2) AAS
右端の次元と右端の列では話の次元が違うけどわざとやってんのかなー？
excelなんだからとりあえずシートに格納すればいいと思うんだけどなー
配列に1行づつ追加するよりはやいんじゃね？
VBは動的配列無いんだからパフォーマンス出すには頭を使わにゃいかんよ
行数をキーにしたDictionaryもいいかもね
456: (ﾜｯﾁｮｲ ffad-gZNM) 2020/10/02(金)16:51 ID:p6rjz1Jr0(1) AAS
>>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)
省1
457: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/02(金)18:32 ID:a296oIK60(2/2) AAS
>>453
こういうことじゃないのか
targetdata = buf & "," & targetdata
458: (ﾜｯﾁｮｲ e3da-Kk5w) 2020/10/02(金)22:17 ID:MWdBgx4Q0(2/2) AAS
>>455
サイドブレーキを使う坂道発進をダサイと感じるようなもので、
どう考えてもシート格納が合理的なのに、無理して配列を使うわけですよ。
459(1): (ﾜｯﾁｮｲ d32c-G8Sl) 2020/10/02(金)23:43 ID:ooD45Zz30(2/2) AAS
CSV の規格では、各要素をクォート文字で囲めば、
各要素中に、列区切り文字も入れられる
"a,b", x
Ruby などのCSVライブラリを使わず、
自力で、列区切り文字で分割すると、バグるだけ
CSVの規格を知らない香具師が、よくやってる
460(1): (ﾜｯﾁｮｲ 7f4b-3DJV) 2020/10/03(土)00:18 ID:DSTQ9BDR0(1/2) AAS
csvに規格ってあったんだ
461: (ﾜｯﾁｮｲ f35f-MSJL) 2020/10/03(土)07:11 ID:umHauNXS0(1) AAS
ExcelでCSVをダブルクリックで開いて編集、上書きして事故る人が多いね
462: (ﾜｯﾁｮｲ ff01-V07v) 2020/10/03(土)07:17 ID:NCQ7EVNV0(1) AAS
>>460
一応あるけど結局Excelで読めないとダメって言うケースが大多数だったりする
外部ﾘﾝｸ:www.kasai.fm
463: (ﾜｯﾁｮｲ 53ce-2+Dn) 2020/10/03(土)08:43 ID:2jz2H7gQ0(1) AAS
そのRFCって、たくさんあるローカルルールの1つを紹介してるだけだよな
強制力もなさそうだし、現時点ではあんまり意味がなさそう
464: (ﾜｯﾁｮｲ f35f-67ZW) 2020/10/03(土)11:51 ID:ylT9+9xh0(1) AAS
>>459
マイクロソフトの製品はそれに沿っているものがあるが、クォーテーションがついたり、つかなかったりするのは、人間にとってもタチが悪く、完全に失敗した仕様と結論が出ている。
465(1): 459 (ﾜｯﾁｮｲ d32c-IT45) 2020/10/03(土)13:01 ID:/wA+nWqo0(1/2) AAS
列区切り文字は、必要なければ省略できる
つまり、x も、"x" も同じ。
全ての要素に、付けてもよい
ただし、"a,b" みたいに要素内に、
行区切り文字・列区切り文字・クォート文字を含む場合は、省略できない
466: 459 (ﾜｯﾁｮｲ d32c-IT45) 2020/10/03(土)13:03 ID:/wA+nWqo0(2/2) AAS
>>465
修正
>列区切り文字は、必要なければ省略できる
クォート文字は、必要なければ省略できる
467: (ﾜｯﾁｮｲ 7f4b-3DJV) 2020/10/03(土)13:04 ID:DSTQ9BDR0(2/2) AAS
できないって言われましても強制力無いですし
468: (ﾜｯﾁｮｲ ff2f-G8Sl) 2020/10/03(土)13:34 ID:zZGrTJee0(1) AAS
まあそもそも多数の実装が出てからそれ集めて決めた仕様だからな
469: (ﾜｯﾁｮｲ e3da-Kk5w) 2020/10/03(土)19:43 ID:WrZNWJut0(1) AAS
そういやあれ何だろうな。
QueryTableだとセル内改行でずれるのに、
ADOだとずれないとか。
470: (ﾜｯﾁｮｲ 6309-gW4a) 2020/10/04(日)19:09 ID:mqiPq7lq0(1/3) AAS
配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。
Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
省3
471(3): (ﾜｯﾁｮｲ 6309-gW4a) 2020/10/04(日)19:09 ID:mqiPq7lq0(2/3) AAS
配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。
Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
省3
472: (ﾜｯﾁｮｲ 6309-gW4a) 2020/10/04(日)19:09 ID:mqiPq7lq0(3/3) AAS
連投すいません
473: (ｽｯｯﾌﾟ Sd1f-+ya4) 2020/10/04(日)19:15 ID:l1LxtJm7d(1) AAS
注意
ID:mqiPq7lq0
いつもの馬鹿です
474: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/04(日)21:13 ID:3bz1Ts/P0(1) AAS
>>471
検索したらいいんじゃね
475(1): (ﾜｯﾁｮｲ b37c-Uy5C) 2020/10/04(日)21:42 ID:NRUY+ZF00(1) AAS
>>471
例えとかいい感じとかじゃなくて正確にコードを提示してどの部分をどうしたいのか明確に説明した方がいいよ
476: (ｽｯｯﾌﾟ Sd1f-EBv7) 2020/10/04(日)21:43 ID:hlbFeQNpd(1) AAS
後出し続けて全部作ってもらおうという魂胆の奴だぞ
477: (ｵｯﾍﾟｹ Sr47-owA3) 2020/10/05(月)01:21 ID:Roj0MJiCr(1) AAS
VBAからIEを操作して、タグを指定して.valueやselctedで自動化しているのですが、ヤフオクの商品説明だけどうしても値の挿入ができません。
Tabや近い要素をフォーカスしたりクリックし、SendkeyなどでShift +Tabからエンダーなど試していますが、一向に解決できません。
直接でか無くてもカーソルが点滅させれれば、クリップボード経由で貼り付けるような仕様にしようと考えています。
478: (ﾜｯﾁｮｲ d32c-IT45) 2020/10/05(月)07:08 ID:z7kgQPv30(1/2) AAS
漏れは、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 "外部ﾘﾝｸ:login.yahoo.co.jp
省6
479: 478 (ﾜｯﾁｮｲ d32c-IT45) 2020/10/05(月)07:11 ID:z7kgQPv30(2/2) AAS
そもそも、IE なんか動くのか？
漏れは、Chrome
480(1): (ﾊﾞｯﾄﾝｷﾝ MMc7-7HYc) 2020/10/05(月)12:57 ID:BlyIycRMM(1/2) AAS
>>475
すみません。
Sub test
Dim i,ary()
For i = 1 to 2
ary = TestFunc ※ary配列の要素の最後に呼び出した配列を追加していきたい
Next
End
481(1): (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/05(月)13:22 ID:PJYbs+y10(1/2) AAS
配列に配列を追加するのを初心者がつくるなら
追加する2つの配列と結果を格納する配列の計３つを用意して順番に格納すればできないかな？
482: (ﾜﾝﾄﾝｷﾝ MMe7-hUkp) 2020/10/05(月)14:35 ID:8f5Gi5TxM(1) AAS
>>480
いい加減にしろや糞が
483(1): (ﾜｯﾁｮｲ ff2f-IT45) 2020/10/05(月)14:54 ID:3En1oQ3G0(1) AAS
>>471
redim preserveとUBoundを使うのかも
まあしかし、その処理ほんとに配列でやるのが良いのか検討したほうが良いんだが
VBAコレクション系弱いからなぁ
484(1): (ﾜｯﾁｮｲ d3da-y5MG) 2020/10/05(月)15:05 ID:PJYbs+y10(2/2) AAS
検索すればすむのにね
485: (ﾊﾞｯﾄﾝｷﾝ MMc7-7HYc) 2020/10/05(月)17:50 ID:BlyIycRMM(2/2) AAS
>>481
>>483
ありがとうございました。
486: (ﾌﾞｰｲﾓ MMe7-k/5x) 2020/10/05(月)17:58 ID:FAPvswgpM(1) AAS
喧嘩腰だなあ
何しにきてんのさ
487: (ｱｳｱｳｳｰ Sa27-y5MG) 2020/10/05(月)18:26 ID:KW0b9HJla(1) AAS
くれくれ君だからしょうがないだろ
488(1): (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/05(月)19:48 ID:UUAqkjmTM(1) AAS
>>484
F1キー押す方が早くね？
489: (ﾜｯﾁｮｲ 53ce-2+Dn) 2020/10/05(月)19:51 ID:0f3oInSL0(1) AAS
>>488
押すだけならワンキーだけど、オンラインヘルプはそこからが長い
490: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/06(火)10:31 ID:9/35+5mY0(1) AAS
大人の対応でうまく誘導してやろうぜ
491: (ﾜｯﾁｮｲ 1b63-dHQN) 2020/10/07(水)19:45 ID:FTOZLATq0(1/3) AAS
下記のように特定の文字を削除して、改行をやめて1行文にしたいのですがコードのご教示いただけないでしょうか
やんやんつけ棒§
めちゃ美味い
ポテトチップス§
めちゃ美味い
↓
やんやんつけ棒めちゃ美味い
省1
492(2): (ﾃﾃﾝﾃﾝﾃﾝ MM86-J9E+) 2020/10/07(水)20:04 ID:7ZMz7DKjM(1/2) AAS
まともなテキストエディタ(VSCodeとかサクラエディタとか)で開いて正規表現置換で§¥r¥を空に置換すればよい
上下前次1-新書関写板覧索設栞歴
あと 510 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.033s