Excel VBA 質問スレ Part70

2021/03/18(木) 22:08:43.71

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

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

※前スレ
Excel VBA 質問スレ Part69
https://mevius.5ch.net/test/read.cgi/tech/1607786543/

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

2021/04/11(日) 13:01:24.60

Excelから呼び出せないのか
起動中のソフトを検索するワード関数をExcelから呼び出してるの見かけたことあるけど

2021/04/11(日) 14:13:05.18

>>190
ありがとう
まったく理解できないけど、もっと楽な方法ないのかなー

2021/04/11(日) 15:30:39.63

vb.netでdllとか作った方が早いような

2021/04/11(日) 20:16:20.16

>>180
スレ作ればいいだろ
厚かましいにも程がある

2021/04/11(日) 21:10:22.11

Python, Julia, Ruby などで使う、Jupyter Lab に、ガントチャートは無いのか？

2021/04/11(日) 21:40:30.24

>>196
あることはある
https://cafe-mickey.com/python/plotly-tutorial-6/

でも結局死ぬほどカスタマイズすることになるから、EXCELで作るのが一番マシ

2021/04/11(日) 23:13:09.15

業務とはかけ離れた腕自慢スレになりつつあるなここは

2021/04/11(日) 23:26:48.43

>>180
です。スレ違いな質問に回答くださってありがとうございました。
>>187
さんのご推察どおりここの先生方を最も頼りにしております！

残念ながら任されているのはエクセル上の作業のみであり
人員期間の配分は担当外ですが
コレが一番スマートだと確信できました。
これで安心して作業に入れます。感謝します。

**デフォルトの名無しさん** (JP 0H93-CoCA) · 2021/04/11(日) 23:52:08.05

>>197
昔から、質問の答えが出た後に別の方法を書き込む競争はやってた

2021/04/12(月) 00:09:38.61

いつものあいつだな

2021/04/12(月) 02:49:52.91

まだ引っ掛かる馬鹿がいるのか

2021/04/12(月) 09:23:22.30

回答者さん同士で競争とか知恵袋と同じじゃんか
無駄にスレの無駄遣い

2021/04/12(月) 10:17:02.71

無駄な書き込みを無駄にスレに書き込んでスレを無駄に使うことはスレの無駄遣いだと書き込むことはスレの無駄遣いかもしれない

2021/04/12(月) 10:35:19.07

無駄な努力が、むくわれるのさ

2021/04/12(月) 10:49:33.17

VLookupをつかったのは無駄な努力だったな

やめときゃよかった

2021/04/12(月) 10:56:04.87

これをマクロでどうにかなりませんか

そういってわたされたのがVLookupが山のように貼り付けられた
エクセルシートだった
うまくと動くけと突然とまるw
けっきょくforループの検索に代えた

とここまで書いておもいだしたが
去年、メンタル悪化で退職した同僚がいたけど
のこしていってのはやはりVLookupの山だったな
動かないVLookupで退職するまえに本スレにご相談ください

2021/04/12(月) 12:12:04.06

Excel初心者はVLookupしか知らないから
何でもこれでやろうとして自爆する傾向があるね

2021/04/12(月) 12:24:31.30

そのVlook関数はマクロ経由なのかが気になる

**デフォルトの名無しさん** (JP 0H93-CoCA) · 2021/04/12(月) 12:42:14.50

池の女神は言いました
あなたが落としたのはVLOOKUPですか、HLOOKUPですか
いいえ私が落としたのはXLOOKUPです

2021/04/12(月) 13:02:43.22

質問です
>>209の言う
VlookupとHlookupの頭文字は
バーティカル(垂直)とホライズン(水平)
なのは分かるんですがXlookupの頭文字の
Xってなんですか？
EXCELの質問でスレ違いなのは
重々承知していますが
このスレにいる方々の知識の豊富さに縋らせてください
考えると夜も眠れない有様です

2021/04/12(月) 13:25:12.45

>>210
クロス

2021/04/12(月) 13:30:51.45

>>211
クロスのスペルってCROSSではないんですか？
それともX_JAPANの「エーックス」のクロスですか？
分かりません＞＜

2021/04/12(月) 13:34:07.13

XmasのX

2021/04/12(月) 13:36:54.52

向こうではCrossとかChristmasをXで省略するから、だと思う

2021/04/12(月) 13:41:07.52

>>213
>>214
やっと分かりました
今日からぐっすりと眠れそうです
ありがとうございました

