<a href="https://kanazawadc.amebaownd.com/pages/2410140/contact">
<img src="https://blogimg.goo.ne.jp/user_image/40/35/5150e6cc54a48393cf1594d0f308fb9c.png" alt="home" width="32" height="32" border="0" />
</a>
{「ep58-kit」へのアクセス(PVIP)}
@http://blog.goo.ne.jp/ep58-kit/e/ec009afad3f92c3b967b750ceefc67ab
/
%0:Last access ranking(Terminal)
2019.03.10-2019.03.16: 127 PV, 100 IP; -/2,860,099
2019.03.03-2019.03.09: 138 PV, 113 IP; -/2,858,887
2019.02.24-2019.03.02: 173 PV, 147 IP; -/2,857,902
2019.02.17-2019.02.23: 167 PV, 136 IP; -/2,856,950
2019.02.10-2019.02.16: 156 PV, 142 IP; 96,376/2,855,951
2019.02.03-2019.02.09: 280 PV, 202 IP; 73,678/2,855,025
2019.01.13-2019.01.19: 175 PV, 148 IP; 86,973/2,852,827
2019.01.06-2019.01.12: 163 PV, 134 IP; 92,439/2,852,119
2018.12.30-2019.01.05: 139 PV, 114 IP; 93,723/2,851,497
2018.11.11-2018.11.17: 198 PV, 132 IP; 87,778/2,847,087
2018.11.04-2018.11.10: 308 PV, 159 IP; 67,448/2,846,292
2018.10.28-2018.11.03: 278 PV, 177 IP; 71,066/2,845,515
2018.10.21-2018.10.27: 255 PV, 149 IP; 72,291/2,844,888
2018.10.07-2018.10.13: 414 PV, 239 IP; 56,783/2,843,344
2018.09.30-2018.10.06: 276 PV, 166 IP; 73,782/2,842,419
2018.09.23-2018.09.29: 463 PV, 242 IP; 56,282/2,841,592
2018.09.16-2018.09.22: 401 PV, 202 IP; 65,741/2,840,839
2018.09.09-2018.09.15: 509 PV, 279 IP; 46,738/2,840,167
2018.09.02-2018.09.08: 440 PV, 255 IP; 83,740/2,839,529
2018.08.26-2018.09.01: 837 PV, 388 IP; 56,626/2,838,815
2018.08.05-2018.08.11: 317 PV, 189 IP; 70,709/2,836,149
2018.07.22-2018.07.28: 463 PV, 231 IP; 57,326/2,834,132
2018.07.29-2018.08.04: 431 PV, 232 IP; 65,113/2,835,098
2018.07.22-2018.07.28: 463 PV, 231 IP; 57,326/2,834,132
2018.07.08-2018.07.14: 642 PV, 296 IP; 44,002/2,832,118
2018.07.01-2018.07.07: 633 PV, 297 IP; 51,274/2,831,165
2018.06.17-2018.06.23: 534 PV, 281 IP; 53,508/2,829,102
2018.06.10-2018.06.16: 603 PV, 305 IP; 66,422/2,828,063
2018.06.03-2018.06.09: 593 PV, 308 IP; 66,432/2,826,916
2018.05.27-2018.06.02: 492 PV, 240 IP; 69,953/2,825,763
2018.05.20-2018.05.26: 272 PV, 152 IP; -/2,824,704
2018.05.13-2018.05.19: 209 PV, 137 IP; -/2,823,474
2018.05.06-2018.05.12: 242 PV, 158 IP; 823,88/2,822,397
2018.04.22-2018.04.28: 310 PV, 183 IP; 85,516/2,820,339
2018.04.15-2018.04.21: 565 PV, 295 IP; 62,626/2,819,259
2018.04.08-2018.04.14: 600 PV, 246 IP; 79,957/2,818,196
2018.04.01-2018.04.07: 513 PV, 236 IP; 74,382/2,817,117
2018.03.25-2018.03.31: 345 PV, 193 IP; 76,575/2,816,069
2018.03.18―2018.03.24: 197 PV, 153 IP; 99,384/2,814,784
2018.03.11―2018.03.17: 506 PV, 369 IP; 46,795/2,813,611
2018.02.25―2018.03.03: 724 PV, 546 IP; 30,523/2,811,260
2018.02.18―2018.02.24: 145 PV, 109 IP; 94,201/2,810,166
2018.02.11―2018.02.17: 142 PV, 107 IP; -/2,809,160
2018.02.04―2018.02.10: 437 PV, 352 IP; 36,911/2,807,006
2018.01.28―2018.02.03: 948 PV, 640 IP; 19,561/2,805,150
2018.01.21―2018.01.27: 381 PV, 233 IP; 56,472/2,803,211
2018.01.14―2018.01.20: 326 PV, 255 IP; 47,339/2,801,521
2018.01.07―2018.01.13: 553 PV, 388 IP; 32,339/2,799,492
2017.12.31―2018.01.06: 1,111 PV, 673 IP; 15,023/2,796,795
2017.12.24―2017.12.30: 1,536 PV, 988 IP; 7,598/2,794,310
{Excelに関するメモ}@https://blog.goo.ne.jp/ep58-kit/e/ee144128691f848033e38ce860842b84
%0:Excelに関するメモ
旧ブログの記事への補足です
{[4thH82-3.xlsx]の仕様変更案(３)}@https://blog.goo.ne.jp/ep58-kit/e/146a6e58ec55f835768cf14b53501f83
で述べたように，
・https://support.office.com/ja-jp/article/循環参照を修正または使用する-a436024c-57b5-4b9c-a62d-1c3bccf4d694
申し訳ございません。お探しのページが見つかりません。【これが現状:[%2]】
となる．スマホの普及でソフトウェアのビジネスモデルが変貌中！（[%31].{パソコンサークル}参照）
以下に試行結果を報告する（「☆」はスマホでの操作）
旧ブログの記事への補足です
{[4thH82-3.xlsx]の仕様変更案(３)}@https://blog.goo.ne.jp/ep58-kit/e/146a6e58ec55f835768cf14b53501f83
で述べたように，
・https://support.office.com/ja-jp/article/循環参照を修正または使用する-a436024c-57b5-4b9c-a62d-1c3bccf4d694
申し訳ございません。お探しのページが見つかりません。【これが現状:[%2]】
となる．スマホの普及でソフトウェアのビジネスモデルが変貌中！（[%31].{パソコンサークル}参照）
以下に試行結果を報告する（「☆」はスマホでの操作）
%1:旧ブログの記事
[1]{気まぐれメモ}@
https://blog.goo.ne.jp/bonsai-chat/e/f22fa675620859ec6fa36b6cce23448a
[2]{H5K%0:Excelに関するメモ}@
https://blog.goo.ne.jp/bonsai-chat/e/4c5cd1f413ab075cfd6c4c4fdf7ed2d7
・視覚障害者のためのExcel 2010キー操作マニュアル
http://span.jp/office2010_manual/excel2010/
[3]{HAE%0:「Excel 2010 VBAの基礎知識」からの引用}@
https://blog.goo.ne.jp/blogmura-yy/e/1d715cb4e90bde12ba6f89293ae32b8a
[4]{「Excel VBA実践テクニック」からの引用}
http://blog.goo.ne.jp/blogmura-yy/e/2351b026b0f3b8fc04b267a13fa2d193
%2:循環参照の回避
「excel 循環参照の回避」で検索すると
[1]エクセル循環参照の回避 -困っています。IF関数 ...- 教えて!goo
https://oshiete.goo.ne.jp/qa/6648831.html
[2]Excel2010：循環参照したい - 教えて！HELPDESK（ヘルプ ...
http://www.office-qa.com/Excel/ex174.htm
[3]【Excel】循環参照の回避について - Excel（エクセル） 解決 ...
https://okwave.jp/qa/q9360286.html
[4]Excelの循環参照について。回避方法がわかり ...- Yahoo!知恵袋
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11118136411
[5]Excel IF関数での循環参照回避方法 -IF関数を使用し ...- 教えて!goo
https://oshiete.goo.ne.jp/qa/5718871.html
[6]Excel(エクセル)のSUBTOTAL関数が循環参照だと怒られるので ...
http://www.jagaimopotato.com/blog/app/excel-circular-reference-subtotal-1623.html
[7]Excelのエラー「循環参照」への対処方法 | Excel関数 | できる ...
https://dekiru.net/article/4473/
[8]Excel 循環参照しているセルを探しだす方法と修正方法、循環 ...
https://kokodane.com/2013_kan_020.htm
上記のような多くの資料が見つかります．既述事項の引用漏れがあってもご容赦ください．
%21: [4thH82-3Debug2.xlsx]での「循環参照」の回避
下図は「D12」に「=F12」を設定したとき:(「F12＝F11」)
警告
参照関係
下図は「D12」に「=F12」を設定したとき:(「F12＝F11」)
警告
参照関係
[4thH82-3Debug1b.xlsm]@https://1drv.ms/x/s!Ahb2teuYQIZ7hmwWI1LVRHYPGWcp
では「F11」の式の値を「F12」にコピー．マクロで「F12」の値を「D12」に設定して「D12」を歩進(「OK」を押し続けるだけで歩進する)．【「D12」には式を設定しない！】
[1]excel circular reference msdn
https://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.worksheet.circularreference.aspx
・This documentation is archived and is not being maintained.
[2]Remove or allow a circular reference - Office Support
https://support.office.com/en-us/article/remove-or-allow-a-circular-reference-8540bd0f-6e97-4483-bcf7-1b49cd50d123
・You've entered a formula, but it's not working.
[3]If statement to avoid Creating Circular Reference [SOLVED]
https://www.excelforum.com/excel-formulas-and-functions/494968-if-statement-to-avoid-creating-circular-reference.html
・循環参照はユーザーが回避すべきもの(goto文のジャンプ先の処理を調べるような作業)で Microsoft は「余計なお世話」を諦めた？
「開発」タブを開かない(マクロを使わない)ときは少し面倒だが，「F11」の値を見て「D12」にキー入力．
・「D12」をクリック(☆タップ)して「数式バー」にキー入力．
・N.B.スマホに欠かせない「フリック入力」について。
https://time-space.kddi.com/ict-keywords/kaisetsu/20160607/
%22:補足
[4thH82-3Debug2dLarge.xlsm]のURLをクリックすると「Excel Online」が新しいタブに表示される(i.e.[*.xlsx]無用)．
%3:エラー表示
では「F11」の式の値を「F12」にコピー．マクロで「F12」の値を「D12」に設定して「D12」を歩進(「OK」を押し続けるだけで歩進する)．【「D12」には式を設定しない！】
[1]excel circular reference msdn
https://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.worksheet.circularreference.aspx
・This documentation is archived and is not being maintained.
[2]Remove or allow a circular reference - Office Support
https://support.office.com/en-us/article/remove-or-allow-a-circular-reference-8540bd0f-6e97-4483-bcf7-1b49cd50d123
・You've entered a formula, but it's not working.
[3]If statement to avoid Creating Circular Reference [SOLVED]
https://www.excelforum.com/excel-formulas-and-functions/494968-if-statement-to-avoid-creating-circular-reference.html
・循環参照はユーザーが回避すべきもの(goto文のジャンプ先の処理を調べるような作業)で Microsoft は「余計なお世話」を諦めた？
「開発」タブを開かない(マクロを使わない)ときは少し面倒だが，「F11」の値を見て「D12」にキー入力．
・「D12」をクリック(☆タップ)して「数式バー」にキー入力．
・N.B.スマホに欠かせない「フリック入力」について。
https://time-space.kddi.com/ict-keywords/kaisetsu/20160607/
%22:補足
[4thH82-3Debug2dLarge.xlsm]のURLをクリックすると「Excel Online」が新しいタブに表示される(i.e.[*.xlsx]無用)．
%3:エラー表示
「D14」(エラー)は
(1)「D19:D22」がラジオボタン的設定でないとき
(2)「H1:K4」の白くしたセルへの入力値が誤っていたとき
(3)「I4:K4」の解答が間違っているとき
に値が「1」になる式を「F14」「C37」「C38」に設定して，この値を「D14」にコピーする([%5321]参照)
・[*.xlsm]では背景色を「RGB(255,192,192)」にする
・[*.xlsx]では対応するセル・領域の値を見る
(1)「D19:D22」がラジオボタン的設定でないとき
(2)「H1:K4」の白くしたセルへの入力値が誤っていたとき
(3)「I4:K4」の解答が間違っているとき
に値が「1」になる式を「F14」「C37」「C38」に設定して，この値を「D14」にコピーする([%5321]参照)
・[*.xlsm]では背景色を「RGB(255,192,192)」にする
・[*.xlsx]では対応するセル・領域の値を見る
%4:デバッグ
[%54332:参考資料].{[4thH82-3.xlsx]の仕様変更案(４)}
[1]コーディングとデバッグ｜ExcelマクロVBA技術解説
https://excel-ubara.com/excelvba4/EXCEL202.html
[2]VBA デバッグの仕方 - Tipsfound
https://www.tipsfound.com/vba/01010
・break pointを設定できました．
[3]ブレークポイントの設定や中断時の操作方法 - Excel VBA
https://www.239-programing.com/excel-vba/basic/basic022.html
[%5436:「macro7」の追加].{Excelに関するメモ}に関する試行結果
Sub macro7()
Range("D14").Select
Cells(14, "D").Value = 0
Cells(12, "D").Value = 1
MsgBox ("macro4を実行")
'Call macro4
MsgBox ("macro5を実行")
'Call macro5
MsgBox ("macro6を実行")
'Call macro7
If Cells(13, "D").Value > 0 Then
MsgBox ("エラーです")
End If
If MsgBox("「D12」を更新", vbYesNo) = vbYes Then
' Cells(12, "D").Value = Cells(12, "D").Value + 1
End If
End Sub
-
・「D12」をマクロで更新すると無限ループになり，再起動しないと終了できない
(詳細を{Excelに関するメモ}で紹介)
とりあえず実行する行をコメント化
[%54332:参考資料].{[4thH82-3.xlsx]の仕様変更案(４)}
[1]コーディングとデバッグ｜ExcelマクロVBA技術解説
https://excel-ubara.com/excelvba4/EXCEL202.html
[2]VBA デバッグの仕方 - Tipsfound
https://www.tipsfound.com/vba/01010
・break pointを設定できました．
[3]ブレークポイントの設定や中断時の操作方法 - Excel VBA
https://www.239-programing.com/excel-vba/basic/basic022.html
[%5436:「macro7」の追加].{Excelに関するメモ}に関する試行結果
Sub macro7()
Range("D14").Select
Cells(14, "D").Value = 0
Cells(12, "D").Value = 1
MsgBox ("macro4を実行")
'Call macro4
MsgBox ("macro5を実行")
'Call macro5
MsgBox ("macro6を実行")
'Call macro7
If Cells(13, "D").Value > 0 Then
MsgBox ("エラーです")
End If
If MsgBox("「D12」を更新", vbYesNo) = vbYes Then
' Cells(12, "D").Value = Cells(12, "D").Value + 1
End If
End Sub
-
・「D12」をマクロで更新すると無限ループになり，再起動しないと終了できない
(詳細を{Excelに関するメモ}で紹介)
とりあえず実行する行をコメント化
に関する試行結果です
%41:「macro4」で「Dim x As Integer」,「x=Cells(6,"Q")」(ここで break したい)として
「デバッグ」／「ウォッチ式の追加」で「module1/macro4/x」(暫定記法)を
選ぼうとしても「モジュールはコンパイルできません」になる. （「break point」無用）
%42:「macro4」の末尾に「Cells(6,"S").Value = Cells(6,"Q").Value」を付加したとき
「D12」が不変なら「macro7」を実行しても正しくコピーされる．
%43:「macro7」で「vbYes」を選んでも「D12」:=「F12」にできない
・「macro4」単独では「白いセル」が移動するが「macro7」に反映されない．
「vbNo」を選んで「D12」に「F12」の値をキー入力し，保存してもダメ！
%41:「macro4」で「Dim x As Integer」,「x=Cells(6,"Q")」(ここで break したい)として
「デバッグ」／「ウォッチ式の追加」で「module1/macro4/x」(暫定記法)を
選ぼうとしても「モジュールはコンパイルできません」になる. （「break point」無用）
%42:「macro4」の末尾に「Cells(6,"S").Value = Cells(6,"Q").Value」を付加したとき
「D12」が不変なら「macro7」を実行しても正しくコピーされる．
%43:「macro7」で「vbYes」を選んでも「D12」:=「F12」にできない
・「macro4」単独では「白いセル」が移動するが「macro7」に反映されない．
「vbNo」を選んで「D12」に「F12」の値をキー入力し，保存してもダメ！
・「Worksheet.Change」が必要かも．
[1]Worksheet オブジェクト (Excel)
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/worksheet-object-excel
[2]Worksheetオブジェクトの取得
https://www.officepro.jp/excelvba/sheet/index1.html
[3]VBAのWorksheetオブジェクト | ExcelのVBA入門
https://excel-ubara.com/excelvba1/EXCELVBA355.html
[4]Worksheetオブジェクト | VBA プログラミング解説
https://so-zou.jp/software/tech/programming/vba/object/worksheet.htm
[5]Worksheet.Change イベント (Excel)
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/worksheet-change-event-excel
[6]特定のセル範囲が変更されたときに処理を実行する
http://www.moug.net/tech/exvba/0050131.html
%431:[4thH82-3Debug2e.xlsm]を開いた状態での実行結果
(1)「D12」に「1」を入力し，「I1:K1」をクリアして「macro4」を実行：「J1」が白くなる
・まず「D10:V29」が表示される
(2)「J1」に「1」を入力し,「D12」に「H12」の値「2」を入力して「macro4」を実行：
「J1」は白いままで「K4」も白くなるが「J4=1」になる
(3)「K4」に「R4」の値「7」を入力して「macro5」を実行:「K4」が灰色に戻る
・「J1」は白いままで「J4<>Q4」だから，「Y10=1」になる
(4)「macro6」を実行：「F14=1」(エラー)になる
(5)「J4=Q4」にすると「Y10=0」に戻るが，「F14=1」のまま
・ワークシートの更新状況が複雑なので立ち入った試行を止めて，
「G18」の助言に従って操作すれば計算できるように仕様を単純化する．
・「MsgBox」はタイミング調整用（「OK」を押すだけ）
%432:背景色を復元できるように「macro5」を次のように変更
Sub macro5()
Range("D10:R39").Select
Cells(1, "J").Select
ActiveCell.Interior.Color = Cells(1, "Q").Interior.Color
Cells(4, "K").Select
ActiveCell.Interior.Color = Cells(4, "R").Interior.Color
Cells(1, "I").Select
ActiveCell.Interior.Color = Cells(1, "P").Interior.Color
Cells(4, "J").Select
ActiveCell.Interior.Color = Cells(4, "Q").Interior.Color
Cells(1, "H").Select
ActiveCell.Interior.Color = Cells(1, "O").Interior.Color
Cells(4, "I").Select
ActiveCell.Interior.Color = Cells(4, "P").Interior.Color
End Sub
%433:また「macro4」も次のように簡単化
Sub macro4()
Range("D10:R39").Select
Select Case Cells(6, "Q").Value
Case 1:' T=1 J1,Q1
Cells(1, "J").Select
ActiveCell.Interior.Color = vbWhite
Case 2:' T=2 K4,R4
Cells(4, "K").Select
ActiveCell.Interior.Color = vbWhite
Case 3:' T=3 I1,P1
Cells(1, "I").Select
ActiveCell.Interior.Color = vbWhite
Case 4:' T=4 J4,Q4
Cells(4, "J").Select
ActiveCell.Interior.Color = vbWhite
Case 5:' T=5 H1,O1
Cells(1, "H").Select
ActiveCell.Interior.Color = vbWhite
Case 6:' T=6 I4,P4
Cells(4, "I").Select
ActiveCell.Interior.Color = vbWhite
End Select
End Sub
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/worksheet-object-excel
[2]Worksheetオブジェクトの取得
https://www.officepro.jp/excelvba/sheet/index1.html
[3]VBAのWorksheetオブジェクト | ExcelのVBA入門
https://excel-ubara.com/excelvba1/EXCELVBA355.html
[4]Worksheetオブジェクト | VBA プログラミング解説
https://so-zou.jp/software/tech/programming/vba/object/worksheet.htm
[5]Worksheet.Change イベント (Excel)
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/worksheet-change-event-excel
[6]特定のセル範囲が変更されたときに処理を実行する
http://www.moug.net/tech/exvba/0050131.html
%431:[4thH82-3Debug2e.xlsm]を開いた状態での実行結果
(1)「D12」に「1」を入力し，「I1:K1」をクリアして「macro4」を実行：「J1」が白くなる
・まず「D10:V29」が表示される
(2)「J1」に「1」を入力し,「D12」に「H12」の値「2」を入力して「macro4」を実行：
「J1」は白いままで「K4」も白くなるが「J4=1」になる
(3)「K4」に「R4」の値「7」を入力して「macro5」を実行:「K4」が灰色に戻る
・「J1」は白いままで「J4<>Q4」だから，「Y10=1」になる
(4)「macro6」を実行：「F14=1」(エラー)になる
(5)「J4=Q4」にすると「Y10=0」に戻るが，「F14=1」のまま
・ワークシートの更新状況が複雑なので立ち入った試行を止めて，
「G18」の助言に従って操作すれば計算できるように仕様を単純化する．
・「MsgBox」はタイミング調整用（「OK」を押すだけ）
%432:背景色を復元できるように「macro5」を次のように変更
Sub macro5()
Range("D10:R39").Select
Cells(1, "J").Select
ActiveCell.Interior.Color = Cells(1, "Q").Interior.Color
Cells(4, "K").Select
ActiveCell.Interior.Color = Cells(4, "R").Interior.Color
Cells(1, "I").Select
ActiveCell.Interior.Color = Cells(1, "P").Interior.Color
Cells(4, "J").Select
ActiveCell.Interior.Color = Cells(4, "Q").Interior.Color
Cells(1, "H").Select
ActiveCell.Interior.Color = Cells(1, "O").Interior.Color
Cells(4, "I").Select
ActiveCell.Interior.Color = Cells(4, "P").Interior.Color
End Sub
%433:また「macro4」も次のように簡単化
Sub macro4()
Range("D10:R39").Select
Select Case Cells(6, "Q").Value
Case 1:' T=1 J1,Q1
Cells(1, "J").Select
ActiveCell.Interior.Color = vbWhite
Case 2:' T=2 K4,R4
Cells(4, "K").Select
ActiveCell.Interior.Color = vbWhite
Case 3:' T=3 I1,P1
Cells(1, "I").Select
ActiveCell.Interior.Color = vbWhite
Case 4:' T=4 J4,Q4
Cells(4, "J").Select
ActiveCell.Interior.Color = vbWhite
Case 5:' T=5 H1,O1
Cells(1, "H").Select
ActiveCell.Interior.Color = vbWhite
Case 6:' T=6 I4,P4
Cells(4, "I").Select
ActiveCell.Interior.Color = vbWhite
End Select
End Sub
%434:旧「macro6」の誤りの検査は「E31:E36」で
(マクロを使わずに)完了しているので,
「F14=1」のときは「D14」の背景色の変更だけにする
・列「E」を使うと「T」の最大値の増加に対処し易い
Sub macro6()
Range("D14:I14").Select
If Cells(14,"F").Value = 1 Then
Cells(14,"D").Interior.Color = RGB(255,192,192)
Else
Cells(14,"D").Interior.Color = vbWhite
End If
End Sub
・修正版です
[4thH82-3Debug2d.xlsm]から「Y5:Y12」(「E31:E36」のコピー) を削除
「H14」:=「=If(and(e31+e32+e33+e34+e35+e36>0),0,1)」
「I14」:=「=If(e32+e34+e36>0,1,0)」
%435:「macro7」の暫定版です（非反復）
Sub macro7a()
Range("D12:F12").Select
Cells(12, "D").Value = 1
MsgBox ("macro4を実行")
Call macro4
MsgBox ("macro5を実行")
Call macro5
MsgBox ("macro6を実行")
Call macro6
If MsgBox("「D12」を更新", vbYesNo) = vbYes Then
Cells(12, "D").Value = Cells(12, "F").Value
End If
End Sub
・「マクロの保存先」を「作業中のブック」にして「vbNo」を選び，
「F12」の値を「D12」にキー入力して，「上書き保存」しても「白いセル」は移動しない
「macro4」単独ならOK.「macro7」を実行してもダメ
%436:[5-6].[%43].{Excelに関するメモ}の真似をする前に「macro7」の修正版を変えました
[1]Application.ActiveSheet プロパティ (Excel)
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/application-activesheet-property-excel
[2]Worksheetオブジェクト
https://excel-ubara.com/excelvba1/EXCELVBA355.html
[3]アクティブシートのオブジェクトの取得 - Excel VBA入門
https://www.officepro.jp/excelvba/sheet/index3.html
Sub macro7b()
ActiveSheet.Range("D12:F12").Select
Cells(12,"D").Value = 1
MsgBox ("macro4を実行")
Call macro4
MsgBox ("macro5を実行")
Call macro5
MsgBox ("macro6を実行")
Call macro6
If MsgBox("「D12」を更新", vbYesNo) = vbYes Then
Cells(12, "D").Value = Cells(12, "F").Value
End If
End Sub
・残念ながらこれもダメ（[%435]と同様）
%437: 諦めて「Worksheet_Change」を使ってみました
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = Range("F12").Value
MsgBox "Targetに「F12」の値を設定しました"
End If
End Sub
・追加
Sub macro7c()
If MsgBox( "macro7 を実行",vbYesNo) = vbNo Then
Exit Sub
End If
Call macro7
Call Worksheet_Change(Cells(12,"D")
End Sub
・「実行時エラー'438'」になる
%438:「実行時エラー'438'」に関する資料
[1]FIX エラー 438"オブジェクトはこのプロパティまたはメソッドをサポートしていません」
https://support.microsoft.com/ja-jp/help/175616/
[2]オブジェクトは、このプロパティまたはメソッドをサポートしていません。
https://www.tipsfound.com/vba/19438
[3]エクセルの実行時エラー "438"に困っています
https://oshiete.goo.ne.jp/qa/8856077.html
[4]Excel2007 VBA 実行時エラー438 - こんばんは。解決できそう
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1375451168
[5]実行時エラーの原因と対処 - Excel VBA サンプル - GoGoCheetah
http://www016.upp.so-net.ne.jp/cheetah/xlvba/VBA/Programming16.html
%439:「macro6」の仕様変更
[%434]で述べたように旧「macro6」が不要になったので変更
Sub macro6()
ActiveSheet.Range("D12:F12").Select
Cells(12,"D").Value = 1
MsgBox "白くするセルを覚える"
Call macro4
MsgBox "白かったセルに入力する"
Call macro5
If and(Cells(12,"D").Value > 6, Cells(14,"H").Value = 1) Then
MsgBox "エラーです"
Cells(14,"D").Interior.Color = RGB(255,192,192)
End If
End Sub
・計算の実行と背景色の変更を分離
Sub macro7()
ActiveSheet.Range("D12:F12").Select
Cells(12,"D").Value = 1
Do
Call macro6
If (MsgBox "「D12」を更新",vbYesNo) = vbYes Then
Cells(12,"D").Value = Cells(12,"F").Value
Else
Exit Sub
End If
Loop
End Sub
・「macro6」でエラーになれば，「vbNo」を選び，修正後に再実行
細部の訂正があるかもしれませんが，この記事を終了します．
aaa
{[sudoku4.xlsx]の作り方}@https://blog.goo.ne.jp/ep58-kit/e/34db8d091bbd103533a4190e086aa023
/
%0:[sudoku4.xlsx]の作り方
[0]数独解法チャート
https://blog.goo.ne.jp/blogmura-yy/e/914a4df2058670c36f1b3b9ae6e2eed4
[1]数独の遊び方、ルール、解き方
https://www.nikoli.co.jp/ja/puzzles/sudoku/
[2]数独解法例(by bonsai-chat)
https://blog.goo.ne.jp/bonsai-chat/e/640f965e8733aedb74ed9da7ea579b82
[3]数独のひらめき訓練用プログラム(by bonsai-juku:2011-02-22)
https://blog.goo.ne.jp/bonsai-juku/e/4e743acb46c6f3922757b104ba85f03d
・ヒントどおりでなく自分で考えたい
%1:[sudoku4.xlsx]の作成
%11:[sudoku4a.xlsx]@https://1drv.ms/x/s!Ahb2teuYQIZ7hxL7H0v3VmFEdqAB
%12:[sudoku4b.xlsx]@https://1drv.ms/x/s!Ahb2teuYQIZ7hxWTtQ9i9IvhMo4q
%13:[sudoku4c.xlsx]@https://1drv.ms/x/s!Ahb2teuYQIZ7hw2xKGsusCH2BDN7
%14:[sudoku4d.xlsx]@https://1drv.ms/x/s!Ahb2teuYQIZ7hw7N4bovEuahR66u
%15:[sudoku4e.xlsx]@https://1drv.ms/x/s!Ahb2teuYQIZ7hw8JKDIeHrbg7iv-
%16:[sudoku4f.xlsx]@https://1drv.ms/x/s!Ahb2teuYQIZ7hxCVoPHLxNK1PXyD
%17:[sudoku4g.xlsx]@https://1drv.ms/x/s!Ahb2teuYQIZ7hyIstucI_rhnmX_e
%2:[sudoku4.xlsx]の使い方
%3:[sudoku4.xlsm]のマクロ
aa
[tweet-58]
@http://blog.goo.ne.jp/ep58-kit/e/81f2c714ef84d1606f29b94f5ad7bf29
/volatile
頻繁に投稿すると嫌われるので「自動バックアップ」の停止を解除し，
記事の原稿「□.txt」を以下の要領で作成(更新漏れは別途修正)
(1)[■]:【□】=「□」を削除(復元可能！)
(2)[ー]:【□】=「□」に取り消し線を付加
(3)[◎]:【□】=「□」に関する備忘録(非公開)
(4)[緑]:【□】=「□」の背景色を緑にする
(5)【--------□】＝「<hr />□」
(6)【「★□<br />★URL」】=「□」にURLをリンク
(7)【「□.PNG」】=画像フォルダの「□.PNG」と置換
・[%5:EOS(End of Service)に関するメモ].{パソコンサークル}を追加．
・{数独解法チャート}(Spreadsheet to solve NumberPlace)で暇つぶし
[sudoku4e.xlsx]@https://1drv.ms/x/s!Ahb2teuYQIZ7hwRZggp4uivNYn-z
・[check-58]の｛[sudoku4*.xlsx]の使い方｝が一応完成
Supplement to [tweet] for [home]
Document may be frequenly renewed in order to confirm update.
・Update is sometimes skipped as in {[G8F%0:]gooブログのエディタ}.
http://homeclinic-kanazawa.jp/#guidance
@http://blog.goo.ne.jp/ep58-kit/e/882bb8e4d846ca5c5ddb43511463997d
{List of Files} is equivalent to the above banner,
and easier to see what it is.
・{List of Files}, etc. can be pasted, even for Wiki editors.
http://www.tohoho-web.com/wwwxx087.htm
<a href="http://xxx.yyy.zzz/">△<img border=0
src="xxx.gif" width=88 height=31 alt="バナー">△</a>
/