Excel VBA 質問スレ Part68

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ﾜｯﾁｮｲ dbda-8BP0)
垢版 |
2020/08/30(日) 11:55:27.33ID:Oy/VxFsh0
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

※前スレ
Excel VBA 質問スレ Part67
https://mevius.5ch.net/test/read.cgi/tech/1593104489/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2020/09/28(月) 07:43:08.08ID:VRZutR0gd
>>403
勘違いしてる。
別のAPI使ってるということだ。
で、別のAPIにもgetElemetByが出てくると言ってる。
2020/09/28(月) 13:09:33.23ID:LAwWa5+y0
RPA的制御がなにかよくわからんが
getElementしたくなかったら、API利用してxml取得しろみたいな話を言われたんじゃないか
それでAPI使えないけどgetElementしない方法ないの？と

取得できるものがhtmlなら、すなおにgetElementしとけ　以上
ちなみにxmlだろうとhtmlだろうとcsvだろうと、それは多くの場合httpで取得してるだろうがな
2020/09/28(月) 15:51:42.57ID:m7hqrCGdM
>>402
オブラートに包んでもおかしくないか
普通ラップするとかカプセル化するとか言うんじゃ・・・

>>404
どれもhttp通信でデータを取得できる共通点があるだけで、目的はそれぞれ違う

IEクラスはブラウザを操作する為のコンポーネントの一部
mshttpクラスはIEがスクリプトでhttp通信をするためのコンポーネントの一部
WinHttpRequestクラスはWindowsがhttp通信をするためのコンポーネントの一部
(コンポーネントっていうのはプログラムの部品として使うのが想定されている小さいプログラムのこと)

それぞれ色んなシステムで使えるようにCOMインターフェースっていう取説のようなものが実装されていて、VBAはそのおかげで間借り出来てるだけ
どれもVBAの為だけに作ったプログラムではない

ちなみにIEクラスの利点として、ブラウザ上でjsが実行されているページにアクセスすることができる点がある
408デフォルトの名無しさん (ｽｯﾌﾟ Sd32-PD9b)
垢版 |
2020/09/28(月) 16:26:17.24ID:gMLgNw+wd
それをVBAでやる意味は何？
もっと他に簡単に出来る言語でやれは？
409デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMde-T5KC)
垢版 |
2020/09/28(月) 16:37:22.01ID:oE/worxcM
結果をexcelで扱うならVBAが最適では？
2020/09/28(月) 18:37:13.13ID:jqaTJ4CpM
CSVで吐いてExcelで開くだけだろう
2020/09/28(月) 19:21:37.82ID:JyFvX52s0
あーい
あーい
ああああーい
2020/09/28(月) 21:25:16.14ID:d76PIxro0
質問させていただきます

ユーザーフォームのテキストボックスにフォーカスがあたってる(入力状態)でwindowsのデスクトップがアクティブもしくは他アプリケーションがアクティブを検知することはできますでしょうか？
タッチパネルなどでユーザーフォーム外をタッチしてしまった時を検出したいです。
できるのであればご教授願いたい…
413デフォルトの名無しさん (ﾜｯﾁｮｲ b35f-OzOo)
垢版 |
2020/09/29(火) 00:06:40.59ID:bEee4vhd0
Windowオブジェクトにどんなプロパティがあるんだっけ
2020/09/29(火) 00:29:27.68ID:zU8eGPuC0
フォームのdeactivateイベント拾ってテキストボックスのフォーカス状態見て処理するとかどうかな
2020/09/29(火) 00:32:40.28ID:zjqvAHva0
deactivateは用途が違う
2020/09/29(火) 00:49:54.82ID: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
417デフォルトの名無しさん (ﾜｯﾁｮｲ 23e6-T5KC)
垢版 |
2020/09/29(火) 06:58:50.11ID:iE38wEdU0
外部プロセスの起動、待機、出力の取り込みまで実装してくださいよ
2020/09/29(火) 09:56:21.75ID:UZS7qkIf0
Rubyの自動運転は使いやすかったけど
早々にサポート切られたから印象悪い
2020/09/29(火) 11:55:53.23ID:NIgnBYPca
>>413
調べて見ましたがそれっぽいものは発見できませんでした…

>>414
>>415さんのおっしゃる通りブックやユーザーフォームのDeactivateイベントでは機能しませんでした。
2020/09/29(火) 23:34:39.45ID:Rcn+G4xKd
VBAでやる意味?
VBA以外だとアホな操作が必要だぞ。