2021/04/12(月) 15:02:08.77

>>215
死ねよ

2021/04/12(月) 17:28:11.89

バツルックアップじゃないの？？
事務のオバチャンにそう聞いたけど

2021/04/12(月) 19:56:57.26

とんこつととんかつの違いはなんですか

そういう質問をうけたときがあったなぁ

**デフォルトの名無しさん** (JP 0H93-CoCA) · 2021/04/12(月) 20:02:02.68

とんかつ
とんかち

2021/04/12(月) 22:40:18.25

マジレスするとExtraやExtendのX

2021/04/13(火) 12:25:16.60

ガントチャートの欠点は
遅れの検出がおそいだよね
期限が過ぎないと遅れることがわからない

これでは手遅れですよ

2021/04/13(火) 12:40:10.17

>>221
あ、そうなんだ
EXCELの数式だったら予定線より実績線が
二日くらい前になったらワーニングで黄色、
予定線以降になったら赤とかにしとけば
ワーニングに入った時点でリカバリ案とか
会議で話し合えるのにね。

2021/04/13(火) 12:54:32.74

期限過ぎる前に進捗率がヤバくなればリスケで仕切り直し
いつまで経っても期限が過ぎることは無い

2021/04/13(火) 13:24:50.99

>>223
本当にありそうで怖いわ！

2021/04/13(火) 17:28:26.59

開始日でだいたいわかる
おおくのばあいはまともにスタート出来てないからw

人がいない、資料がそろってない、仕様がきまってない
だも
スタートできなきゃゴールするわけがない

2021/04/13(火) 20:57:49.87

>>225
開発あるあるだなw
そうか、確かにVBAだと後ろが伸びるだけになるかも知れないね。
他のある程度大きいシステムになると
・客先から上がって来ない要件定義
・客先だから強く言えないチームのリーダー
・差し迫る納期
・焦りが出てきてイラつく俺ら。それを宥めるリーダー

この辺からが違うところかな

・システム間の連携や他システムとの連携のため伸ばせない納期
・更に焦る俺ら。宥めきれなくなるリーダー
・上がって来る要件定義、血眼で設計書を作る俺ら
・時間がなくて客先との対面レビューのはずが回覧レビューになる設計書
・PGしながら単体テストケース作りながら単位テストしながらエビデンス取る俺ら
・超える納期、無くなる休日、伸びまくる勤務時間、倒れる仲間
・覆る要件定義、設計種ミス発覚、他の嶋から助っ人入るも焼石に水、発狂する助っ人
・何とかSTまで終了。飛ばされるリーダー、バグだらけの成果物、昇天する俺ら

最悪こんな感じかな。

2021/04/13(火) 21:11:48.26

>>225
開発あるあるだなw
そうか、確かにVBAだと後ろが伸びるだけになるかも知れないね。
他のある程度大きいシステムになると
・客先から上がって来ない要件定義
・客先だから強く言えないチームのリーダー
・差し迫る納期
・焦りが出てきてイラつく俺ら。それを宥めるリーダー

この辺からが違うところかな

・システム間の連携や他システムとの連携のため伸ばせない納期
・更に焦る俺ら。宥めきれなくなるリーダー
・上がって来る要件定義、血眼で設計書を作る俺ら
・時間がなくて客先との対面レビューのはずが回覧レビューになる設計書
・PGしながら単体テストケース作りながら単位テストしながらエビデンス取る俺ら
・超える納期、無くなる休日、伸びまくる勤務時間、倒れる仲間
・覆る要件定義、設計種ミス発覚、他の嶋から助っ人入るも焼石に水、発狂する助っ人
・何とかSTまで終了。飛ばされるリーダー、ハゲだらけの社員、昇天する俺ら

最悪こんな感じかな。

2021/04/13(火) 21:15:01.18

うーん、何か接続がおかしいのかな
他のスレに誤爆になってこのスレでも2回載ってしまった
すまんこ

2021/04/13(火) 21:34:03.40

うーん、何か接続がおかしいのかな
他のスレに誤爆になってこのスレでも2回載ってしまった
おまんこ

2021/04/13(火) 21:38:41.78

>>229
おいw

2021/04/14(水) 07:51:01.50

ウンコマクロ

2021/04/14(水) 19:17:03.44

まあ。そんなんだ

2021/04/14(水) 19:29:05.82

EXCEL VBAは好きだし凄く肌に合ってると思うけど、案件単価がちょっとなぁ

