Excel VBA 質問スレ Part72

■ このスレッドは過去ログ倉庫に格納されています
2021/07/18(日) 08:42:15.37ID:KskL7bEXd
!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/12(木) 19:43:55.65ID:Fj2kkZVUa
>>468
>>451は自分ですよ
2021/08/12(木) 23:17:39.27ID:BTMS1DN70
>>466
いつもの流れだから気にすんな
473デフォルトの名無しさん (ﾜｯﾁｮｲ 6eda-oCel)
垢版 |
2021/08/13(金) 02:15:07.67ID:fQVKfGt/0
>>466
まだ終わってない
474デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-4yzW)
垢版 |
2021/08/13(金) 03:37:00.81ID:NVit/nDVM
>>466
こういう人ってたかがマクロを少し作れるだけで自分が会社を経営してると思い込む馬鹿ばっかだよ
2021/08/13(金) 09:23:59.80ID:Dh6ZDsQC0
すみません
VBA初心者です
下記プログラムはB１とB2に任意の数値を入れると
A5〜A100に数値から数値の間の数字が打ちあがります
一度入力したら２回目はA5からA100の数値を手動で削除
しなければなりません
B1に数値を新たに入力したら自動でクリアされれば
手動で削除しなくていいのですがコードが書けないで困ってます
どなたか詳しい方いましたらご教授ください

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$B$2" Then Exit Sub
If Range("B1").Value = "" Then

Exit Sub
End If
Range("A5:A100").Clear
Dim cnt As Long
Dim i As Long, j As Long
j = 0
cnt = Target.Value - Target.Offset(-1).Value
For i = 5 To cnt + 5
Cells(i, 1) = Target.Offset(-1).Value + j
Cells(i, 1).NumberFormatLocal = "@"
j = j + 1
Next i
End Sub
2021/08/13(金) 09:29:56.69ID:7J82GjQPM
>>474
噂の同僚もこんなこと言ってそうだな
477デフォルトの名無しさん (ﾜｯﾁｮｲ 9901-ic7f)
垢版 |
2021/08/13(金) 09:40:28.79ID:IVydqk9y0
VBAで数値計算をやらないといけないから、VBAの仕様を一通り学ぼうと思って書籍で勉強しているんだけど、
VBAで数値計算する意味がわからんわ

VBAで数値計算するメリットってファイルの入出力くらいしかないだろ・・・
2021/08/13(金) 09:57:08.98ID:lG5axGIx0
>>474
という思い込みを>>474がしてるってネタでしょ？ｗ
2021/08/13(金) 10:08:41.85ID:7J82GjQPM
>>477
逆に少し複雑になったら
並べ替えやvlookup用に変な数字が所狭しと並んだり
式もシートもぐちゃぐちゃになったり
行を増やすごとに式をいちいちコピペしないといけなかったり式のコピペ漏れの危険もある関数でやるメリットのほうがよくわからん
関数使っても問題ないのはマジで足し算掛け算レベルの簡単なものだけだろ
2021/08/13(金) 10:09:11.78ID:zvWaH7NU0
>>475
b1かb2以外で終了、に変更
Excel入ってないPCだから試してないけど、多分動くと思う

If Target.Address <> "$B$2" Then Exit Sub
↓
If not(Target.Address = "$B$2" or　Target.Address = "$B$1")　Then Exit Sub
2021/08/13(金) 10:14:40.50ID:/ejQKQyrM
>>477
自分で責任取れるんならPythonでも何でも使えばいい
それができるだけの度胸とコミュ力がないんならどこ行ったって同じだぞ
2021/08/13(金) 10:23:05.89ID:zvWaH7NU0
>>477
vbaだと爆速、値で残せるなどのメリットもあるし、
要は使い分けだな
2021/08/13(金) 10:37:15.01ID:5J5GXzoka
テーブル機能は関数、VBAともに相性いいからとりあえずテーブルにするところから始めればいいんじゃないかな
2021/08/13(金) 11:50:40.69ID:c6dMXYo0a
>>475
判定をなおしてみました。こんな感じはどうでしょう。
If Target.Address = "$B$1" Then
Range("A5:A100").Clear
Exit Sub
ElseIf Target.Address = "$B$2" Then
If Range("B1").Value = "" Then
Exit Sub
End If
Else
Exit Sub
End If
2021/08/13(金) 14:43:20.07ID:MQNa+Oeo0
>>475
「B1が変更」かつ「B2が入力済み」の場合にも処理されるようにするのはどうでしょうか。
後、B1B2が数値である保証がないのも気になりました。
冒頭（Early Returnの部分）を

