Excel VBA 質問スレ Part73

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ 4668-xJJl) 2021/09/13(月) 07:29:59.47 ID:GNx0xRRz0]

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[981 デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9) 2021/12/19(日) 20:57:27.62 ID:pq+sPc2G0]

>>978
ありがとうございます

私も一行ずつ処理するべきなのかと思い始めました

その際
----------------
arr=Split(str," ") '空白で分割し配列に格納
----------------
だとデータ行中に空白が連続している場合
例えば
a b c d
のような場合でも
A列→a
B列→b
C列→c
D列→d
のように入力可能でしょうか？

[982 デフォルトの名無しさん (ﾜｯﾁｮｲ 4af0-g56a) 2021/12/19(日) 21:13:00.94 ID:LtRjW0Zk0]

>>980
わかりづらい説明にご親切にありがとうございます
感謝！
今から試したいと思います！

[983 デフォルトの名無しさん (ﾌﾞｰｲﾓ MMe6-jY/M) 2021/12/19(日) 21:22:20.20 ID:o7hmg8oNM]

>>981
そんなもんマクロの記録で連続する区切り文字は1文字として扱うオプション使えばいいでしょ

[984 デフォルトの名無しさん (ﾜｯﾁｮｲ be2c-j66Y) 2021/12/19(日) 21:39:11.49 ID:EkrjUmtA0]

Ruby なら、abc の前後・間に、複数の連続した空白類があっても、分割できる

Ruby で，文字列を空白文字類や「.」などを区切りとして切り出す
https://www.kkaneko.jp/pro/ruby/tokenize.html

str = " a b c "

p str.split( nil )
p str.strip.split( /\s+/ )
p str.strip.split( /[ |\t|\r|\n|\f]+/ )

これらはすべて、["a", "b", "c"] となる

空白類・\s は、[ |\t|\r|\n|\f] の5種類の空白を含む。
strip は、文字列の先頭・末尾から、連続した空白類を除去する

[985 デフォルトの名無しさん (ﾜｯﾁｮｲ a301-h5UB) 2021/12/19(日) 21:42:45.37 ID:tlLDAcl00]

今時、rubyとか使ってんじゃねーよ

[986 デフォルトの名無しさん (ﾜｯﾁｮｲ 4af0-g56a) 2021/12/19(日) 21:51:18.70 ID:LtRjW0Zk0]

>>980
すみません
今試してみました
Ｃ列には期間の日が表示され
Ｄ列には機関の月日が表示され

仮にＢ２に文字が入力されたら
Ｃ２とＤ２には文字が表示され
Ｃ１とＤ１には日と月日が表示したいです

私にはなにをどうしたらいいのかまったくわかりませんでした
技術的にむずかしいでしょうか？
ググってみましたが出来そうにないです

[987 デフォルトの名無しさん (ﾜｯﾁｮｲ 3b01-jbri) 2021/12/19(日) 22:12:20.36 ID:Ax4UFlXX0]

>>981
その場合はtrim, splitの替わりに正規表現使うのがいいかと
dim reg as new regexp
reg.global=true
reg.pattern="(\S+)" '空白以外
set mc=reg.execute(str)
for i to mc.count-1
set m=mc.item(i)
cells(1,i).value=m.value
next i

[988 デフォルトの名無しさん (ﾜｯﾁｮｲ 7b7c-44a5) 2021/12/19(日) 23:20:35.00 ID:2A/aI1dD0]

>>981
これで代入できる
Range("A1:D1") = Split(str, " ")

[989 デフォルトの名無しさん (ﾜｯﾁｮｲ be8e-qezp) 2021/12/19(日) 23:23:16.74 ID:oG6IuvVy0]

相変わらずRuby基地外に引っ掛かる馬鹿ども

[990 デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9) 2021/12/19(日) 23:33:22.46 ID:pq+sPc2G0]

>>983
！
ありがとうございます
やってみます

>>984
ありがとうございます
さすがにExcelで処理しているファイルをVBA以外で制御するのは無理です

>>987
ありがとうございます
正規表現は敷居が高い（奥深すぎ）ので敬遠していましたが
そのコードを手がかりに解析してみます

a b c d
a b c d
a b c d

のような場合でも
そのコードは使えますでしょうか？

[991 デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9) 2021/12/19(日) 23:36:15.57 ID:pq+sPc2G0]

>>988
ありがとうございます

この場合も処理可能でしょうか？
a b c d
a b c d
a b c d

[992 デフォルトの名無しさん (ﾜｯﾁｮｲ bee6-eGgJ) 2021/12/19(日) 23:41:22.83 ID:kIFouMiR0]

ファイルを開いてVBAで処理する系は
VBAのエディタがアップデート放棄しててユニコードに対応しないらしいのでやめた方がいいかも

Regexpでユニコード文字列を置き換える処理をこさえたりすればなんとかなるかもしれないが

[993 デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9) 2021/12/19(日) 23:51:29.72 ID:pq+sPc2G0]

>>992
ご注意ありがとうございます
私の場合であれば処理するlogは
ASCIIのみなので問題ないかと思います

[994 デフォルトの名無しさん (ﾄﾞﾅﾄﾞﾅｰ MMe6-WIuU) 2021/12/20(月) 01:25:47.26 ID:x5N85HfoM]

replace(hoge," "," ")

[995 デフォルトの名無しさん (ﾜｯﾁｮｲ 2ffd-v8OD) 2021/12/20(月) 01:39:15.08 ID:jnlr9GaR0]

>>986
ごめん
ちょっと何を言っているのか分からないからもう少し整理してから言葉にして
文字列や日付として破綻しているものでも可なのにその期間を出力せよっていうのはどういう意味？
仕様がちぐはぐで何をしたいのかが分からない

出力列を増やすのはのは対して手間は変わらないから自分でアレンジして
分からないならもっと基礎の部分を勉強するか諦めて関数式書いた方が早いよ

[996 デフォルトの名無しさん (ﾜｯﾁｮｲ 2ffd-v8OD) 2021/12/20(月) 01:41:34.12 ID:jnlr9GaR0]

次スレ
Excel VBA 質問スレ Part74
https://mevius.5ch.net/test/read.cgi/tech/1639932059/

[997 デフォルトの名無しさん (ﾜｯﾁｮｲ 6a4f-7LcG) 2021/12/20(月) 07:39:37.83 ID:sc4Jjnxw0]

>>996
乙

[998 デフォルトの名無しさん (ﾜｯﾁｮｲ 6668-kSWT) 2021/12/20(月) 10:40:58.57 ID:2126b9QK0]

>>995
前スレ見たらわかるけどそいつ後出し後出しで
しかも前スレで得た知識も抜きで再質問してる

https://mevius.5ch.net/test/read.cgi/tech/1626565335/782,829

>>996
乙！

[999 デフォルトの名無しさん (ﾜｯﾁｮｲ 4af0-g56a) 2021/12/20(月) 21:13:06.47 ID:1VhmJElm0]

>>995
すいません
関数を使ってみたいとおもいます
これか自分で勉強しレベルを上げていきたいと思います
あなたのおっしゃるとおりだと思います
今までお教えいただいたことを参考に
勉強していきたいと思います
ここの先生たちには本当に感謝しています

[1000 デフォルトの名無しさん (ｽｯｯﾌﾟ Sd8a-qezp) 2021/12/20(月) 21:21:42.29 ID:XrZMAyhid]

いつものあいつ