2021/04/14(水) 19:47:31.92

EXCEL VBAが肌に合う様な奴が案件単価とか生意気。

2021/04/14(水) 20:39:37.17

一般事務が仕事中に覚える→結婚・退職→主婦の傍ら有り余る時間で糞みたいな単価で受注
まぁ、悪い事でもなんでもないんだけどね、うん

2021/04/14(水) 20:45:27.19

あたまが鉛のようにおもい

2021/04/14(水) 20:47:48.07

1時間で作れるような案件が高いわけない

2021/04/14(水) 20:52:06.82

冷戦時代日本がロケットのことでロシアに教えをこうたとき
一言ジャイロに問題があるといって
１００億ぐらいもって去っていったそうな

2021/04/14(水) 21:21:01.64

VBA Seleniumdriveで
driver.ExecuteScript ("XXXX")
でonclickをクリックするとモーダルコンテンツが表示されます。
コンテンツ内のXpathをクリックしてもボタンを押すことが出来ないんですが、
SendKeys "{TAB}", Trueで該当のボタンをクリックする以外に
要素を指定してクリックする方法ってありますか？

2021/04/14(水) 22:43:58.06

下記「やりたいこと」のようにhtmlから抽出したいのですが、
下記「前提」があって、どうしたらいいのか分かりません。
なにか方法ありますでしょうか？

--- やりたいこと ---
下記htmlにおいて、"ヘッダ"のすぐ次に存在しているtableタグ内の項目1,2、要素1,2を取得したい

--- 前提 ---
①"ヘッダ"は特定できる
②tableは特定できない
　・tableのidや要素から特定できない
　・tableの数から特定できない（取得したいtableが何個目なのか分からない）

--- html例 ---
　・・・
<h2>ヘッダ</h2>
<table>
<tr><th>項目1</th><th>項目2</th></tr>
<tr><td>要素1</td><td>要素2</td></tr>
</table>
　・・・

--- プログラム例（Microsoft Internet Controls、Microsoft HTML Object Libraryは参照設定済み） ---
Dim objIE As New InternetExplorer
objIE.Navigate "http://***";
Do While objIE.Busy = True Or objIE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
For Each obj In objIE.Document.getElementsByTagName("h2")
If InStr(obj.innerText, "ヘッダ") > 0 Then　　ヘッダは見つけることができるが、この後どうしたらいいのか・・・
End If
Next obj

**デフォルトの名無しさん** (JP 0H93-CoCA) · 2021/04/14(水) 23:08:27.54

>>240
<HTML>タグか<BODY>タグで全体のソースを取り込んで、あとは文字列として処理

2021/04/15(木) 01:36:52.92

VBAでやる意味あんの？

2021/04/15(木) 02:03:12.55

>>241>>242
ありがとうです。
もう少し考えます。。

2021/04/15(木) 06:20:29.14

>>240
jQuery なら、2重ループで、

<h2 id="id-1">ヘッダ</h2>
<table><tbody>
<tr><th>項目1</th><th>項目2</th></tr>
<tr><td>要素1</td><td>要素2</td></tr>
</tbody></table>
<table><tbody>
<tr><th>項目3</th><th>項目4</th></tr>
<tr><td>要素3</td><td>要素4</td></tr>
</tbody></table>

$( function ( ) {
let table = $( '#id-1' ).next( ); //次の兄弟要素

// table > tbody > tr を、1行ずつ処理する
$( table ).children( ).children( ).each( function ( index, row ) {
// 1列ずつ処理する
$( row ).children( ).each( function ( index_2, col ) {
console.log( `${ index }行 ${ index_2 }列`, col.textContent );
} );
} );
} );

出力
0行 0列項目1
0行 1列項目2
1行 0列要素1
1行 1列要素2

2021/04/15(木) 06:53:10.31

>>244
VBAの構文に変換してくれ

2021/04/15(木) 11:25:51.10

>>244
VBAに対してHTMLの集約やメソッドチェーンが使える言語をぶつけてくるのは卑怯だと思うの

2021/04/15(木) 12:05:58.59

スクリプトぐらいなら良くねの

2021/04/15(木) 12:18:14.12

>>244
結局総当りか
まあそうだよね

2021/04/15(木) 16:07:09.80

質問です。
今は下記のようなコードとvlookupを組み合わせて連続で請求書を印刷しています。
一つのジョブにまとめて印刷するにはどのようにしたらよいでしょうか？

Sub 連続印刷()
Dim i As Integer
Dim LastRow As Integer