If Target.Address <> "$B$2" and Target.Address <> "$B$1" Then Exit Sub
If (VarType(Range("B1").Value) <> vbDouble) Then Exit Sub
If (VarType(Range("B2").Value) <> vbDouble) Then Exit Sub

に修正し、

Target.Value - Target.Offset(-1).Value

等の部分を具体的にRange("B1")の様にしてみて下さい。
2021/08/13(金) 16:54:07.44ID:HPpKMPwN0
いまだにテーブル機能を表のレイアウトの見栄えよくする機能だと思っている人いるんだなマジで。
興味ないとそんなもんだよね
2021/08/13(金) 17:27:51.79ID:Ko30HHoCa
Vlookupなんてテーブルありきの仕様(範囲可変対応、速度、列指定等…)だし、
VBA使う時はForで範囲の中の値をループ処理するのはテーブル使うのが1番完結かつ読み手に伝わりやすい(と思う)
興味ない人は触れることもないんだろうなぁと思うと寂しいね
2021/08/13(金) 18:51:34.24ID:Dh6ZDsQC0
VBA達人の皆さんありがとうございます
早速試してみます

皆さんはどのように勉強されたのですか？
VBA２年目ですがまだまだ初心者から脱却できません
2021/08/13(金) 18:51:53.98ID:HPpKMPwN0
まだ良いよ
見栄えよくすると思い込んでいて、何でもかんでもテーブルに変換する同僚がいるから
出力でそれやられると見辛い
2021/08/13(金) 19:17:27.00ID:zvWaH7NU0
>>488
色々書きまくるしかない
あと、たまには違う言語を触ってみるのも良いと思う
簡単なゲーム作るとか
2021/08/13(金) 20:37:12.04ID:fD7XP3Na0
変数を日本語にすると頭に入りやすい
2021/08/13(金) 20:55:03.16ID:Dh6ZDsQC0
>>490
> >>488
> 色々書きまくるしかない
> あと、たまには違う言語を触ってみるのも良いと思う
> 簡単なゲーム作るとか

色々簡単なことから挑戦していきます
2021/08/13(金) 20:57:12.23ID:Dh6ZDsQC0
>>491

日本語に訳して覚えてみます
494デフォルトの名無しさん (ﾜｯﾁｮｲ 9901-ic7f)
垢版 |
2021/08/13(金) 21:57:30.74ID:IVydqk9y0
>>479
やっぱりどう考えてもVBAで数値計算って無理がありそうですよね
数値計算自体も偏微分方程式の解を求めたり、モンテカルロで期待値を求めたりするので、結構重いです・・・
学生なんで確信を持って言えないのですが、恐らく就職希望している業界がVBAとc++がメインなのでVBAで数値計算をできるようになっておく必要があると思います。
とりあえずまだ時間があるので、一度自分でVBAで書いてみてからデメリットを実感して見ようかと思います
495デフォルトの名無しさん (ﾜｯﾁｮｲ 9901-ic7f)
垢版 |
2021/08/13(金) 21:59:38.88ID:IVydqk9y0
>>481
確かにそうですね・・・
正直言語の違いなんて手段の違い程度しかないとは思うので結局責任を取れるくらい、周りと話をつけたり、しっかり計画を詰めるほうが重要ですよね
2021/08/13(金) 22:15:24.05ID:al2VsHhL0
その分野には詳しくないんだが、不向きなのに何故VBAを数値計算に使うんだ？
エクセルならVBA使わずとも関数とかソルバーで出来るんじゃない？
2021/08/13(金) 22:24:34.19ID:zvWaH7NU0
>>494
それ就職先に直接問い合わせた方が良いぞ
vbaとc++を使う業界って聞いたことない。なにかの間違いだろう
2021/08/13(金) 23:20:47.22ID:WIfN9845M
賑わってるね
2021/08/14(土) 00:11:33.82ID:p2FjIi+P0
>>497
あっ…なるほど（察し
2021/08/14(土) 00:32:25.73ID:8xoU1q0D0
夏季休暇に突入したぜウェーイ！
2021/08/14(土) 03:50:50.70ID:2+Zp3qYIa
c++とvbaを両方とも使うのありますよ
ターボファンの3次元ブレード図面の自動生成をする為に
autoCAD用APIをc++使ってdirectXのシェーダーでやり
流体計算はcudaの並列計算する一方で
ユーザーインターフェースはExcelVBAで寸法入力させるんですよ
2021/08/14(土) 07:34:08.52ID:olTKpvXL0
何度も申し訳ありません

