Excel VBA 質問スレ Part79

**デフォルトの名無しさん** · 2023/01/28(土) 11:46:47.21

↑同じ内容を3行貼り付けること

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

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.5ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.5ch.net/test/read.cgi/tech/1667104996/

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

**デフォルトの名無しさん** · 2023/05/10(水) 21:13:48.62

Seleniumは外部のWebブラウザを制御するため、メモリ使用量が増加する可能性があります。

と返答がきましたが、VBAでは重くなるのでしょうか？

**デフォルトの名無しさん** · 2023/05/10(水) 21:15:41.06

>>724
プログラムが間違ってる可能性のが高い

**デフォルトの名無しさん** · 2023/05/10(水) 23:57:34.43

>>726
ありがとうございます。
何か負荷がかかることをしているのかもしれませんね
もう一度見直してみます。

**デフォルトの名無しさん** · 2023/05/11(木) 11:43:08.05

そのChatGPTとやらが回答するシチュエーションの、一文字ずつ表示する方法を知りたい　とか、もっと前向きに
単にmsgbox出すよりは注目されそうだし（そのうち飽きられるだろうけど）

**デフォルトの名無しさん** · 2023/05/11(木) 11:51:22.37

wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).Value = today
wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).NumberFormat = "mm/dd""(""ddd"")"

日付の書式設定を変えたいのですが
「range クラスの numberformat プロパティを設定できません」と出ます。
どうすればよいでしょうか

**デフォルトの名無しさん** · 2023/05/11(木) 11:58:50.33

>>729
"mm/dd""(""ddd"")"""

**デフォルトの名無しさん** · 2023/05/11(木) 12:26:29.64

>>730
エラーは出なくなりましたが表示形式は変わりません。
これは"を一つ追加したようですがどういった意味があるのでしょう

**デフォルトの名無しさん** · 2023/05/11(木) 13:08:23.72

>>731
前略Offset(1).Value = Now

**デフォルトの名無しさん** · 2023/05/12(金) 06:37:47.52

仕事でVBAマクロを使用しておりそのマクロではapplication ontime？　を使用しエクセルが開かれてから一定時間過ぎたら閉じますか？とメッセージを出す処理をしています
仮にこのブックをブックAとします
ブックAを開いた状態でそのブックとは別のブックを開きます
このブックをブックBとします。
ブックAとブックBを同時に開いた状態でブックAだけを閉じても何故か一定時間経過後ブックAが自動で開きブックを閉じますか？とメッセージがでます。
ブックBのソースコード見てもマクロは組まれておらず何で？と困ってます

一応ブックAの処理に特定のファイル名の時だけメッセージが出るようにしたのですがその処理も勝手にブックAが開いてから流れるため困ってます

わかりにくくてすみませんがアドバイスよろしくお願いします。

**デフォルトの名無しさん** · 2023/05/12(金) 07:53:35.95

興味深い現象だな

**デフォルトの名無しさん** · 2023/05/12(金) 08:45:29.16

>>733
OnTimeの処理はExcel本体とは別のプロセスが引き受ける仕組みになってる
ブックを同時に開かないよう気をつけるのが一番簡単
勝手に直していいんなら開いてるブックを判定するコードとかブックを閉じる時にタイマーを止める処理を書き足す

任意のタイマーを止める方法は、ちょっとぐぐったことあるけど、設定された時刻が判明しない限り簡単じゃない
この点はみんな苦労してる

**デフォルトの名無しさん** · 2023/05/12(金) 11:06:37.75

その、閉じますかマクロは必須、必要な処理なのか？意図がわからない
むかしのメモリ使用量節約とかで組んでたとか？複数ファイル開くとフリーズとか防止用？

**デフォルトの名無しさん** · 2023/05/12(金) 11:59:40.51

職場で使っているマクロは現在の担当者が正しく動作するように管理する責任があると思うので
自分が作ってないからどう動くかわからないとしても責任を逃れることはできない

**デフォルトの名無しさん** · 2023/05/12(金) 17:51:08.96