Worksheets("請求書").Select

With Worksheets("データ")

For i = 3 To 5
Range("d1").Value = .Range("A" & i).Value
Range("n1").Value = .Range("A" & i + 1).Value
i = i + 1
ActiveSheet.PrintOut
Next
End With
End Sub

2021/04/15(木) 17:29:43.21

>>249
vlookup部分もVBA化して組入れれば一つのJOBに出来るよ

2021/04/15(木) 17:46:43.97

>>249
３つぐらいなら請求書シートを必要分コピーして各々値を入れて複数シートを一気に印刷するしか思い付かない

2021/04/15(木) 17:53:55.45

請求書シートも複数有るなら、それをFor Nextで繰り返すぐらいだろうね

2021/04/15(木) 19:09:26.62

UI Automationの質問てここでいいの？
VBAでゆっくりムービーメーカー4のキャラクター切り替えをやりたいんだけど、
うまくいかず。
キー操作をWindowsに送ることでごまかしている。

”追加してシーク”ボタンを押すだけならこんな感じでできるんだけど、

Set iCnd = uiAuto.CreatePropertyCondition(UIA_NamePropertyId, "追加してシーク")
Set elmYukkuri_Button = elmYukkuri_timeline.FindFirst(TreeScope_Subtree, iCnd)

Dim InvokePattern As IUIAutomationInvokePattern
Set InvokePattern = elmYukkuri_Button.GetCurrentPattern(UIA_InvokePatternId)

ボタンじゃなくてコンボボックスでボタン内容が切り替わるときはどうすればいいんだろう？

2021/04/15(木) 21:08:32.60

>>249
俺もそれ使ってたわ
100セットとか印刷するとコピー機占領するからすごい迷惑なんだよね。
色々あって、vbaは逆に使わなくなった

方法はは>>251にかなり近くて、

・シートを連番で用意しておく
・シート名は「3」～「5」
・vlookupのキーはシート名にする
Range("d1").Valueには、 .Range("A" & シート名).Value
Range("n1").Value には、.Range("A" & シート名+ 1).Value
のように、予めシート名を引っ張ってｖｌｏｋｕｐ部分は完結させておく

後はシート「3」～シート「5」を選択し、印刷するだけ。ジョブは一つになるし、vbaも不要になる

シート内容が変更になる時は、ｖｂａを使って連番のシートを再作成すると良い

**デフォルトの名無しさん** (JP 0H93-CoCA) · 2021/04/15(木) 22:20:13.95

直接印刷せずPDFにすればいいじゃん
PDFなら大量のファイルを1回のジョブで一気に印刷できるぞ

2021/04/15(木) 22:56:26.48

>255
PDFに出力する時はvbaで制御できないんじゃ

2021/04/15(木) 23:42:15.25

>>253
ここで良いけど、
UIAutomationとムービーメーカー4両方知ってるレアな人じゃないとわからないと思うぞ。

俺は前者しかわからんからあてずっぽうで言うけど、
FindFirstじゃなくてFindAllして中身を調べれば良いんじゃないの?

2021/04/16(金) 04:48:18.88

>>257
とりあえずごまかしながら作ったのがこんなやつ
https://youtu.be/3RApNTTEkIs
ソースとかほしい？

**249** (ﾜｯﾁｮｲ 975f-Qn2Y) · 2021/04/16(金) 19:03:44.09

様々なご提案ありがとうございます。
シートを増やして行くやり方にしようと思います。

2021/04/17(土) 04:28:55.40

質問です。変更したセルに色をつけたいと思っており、調べたところ変更履歴の使用や色を変更するマクロ(private sub～)は出てきました。
それに加えて、その色変更をその日だけ有効にすることは可能ですか？

例えば、
4/17 A1の値 1
1→2に変更すると色も変更
4/18 A1の値 2 白に戻っている
　　　　　　2→3に変更すると色も変更…

といった感じなんですが。。。

2021/04/17(土) 04:47:34.80

If Today()="2021/04/17" Then

Range("A1").Interior.Color = 256

～とか条件加えればいいんじゃね

2021/04/17(土) 05:37:32.98

こんなこと出来ますか？
https://i.imgur.com/ypZck9P.png
A列に予め色の見本が、C列に数値を代入していく。
C列に数値を代入したら、そのセルの背景色をA列の色の見本と同じ色にしたい。