期間の日付をA５〜A１００に自動で打ちあがるようにしたいのですが

例えばB１に整数３が入りB２に整数５が入った場合
A５〜A７に３、４、５
と自動で打ちあがるようにしたいです

B2に整数以外が文字などが入る場合は
例えばB1に３B２に英字のKが入った場合
A5に３A６にK
が打ち上がるようにしたいのですが

下記コードだと２回目以降はB１の値が変わっただけでは発火しないので
B2も変更しなければなりません
B1の値が変更されたら即発火させるにはどのようなコードで記述したらいいのでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$B$2" And Target.Address <> "$B$1" Then Exit Sub
Range("A5:A100").Clear
Dim cnt As Long
Dim i As Long, j As Long
j = 0
cnt = Target.Value - Target.Offset(-1).Value
For i = 5 To cnt + 5
Cells(i, 1) = Target.Offset(-1).Value + j
Cells(i, 1).NumberFormatLocal = "@"
j = j + 1
Next i
End Sub
2021/08/14(土) 07:41:00.78ID:X5b04eQGM
打ちあがるって何？
2021/08/14(土) 07:49:40.96ID:WRC7pvXs0
>>502
「はじめの整数」と「終わりの整数」を指定し、
「その間の数字を個別に整数で出力」したい

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

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

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

>>503
「出力」の意味だろう
2021/08/14(土) 08:01:31.03ID:olTKpvXL0
>>503
> 打ちあがるって何？

すいません
出力です！
2021/08/14(土) 08:04:36.53ID:olTKpvXL0
>>504

その通りでございます。
B2には整数以外が入る場合もありますので
その場合はB1の整数だけが出力されればいいです
2021/08/14(土) 08:16:43.15ID:FeW4uPBDM
IsNumericでB2を判定してTrueならFor文を走らせて、FalseならB2をA6へ
2021/08/14(土) 08:16:49.28ID:WRC7pvXs0
>>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.92ID:WRC7pvXs0
>>507
numericだと小数のときにめんどくさくなるよ
エラーで飛ばしたほうが早い
2021/08/14(土) 08:32:21.96ID:olTKpvXL0
>>508
ありがとうございます！
まじすごい
半年ぐらい考えて調べてやってみて
全然できなかったのに
一瞬でできるなんて…

プロの方ですか？
2021/08/14(土) 08:34:31.28ID:FeW4uPBDM
あぁそうか整数の時だけなのか
でもOnErrorResumeNextはバグを見逃しやすくなるから個人的にはあんまり使いたくねぇなぁ
lsNumenic(B2)の後にB2=CLng(B2)で整数判定かけるのってどう？……見辛くなるか
2021/08/14(土) 09:09:38.05ID:LMRL1zmta
>>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.32ID:WRC7pvXs0
>>510
ただの事務だよ。15年ぐらい色々書いてるから、これぐらいならまぁ
あと、読みづらいコードは最初から書き直した方が早い事も多い
2021/08/14(土) 09:25:22.77ID:olTKpvXL0
>>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.25ID:olTKpvXL0
>>513
> >>510
> ただの事務だよ。15年ぐらい色々書いてるから、これぐらいならまぁ
> あと、読みづらいコードは最初から書き直した方が早い事も多い

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

