Excel VBA 質問スレ Part72

2021/07/18(日) 08:42:15.37

!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

2021/08/14(土) 07:49:40.96

>>502
「はじめの整数」と「終わりの整数」を指定し、
「その間の数字を個別に整数で出力」したい

・B1が最初、B2が最後。ここは手で入力
・B1かB2どちらかを更新すると以下が走る

・出力範囲はA5:A100
・出力範囲は無条件で毎回clear

・整数以外の場合は、B1とB2の内容がA5とA6にコピー

>>503
「出力」の意味だろう

2021/08/14(土) 08:01:31.03

>>503
> 打ちあがるって何？

すいません
出力です！

2021/08/14(土) 08:04:36.53

>>504

その通りでございます。
B2には整数以外が入る場合もありますので
その場合はB1の整数だけが出力されればいいです

2021/08/14(土) 08:16:43.15

IsNumericでB2を判定してTrueならFor文を走らせて、FalseならB2をA6へ

2021/08/14(土) 08:16:49.28

>>502
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err

'B1B2じゃなければ終了
If Intersect(Target, Range("B1:b2")) Is Nothing Then Exit Sub

'とりあえずクリア
Range("A5:A100").Clear

'メイン。整数じゃなければerrに飛んでコピーして終わり。trycacheみたいな事がしたかった
最初 = Cells(1, 2)
最後 = Cells(2, 2)
'
If (Int(最初) = 最初 And Int(最後) = 最後) Then

行 = 5
For i = 最初 To 最後
Cells(行, 1) = i
行 = 行 + 1
Next

Exit Sub
End If

'整数以外
err:
Range("a5:a6").Value = Range("B1:b2").Value

End Sub

2021/08/14(土) 08:17:31.92

>>507
numericだと小数のときにめんどくさくなるよ
エラーで飛ばしたほうが早い

2021/08/14(土) 08:32:21.96

>>508
ありがとうございます！
まじすごい
半年ぐらい考えて調べてやってみて
全然できなかったのに
一瞬でできるなんて…

プロの方ですか？

2021/08/14(土) 08:34:31.28

あぁそうか整数の時だけなのか
でもOnErrorResumeNextはバグを見逃しやすくなるから個人的にはあんまり使いたくねぇなぁ
lsNumenic(B2)の後にB2=CLng(B2)で整数判定かけるのってどう？……見辛くなるか

2021/08/14(土) 09:09:38.05

>>502がそもそも何で質問の様な動作になるかがわかってないとこれからも簡単なことでつまずくと思うよ
当初と違って最初のif分に「Target.Address <> "$B$1"」が含まれたことでB1でも下のロジックが動くようになったけど
「cnt = Target.Value - Target.Offset(-1).Value」これがB1がTargetだと右のOffsetが存在しないから以降のコードが正しく動作しない状態になってる
B2→Target.ValueはB2、Target.Offset(-1)はB1
B1→Target.ValueはB1、Target.Offset(-1)は存在しないセルなのでエラー
ここをB1でもB2でも正しくセルの値を参照できるようにすればいいのでは
ちなみに「On Error Resume Next」のせいでエラーになっているのを無視して動作するようになってるので外したほうがいいのでは

2021/08/14(土) 09:17:38.32

>>510
ただの事務だよ。15年ぐらい色々書いてるから、これぐらいならまぁ
あと、読みづらいコードは最初から書き直した方が早い事も多い

2021/08/14(土) 09:25:22.77

>>512
> >>502がそもそも何で質問の様な動作になるかがわかってないとこれからも簡単なことでつまずくと思うよ
> 当初と違って最初のif分に「Target.Address <> "$B$1"」が含まれたことでB1でも下のロジックが動くようになったけど
> 「cnt = Target.Value - Target.Offset(-1).Value」これがB1がTargetだと右のOffsetが存在しないから以降のコードが正しく動作しない状態になってる
> B2→Target.ValueはB2、Target.Offset(-1)はB1
> B1→Target.ValueはB1、Target.Offset(-1)は存在しないセルなのでエラー
> ここをB1でもB2でも正しくセルの値を参照できるようにすればいいのでは
> ちなみに「On Error Resume Next」のせいでエラーになっているのを無視して動作するようになってるので外したほうがいいのでは