A列め色の見本は20色ぐらいを想定。
条件付き書式を使おうと思ったけど、20色も増えたらルールも20個書かないといけないので、ちょっとなえた。

2021/04/17(土) 06:27:08.23

>>261
これを、ワークブックオープンにいれておけばよいよ

2021/04/17(土) 06:33:53.75

>>262
セルに入力されたらシートチェンジというモジュールがあるはずなので
それをさがしてその中でいろいろな処理をすればよいよ

2021/04/17(土) 06:44:21.86

>>262
出来る出来ないで聞かれたら出来ると答えるよ。

方法は？と聞かれたらワークシートチェンジイベントをシートモジュールに付け足して、引数にはRangeが入ってくるから
その範囲にC列が被っていたらそこの数字みてA列の該当する数字の色拾って来て着色する。

イベントの範囲とC列が被っているかどうかは計算でも求められるけど、今回はセル値も見ることになるからFor Each でイベントでとったRangeを
ぐーるぐる回してC列かどうかを見ればいいと思うよ。
その際、イベントの引数の範囲もRangeだけど
Eachの後に書くCellに該当する変数の型もRangeになることに気をつけて。
実はCellって型はRangeなんだよ。

2021/04/17(土) 07:03:20.22

>>265
こういう回答する人って知識ひけらかしたいだけに見える
簡潔答えられないのかね

2021/04/17(土) 07:05:28.63

まあ条件付き書式のほうがスッキリしていいと思うけどな

2021/04/17(土) 07:19:08.72

>>266
そうなんだ
最近ヒマしててちょっとひけらかしたい部分もあったんだ。
でも作る時のポイントになること押さえてるからいいだろ？
本当は手元に環境があればソース貼りゃいいんだけど。

2021/04/17(土) 07:26:58.07

ふつうはシート・チェンジのモジュールのなかで
target.アドレスやtarget.valueで値を取り出すのじゃないのか

なにをやってるのかよくわからんぞ、

2021/04/17(土) 07:28:09.89

>>262
どういうシステムにしたいかがいまいち分からん

まずC列の複数のセルに0～5の整数をまとめていくつも代入して、
その後に数字入れたセルの背景色をまとめて変えたい？

2021/04/17(土) 07:30:13.57

口だけ出すのもなんなので一応作ってみた
Sheet1モジュール用

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Alea数値 As Range
Set Alea数値 = Range("C4:C9")

If Intersect(Target, Alea数値) Is Nothing Then Exit Sub

Dim AleaColor As Range
Set AleaColor = Range("A4:A9")

Dim Rng As Range
Dim Color№ As Long

For Each Rng In AleaColor
If Rng.Value = Target.Value Then
Color№ = Rng.Interior.Color
Target.Interior.Color = Color№
Exit Sub
End If
Next Rng

End Sub

2021/04/17(土) 07:46:50.44

>>262
てさあ、なかなか賢いとうか
赤や黄色のセルを取り出す、⬅これできないだよな

どこかのセルと同じ色にするならできるだけど

2021/04/17(土) 07:47:30.68

>>271
素晴らしいです。
やりたいことが出来ました。
コメントくれた人にも感謝します。

**デフォルトの名無しさん** (JP 0H4f-V0/V) · 2021/04/17(土) 08:50:15.05

>>271
いま見返したらAreaがAleaになってるな

2021/04/17(土) 08:56:18.27

エクセルは1600万色もあるからどれが赤で黄色なのかわからない
262のように色見本があって、これが赤です。と決めてくれないと

2021/04/17(土) 09:08:47.12

>275
EXCEL関係ない

**デフォルトの名無しさん** · 2021/04/17(土) 12:35:40.75

>>102,103
返信ありがとうございます。
input_str =～の()内にB2の文字列を貼付して出来ましたが、
input_str =～
input_str =～
と複数行にして試しましたが、複数行は出来ませんでした、どうすれば複数行処理可能になりますでしょうか？

2021/04/17(土) 20:38:15.19

>>258
いや、ムービーメーカー4がわからないから、貰ってもわからないし。

コンボボックスって未選択の所?
UIAutomationじゃなくてもSendMessageで行けそうな気がするけど・・。

▼が何の文字を指定すればいいのかわからないって意味なら、
やっぱりFindAllで取得して、配列の何番目にそれっぽいのが入ってるか調べればいいと思うな。

2021/04/17(土) 20:55:43.60

>>278
1日がかりでググりまくりの苦労と試行で出来た。