ADODB.recordsetで名前に角カッコ([←これ)がついたcsvファイルを扱いたいんですが、何か方法ありますか？

**デフォルトの名無しさん** · 2023/05/12(金) 18:03:43.71

ある

**デフォルトの名無しさん** · 2023/05/12(金) 20:13:32.86

一つお尋ねしたいのですが
シートをコピーした後にコピ元のシートと一番新しいシートで変更のあった、更新のあったセルに色を塗りつぶすVBAは組めるでしょうか？
わたしは「一番新しいシート」と元シートの比較をすると言うのが非常に複雑なコードになりそうな気がするので
コピーしたシートで一番新しいシートの名前は固定のものに変更する
またはセルの比較と塗りつぶし作業後にシート名を変更するコードを書こうかなと思っています

**デフォルトの名無しさん** · 2023/05/12(金) 20:38:30.74

組める
お前の頭が追いついていないだけ

**デフォルトの名無しさん** · 2023/05/12(金) 21:51:44.25

https://daitaideit.com/vba-compare-two-sheets/

このコードを応用すればできそうな気がしてきました

**デフォルトの名無しさん** · 2023/05/13(土) 00:26:35.42

シート1をシート2に転記
シート2にはシート1との比較の関数を仕込む
シート2を末尾にコピー

最終的にこうしました

**デフォルトの名無しさん** · 2023/05/13(土) 08:56:53.55

たまにしか使わないマクロを
「開発」 → 「マクロ」をクリックした画面から非表示にする方法はありますか
たくさんプロシージャがあって探すのがわかりづらいので。

**デフォルトの名無しさん** · 2023/05/13(土) 10:14:45.62

たまにしか使わないのとよく使うマクロを区別する方法がない

**デフォルトの名無しさん** · 2023/05/13(土) 11:55:35.18

PERSONAL.XLSB内の個人マクロかなんかのこと？
使わないのはprivateにでもしたらいい

**デフォルトの名無しさん** · 2023/05/13(土) 14:12:54.71

てすと

**デフォルトの名無しさん** · 2023/05/13(土) 17:08:43.77

>>744
モードレスのユーザーフォームにボタン並べてショートカットツールボックスでも作れば。。。

**デフォルトの名無しさん** · 2023/05/13(土) 23:12:26.90

UserFormにボタンを追加した後、ボタンをダブルクリックすると、
コード内にボタン_Click()が挿入されるけど、
そのボタン_Click()の挿入位置はランダムですか？

**デフォルトの名無しさん** · 2023/05/13(土) 23:22:19.81

一番上固定かな？

**デフォルトの名無しさん** · 2023/05/14(日) 00:50:10.90

一番上とか一番下なら分かりやすいんですが、そうならないんですよね。
追加した順でも、VBE上の直前のカーソル位置でもなく。

**デフォルトの名無しさん** · 2023/05/14(日) 08:49:07.12

　　With
　　　　Worksheets(1)
　　　　Debug.Print .Name
　　　　Worksheets.Add Before:=Worksheets(1)
　　　　Debug.Print .Name
　　End With

と入力している場合、当然ワークシート（1）に対してしかwithで省略して記述することはできませんよね？

**デフォルトの名無しさん** · 2023/05/14(日) 09:12:17.84

それ以外にも記述できたらどれに記述してるかわからなくなりますやん

**デフォルトの名無しさん** · 2023/05/14(日) 11:24:04.23

IF分の中に何個もIFをつけると嫌がられますが上級者の方達は条件分岐どのように処理をさせていますか？
綺麗なコードの書き方のアドバイスお願いしたいです

**デフォルトの名無しさん** · 2023/05/14(日) 11:56:15.05

>>754
長くなる数式や複雑な条件判定は別の関数を作ってその中にまとめる

**デフォルトの名無しさん** · 2023/05/14(日) 14:28:00.07

オートフィルターを設定
セルの値でフィルター
別シートにコピー
.copy（名前をつけて保存）

までVBAで組めました
セルの値を別シートが別の列に用意したリストで繰り返しをして名前をつけて保存を繰り返すVBAが組みたいのですがどうすればいいでしょうか？

ちなみにオートフィルターを設定して、セルの値でフィルターをかけるコードを書かなくても
オートフィルターをかけた表で作成して
手動でフィルターをかけた結果
に対してコピーと名前をつけて保存を行うコードを作ればよかったと思いました

**デフォルトの名無しさん** · 2023/05/14(日) 17:40:28.14

VBScriptの公式ドキュメントどこに行ったんですか！？！？

**デフォルトの名無しさん** · 2023/05/14(日) 23:25:20.98

>>757
それがこのスレと何か関係あるのか？

**デフォルトの名無しさん** · 2023/05/15(月) 01:52:14.73

うるせえ！

**デフォルトの名無しさん** · 2023/05/15(月) 20:37:17.97

sheet（2）,range.value = sheet（1）,range,value
と書いてあって、ちゃんと1と2のsheetがあるのに
インデックスの範囲外
のエラーが出る事はありますか？

**デフォルトの名無しさん** · 2023/05/15(月) 21:25:34.18

エクスプローラ上で画像選んで
右に回転、左に回転
てありますけど
あれをvba上でファイルパス渡して出来ないですかね？

ググってみたら以外と出てこなくて…

**デフォルトの名無しさん** · 2023/05/15(月) 22:52:46.17

https://excel-ubara.com/excelvba1/EXCELVBA421.html
ここ辺りを参考に、画像の選択までできるなら [Shift]+[F10] でオプション出して [T] か [L] 送れば何とかならん？

**デフォルトの名無しさん** · 2023/05/16(火) 13:06:53.10

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

**デフォルトの名無しさん** · 2023/05/16(火) 13:52:02.22

>>762
やはりこういうアプローチになりますか…
OS標準で簡単にできることが
VBAから出来ないんですよねぇ

かと言って、これだけのためにライブラリ追加したりってのも…

WindowsAPI経由ならいいかなと思ったけど
そういうのもドンピシャなのは見つからなくて…
.netのSystem.Drawing.Bitmapもvbaからは使えないようですし

**デフォルトの名無しさん** · 2023/05/16(火) 14:01:09.62

vbcコンパイラ入ってるからexe作っちまえよ

**デフォルトの名無しさん** · 2023/05/16(火) 14:58:33.26

ファイルの中身をいじくって保存するアプローチならgdi+でいいですよ
vbaからgdi+はネット上にかなりの資料があります

**デフォルトの名無しさん** · 2023/05/16(火) 15:38:41.06

>>764
エクスプローラの機能がOS標準機能だったことなんて一度でもあったっけ

**デフォルトの名無しさん** · 2023/05/16(火) 17:26:18.33

Worksheets(～).Copy
ActiveWorkbook.SaveAs fileName:= ～ =xlOpenXMLWorkbook
ActiveWorkbook.Close

でワークシートをコピー→名前をつけて保存→保存して作成したブックを閉じる
がしたいです
しかし、active work sheet.saveasでコピーしているワークシート（book1）とかそういう仮称が選択できません
なぜでしょうか？

**デフォルトの名無しさん** · 2023/05/16(火) 20:44:51.09

シート（A）に記入します
シート（A）を複製するコードを実行して
シート（A）2を作成します
シート（A）2に記入します
シート（A）とシート（A）2の値が違うところ（差分）をわかりやすく表示する仕組み（条件付き書式）をコードするにはどうしたらいいでしょうか？

**デフォルトの名無しさん** · 2023/05/17(水) 11:46:37.22

ど初心者で申し訳ない
ユーザーフォームを移動というより
スラーっと画面左から右へスライドさせる事なんてプロシージャで出来る？

**デフォルトの名無しさん** · 2023/05/17(水) 13:37:03.45

なぜその程度の事を試さないでいるのかわからん

**デフォルトの名無しさん** · 2023/05/17(水) 20:26:57.88

>>770
ユーザーフォームの表示位置は設定できるんだから
後はAPIでもなんでもいいから一定時間で起動するイベントで
位置をずらして行けばいいだけじゃないの？
そういう意味じゃなくて？

**デフォルトの名無しさん** · 2023/05/17(水) 20:34:40.20

自分だけで利用するならいいけど、他人も利用するのをそんな仕様にしたら気味悪がられるぞ
最悪上司に「PCが乗っ取られました！」とか報告行っちゃうぞ　部署中てんやわんやに成るぞ
それとも相手の要件がそれなのか？　マウスで好きな位置にドラッグしろと突っ撥ねろ

**デフォルトの名無しさん** · 2023/05/17(水) 20:36:59.98

懐かしのブラクラかよ

**デフォルトの名無しさん** · 2023/05/17(水) 22:00:50.03

やっぱり二つのワークシートを比較するVBAはスルーされるくらいに複雑なんですね
素直にコピーをするときにシート名を指定して複製したシートの名前を固定します
そして複製したシートに固定の名前のシートを条件付き書式を設定します

**デフォルトの名無しさん** · 2023/05/17(水) 22:19:01.82

なぜってvbaでベタに比較して色を着けるだけの処理なら条件付き書式は要らないからですよ

**デフォルトの名無しさん** · 2023/05/17(水) 22:37:47.21

>>770
なんでそんな事が必要って話。
マウスが無いなら別だけど。

**デフォルトの名無しさん** · 2023/05/17(水) 23:14:20.94

>>775
2つのワークシートの比較が複雑か複雑でないかはシートの複雑さによる
セルの値を比較するだけなら単純にセルの前にシート名を書けばいい

**デフォルトの名無しさん** · 2023/05/18(木) 00:00:54.09

>>778
どういう事でしょうか？

**デフォルトの名無しさん** · 2023/05/18(木) 00:19:39.19

>>779
シート1とシート2で左上(1,1)のセルが同じかどうかの比較
考え方のサンプルなので細かいとこは気にすんな

If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then
MsgBox ("同じ")
Else
MsgBox ("違う")
End If

**デフォルトの名無しさん** · 2023/05/18(木) 00:39:29.96

あっけなく終了

**デフォルトの名無しさん** · 2023/05/18(木) 06:34:53.48

>>780
どうやってElseのセルの塗り潰しをしますか？

**デフォルトの名無しさん** · 2023/05/18(木) 07:03:21.02

interiorcolor

**デフォルトの名無しさん** · 2023/05/18(木) 13:22:02.41

>>782
もし自力で調べたのにわからないで質問しているならこういうの向いてないと思う

Sheets(1).Cells(1, 1).Interior.Color = vbRed

**デフォルトの名無しさん** · 2023/05/18(木) 17:13:43.92

Private Sub FillDiff( _
ByVal DstSheet As Worksheet, _
ByVal SrcSheet As Worksheet, _
ByVal cy As Long, _
ByVal cx As Long, _
ByVal f As Long)
Dim d() As Variant
Dim s() As Variant
Dim row As Long
Dim col As Long
With SrcSheet.Cells(1, 1).Resize(cy, cx)
s = .Value
End With
With DstSheet.Cells(1, 1).Resize(cy, cx)
d = .Value
.Interior.ColorIndex = xlNone
End With
For row = 1 To cy
For col = 1 To cx
If Not (d(row, col) = s(row, col)) Then
With DstSheet.Cells(row, col)
.Interior.Color = f
End With
End If
Next
Next
End Sub

**デフォルトの名無しさん** · 2023/05/19(金) 11:26:43.98

>>785
VBAでセルの色も塗れないようなレベルじゃ
このサブルーチンを使うための引数さえ入れることができないと思われる

**デフォルトの名無しさん** · 2023/05/19(金) 11:51:40.30

変数名に違和感しかない
俺ならDst,SrcじゃなくてSrc,Dstの順番にする
座標にはx,yじゃなくてr,cを使うし、範囲(大きさ)ならw,h(width,height)にする
あと、変数名にrowを使うのは悪手

**デフォルトの名無しさん** · 2023/05/19(金) 12:35:54.69

座標にx、yを使う気持ちはわかる
CADソフトや三次元測定機を使用するととにかくxyz方向で指示したくなる

**デフォルトの名無しさん** · 2023/05/19(金) 12:52:50.03

他人が定義した変数名なんて本人以外には暗号みたいなもんよね。とくに省略3文字とか。
本人でさえも1ヶ月後には解読に時間がかかる。

**デフォルトの名無しさん** · 2023/05/19(金) 14:32:46.40

俺はタイピングが面倒て理由から変数名は1文字2文字を多用するけど、宣言にコメントは必ず書く方針
Dim sr() ' Source Range
みたいな感じ

**デフォルトの名無しさん** · 2023/05/19(金) 16:03:10.43

VBAなんてグループで開発することなんてほぼ無いし
コーディングルールなんかあってないようなもんだな

**デフォルトの名無しさん** · 2023/05/19(金) 16:13:15.68

グループでなくとも別の人とか辞めた後にとかあるのに

**デフォルトの名無しさん** · 2023/05/19(金) 16:30:13.95

自分の書いたコードが解読できなくなるのは言語を問わず昔からプログラマーあるあるだぞ

**デフォルトの名無しさん** · 2023/05/19(金) 17:26:41.01

出先で打ち合わせ中にノートに速記した自分が書いた字が、帰社してみるとぜんぜん読めねえ
史上最強の暗号に成り果てる　どこかにうっかり置き忘れても心配無用
だけど、チームの女の子の内ひとりだけが解読できる　彼女は優秀なデクリプター　粗末には扱えない
(因みに彼女は打ち合わせに同席していない)　罵倒されながら清書している時間は至福のひととき

**デフォルトの名無しさん** · 2023/05/19(金) 17:51:29.85

はいはい
そうですか

**デフォルトの名無しさん** · 2023/05/19(金) 18:06:46.91

>>792
それよくいうけど、
知ったこっちゃないしそんなことまで面倒みれないなってのが正直なところだよ

**デフォルトの名無しさん** · 2023/05/19(金) 18:09:20.34

とうとう当スレに
散文詩を記す御仁が出現・・・

**デフォルトの名無しさん** · 2023/05/19(金) 18:33:52.51

>794
こんな無能の塊と一緒に仕事する人は可哀そうだな

**デフォルトの名無しさん** · 2023/05/19(金) 20:20:11.33

>>790
ふーん
俺とは逆だね
変数名は見てどういう用途で使っているか
解るようにして、逆にコメントは
その処理を何のために行なっているかとか
どういう経緯で作成されたか後で分からなく
なるのを防ぐために付けるくらい。

後はモジュールや関数のヘッダに
その関数の役割とシグネチャの説明をふるくらいかな
関数もひとつにひとつの役割しか持たせないようにして
なるたく短く作ってしの関数を組み立てて
更にひとつ上の役割の関数を作るようにしてる。

**デフォルトの名無しさん** · 2023/05/19(金) 20:30:07.26

エクセルを月曜～金曜の決まった時間に実行する場合は
イベントプロシージャを使うのが一番いいですか？
ググったらスクリプトを作るという方法もあるようです。
長所・短所がわからないので教えてください

**デフォルトの名無しさん** · 2023/05/19(金) 20:41:37.93

>>800
いやいや、ずーっとEXCEL立ち上げっぱ、
VBA動かしっぱにして時間を迎えたイベントを使うってこと？

タスクスケジューラーに
対象のブック開くように設定しといて
オープン時にマクロが走行するようにしとくんじゃダメなの？

**デフォルトの名無しさん** · 2023/05/19(金) 20:43:39.44

>>800
エクセルを実行するのだからタスクスケジューラだろ
馬鹿ですか？

**デフォルトの名無しさん** · 2023/05/19(金) 21:00:02.29

>>801
盛大に勘違いしてました。
タスクスケジューラーで問題ないですね。
ありがとうございます。

**デフォルトの名無しさん** · 2023/05/19(金) 21:05:29.56

>>787
cx cyは座標ではなく
count of x
count of y
MSがwin32APIのc/c++で使ってきた古い接頭語です
まだSIZE構造体に残っています

**デフォルトの名無しさん** · 2023/05/19(金) 21:30:19.21

変数の理解が怪しいのはその通りです

**デフォルトの名無しさん** · 2023/05/19(金) 21:43:28.41

はあ～またいつものマウント取りあい始まったよ

**デフォルトの名無しさん** · 2023/05/20(土) 00:07:38.75

ビーングは4.0って本当かよ
3.5の方が正しいコード書いてくれるんだが

**デフォルトの名無しさん** · 2023/05/20(土) 18:29:05.09

条件付き書式によって塗りつぶされた背景色をコピーして上書きでペーストしたいのですがどうすればよろしいでしょうか？

**デフォルトの名無しさん** · 2023/05/20(土) 22:25:35.47

背景色を変更する条件が付いているから条件付き書式と呼ぶ
条件付きでなら普通にコピペできるが条件を無視した背景色だけのコピペはできない

**デフォルトの名無しさん** · 2023/05/20(土) 22:28:37.71

とおもう

**デフォルトの名無しさん** · 2023/05/20(土) 22:48:50.21

条件付き書式の色だけをコピーするためには
クリップボートのコピーと貼り付けを行えばいいところまではわかりました
そしてそれを行うためにはSelection.Copyを行えばいいという所まで突き止めました
しかしActiveSheet.Pasteで貼り付ける事ができないです
どうすればクリップボートのコピーをそのまま貼り付けられるでしょうか？

**デフォルトの名無しさん** · 2023/05/20(土) 23:06:35.71

同じとこにそのままペーストしてるからじゃね

**デフォルトの名無しさん** · 2023/05/20(土) 23:18:24.07

>>812
ところにそのままペーストすることは無理なのですか？

ではこの様に
Sub Sample1()
Worksheets("Sheet1").Select
Range("A1").Select
Selection.Copy
Worksheets("Sheet2").Select
Range("C2").Select
ActiveSheet.Paste
End Sub

とするのであれば問題ないのでしょうか？

**デフォルトの名無しさん** · 2023/05/20(土) 23:41:42.54

やりたい事は
今選択しているシートをコピーして末尾に送る
コピー元のシートの条件付き書式のセルの色をコピーペーストで同じシートにペーストする、色を残す
という事がしたいです

なのでコピーしたコピー元シートをセレクトして範囲を選んでアクティブシートペーストならできますか？

**デフォルトの名無しさん** · 2023/05/21(日) 00:16:44.41

やってみて理想通りの動作だったら問題ないんじゃね

**デフォルトの名無しさん** · 2023/05/21(日) 01:12:12.18

頭が悪いからPASTEに拘るのね

**デフォルトの名無しさん** · 2023/05/21(日) 02:07:29.20

いったい何のために

**デフォルトの名無しさん** · 2023/05/21(日) 02:24:13.63

VBAが使えないのにワープロが使えたことを自慢していた爺かな

**デフォルトの名無しさん** · 2023/05/21(日) 06:58:31.07

>>816
ペースト以外にクリップボートを貼り付ける方法はありますでしょうか？

**デフォルトの名無しさん** · 2023/05/21(日) 07:13:41.86

条件付き書式から条件を消して結果の色だけ残したいんやろ
それは単純なコピペじゃ無理
DisplayFormatでセルの色を調べて自力で再設定するしかない

**デフォルトの名無しさん** · 2023/05/21(日) 07:35:11.64

>>820

https://tokusengai.com/_ct/17541893

https://dekiru.net/article/16416/

クリップボートにコピーをして貼り付けを実行すれば塗り潰しの色のみ残ることは判明しました
そしてクリップボートのコピーはselection.copyだという事も判明しました
なので後は貼り付けのみ実行したいのですが
ペーストもスペシャルペーストもエンターキー送信も
全て貼り付けられませんでした

**デフォルトの名無しさん** · 2023/05/21(日) 07:58:40.07

ちなみにThis workbookにコードを書いているからアクティブシート、ペーストができないという事はないですよね？

**デフォルトの名無しさん** · 2023/05/21(日) 10:39:24.18

初心者によくある思い込みと表現が稚拙すぎてかみ合わない

**デフォルトの名無しさん** · 2023/05/21(日) 11:17:23.92

もしかして
VBAで条件付き書式のある範囲をコピーをコピーしたときは
必ず色のコピペではなく、条件付き書式のコピペになってしまう
という事でしょうか？
なのでVBAで条件付き書式でつけられた色を塗りたいときは
必ず
Range("A1").Interior.ColorIndex = Range("A1").DisplayFormat.Interior.ColorIndex

を使用しなければならないという事でしょうか？
しかも範囲選択も使えないと

**デフォルトの名無しさん** · 2023/05/21(日) 12:35:30.87

https://okwave.jp/qa/q9992673.html

最終的にこれでやりました
もっと短いコードで行う方法はないでしょうか？