ネットで拾ったコードにOn Error Resume Nextを
加えたりして動くように自分なりにやってみたのですが
cnt = Target.Value - Target.Offset(-1).Value
の意味が理解できなくて・・・

少々自分にはレベルの高いコードでした
仕事でどうしてもエクセル使わないといけなかったので無理しましたｗ

ご教授ありがとうございます！

2021/08/14(土) 09:28:14.25

>>513
> >>510
> ただの事務だよ。15年ぐらい色々書いてるから、これぐらいならまぁ
> あと、読みづらいコードは最初から書き直した方が早い事も多い

私はVBA歴２年なのに簡単なコードしか書けなくて
いつになったら皆さんのように書けるようになるのかと思いまして

自分も１５年ぐらい頑張れば書けるようになるのかな

2021/08/14(土) 10:58:30.72

Excelの関数とか覚える必要ないでしょ
全部マクロでやれば済むはずだし。
全部マクロで処理している人が職場にいる。

2021/08/14(土) 11:02:58.83

適材適所

2021/08/14(土) 11:11:37.37

>>496
使う理由は確かにわからないんですよね・・・
ただ、日本語以外の本でもその業界の数値計算のコード例がC++かVBAかMATLABなので恐らく業界のデファクトスタンダード
になっているんだと思います。
VBA以外にも使えそうなエクセルの機能があるなら使っていこうかと思います

2021/08/14(土) 11:13:11.03

>>497
分野は金融系専門職ですね・・・
実際に働いたことある人から聞いたので恐らく実際に使うのだと思います

2021/08/14(土) 11:22:28.35

>>501
そういう事か、それならどこにでもあったわ、スマン
入出力部分だけExcel vbaやaccessってのはたまによく見る

>>518-519
c++・MATLABをメインで勉強した方が良い
その場合のvbaは補助的に使う物なので、ほとんどの機能を使わない。

2021/08/14(土) 11:37:23.70

たまになのによくみる？

2021/08/14(土) 12:03:40.37

>>515
5ちゃんを観るのを止めると綺麗なコード描けるようになる

2021/08/14(土) 12:21:33.89

>>521
「そんな業界あるかよっっ」
「こんな使い方するらしいです」
「あーそれなら知ってる」
の流れw

2021/08/14(土) 12:31:49.92

if,and,orと変数の使い方を覚える

Functionの使い方を覚える(Byval,ByRef)

Range(”A2”)みたいな書き方から、Worksheet.Cells(2,1)の様な書き方に変える

配列、Dictionary,Collectionの使い方を覚える

ユーザーフォームを作れるようになる

(クラスの使い方を覚える)

こんな流れで順々にやれることを増やしていくといいよ

2021/08/14(土) 12:35:39.31

>>523
ブロント語の事を言ってるのでは
まれによくみる

2021/08/14(土) 16:05:31.07

ID:olTKpvXL0

いつものあいつ

2021/08/14(土) 16:13:08.42

いつものあいつって言いたいだけの例の人

2021/08/14(土) 16:13:36.00

いつものあいつに粘着してるやつ

2021/08/14(土) 16:16:12.93

Rubyの人だっけ

2021/08/14(土) 19:17:04.70

またも引っ掛かる間抜けな人達

2021/08/14(土) 23:40:30.92

VBAはビジネスソフト板でやれ。
ム板でVBAの話する奴は全員荒らし。

2021/08/15(日) 01:41:34.07

ListBoxAに複数行の内容を表示し、その行数をラベルに表示させている。
RemoveItemで行を削除した後、ラベルの表示内容を更新したい。