'コンボボックスを開いて折りたたむ
Dim ptnExpand As IUIAutomationExpandCollapsePattern
Set ptnExpand = elmYukkuri.GetCurrentPattern(UIA_ExpandCollapsePatternId)
ptnExpand.Expand
ptnExpand.Collapse

'コンボボックスの中身をセルA3に書き出す
Set elmYukkuri = elmYukkuri.FindFirst(TreeScope_Subtree, iCnd)
Set iCnd = uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "ListBoxItem")
Set elmsYukkuri = elmYukkuri.FindAll(TreeScope_Children, iCnd)
Set iCnd = uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "TextBlock")
For i = 0 To elmsYukkuri.Length - 1
Set elmYukkuri = elmsYukkuri.GetElement(i).FindFirst(TreeScope_Children, iCnd)
Cells(i + row_セリフ開始, 1).Value = i
Cells(i + row_セリフ開始, 2).Value = elmYukkuri.CurrentName
Next

2021/04/18(日) 09:49:47.16

し

2021/04/18(日) 09:56:40.54

Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, Range("A1:A2")) Is Nothing Then
Exit Sub
End If
ClearDates
UpdateDates
End Sub
Sub ClearDates()
Range("A4:A999").Clear
End Sub
Sub UpdateDates()
If IsDate(Range("A1").Value) = False Or IsDate(Range("A2").Value) = False Then
MsgBox "日付を正しく入力してください"
Exit Sub
End If
Dim d As Date, endDate As Date
d = Range("A1").Value
endDate = Range("A2").Value
Dim y As Long
y = 4
Do While d <= Range("A2").Value
Cells(y, 1) = d
d = d + 1
y = y + 1
Loop
End Sub
日付間の日にちが自動で打ちあがるようにしたんですけど
めちゃくちゃ重くてパソコンが固まってしまいますご教授ください
素人みたいな質問ですいません。

2021/04/18(日) 10:09:03.12

>>281
Changeイベントをする時は、
処理の前で
Application.EnableEvents=False

処理の後で
Application.EnableEvents=True

が動くようにしないと延々Changeイベントが動いて重くなる

2021/04/18(日) 10:09:19.29

>>281
むしろそれでプロだったらびびるけど・・・

Worksheet_Change()はワークシートの内容が変わった時に発火する

Worksheet_Change()→ClearDates()→Worksheet_Change()→UpdateDates（）→Worksheet_Change()→・・・
多分無限ループになっている

こういう時はイベントを無効にしておけば無限ループにならない

Private Sub Worksheet_Change(ByVal target As Range)
object.EnableEvents = false
'内容
object.EnableEvents = true
endsub

2021/04/18(日) 10:09:41.04

すまん、Application.EnableEvents = Falseだった上に遅かった

2021/04/18(日) 10:53:16.67

すばやい返答ありがとうございます
少し早くてびっくり

VBAははじめて２年ぐらいです
５年後ぐらいにプロになれたらいいな

Private Sub Worksheet_Change(ByVal target As Range)
object.EnableEvents = false
上記を先頭２行と置き換えて

object.EnableEvents = true
endsub
↑この２行は最終行に書けばいいのですか？

素人ですいません！

**デフォルトの名無しさん** (JP 0Hbb-tdH6) · 2021/04/18(日) 11:21:49.65

>>285
直す部分だけ書くと、こう

Private Sub Worksheet_Change(ByVal target As Range)
　　Application.EnableEvents = False
　　If Intersect(target, Range("A1:A2")) Is Nothing Then
　　　　Exit Sub
　　End If
　　ClearDates
　　UpdateDates
　　Application.EnableEvents = True
End Sub

2021/04/18(日) 12:11:13.84

>>285
ごめーん、object.EnableEvents = false 　は間違いです
>>286さんが正しいです

2021/04/18(日) 14:57:21.70

先生たちありがとうございます！
新設丁寧頭もいい

2021/04/18(日) 14:58:49.68

自分の力で解決できるようにがんばります！

2021/04/18(日) 16:07:16.06

>>281
それコピペして動かしてみたけど全然重くなかったよ
1900年から今日までにしても4秒くらい
これで固まるのは別の原因があると思う

その場所以外にとても複雑な計算式があって
Cells(y, 1) = d　の度に計算して重くなってるとか

そうであれば計算を手動に変えて最後に自動にするとか
セルじゃなくて配列にdを入れて最後に一回だけ出力するとか

UpdateDates()を1行ずつ動かせばどの行で固まってるか分かると思うよ