1.Excelを閉じる。
2.他言語で実行。
3.csvをExcelで開く。

全くアホらしい。
運用についての考え方がまるで違う。

他言語でやる場合ってのはバッチ処理なのか?
それしか無いのか?
そういうブツ切りでデータ加工していくというなら寧ろExcelなんぞ使わん。
421デフォルトの名無しさん (ﾜｯﾁｮｲ e3da-yeTY)
垢版 |
2020/09/30(水) 00:00:14.29ID:BPaZHsLq0
>>407
jsしたかったらIEするしかないのね。
今時のHPほぼ全滅じゃん。
2020/09/30(水) 00:36:25.50ID:5bnpK3a00
>>419
WINAPIでポーリング
https://i.imgur.com/NQMR2Km.png
2020/09/30(水) 06:50:20.08ID:RkFeWfqX0
イルカのカイル
424デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-67ZW)
垢版 |
2020/09/30(水) 16:18:36.41ID:7F4wikGt0
>>419
そのマルチタスク、マルチウィンドウを否定したい理由は何なの？
2020/09/30(水) 16:57:41.88ID:QOxpj5qw0
>>424
フォームのテキストボックスに機器の計測値が入るようになっており
テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れないのでおじーちゃんたちにも気づくようにフォーカスが離れた時に警告ユーザーフォームを出したいのです。他アプリケーションなどを立ち上げる事も想定されます。

>>422
情報ありがとうございます
画像の通りやってみましたがイルカさんは働いてくれませんでした…
2020/09/30(水) 20:43:21.94ID:2p9V72Q+M
>>425
アホとしか言えんわ
そもそも設計が間違えてる
2020/09/30(水) 21:46:10.98ID:d9KXZKY60
>>425
値を入れる部分を直せよ
2020/09/30(水) 22:51:09.04ID:wQcBlxXT0
RPAとか使ったらこんなおぞましいものができたりするのかな？
でも普通はExcelぐらいサポートしてるよな。。。
2020/09/30(水) 23:05:33.83ID:FnwBo45S0
むしろRPA向きの案件だと思う
2020/10/01(木) 01:07:42.33ID:lGabW6tFM
>>425
> フォームのテキストボックスに機器の計測値が入るようになっており
wの前にデータ取得しとるわなw

>テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れない
wそんな業務データを取りこぼすとか意味不明w

>のでおじーちゃんたちにも気づくように
wなんだ？老害か？w
2020/10/01(木) 01:18:01.34ID:eVzeZjSn0
意味がわからないなら黙ってればいいじゃない
2020/10/01(木) 07:38:17.90ID:v/kjpRq5M
業務用ツール作るのってホント大変よな……
使いたい人向けに配信するんじゃなくて、使わされる人に使ってもらうツールだからどんなに優しいUIにしても平気で想像を上回るイレギュラーな操作して動かなくなった！ポンコツめ！みたいなクレーム出してくる人もいるし
単純に新しい物を使いたくないからってワザとメチャクチャな操作したりもしてるんだろうけど
ツールを要求してくる上の人達は現状の環境で対応出来るようにしたいからExcelのマクロでどうにかしてよ！とか言ってくるし、VBAはなんでも出来る魔法のツールだと思ってるし

長々と愚痴ってスマンな
スレチだよな
2020/10/01(木) 07:49:06.10ID:H0TKMoBwd
Windowsの標準のユーザーインターフェイスを意識しないと、使いやすいと思ったものが結局つかいにくくなる。

フォーカスがあたってなくても計測値が取れるように作るという発想が無いのが厳しい。
そんなこと出来ないなら根本から違うユーザーインターフェイスを採用すべき。

こういう処理でユーザーに何かさせる必要は無い筈。
2020/10/01(木) 10:04:49.32ID:+ML6JMtp0
初心者がツール作るように言われたら大変なんだろうな、俺は大変だと思ったことないが
435デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru)
垢版 |
2020/10/01(木) 10:34:23.83ID:6DJ6J+GDM
タブレットでバーコードリーダーのキーボード入力モードでも使ってるんだろうなと想像