といった場合に、
RemoveItemの後でラベルの数字を1マイナスする、という手動処理ではなくて、
ListBoxAの内容が変更されたことをトリガーとして行数を再計算する、という自動処理にしたいんですが、
どのイベントプロシージャを使えばいいですか？

2021/08/15(日) 09:02:47.73

またでたー

2021/08/15(日) 10:47:47.12

>>532
無いっぽい

＞RemoveItemの後でラベルの数字を1マイナスする
例えばcommandbuttonでRemoveItemしてるなら、
以下のようにするしか

Private Sub CommandButton1_Click()
'removeitemの処理がここに
Debug.Print ListBox1.ListCount
End Sub

2021/08/15(日) 10:48:11.05

RemoveItemにevent追加するほうが綺麗だけどねぇ
vbaじゃ無理だねぇ

2021/08/15(日) 11:06:26.14

仮にイベントがあったとしてもremoveitemのあとに再計算の処理を書いたほうがスッキリしていいと思うが

2021/08/15(日) 11:24:14.03

>>536
RemoveItemしてるのが１箇所ならいいかも知れんが複数あったら面倒だろ

2021/08/15(日) 11:44:01.29

一ヶ所にまとめればいいだけだし

2021/08/15(日) 11:48:45.57

イベントに書ければ１箇所にまとめる手間もないし１年後に改修した時に１箇所にまとめたのを忘れてRemoveItem単体で使ってバグることもないし…
まあVBAでは夢物語なんだけどね

**532** (ﾜｯﾁｮｲ 42ad-NTPF) · 2021/08/15(日) 12:12:51.35

ありがとうございます。

その後、試してみたこととして、
ListBoxのChangeイベントに再計算の処理を書いておき、
RemoveItemの後で.listIndex=0の処理を入れたところ、
一発目のRemoveItem後は、期待どおりChangeイベントが発生してくれましたが、
二発目以降は、.listIndexが0→0と変化なしのせいか、イベントは発生しませんでした。

行数を再計算したい、と書きましたが、
単純に全体の行数であれば、RemoveItemの後で.listCountをラベルに代入するだけの一行で済みますが、
実際は、リストの1カラム目(ID欄として使用)が100未満の場合と100以上の場合で分けてカウントしており、
FOR文で、ID100未満までの間でヒットするIDがあるたびに対象のカウントをインクリメントし、
2つ目のFOR文で、ID100以上について同様の処理を行う、
という風にしようとした時に、これが冗長に思えました。

もし、使えるイベントがあれば、
そのイベントプロシージャの中で、
それぞれのカウンタラベルのうち対象となる方のみマイナスした値に変更する、
という処理を入れるだけでOKになりそう、と考えました。

結論としては、
イベントに頼らず、
指定したIDの行を.RemoveItemする処理のところで、
そのIDが100未満か100以上かで分岐させて、
その分岐の中で、対象となるカウンタをマイナスする、
という処理にしました。

2021/08/15(日) 14:06:03.01

>>526
> ID:olTKpvXL0
>
> いつものあいつ

前も言われましたがいつものあいつとは？
荒らしがいるんですか？
自分はまだここ見始めたの１年ぐらいなので
知りませんが

2021/08/15(日) 14:16:20.36

そういうの知っても意味ないから放置でいいのでは
質問されたら答えるだけで無理に関係ない話題でレスを進める必要はないのでは

2021/08/15(日) 14:35:34.20

>>540
カウンタのマイナスは怖いな。数え直した方が良いと思う

>>541
>>526が荒らしだから放置していて良いよ
「いつものあいつ」ってのは元々存在しない

2021/08/15(日) 15:32:30.69

>>543
> 「いつものあいつ」ってのは元々存在しない
世にも奇妙な物語みたいな不気味さがｗ

2021/08/15(日) 22:31:41.12