自分も１５年ぐらい頑張れば書けるようになるのかな
2021/08/14(土) 10:58:30.72ID:UIvxBUgE0
Excelの関数とか覚える必要ないでしょ
全部マクロでやれば済むはずだし。
全部マクロで処理している人が職場にいる。
2021/08/14(土) 11:02:58.83ID:WZYuRp6L0
適材適所
518デフォルトの名無しさん (ﾜｯﾁｮｲ 9901-ic7f)
垢版 |
2021/08/14(土) 11:11:37.37ID:Wd8wuOU/0
>>496
使う理由は確かにわからないんですよね・・・
ただ、日本語以外の本でもその業界の数値計算のコード例がC++かVBAかMATLABなので恐らく業界のデファクトスタンダード
になっているんだと思います。
VBA以外にも使えそうなエクセルの機能があるなら使っていこうかと思います
519デフォルトの名無しさん (ﾜｯﾁｮｲ 9901-ic7f)
垢版 |
2021/08/14(土) 11:13:11.03ID:Wd8wuOU/0
>>497
分野は金融系専門職ですね・・・
実際に働いたことある人から聞いたので恐らく実際に使うのだと思います
2021/08/14(土) 11:22:28.35ID:WRC7pvXs0
>>501
そういう事か、それならどこにでもあったわ、スマン
入出力部分だけExcel vbaやaccessってのはたまによく見る

>>518-519
c++・MATLABをメインで勉強した方が良い
その場合のvbaは補助的に使う物なので、ほとんどの機能を使わない。
521デフォルトの名無しさん (ｱｳｱｳｳｰ Saa5-oCel)
垢版 |
2021/08/14(土) 11:37:23.70ID:WNZYUSqEa
たまになのによくみる？
2021/08/14(土) 12:03:40.37ID:MjnqNUAdF
>>515
5ちゃんを観るのを止めると綺麗なコード描けるようになる
2021/08/14(土) 12:21:33.89ID:r4eiaXelM
>>521
「そんな業界あるかよっっ」
「こんな使い方するらしいです」
「あーそれなら知ってる」
の流れw
2021/08/14(土) 12:31:49.92ID:egxXCzK30
if,and,orと変数の使い方を覚える

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

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

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

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

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

こんな流れで順々にやれることを増やしていくといいよ
2021/08/14(土) 12:35:39.31ID:WZYuRp6L0
>>523
ブロント語の事を言ってるのでは
まれによくみる
526デフォルトの名無しさん (ﾜｯﾁｮｲ 498e-JtI+)
垢版 |
2021/08/14(土) 16:05:31.07ID:9rufdIX60
ID:olTKpvXL0

いつものあいつ
2021/08/14(土) 16:13:08.42ID:FeW4uPBDM
いつものあいつって言いたいだけの例の人
2021/08/14(土) 16:13:36.00ID:WZYuRp6L0
いつものあいつに粘着してるやつ
2021/08/14(土) 16:16:12.93ID:p2FjIi+P0
Rubyの人だっけ
530デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM92-4yzW)
垢版 |
2021/08/14(土) 19:17:04.70ID:QQrfTJ+jM
またも引っ掛かる間抜けな人達
531デフォルトの名無しさん (ﾜｯﾁｮｲ 9901-pBez)
垢版 |
2021/08/14(土) 23:40:30.92ID:0AEpqYcN0
VBAはビジネスソフト板でやれ。
ム板でVBAの話する奴は全員荒らし。
2021/08/15(日) 01:41:34.07ID:Ab4oMS/u0
ListBoxAに複数行の内容を表示し、その行数をラベルに表示させている。
RemoveItemで行を削除した後、ラベルの表示内容を更新したい。