COMで操作できるライブラぐらい付いているだろうからそれ使えば解決
2020/10/01(木) 16:54:34.45ID:Ld5Ou2iR0
>>435
まさにおっしゃる通りで作業進捗をバーコードで管理するものを作りました。
次は工程内のチェックシートと計測値などのトレーサビリティです禿げそう
とりあえず計測器具も試用で借りてる段階なのでメーカーにライブラリの事聞いてみます…
437デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM7f-vZte)
垢版 |
2020/10/01(木) 17:12:49.41ID:W6bAQtLIM
>>431
知ってた
2020/10/01(木) 18:58:16.32ID:9Yax9dsIa
>>434
かっけぇ
2020/10/01(木) 21:36:53.69ID:dM4yb7Ap0
罫線で囲われてたり、色塗りされたりするセルをマウスでドラッグ移動した時移動した場所は何もなくるなるのを罫線のみを残す方法ってありませんか？
簡単に言うと罫線で作った表の形式を保持したい。
2020/10/01(木) 21:50:29.37ID:5ESnmk3DM
>>439
テンプレートを隠しシートに保存しておいて、
ボタン押下で書式をコピペしてくるってどう？
2020/10/01(木) 22:00:05.10ID:gLHdGUpR0
>>439
切り貼りじゃなくてコピーアンドペーストした後に元のところの数式と値をクリア(右クリック+N)すればよいのでは
2020/10/01(木) 23:26:28.37ID:ywfP0KwV0
changeイベントで常に罫線引くことしか思いつかん
2020/10/01(木) 23:48:07.63ID:2OGRwJxy0
移動できないようにする
444デフォルトの名無しさん (ﾜｯﾁｮｲ e3da-yeTY)
垢版 |
2020/10/02(金) 01:42:30.77ID:MWdBgx4Q0
セルをマウスでドラッグって何だよ?
エクセルで将棋でもやるの?
445デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-67ZW)
垢版 |
2020/10/02(金) 01:43:49.39ID:ChxT/cO/0
>>425
それExcel VBAでやるものではない。
自分のやりたいようにやりたければ、Windows SDKでの開発をしてください。
446デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-67ZW)
垢版 |
2020/10/02(金) 01:49:29.59ID:ChxT/cO/0
>>439
そもそも手順というものを考えた方がいい。
移動する前の情報を移動先には持ってくるが、移動元にはその情報を適用しないのはなぜ？
2020/10/02(金) 10:09:18.16ID: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
2020/10/02(金) 10:09:56.74ID: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
2020/10/02(金) 10:42:45.10ID:cHoSzh9XM
ReDim Preserveで操作可能なのは最右端の次元だけだから2次元配列で1次元目に使いたいなら一旦反転させた状態で操作して出力時にWorksheetfunction.transpose使って吐き出す必要があるぞ
いまいち最終目的が分からなかったから取り合えず読んでて気になった所だけ
2020/10/02(金) 10:56:02.65ID:ooD45Zz30
Linux のcat なら、複数のファイルを連結できるけど
451デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru)
垢版 |
2020/10/02(金) 12:25:22.61ID:XdHW2/g2M
win dosならcopyで連結できるけど
2020/10/02(金) 12:29:54.55ID:a296oIK60
>>448
内側のLoop内で Tardt ってのが気になった
2020/10/02(金) 13:32:21.66ID:A7BNHAQE0
>>449

右端にファイル名を入れるにはどうしたらいいですか？

それと、配列のＵｐｐｅｒをどう設定したらいいですか？
454デフォルトの名無しさん (ﾜｯﾁｮｲ ff6d-Zm3W)
垢版 |
2020/10/02(金) 15:56:01.43ID:7/1+1goB0
また馬鹿な質問者か。それともいつもの厚かましい馬鹿か？
455デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru)
垢版 |
2020/10/02(金) 16:13:26.37ID:XdHW2/g2M
右端の次元と右端の列では話の次元が違うけどわざとやってんのかなー？

excelなんだからとりあえずシートに格納すればいいと思うんだけどなー
配列に1行づつ追加するよりはやいんじゃね？
VBは動的配列無いんだからパフォーマンス出すには頭を使わにゃいかんよ
行数をキーにしたDictionaryもいいかもね
2020/10/02(金) 16:51:14.94ID: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
2020/10/02(金) 18:32:48.78ID:a296oIK60
>>453
こういうことじゃないのか

targetdata = buf & "," & targetdata
2020/10/02(金) 22:17:00.26ID:MWdBgx4Q0
>>455
サイドブレーキを使う坂道発進をダサイと感じるようなもので、
どう考えてもシート格納が合理的なのに、無理して配列を使うわけですよ。
2020/10/02(金) 23:43:54.67ID:ooD45Zz30
CSV の規格では、各要素をクォート文字で囲めば、
各要素中に、列区切り文字も入れられる