>>539
そもそもまとめたことを忘れるようなやつはイベントの存在も忘れてる
つーかVBAじゃなくても標準でそんなイベント発生する言語はないと思うぞ

2021/08/15(日) 22:49:28.66

>>545
そりゃ標準ではない
classを継承してメソッドにイベントハンドラを追加できるようにできる言語はいくらでもあるよ
vb.netでも可能

2021/08/15(日) 23:03:09.52

>>545
> そもそもまとめたことを忘れるようなやつはイベントの存在も忘れてる
だから忘れてもいいって話

> つーかVBAじゃなくても標準でそんなイベント発生する言語はないと思うぞ
C#とかなら標準にはなくても派生して作れるってこと

2021/08/15(日) 23:33:36.15

フォームのチェンジイベントをイチイチ回避させないといけないのマジで面倒くさい
フラグ作ってif からのexit subとかマジで面倒くさい

2021/08/16(月) 05:14:26.01

EXCEL以外の言語なら簡単にできるとかいう人っていつもの人ですか？

2021/08/16(月) 20:23:33.18

少なくとも一番ムキになってるアレがそうなんでしょうね

2021/08/17(火) 02:14:38.57

昔はこのスレまともだったのに、変な荒らしが現れてからおかしくなっただけ

2021/08/17(火) 14:49:45.30

昔？あ、俺生まれてないや

2021/08/17(火) 15:23:12.86

>>552
いつ生まれたの？w

2021/08/17(火) 20:35:18.63

>>552
5chは年寄りの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

2021/08/19(木) 01:46:41.56

す、巣窟？

2021/08/19(木) 12:48:42.55

そうだよ

2021/08/20(金) 00:11:44.24

Dim mysubfiles As Files
Dim mysubfile As File

For Each mysubfile In mysubfiles
　中略
Next

このループ中で作成したファイルも
このループ内の処理を通したいのですが
どうしたらよいでしょうか。
具体的な状況は以下のとおりです。
・ループ内では拡張子xlsxのファイルを加工したい。
・しかしxlsmで保存されている場合もある。
・ループの最初にxlsmを開いてxlsxとして保存する処理を入れたものの
　そのxlsxが加工されない

2021/08/20(金) 00:21:12.76

>>557
xlsmがあればフラグをTrueにして、最後までループしたらもう一度その処理をするとか？
それなら「元々xlsmだったもののみ」の処理はできないが、中略の中身によってはOKでしょう

「元々xlsmだったもののみ」処理するのであれば、xlsm処理時点でDictionaryにファイル名をAddして、ループ終わった後に再度ループさせ、Dictionaryにあるファイルのみ処理する

になるかな
読みづらくはなると思うけど仕方ない

2021/08/20(金) 03:30:46.68

>>557
ループ中で新たに作成したxlsxファイルも、
元々xlsxだっとファイルと同じ処理を行いたいって事でいいでしょうか。

編集するファイル用の変数（例えばTargetFile）を新たに用意して、
中略部分は mysubfile ではなく TargetFile を処理するというコードにしておきます。

冒頭にその TargetFile を何に割り当てるかを決定するコードを書きます。
・mysubfileがxlsxである場合は、mysubfileの参照をTargetFileへそのまま代入
・そうでない場合はxlsxとして保存しなおして、保存したxlsxを取得してTargetFileへ代入

条件によって反復子から取得した値がそのまま扱えない場合はこういう書き方をするのが一般的かと思います。
中略部分を関数にして引数に渡す値を変えるといった表現方法でもいいでしょう。

2021/08/20(金) 06:44:10.09

>>557
情況よくわからん
> ・ループの最初にxlsmを開いてxlsxとして保存する処理を入れたものの
保存してるんならファイル名わかってるんだしそのまま処理すればいいと思うんだが…

2021/08/20(金) 07:35:23.32

自分で配列なりコレクションなり用意してDoでループ回せよ