といった場合に、
RemoveItemの後でラベルの数字を1マイナスする、という手動処理ではなくて、
ListBoxAの内容が変更されたことをトリガーとして行数を再計算する、という自動処理にしたいんですが、
どのイベントプロシージャを使えばいいですか？
2021/08/15(日) 09:02:47.73ID:Vp1mNkx00
またでたー
2021/08/15(日) 10:47:47.12ID:FNsj8xWN0
>>532
無いっぽい

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

Private Sub CommandButton1_Click()
'removeitemの処理がここに
Debug.Print ListBox1.ListCount
End Sub
2021/08/15(日) 10:48:11.05ID:FNsj8xWN0
RemoveItemにevent追加するほうが綺麗だけどねぇ
vbaじゃ無理だねぇ
2021/08/15(日) 11:06:26.14ID:47f+T2dk0
仮にイベントがあったとしてもremoveitemのあとに再計算の処理を書いたほうがスッキリしていいと思うが
2021/08/15(日) 11:24:14.03ID:U+FsjVqC0
>>536
RemoveItemしてるのが１箇所ならいいかも知れんが複数あったら面倒だろ
538デフォルトの名無しさん (ｱｳｱｳｳｰ Saa5-oCel)
垢版 |
2021/08/15(日) 11:44:01.29ID:PuWX92Pra
一ヶ所にまとめればいいだけだし
2021/08/15(日) 11:48:45.57ID:U+FsjVqC0
イベントに書ければ１箇所にまとめる手間もないし１年後に改修した時に１箇所にまとめたのを忘れてRemoveItem単体で使ってバグることもないし…
まあVBAでは夢物語なんだけどね
2021/08/15(日) 12:12:51.35ID:Ab4oMS/u0
ありがとうございます。

その後、試してみたこととして、
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.01ID:Q1u7LxQ80
>>526
> ID:olTKpvXL0
>
> いつものあいつ

前も言われましたがいつものあいつとは？
荒らしがいるんですか？
自分はまだここ見始めたの１年ぐらいなので
知りませんが
2021/08/15(日) 14:16:20.36ID:044XE2rOa
そういうの知っても意味ないから放置でいいのでは
質問されたら答えるだけで無理に関係ない話題でレスを進める必要はないのでは
2021/08/15(日) 14:35:34.20ID:FNsj8xWN0
>>540
カウンタのマイナスは怖いな。数え直した方が良いと思う

>>541
>>526が荒らしだから放置していて良いよ
「いつものあいつ」ってのは元々存在しない
2021/08/15(日) 15:32:30.69ID:mzIErmSO0
>>543
> 「いつものあいつ」ってのは元々存在しない
世にも奇妙な物語みたいな不気味さがｗ
2021/08/15(日) 22:31:41.12ID:47f+T2dk0
>>539
そもそもまとめたことを忘れるようなやつはイベントの存在も忘れてる
つーかVBAじゃなくても標準でそんなイベント発生する言語はないと思うぞ
2021/08/15(日) 22:49:28.66ID:FNsj8xWN0
>>545
そりゃ標準ではない
classを継承してメソッドにイベントハンドラを追加できるようにできる言語はいくらでもあるよ
vb.netでも可能
2021/08/15(日) 23:03:09.52ID:U+FsjVqC0
>>545
> そもそもまとめたことを忘れるようなやつはイベントの存在も忘れてる
だから忘れてもいいって話