"a,b", x

Ruby などのCSVライブラリを使わず、
自力で、列区切り文字で分割すると、バグるだけ

CSVの規格を知らない香具師が、よくやってる
2020/10/03(土) 00:18:46.98ID:DSTQ9BDR0
csvに規格ってあったんだ
461デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-MSJL)
垢版 |
2020/10/03(土) 07:11:14.79ID:umHauNXS0
ExcelでCSVをダブルクリックで開いて編集、上書きして事故る人が多いね
2020/10/03(土) 07:17:22.78ID:NCQ7EVNV0
>>460
一応あるけど結局Excelで読めないとダメって言うケースが大多数だったりする
http://www.kasai.fm/wiki/rfc4180jp
2020/10/03(土) 08:43:50.77ID:2jz2H7gQ0
そのRFCって、たくさんあるローカルルールの1つを紹介してるだけだよな
強制力もなさそうだし、現時点ではあんまり意味がなさそう
464デフォルトの名無しさん (ﾜｯﾁｮｲ f35f-67ZW)
垢版 |
2020/10/03(土) 11:51:59.59ID:ylT9+9xh0
>>459
マイクロソフトの製品はそれに沿っているものがあるが、クォーテーションがついたり、つかなかったりするのは、人間にとってもタチが悪く、完全に失敗した仕様と結論が出ている。
2020/10/03(土) 13:01:37.98ID:/wA+nWqo0
列区切り文字は、必要なければ省略できる

つまり、x も、"x" も同じ。
全ての要素に、付けてもよい

ただし、"a,b" みたいに要素内に、
行区切り文字・列区切り文字・クォート文字を含む場合は、省略できない
2020/10/03(土) 13:03:38.87ID:/wA+nWqo0
>>465
修正

>列区切り文字は、必要なければ省略できる
クォート文字は、必要なければ省略できる
2020/10/03(土) 13:04:25.84ID:DSTQ9BDR0
できないって言われましても強制力無いですし
2020/10/03(土) 13:34:48.02ID:zZGrTJee0
まあそもそも多数の実装が出てからそれ集めて決めた仕様だからな
2020/10/03(土) 19:43:36.45ID:WrZNWJut0
そういやあれ何だろうな。
QueryTableだとセル内改行でずれるのに、
ADOだとずれないとか。
2020/10/04(日) 19:09:07.88ID: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
2020/10/04(日) 19:09:08.25ID: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
2020/10/04(日) 19:09:56.24ID:mqiPq7lq0
連投すいません
2020/10/04(日) 19:15:03.93ID:l1LxtJm7d
注意

ID:mqiPq7lq0

いつもの馬鹿です
2020/10/04(日) 21:13:23.82ID:3bz1Ts/P0
>>471
検索したらいいんじゃね
2020/10/04(日) 21:42:10.14ID:NRUY+ZF00
>>471
例えとかいい感じとかじゃなくて正確にコードを提示してどの部分をどうしたいのか明確に説明した方がいいよ
476デフォルトの名無しさん (ｽｯｯﾌﾟ Sd1f-EBv7)
垢版 |
2020/10/04(日) 21:43:28.32ID:hlbFeQNpd
後出し続けて全部作ってもらおうという魂胆の奴だぞ
2020/10/05(月) 01:21:09.51ID:Roj0MJiCr
VBAからIEを操作して、タグを指定して.valueやselctedで自動化しているのですが、ヤフオクの商品説明だけどうしても値の挿入ができません。
Tabや近い要素をフォーカスしたりクリックし、SendkeyなどでShift +Tabからエンダーなど試していますが、一向に解決できません。
直接でか無くてもカーソルが点滅させれれば、クリップボード経由で貼り付けるような仕様にしようと考えています。
2020/10/05(月) 07:08:41.25ID: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
2020/10/05(月) 07:11:02.53ID:z7kgQPv30
そもそも、IE なんか動くのか？

漏れは、Chrome
2020/10/05(月) 12:57:11.88ID:BlyIycRMM
>>475
すみません。