2021/08/20(金) 07:43:25.84

ループの中で処理するんじゃなく、サブルーチンにして呼び出す方がいいな

2021/08/20(金) 14:52:28.33

そのサブルーチンを呼び出すのにどうやってループさせるの？
もしくは
そのサブルーチンのなかでどうやって列挙させるの？
って話だと思うんだが

2021/08/20(金) 14:57:01.36

xlsmだったらxlsxにしてそのファイルを引数にして渡す
xlsxだったらそのまま渡す

それだけのこと

2021/08/20(金) 15:39:01.41

前々から思ってたんだけど、抽象的に質問書く人多いね
あと謎用語作ったり（この前も「打ちあがる」とか何とか）

テンプレ作った方がいいんじゃないか？

2021/08/20(金) 15:48:44.06

別に適当に質問してくるなら適当に返せばいいでしょ
それなりの回答を求めるならそれなりに質問するのが常識では

2021/08/20(金) 18:27:44.18

>>565
そういうのはいつもの奴だと思ってスルーで良いかと
抽象的に書くのはコードだけにしてほしいね

2021/08/20(金) 19:51:09.61

質問スレなのに質問しにくい雰囲気を作っていくぅ～

2021/08/20(金) 22:28:26.67

問題ない

2021/08/21(土) 00:15:10.89

>>568
質問しにくい雰囲気の中であっても質問できる力を身につけて欲しい
というこのスレの思いやりがわからんのかね。

2021/08/21(土) 03:34:48.94

>>557
んだよコレクションにFileオブジェクト積み立ててFor Eachの最中にコレクションにFile追加したら追加した分だけループしねーのかと思っちまったじゃねーか。
普通に回るわ。

コレクションに積み立てたFileがxlsmのときはxlsxでセーブしてコレクションの中身の参照をそっちに置き換えて開いて加工してセーブすりゃいいだけじゃねーか。

ループし切らないと思ったから、ファイル情報を抱えるエンティティクラス作って、そんなかに加工済みフラグとか設けて、ファイル追加したときにループ処理再帰してもう加工済みだったら処理飛ばすとかしなきゃいけないとか思ったから実は結構骨のある質問じゃないのか？とか思ってバカ見たわ。

いや、単に俺の知識不足だな。すまんかったな。もう寝るわ。

2021/08/21(土) 11:04:58.97

For Eachの順序はファイル名か何かだから、
既にforeachの処理が過ぎたファイル名だと実行されないぞ

2021/08/21(土) 17:09:47.50

>>557
ループ内で.xlsm→.xlsxに変換したファイル名を配列に追加しておき、
ループを抜けた後で、その配列に格納されたファイルに対して加工処理を行えばいいのでは？

**デフォルトの名無しさん** (JP 0Hc3-FcIJ) · 2021/08/21(土) 20:04:21.12

最初のループは一覧を2セット作るだけにして次のループで処理したら？

2021/08/21(土) 20:35:14.71

Rustのメモリ安全性はボローチェッカーによって担保されているが、
Nimと比較してRustはタイプ量が多い事により限りなく低い生産性と
C++のような高い難読性、超巨大なバイナリ生成性能を兼ね備えています

Nimはバージョン1.5.1でRustのボローチェッカーに似た「View types」が実装されれば、
GC無しでView types参照の有効性を検証することによってメモリ安全性を保証しつつ
限りなく抑え込まれたタイプ量で高速化したCのソースコードを吐き出せます

Nimソースコード ==nimコンパイラ==> Cソースコード ==Cコンパイラ==> バイナリ

なので、nimコンパイラが通った時点でメモリ安全性が担保されませんか？

Nimの実験的特徴
著者：アンドレアス・ルンプ
バージョン： 1.5.1
http://nim-lang.github.io/Nim/manual_experimental.html