> つーかVBAじゃなくても標準でそんなイベント発生する言語はないと思うぞ
C#とかなら標準にはなくても派生して作れるってこと
2021/08/15(日) 23:33:36.15ID:HzefVCWR0
フォームのチェンジイベントをイチイチ回避させないといけないのマジで面倒くさい
フラグ作ってif からのexit subとかマジで面倒くさい
2021/08/16(月) 05:14:26.01ID:XafigDS10
EXCEL以外の言語なら簡単にできるとかいう人っていつもの人ですか？
2021/08/16(月) 20:23:33.18ID:pkWTpyDW0
少なくとも一番ムキになってるアレがそうなんでしょうね
2021/08/17(火) 02:14:38.57ID:XfCCEtxD0
昔はこのスレまともだったのに、変な荒らしが現れてからおかしくなっただけ
552デフォルトの名無しさん (ｱｳｱｳｳｰ Saa5-oCel)
垢版 |
2021/08/17(火) 14:49:45.30ID:n4WKWZLba
昔？あ、俺生まれてないや
2021/08/17(火) 15:23:12.86ID:2f/o9RsTM
>>552
いつ生まれたの？w
2021/08/17(火) 20:35:18.63ID:4IURpNomM
>>552
5chは年寄りの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。
2021/08/19(木) 01:46:41.56ID:GJSA9V5J0
す、巣窟？
2021/08/19(木) 12:48:42.55ID:gPE31PeS0
そ う だ よ
2021/08/20(金) 00:11:44.24ID:YzPl1p2A0
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.76ID:EM+6hHZh0
>>557
xlsmがあればフラグをTrueにして、最後までループしたらもう一度その処理をするとか？
それなら「元々xlsmだったもの のみ」の処理はできないが、中略の中身によってはOKでしょう

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

になるかな
読みづらくはなると思うけど仕方ない
2021/08/20(金) 03:30:46.68ID:fkNLvzJY0
>>557
ループ中で新たに作成したxlsxファイルも、
元々xlsxだっとファイルと同じ処理を行いたいって事でいいでしょうか。

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

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

条件によって反復子から取得した値がそのまま扱えない場合はこういう書き方をするのが一般的かと思います。
中略部分を関数にして引数に渡す値を変えるといった表現方法でもいいでしょう。
2021/08/20(金) 06:44:10.09ID:O2iQQ7aA0
>>557
情況よくわからん
> ・ループの最初にxlsmを開いてxlsxとして保存する処理を入れたものの
保存してるんならファイル名わかってるんだしそのまま処理すればいいと思うんだが…
2021/08/20(金) 07:35:23.32ID:+liSrGPN0
自分で配列なりコレクションなり用意してDoでループ回せよ
2021/08/20(金) 07:43:25.84ID:6SYvdNEC0
ループの中で処理するんじゃなく、サブルーチンにして呼び出す方がいいな
2021/08/20(金) 14:52:28.33ID:+liSrGPN0
そのサブルーチンを呼び出すのにどうやってループさせるの？
もしくは
そのサブルーチンのなかでどうやって列挙させるの？
って話だと思うんだが
2021/08/20(金) 14:57:01.36ID:01P72Y3qM
xlsmだったらxlsxにしてそのファイルを引数にして渡す
xlsxだったらそのまま渡す

それだけのこと
2021/08/20(金) 15:39:01.41ID:fkNLvzJY0
前々から思ってたんだけど、抽象的に質問書く人多いね
あと謎用語作ったり（この前も「打ちあがる」とか何とか）

テンプレ作った方がいいんじゃないか？
2021/08/20(金) 15:48:44.06ID:XV1yMITLa
別に適当に質問してくるなら適当に返せばいいでしょ
それなりの回答を求めるならそれなりに質問するのが常識では
2021/08/20(金) 18:27:44.18ID:pH4dbDdN0
>>565
そういうのはいつもの奴だと思ってスルーで良いかと
抽象的に書くのはコードだけにしてほしいね
2021/08/20(金) 19:51:09.61ID:qaJDzmMG0
質問スレなのに質問しにくい雰囲気を作っていくぅ〜
2021/08/20(金) 22:28:26.67ID:tsSDUWXI0
問題ない
2021/08/21(土) 00:15:10.89ID:fb/04mNm0
>>568
質問しにくい雰囲気の中であっても質問できる力を身につけて欲しい
というこのスレの思いやりがわからんのかね。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況