Sub test
Dim i,ary()
For i = 1 to 2
ary = TestFunc ※ary配列の要素の最後に呼び出した配列を追加していきたい
Next
End
2020/10/05(月) 13:22:13.75ID:PJYbs+y10
配列に配列を追加するのを初心者がつくるなら
追加する2つの配列と結果を格納する配列の計３つを用意して順番に格納すればできないかな？
2020/10/05(月) 14:35:29.71ID:8f5Gi5TxM
>>480
いい加減にしろや糞が
2020/10/05(月) 14:54:20.99ID:3En1oQ3G0
>>471
redim preserveとUBoundを使うのかも

まあしかし、その処理ほんとに配列でやるのが良いのか検討したほうが良いんだが
VBAコレクション系弱いからなぁ
2020/10/05(月) 15:05:07.42ID:PJYbs+y10
検索すればすむのにね
2020/10/05(月) 17:50:38.43ID:BlyIycRMM
>>481
>>483
ありがとうございました。
2020/10/05(月) 17:58:27.13ID:FAPvswgpM
喧嘩腰だなあ
何しにきてんのさ
2020/10/05(月) 18:26:34.61ID:KW0b9HJla
くれくれ君だからしょうがないだろ
488デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru)
垢版 |
2020/10/05(月) 19:48:49.79ID:UUAqkjmTM
>>484
F1キー押す方が早くね？
2020/10/05(月) 19:51:04.71ID:0f3oInSL0
>>488
押すだけならワンキーだけど、オンラインヘルプはそこからが長い
2020/10/06(火) 10:31:57.17ID:9/35+5mY0
大人の対応でうまく誘導してやろうぜ
2020/10/07(水) 19:45:01.41ID:FTOZLATq0
下記のように特定の文字を削除して、改行をやめて1行文にしたいのですがコードのご教示いただけないでしょうか


やんやんつけ棒§
めちゃ美味い

ポテトチップス§
めちゃ美味い

↓

やんやんつけ棒めちゃ美味い

ポテトチップスめちゃ美味い
2020/10/07(水) 20:04:32.74ID:7ZMz7DKjM
まともなテキストエディタ(VSCodeとかサクラエディタとか)で開いて正規表現置換で§¥r¥を空に置換すればよい
2020/10/07(水) 20:05:03.03ID:7ZMz7DKjM
訂正
§¥r¥n
2020/10/07(水) 20:27:15.03ID:FTOZLATq0
>>492
なるほど…めちゃ助かります。ありがとうございます。
495デフォルトの名無しさん (ﾜｯﾁｮｲ 8ae6-SfJD)
垢版 |
2020/10/07(水) 21:05:04.00ID:8t5FIA980
もっと面白い質問しろよ
2020/10/07(水) 21:08:11.63ID:EPmDsevha
やんやんつけ棒って何？
2020/10/07(水) 21:08:37.26ID:FTOZLATq0
申し訳ありません、もう一点

A1：私は実は理学部出身
A2：の元々は地質学者です
A3：
A4：こうした南鳥島で
A5：
A6：レアアースの濃集が
A7：起こる
A8：
A9：というのは
A10：
A11：特徴的な層準に
↓
A1：私は実は理学部出身
　　の元々は地質学者です
A2：こうした南鳥島で
A3：レアアースの濃集が
　　起こる
A4：というのは
A5：特徴的な層準に


下の行に文字列 → ２行の文章として、改行を入れてExcelの１マスにまとめる
下の行が空白 → 1行の文書なのでそのまま

これをなんとかVBAで自動化したいのですが記述を教示願えますでしょうか

面白くない質問ですみません…
2020/10/07(水) 21:11:26.09ID:JTTOzasI0
>>497
その条件2つそのままコードに直していけるよ
2020/10/07(水) 21:17:21.39ID:ueKkqa210
改行がLfなのかCrなのかCrLfなのか知らんが
Replace("改行入りの文字列", vbLf, "")
2020/10/07(水) 21:58:27.94ID:JTTOzasI0
>>499
そんなことしたら改行しなくなるが…
501デフォルトの名無しさん (ﾜｯﾁｮｲ ca6d-zMau)
垢版 |
2020/10/07(水) 22:16:39.68ID:XaxSLEYL0
いつものクレクレ君かな
2020/10/07(水) 22:51:28.53ID:7uT04k8fM
・コードを要求
・追加で教えて

いつもの人だね
2020/10/07(水) 22:54:48.87ID:8t5FIA980
普通に書けばできることを聞く意味が分からん

もしかして書けないの？
書けないならやめればいいのに
2020/10/07(水) 22:56:25.93ID:Az9cGqg8M
>>498
>>499
ありがとうございますm(__)m
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況