Nimは限りなく抑え込まれたタイプ量で高い生産性とPythonのような高い可読性を実現し
ているにもかかわらず、Cのソースコードを吐き出せるのでC言語でリモートワークされ
ている方は割り振られた仕事が早く終わっても終わってないふりをして怠けることができる

「怠け者とはこうあるべきだ！」と言うとても大事な事を Nim は我々に教えてくれます

2021/08/21(土) 23:03:58.45

>>572
んなこたぁない。
実際やってみてコレクションに追加されたもんは頭から順にファイル名に関係なくFor Eachで拾えるのは確認済み。

ソース展開してもいいけどどっかにソース張り付けて展開出来るサイトない？

そこそこ大きくなったのと5chに貼り付けると連続した半角スペースが1個になるから見づらいもんね。

2021/08/21(土) 23:17:33.77

>>575
ぶっちゃけ始めるのにいい言語スレの誤爆だろうが、Rustは新し過ぎて本とかも殆ど出てないから初心者には向かないよ。
て言うかVisual Studio Codeで開発環境構築しようとしたけど動かん。
手順教えてくれるとありがたいんだがのう。
ま、スレ違いになるからそっちのスレ行くか。

2021/08/22(日) 00:09:36.86

>>576
foreachは順序の保証は無いから途中で追加したり削除するとどうなるか分からない。
言語によってはエラー出るぐらいの変な挙動
試しにworksheetsでやってみたけど、途中で追加したものは処理されない

Sub foo()
flg = True
For Each x In Worksheets
'1周目の時だけworksheetを追加する
If flg Then
Worksheets.Add
flg = False
End If
Debug.Print x.Name
Next
End Sub

2021/08/22(日) 00:11:00.32

>>578の続き

追加したものに対してもforeach内の処理かましたければ、
サブルーチンとして外に出して個別に実行した方が良い
※arrayに入れてから別のfoeachループにしたほうが良いかもしれない

Sub foo()
flg = True
For Each x In Worksheets
'各シートの処理
Call print_worksheets_name(x)
If flg Then
Set 新シート = Worksheets.Add
'新シートの処理
Call print_worksheets_name(新シート)
flg = False
End If
Next
End Sub

'メインの処理はここ
Function print_worksheets_name(x)
Debug.Print x.Name
End Function

2021/08/22(日) 00:39:14.99

