[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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¥を空に置換すればよい
493: (ﾃﾃﾝﾃﾝﾃﾝ MM86-J9E+) 2020/10/07(水)20:05 ID:7ZMz7DKjM(2/2) AAS
訂正
§¥r¥n
494: (ﾜｯﾁｮｲ 1b63-dHQN) 2020/10/07(水)20:27 ID:FTOZLATq0(2/3) AAS
>>492
なるほど…めちゃ助かります。ありがとうございます。
495: (ﾜｯﾁｮｲ 8ae6-SfJD) 2020/10/07(水)21:05 ID:8t5FIA980(1/2) AAS
もっと面白い質問しろよ
496: (ｱｳｱｳｳｰ Sa2f-tQNK) 2020/10/07(水)21:08 ID:EPmDsevha(1) AAS
やんやんつけ棒って何？
497(2): (ﾜｯﾁｮｲ 1b63-dHQN) 2020/10/07(水)21:08 ID:FTOZLATq0(3/3) AAS
申し訳ありません、もう一点
A1：私は実は理学部出身
A2：の元々は地質学者です
A3：
A4：こうした南鳥島で
A5：
A6：レアアースの濃集が
A7：起こる
A8：
A9：というのは
省14
498(1): (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/07(水)21:11 ID:JTTOzasI0(1/2) AAS
>>497
その条件2つそのままコードに直していけるよ
499(2): (ﾜｯﾁｮｲ cbda-xYNh) 2020/10/07(水)21:17 ID:ueKkqa210(1) AAS
改行がLfなのかCrなのかCrLfなのか知らんが
Replace("改行入りの文字列", vbLf, "")
500: (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/07(水)21:58 ID:JTTOzasI0(2/2) AAS
>>499
そんなことしたら改行しなくなるが…
501: (ﾜｯﾁｮｲ ca6d-zMau) 2020/10/07(水)22:16 ID:XaxSLEYL0(1) AAS
いつものクレクレ君かな
502: (ﾜﾝﾄﾝｷﾝ MM3a-pCej) 2020/10/07(水)22:51 ID:7uT04k8fM(1) AAS
・コードを要求
・追加で教えて
いつもの人だね
503: (ﾜｯﾁｮｲ 8ae6-KV+F) 2020/10/07(水)22:54 ID:8t5FIA980(2/2) AAS
普通に書けばできることを聞く意味が分からん
もしかして書けないの？
書けないならやめればいいのに
504: (ﾄﾞｺｸﾞﾛ MM02-dHQN) 2020/10/07(水)22:56 ID:Az9cGqg8M(1) AAS
>>498
>>499
ありがとうございますm(__)m
505: (ﾜｯﾁｮｲ 67da-xYNh) 2020/10/08(木)01:49 ID:584FeZ4r0(1/2) AAS
>>497
VBAに慣れている人なら簡単に自動化というかVBAで組める内容ではある
問題はこの程度の内容を質問するより先に、自力でできるとこまで自分で
やらなかった最初の一歩が間違っているんだと思う
506: (ｱｳｱｳｳｰ Sa2f-J9E+) 2020/10/08(木)09:04 ID:BqKPxLQJa(1) AAS
CSVとして保存
VSCode等のまともなエディタで開く
([^¥r]+)¥r¥n([^¥r]+)を”$1¥r¥n$2”に置換
¥r¥n¥r¥nを¥r¥nに置換
Excelにインポート
>>492同様にワンショットでいいならこんな感じでいけるんじゃね
507(1): (ﾜｯﾁｮｲ 67da-tQNK) 2020/10/08(木)14:32 ID:584FeZ4r0(2/2) AAS
それができないのが初心者
508(2): (ﾌﾞｰｲﾓ MM76-HnI9) 2020/10/08(木)15:37 ID:d1cy1ieUM(1) AAS
クレクレ君のより煽ってる奴のがうざいんだけどね
VBAだけが人並にできるからこのスレにいつも欠かさず覗きにきてる感じか？
いつものお前が邪魔ですよお
509: (ﾜｯﾁｮｲ 0668-xYNh) 2020/10/08(木)15:59 ID:btiqMG+Y0(1) AAS
>>508
大丈夫スルーしてるから
遠まわしでも構うと同列に
510: (ﾜﾝﾄﾝｷﾝ MM3a-R/IE) 2020/10/08(木)17:05 ID:+6fedHspM(1) AAS
>>508
くれくれ君本人乙
上下前次1-新書関写板覧索設栞歴
あと 492 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.039s