ググったらサンプルがあったから試してみた。コードはこれ
Sub Sample_Files()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim myFiles As Object
Dim myFile As Object
Dim strFiles As String
Set myFiles = FSO.GetFolder("D:\test\").Files
strFiles = "ファイル数：" & myFiles.Count & vbCrLf
For Each myFile In myFiles
strFiles = strFiles & myFile.Name & vbCrLf　'★
Next
MsgBox strFiles
End Sub
対象のフォルダに「新しいテキストドキュメント2.txt」「新しいテキストドキュメント4.txt」の2ファイルを格納
★にブレークポイントを設定して止まった時点で
対象のフォルダに「新しいテキストドキュメント1.txt」「新しいテキストドキュメント3.txt」の2ファイルを格納
この結果はMsgBoxは最初に格納されていたファイルのみが表示された
これを踏まえたらファイルを新たに保存しても保存したファイルはループ中は参照されないのでは

2021/08/22(日) 04:22:11.55

>>578-580
なるほど言いたいことは分かった。
確かにFor Eachの取得順が保証されないのは正しい。
だがその話には続きがある。

For Each の取得順序が保証されていないのは、
取得元のObjectに依存するから。
https://thom.hateblo.jp/entry/2018/08/11/194900

そしてくだすれでソース展開用サイト教えてもらったから
ソース貼っといた。
https://pastebin.com/RBXU7SyT

Test3.xlsmとTest4.xlsx作って先にコレクションに登録。
ループ途中でTest1.xlsmとTest2.xlsxを作成して追加しているが、
挙動がおかしいようであれば言ってくれ。

2021/08/22(日) 08:13:33.74

FileSystemObjectのFilesの話だけどCollectionで問題ないから俺の勝ちー
ってか？w

2021/08/22(日) 08:38:21.01

>>582
そもそもループしてる最中の母数を弄るようなことをするのってどうなのよ？っていうのはあるが、
気に食わなければ>>571で言ったような方法をとればいい。多分少し考えれば他にも色々方法はあるだろうが、
他の人にはともかく、その凄く悔しそうなレス見るとどうやら君は知らない内に勝手に負けてしまったのだろう。

2021/08/22(日) 09:40:51.11

>>576の話な
>>572はFilesの話だからコレクションでそんなことないとか言われても困るってこと
コレクションにしろ保証されてる動作じゃないからうまく行った事例があってもあまり意味はない

2021/08/22(日) 09:49:45.02

いつもの質問に相手した時点で負け

2021/08/22(日) 10:04:31.73

>>584
別にコレクションじゃなくても配列だろうがディクショナリだろうが何でもいいよ。Filesの中身を最初に積み立て直してループしてやればいいこと。
詰め込み対象のループの動作保証が欲しいなら>571で言った通りエンティティクラス用意して何かに詰め込んで一度加工したかどうかのフラグ持って、追加したらエンティティクラスも追加しといて、ファイル追加したらループ再帰して加工したフラグが立っていれば処理飛ばせばいいこと。
まぁ何故Filesを持ち回ることにそんなに執着しているのか知らんけど、そうでなければこの方法で実現出来るのは確か。
そんなにFiles持ち回ることに拘るなら人の作ったもんに文句ばかり言ってないでそれで実現出来るコード晒せばいい。

2021/08/22(日) 10:46:11.18

こうすればいいよって回答してあげるのはかまわないけど
そもそもなぜそれがダメなのかを指摘してあげたるのも大事では
当初の質問であれば
＞・ループの最初にxlsmを開いてxlsxとして保存する処理を入れたものの
＞　そのxlsxが加工されない
「ループの中で新たなファイルを作ってもFilesではそのファイルが取得できないようだ」という問題点を教えて
そのうえで中略のコードをSub化してループで取得したファイルもループの中で作成したファイルも
そのSubを呼び出すようにするとか解決策を提示したほうがいいんじゃないかねえ

2021/08/22(日) 11:08:18.32

>>586
何をカリカリしてんのか知らんけどFilesの話にコレクション持ち出して「んなこたぁない。」とか言うのが頓珍漢だって言うだけの話

あと>>571は積み立てるとかの謎用語使われてて読み飛ばしてるので悪しからず

2021/08/22(日) 11:11:26.73

>>588
なんだソース晒さないのか。
ならこの会話はここで終わりだな。

2021/08/22(日) 11:39:16.64

はじめから頓珍漢だっていう指摘だから誰かさんにまともな理解力あれば既に終わってた話なんだけどねw

2021/08/22(日) 11:51:49.66

>>589
バカはほっといてFilesのループだけで何とかする方法ない？

2021/08/22(日) 12:02:21.45

別の配列を用意して、追加と処理を別々にすればいいだけ

2021/08/22(日) 12:08:29.70

>>591
中略で何をしてるか不明だからそこの話題の解決は難しいのでは
ループでどんなファイルをFilesに含めているかわからないがループのファイルには拡張子xlsmとxlsxが対象になっているなら
・xlsm→加工してxlsxに変換して保存(元のxlsmは何もしない)
・xlsx→加工してxlsxのまま保存
・それ以外→何もしない
これだけの話にも見えるよね

2021/08/22(日) 12:35:51.87

>>591
> バカはほっといてFilesのループだけで何とかする方法ない？
.xlsm ⇒ .xlsx にした時点でFilesの内容がどうなるかはわからんから一旦Filesの内容を配列なりコレクションなりに取り込んでおくしかないと思う

2021/08/22(日) 12:37:07.40

リスト構造みたいなのは？

**デフォルトの名無しさん** (JP 0Hc3-FcIJ) · 2021/08/22(日) 13:02:31.83

配列だろうがリストだろうがそこは自由
とにかくループ中で母集団をいじらなければいいだけの話だから

2021/08/22(日) 13:03:46.65

Rustのメモリ安全性はボローチェッカーによって担保されているが、
Nimと比較してRustはタイプ量が多い事により限りなく低い生産性と
C++のような高い難読性、超巨大なバイナリ生成性能を兼ね備えています

Nimはバージョン1.5.1でRustのボローチェッカーに似た「View types」が実装されれば、
GC無しのView typesで参照の有効性を検証することによってメモリ安全性を保証しつつ
限りなく抑え込まれたタイプ量で高速化したCのソースコードを吐き出せます

Nimソースコード ==nimコンパイラ==> Cソースコード ==Cコンパイラ==> バイナリ

なので、nimコンパイラが通った時点でメモリ安全性が担保されませんか？

Nimの実験的特徴バージョン1.5.1
http://nim-lang.github.io/Nim/manual_experimental.html

第二プログラミング言語として Rust はオススメしません Nim をやるのです
https://wolfbash.hateblo.jp/entry/2017/07/30/193412

Nimは限りなく抑え込まれたタイプ量で高い生産性とPythonのような高い可読性を実現し
ているにもかかわらず、高速なCのソースコードを吐き出せるのでC言語でリモートワーク
されている方は割り振られた仕事が早く終わっても終わってないふりをして怠けることができる

「怠け者とはこうあるべきだ！」と言うとても大事な事を Nim は我々に教えてくれます

2021/08/22(日) 13:08:21.86

>>595
リストでもいいけどVBAで簡単に扱えるものある？

2021/08/22(日) 19:40:10.48

>>591
遅くなってすまない。
そうだな、バカはほっといて
Filesのループだけで何とかする方法か。
Filesのループだけで何とかすることは出来ないことはないが、
綺麗に一重のループという方法は今すぐには思いつかないな。

だが、フォルダから直でやり取りしたいからというのであれば、
方法としては>>571で書いた方法とほぼ一緒だが、
Filesのループであればエンティティクラスは使えない。
ではどうするか、といったところで、ループで加工を終了したxlsxのパス名、
または加工する際に使ったxlsmのパス名を何等かの形で保持して、
後はファイルを作った際にループを再帰して加工が終わった
ファイルの処理は飛ばしてしまえばいい。
そうすれファイルを追加した後のファイルの順序やどこからループするか、
どこまでループするかをあまり気にする必要はない。
ただ、その分ループの回数は増える。が、もし現在の
Collectionの仕様が変わったとしても使うことが出来るだろう。

前回作ったソースを少し弄ってそんな感じにしたので、
展開しておこう。
https://pastebin.com/9QVrJDjF

2021/08/22(日) 19:51:55.58

いちおうVBAにCollectionってあるけどな

.Net FrameworkのArrayListとかQueueとかつかえばいいんじゃね

2021/08/22(日) 20:00:01.46

まずFilesってのが何なのかはっきりしとけ
まあFileSystemObjectのやつだろうけど
あれは、位置指定で取り出したり出来なかったりする、かなり特殊な列挙だった気がする

つか、追加処理でディレクトリ舐めて、そのあともう1回ディレクトリ舐めて処理すればいいだけじゃないのか？
再帰とか意味不明なんだが
たんに２回ループ回すことを再帰と言ってる？

2021/08/22(日) 20:18:32.39

>>596
For Eachでのループ中に、な

Filesの列挙が実質For Eachでしかできないのがまあ困ったところなんだが

2021/08/22(日) 20:44:15.61

>>579
あかんのかねぇ
xlsmをxlsxにするだけなら再帰処理は不要なはず