常連

テラテイラー

社会貢献

回答者

ベストアンサー

拍手喝采

プロフェッサー

スピードスナイプ

先生

案内人

自己紹介

有名人

## テーマ、知りたいこと
プログラミングをする上で可読性、保守性など品質の高いコードを開発するために勉強するべきことについて意見を伺いたいです。
基本的には参考書で勉強をしたいと思っていますが、参考になった勉強法やWebサイトもご紹介いただけると嬉しいです。

## 背景、状況
生産工程にAIを導入するような部署に所属しており、少人数ながらチームで開発を行っています。
開発言語としてはpython,C++,C#を使っています。
一通り上記3つの言語は書けるので、いろいろな仕事を振られたり、人のコードを修正する機会が多いです。

そこでバグがあったときなどに原因がどこにあるのか特定しやすい、修正しやすいようなコードを作りたいなと最近思うようになりました。

現状の取り組みとしては、「良いコード／悪いコードで学ぶ設計入門」という本を読みました。
次に有名な「リーダブルコード」を読んでみようと思っています。

レベル的には中級者になれたかどうかくらいのレベル感だと思っていますが、コーディング上級者の方々がどのように品質の高いコードを開発しているのか教えていただけると幸いです。



可読性、保守性の高いコードを作るために読むべき必読書

### 実現したいこと
VBAまたはPythonを使ってExcelで作成したシートをfujifilm複合機で自動FAXするようにしたい

### 発生している問題・分からないこと
現状は以下の通りです。
（Windows10、Office2021版Excel、複合機 FUJIFILM Apeos C2360を社内LANで接続）

① 作成したExcelシートを印刷メニューからプリンタ「FUJIFILM Apeos C2360 FAX」を選択し印刷ボタンを押します。
② 前面に「印刷中」のポップアップが表示され、その背面に「ファックス送信の設定／確認：ファイル名」ダイアログが開くのでこちらをアクティブにします。
③ [宛先番号/アドレス]欄にFAX番号を入力し[送信開始]を押します。
④ 宛先の一覧に自動的に追加しますという「警告」のポップアップが表示されるので「OK」を選択します。

①～④を自動化するためにVBAでコードを組んでみましたがプリンタ選択をし印刷を始めるところ（①）までしか分からず困っております。ファックス送信設定ダイアログにFAX番号を送って送信開始をさせるところがどのようにしたらいいのか分かりません。



### 該当のソースコード

```VBA
Sub Send_Fax()
    Application.ActivePrinter = "FUJIFILM Apeos C2360 FAX on Ne06:"
    ActiveSheet.PrintOut
    
    'この先が分かりません…
End Sub
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
VBAで無理ならPythonからVBAを起動し、ダイアログを操作できないか試しましたがうまくダイアログをつかめませんでした。
（Python 3.12.3、xlwings 0.31.4、pygetwindow 0.0.9、pyautogui 0.9.54 使用）

import xlwings as xw
import pygetwindow as gw
import pyautogui as pag
import time

path="C:/Users/xxxxxx/Desktop/FAX_TEST.xlsm"
wb=xw.Book(path)

title='FAX_TEST.xlsm'
e1=gw.getWindowsWithTitle(title)[0]

#Pythonから上記マクロを起動してます
macro=wb.macro('Send_Fax')
macro()

time.sleep(2)

#　↓ファックス送信ダイアログのタイトルです
title='ファックス送信の設定／確認：FAX_TEST.xlsm'
e2=gw.getWindowsWithTitle(title)[0]

time.sleep(2)
e2.activate()

time.sleep(2)
pag.write('03-xxx-xxxx')

エラーは発生しないのですが、ダイアログが表示された状態で止まっています。
ダイアログが前面に出ていますが、タイトルがグレーアウトしているのでアクティブにはなっていません。

### 補足
PythonからのGUI操作ではなく複合機のAPIを操作する方がいいのでしょうが、ネット上に分かりやすく紹介してありません。FujiFilmのHPにも参考にできる資料が無くて困っております。どなたかご教授お願い致します。

【VBA】or【Python】Fujifilm複合機のFAX機能をPCで操作するには

### 前提

SSHの鍵認証について質問があります。

当方はSE歴半年で現在、社内の開発環境へのGitの導入とマニュアル作成を頼まれ、現在Gitやその周辺知識を学習中の身です。
その中でレンタルサーバーにリモートリポジトリを作成するためにSSHが必要になりました。
現状座学の段階で、実際の接続はまだ行っていません。

### 質問内容

秘密鍵というのは誰か一人が作成したものを複数人で使いまわすようなものなのでしょうか。
それとも認証を行うユーザーがそれぞれ秘密鍵と公開鍵のペアを作成・所持する必要があるものなのでしょうか。

エンジニアの一般論的な回答・回答していただける方の開発環境に則った回答、どちらでもかまいません。
なるべく平易な表現を使っていただけると、大変助かります。

また、的外れなことを質問しているようでしたら、それも理由を含めてご指摘いただけたらと思います。

宜しくお願い致します。




SSHの秘密鍵は複数人で同じものを使いまわすようなものか。

### 前提
ExcelVBAで文字の色を、
・いま青色 RGB(0, 0, 204) の部分は、黒色 RGB(0, 0, 0) に
・いま赤色 RGB(255, 0, 0) の部分は、青色 RGB(0, 0, 204) に
したいと思っています。
ただし、セル内の文字が全て同じ色になっているのではなく、一部だけに色がついていて、その状態で青の部分は黒に、赤の部分は青に、しようとしています。
なお、セル内の文字は赤か青か黒の3色だけで他の色になっている部分はありません。赤または青の色がついていない部分は全て黒です。

それを実現するために以下のコードを書きました。

```VBA
Sub 色変更()
    Dim wb As Workbook, ws As Worksheet
    Dim 最終行 As Long
    Dim iR As Long '行のカウント
    Dim iC As Long '列のカウント
    Dim n As Long '文字(数)のカウント
    Dim 文字数 As Long
    Dim text As String
    
    Set wb = Workbooks("Book1.xlsx")
    Set ws = wb.Sheets("Sheet1")
    
    For iR = 3 To 80
    For iC = 6 To 7
        
        文字数 = Len(ws.Cells(iR, iC).Value)
        For n = 1 To 文字数
            
            If ws.Cells(iR, iC).Characters(Start:=n, Length:=1).Font.Color = RGB(0, 0, 204) Then 'n文字目の色が青(0,0,204)ならば
                ws.Cells(iR, iC).Characters(Start:=n, Length:=1).Font.Color = RGB(0, 0, 0) 'n文字目の色を黒(0,0,0)にする
            ElseIf ws.Cells(iR, iC).Characters(Start:=n, Length:=1).Font.Color = RGB(255, 0, 0) Then 'n文字目の色が赤(255,0,0)ならば
                ws.Cells(iR, iC).Characters(Start:=n, Length:=1).Font.Color = RGB(0, 0, 204) 'n文字目の色を青(0,0,204)にする
            End If
        
        Next
    
    Next
    Next
    
End Sub
```
すなわち、文字列に対して、「n番目の文字が青なら黒に、n番目の文字が赤なら青に」という操作をループさせるようなコードを書きました。

このコードを実行すると、以下のような結果になりました。

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-10-18/6c2b22c9-d33b-441b-a664-9f8fed85e14f.png)

2番目と4番目のセルは意図通りの結果になっていますが、
1番目は、意図せざる部分が赤くなって、さらに文字列が長くなり、
3番目は、3行目は意図通りになりましたが1行目と2行目の赤が青くなるべきところが黒になっています。
その結果、一部のセルでは「青の部分は黒に、赤の部分は青に」なりませんでした。

どのようにすれば解決できるでしょうか?


ExcelVBAで文字色を、過去の色に基づいて部分的に変える方法

### 前提
バリデーションを未入力の際や文字数(min,max等で)で設定したはずが引っかかった際の警告メッセージが出る
プロフィール画面を編集して保存を押したら再度プロフィール画面に戻るようにしたいが、戻れない
### 実現したいこと

プロフィール画面の編集画面(edit.blade)の作成及び、編集後にプロフィール画面(show.blade)に上手く画面移動するようにしたいです。
プロフィールを書き換えて保存を押すと、条件をクリアしているはずがバリデーションで引っかかり警告？メッセージが出て、プロフィール情報を更新出来ず保存後に飛びたいビューページ(show.blade)にも飛べません。
これを名前やコメントに文字数で書き込める条件を付けて、メールアドレスもメールアドレスの正規の形(〇〇〇@co.jp等)以外の入力は弾かれるようにし、登録内容を変更して保存を押した後に編集画面からプロフィール画面に戻るようにしたいです。
不慣れなので情報として足りない部分やファイルがあればご指摘ください。すぐに追記します。

### 発生している問題・エラーメッセージ

```
field is required(バリデーションチェックのエラーメッセージ)、プロフィール画面に戻らない
```

### 該当のソースコード

```
laravel
web.php(ルーティング)
<?php

/*
|--------------------------------------------------------------------------
| Web Routes
|--------------------------------------------------------------------------
|
| Here is where you can register web routes for your application. These
| routes are loaded by the RouteServiceProvider within a group which
| contains the "web" middleware group. Now create something great!
|
*/
Auth::routes();

Route::get('/', function () {
    // return view('welcome');
    return view('top');
});
// 投稿一覧
// Route::get('/posts', 'PostController@index');
// // 投稿追加フォーム
// Route::get('/posts/create', 'PostController@create');
// // 投稿追加
// Route::post('/posts', 'PostController@store');
// // 投稿詳細
// Route::get('/posts/{id}', 'PostController@show');
// // 投稿更新フォーム
// Route::get('/posts/{id}/edit', 'PostController@edit');
// // 投稿更新
// Route::patch('/posts/{id}', 'PostController@update');
// // 投稿削除
// Route::delete('posts', 'PostController@destroy');

// 上記の７つのルーティングを下の一つで同じ効果にできる
// postsに関するリソースルーティングを行い、
// PostControllerの各アクションに紐づける
Route::resource('posts', 'PostController');

Route::resource('likes', 'LikeController')->only([
    'index', 'store', 'destroy'
]);
    
Route::resource('follows', 'FollowController')->only([
    'index', 'store', 'destroy'
]);

Route::get('/folloow', 'FollowController@folloowerIndex');

Route::resource('comments', 'CommentController')->only([
    'store', 'destroy'    
]);
Route::get('/posts/{post}/edit_image', 'PostController@editImage')->name('posts.edit_image');

Route::patch('/posts/{post}/edit_image', 'PostController@updateImage')->name('posts.update_image');

Route::get('/users/{id}/edit', 'UserController@edit')->name('users.edit');
Route::patch('/users/{id}', 'UserController@update')->name('users.update');
Route::get('/users/{id}/edit_image', 'UserController@editImage')->name('users.edit_image');
Route::patch('/users/{id}/edit_image', 'UserController@updateImage')->name('users.update_image');

Route::resource('users', 'UserController')->only([
  'show',
]);

```

```
UserController.php(コントローラー)
<?php

namespace App\Http\Controllers;

use Illuminate\Http\Request;
use App\User;
use App\Http\Requests\UserRequest;

class UserController extends Controller
{
    public function show($id)
    {
        $user = User::find($id);
        return view('users.show',[
            'title' => 'プロフィール',
            'user' => $user,
        ]);
    }
    
    public function edit(int $id)
    {
        $user = User::find($id);
        return view('users.edit',[
            'title' => 'プロフィール編集',
            'user' => $user,
        ]); 
    }
    
    public function update(int $id, UserRequest $request){
        $user = User::find($id);
        $user->update($request->only(['name', 'email', 'profile']));
        session()->flash('success', 'プロフィールを編集しました！');
        return redirect()->route('users.show');
    }
```

```
UserRequest.php
<?php

namespace App\Http\Requests;

use Illuminate\Foundation\Http\FormRequest;

class UserRequest extends FormRequest
{
    /**
     * Determine if the user is authorized to make this request.
     *
     * @return bool
     */
    public function authorize()
    {
        return true;
    }

    /**
     * Get the validation rules that apply to the request.
     *
     * @return array
     */
    public function rules()
    {
        return [
            'name' => ['required', 'min:2', 'max20'],
            'email' => ['required',],
            'profile' => ['required', 'min:2', 'max:50'],
            'image' => [
                'required',
                'file',
                'image',
                'mimes:jpeg,png',
                'dimensions:min_width=50,min_height=50,max_width=200,max_height=200',
            ]
        ];
    }
}
```

```
show.blade.php(プロフィール画面のビュー)
@extends('layouts.logged_in')

@section('content')
<h1>{{ $title }}</h1>

<a href="{{ route('users.edit', Auth::user() )}}">編集</a>

    @if($user !== null)
    <div>
        名前
        {{ $user->name }}
    </div>
    <div>
  @if($user->image !== '')
      <img src="{{ asset('storage/' . $user->image) }}">
  @else
      <img src="{{ asset('images/no_image.png') }}">
  @endif
        <a href="{{ route('users.edit_image', $user) }}">画像を変更</a>
    </div>
    <div>
        <span>プロフィール</span>
        <ul>
            @if($user->profile)
            <li>{{ $user->profile }}</li>
            @else
            <li>プロフィールが設定されていません。</li>
            @endif
        </ul>
    </div>
    
    @else
<p>設定されていません。</p>

    
    @endif
@endsection
```

```
edit.blade.php(プロフィール編集画面のビュー)
@extends('layouts.logged_in')

@section('content')
<h1>{{ $title }}</h1>

<ul>
    <li><a href="/users">戻る</a></li>
</ul>

<form method="POST" action="{{ route('users.show', $user) }}">
    @csrf
    @method('PATCH')
    <div>
        <label>
            名前:
            <input type="text" name="name" value="{{ $user->name }}">
        </label>
    </div>
    <div>
        <label>
            <input type="email" name="email" value="{{ $user->email }}">
        </label>
    </div>
    <div>
        <label>
            <textarea type="text" name="log" rows="12" cols="50">{{ $user->profile }}</textarea>
        </label>
    </div>
    
    <input type="submit" value="保存">
    
</form>

@endsection
```
### 試したこと

バリデーションの見直し、編集画面からプロフィール画面に飛ぶ際のルーティングのチェック。

### 補足情報（FW/ツールのバージョンなど）

Windows10、cloud9、Laravel6![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-10-02/0ced040d-7886-44d5-be88-9d0ff753308e.png)


Laravelのバリデーションの書き方、フォーム画面の作成について

### 前提
Java script 使ってWEBAPIを作ったのですがデプロイするとうまくいきません。

### 実現したいこと

ここに実現したいことを箇条書きで書いてください。
デプロイして動くようにしたいです。
### 発生している問題・エラーメッセージ

```
エラーメッセージ
```スクリプトが完了しましたが、返された値はサポートされている戻り値の型ではありませんでした。

### 該当のソースコード
function doGet(e) {
 
var text = e.parameter.text;
  //検索結果をとる
  //本を検索
     const books=getBooks()
    var preFoundbooks = {
　　　};
    for(let i=0; i<books.length; i++){
      const book=books[i]
      const title=book.title
      if(title.indexOf("text")>=0){
       　 preFoundbooks.title = book.title;
        preFoundbooks.image = book.image;
      }
    } 
    let json = JSON.stringify(preFoundbooks);
    console.log(preFoundbooks)
     return　preFoundbooks 

}
```ここに言語名を入力
ソースコード
```JavaScript
### 試したこと
出力がオブジェクトで出るようにしました。

### 補足情報（FW/ツールのバージョンなど）
GASを使っています。


WebAPIの動作について

現在react.jsとtwigでMPAを作成しようとしている者です。

やりたいことはreact.jsでbuildしたファイルの一覧がmanifest.jsonにjsonデータとして定義されているので
これをBEのtwigファイルからcdnとして読み込みたいのですが、scriptsのsrcからどうやってjsonにアクセスできるのでしょうか？
viteを使用していて、公式ページ通りにやってみたのですがうまくいかなかったので、知っている方いましたらご教授いただけたらです。
多分「ここでの構文は説明用なので、使用しているサーバのテンプレート言語に替えてください」って書いてあるので
twigにあわせた記述に変更すればいけるんじゃ無いかなとは思ってるんですけど、書き方的に大体一緒な気がしてるのですが
https://ja.vitejs.dev/guide/backend-integration.html

ちなみに該当のファイルのフルパス（/front-end/dist/credit/index.tsx.a469dca3.js）をcdnで読んだ際はちゃんと動きます。
ただこの方法だと毎回buildするたびにパスが変わるのでjsonでアクセスしたい感じです

```manifest.json
{
  "src/entries/credit/index.tsx": {
    "file": "credit/index.tsx.a469dca3.js",
    "src": "src/entries/credit/index.tsx",
    "isEntry": true,
    "imports": [
      "_jsx-runtime.393ecc90.js"
    ]
  },
  "src/entries/top/index.tsx": {
    "file": "top/index.tsx.befdd747.js",
    "src": "src/entries/top/index.tsx",
    "isEntry": true,
    "imports": [
      "_jsx-runtime.393ecc90.js"
    ]
  },
  "_jsx-runtime.393ecc90.js": {
    "file": "jsx-runtime.393ecc90.js"
  }
}
```

```
{% extends 'layouts/common.twig' %}

{% block head %}
		<script type="module" src="/front-end/dist/{{ manifest['src/entries/credit/index.tsx].file }}""></script>
{% endblock %}
```

cdnのパスをjsonデータから取得したい

### 前提・実現したいこと

jQuery からネイティブ js への書き換えを行っています。

### 発生している問題・エラーメッセージ

要素それぞれに、5つずつdivで囲んだpを配置したいのですが、appendChild が上手くいきません。
ブロック内が空っぽのままになってしまいます。
エラーは特にないです。

### 該当のソースコード
書き換え前
```js
$('.cc').each(function () {
   do {
    $(this).children("p:lt(5)").wrapAll('<div></div>')
   } while ($(this).children("p").length);
})
```
生 js に書き換え
```js
let title = document.querySelectorAll(".cc p"),
      titles = document.querySelectorAll('.cc'),
      length_02 = title.length;
    for (var i = 0; i < length_02; i++) {
      if (i % 5 === 0) {
        var div = document.createElement('div');
      };
      div.appendChild(title[i]);
      if (i % 5 === 4) {
        titles.forEach(function (til) {
          til.appendChild(div);
        });
      }
    };
    titles.forEach(function (til) {
      til.appendChild(div);
    });
```
元のHTML
```html
<div class="cc">
   <p>The quick brown fox jumps over the lazy dog</p> 
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>                
</div>
<div class="cc">
   <p>The quick brown fox jumps over the lazy dog</p> 
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>  
   <p>The quick brown fox jumps over the lazy dog</p>                
</div>
```
想定しているHTML
```HTML
<div class="cc">
   <div>
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>       
   </div>
   <div>
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>       
   </div>
</div>
<div class="cc">
   <div>
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>       
   </div>
   <div>
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>   
     <p>The quick brown fox jumps over the lazy dog</p>       
   </div>
</div>
```

### 試したこと
forEach で囲むと空っぽになってしまいます。
document.querySelector('.cc') にして titles.appendChild(div) にすると一番最初の .cc に全部出力されるので、他のコードは合っています。

どうすればループさせることができますでしょうか。


```js 
for (let cc of document.querySelectorAll('.cc')) {
      let tp = [...cc.children].filter(child => child.matches('p'));
      if (tp.length > 0) {
        let div = document.createElement('div');
        for (let i = 0; i < 5; i = i + 1) {
          div.appendChild(tp[i]);
          cc.appendChild(div);
        }
      }
    }
```
としたところ最初の５つしかdivで囲まれませんでした。
```js 
for (let cc of document.querySelectorAll('.cc')) {
      let tp = [...cc.children].filter(child => child.matches('p'));
      if (tp.length > 0) {
        while (tp.length) {
          let div = document.createElement('div');
          for (let i = 0; i < 5; i = i + 1 ) {
            div.appendChild(tp[i]);
            cc.appendChild(div);
          }
        };
      }
    }
```
としたところ、重すぎてページが読み込まれませんでした。
```js 
for (let cc of document.querySelectorAll('.cc')) {
      let tp = [...cc.children].filter(child => child.matches('p'));
      tp = tp.slice(5);
      for (let p of tp.slice(0, 5)) {
        let div = document.createElement('div');
        for (let i = 0; i < 5; i = i + 1) {
          div.appendChild(tp[i]);
        };
        cc.appendChild(div);
      };
    }
```
としたところ、.cc の初めの５つのpのみ、divで囲まれた状態になりました。
エラーは以下です。
```error
Node.appendChild: Argument 1 is not an object.
```
```js
for (let cc of document.querySelectorAll('.cc')) {
      let tp = [...cc.children].filter(child => child.matches('p'));
      for (let p of tp.slice(0, 5)) {
        tp = tp.slice(5);
        if (tp.length > 0) {
          while (tp.length) {
            let div = document.createElement('div');
            cc.appendChild(div);
            div.appendChild(tp);
          }
        }
      };
    }
```
としたところ、
```error
Node.appendChild: Argument 1 is not an object.
```
とエラーが出てしまいました。div.appendChild(tp);のところです。
何が違うのでしょうか。
```js
for (let cc of document.querySelectorAll('.cc')) {
      let tp = [...cc.children].filter(child => child.matches('p'));
      for (let p of tp.slice(0, 5)) {
        if (tp.length > 0) {
          while (tp.length) {
            let div = document.createElement('div');
            cc.appendChild(div);
            tp = tp.slice(5);
            div.appendChild(tp);
          }
        }
      };
    }
```
としたところ、
```error
Node.appendChild: Argument 1 is not an object.
```
とエラーが出てしまいました。div.appendChild(tp);　のところです。
tp の値が違うのでしょうか。

### 補足情報（FW/ツールのバージョンなど）
firefox 最新版、Safari 604.1

各要素にn個ずつdivで囲んだpを配置できない

CSVを取込み、エクセルシートに表示をすると値がずれてしまいます。
以下のコードを使用して取り込みましたが項目内のカンマで値がずれてしまいます・・
ダブルクォーテーション内のカンマを削除なり、置換をしたいです
replace等も使用しましたが、上手くいきません
ご教示いただけると幸いです


```VBA
Sub csv_import2()
    File_path = Worksheets("Sheet3").Range("C3").Value
    Debug.Print (File_path)
    
    ' ファイル読み込み
    MsgBox "ファイルを選択してください"
    Dim buf As String, Target As String, i As Long
    Dim records As Variant, items As Variant, j As Long
    Dim Csv_Import_File  ' Excelファイルに取り込むCSVファイルの名前を入れ込む変数
    Csv_Import_File = Application.GetOpenFilename("CSVファイル,*.csv")  ' CSVファイルを選択する
    
    
    With CreateObject("ADODB.Stream")
        .charset = charset
        .Open
        .LoadFromFile Csv_Import_File
        buf = .ReadText
        .Close
        records = Split(buf, "#")
        headers = Split(records(0), ",")
        
        ' header書き出し
        For j = 0 To UBound(headers)
            Worksheets(targetsheet).Cells(1, j + 1).Value = headers(j)
        Next j
        
        For i = 1 To UBound(records)
            items = Split(records(i), ",")
            For j = 0 To UBound(items)
            If j = 0 And i <> 0 Then
                Worksheets(targetsheet).Cells(i + 1, j + 1).Value = "#" + items(j)
            Else
                Worksheets(targetsheet).Cells(i + 1, j + 1).Value = Replace(items(j), """", "")
                Worksheets(targetsheet).Cells(i + 1, j + 1).Value = Replace(items(j), " ", "")
            End If
            Next j
            Call write_target(i, items, headers)
        Next i
    End With
    
    Set ws = ThisWorkbook.Worksheets(targetsheet)
     Call writeCsv(ws, ws.Range("A1")) '//ファイル保存
End Sub
```
<CSV>
```
Name,Email,Financial Status,Paid at,Fulfillment Status,Fulfilled at,Accepts Marketing,Currency,Subtotal,Shipping,Taxes,Total,Discount Code,Discount Amount,Shipping Method,Created at,Lineitem quantity,Lineitem name,Lineitem price,Lineitem compare at price,Lineitem sku,Lineitem requires shipping,Lineitem taxable,Lineitem fulfillment status,Billing Name,Billing Street,Billing Address1,Billing Address2,Billing Company,Billing City,Billing Zip,Billing Province,Billing Country,Billing Phone,Shipping Name,Shipping Street,Shipping Address1,Shipping Address2,Shipping Company,Shipping City,Shipping Zip,Shipping Province,Shipping Country,Shipping Phone,Notes,Note Attributes,Cancelled at,Payment Method,Payment Reference,Refunded Amount,Vendor,Outstanding Balance,Employee,Location,Device ID,Id,Tags,Risk Level,Source,Lineitem discount,Tax 1 Name,Tax 1 Value,Tax 2 Name,Tax 2 Value,Tax 3 Name,Tax 3 Value,Tax 4 Name,Tax 4 Value,Tax 5 Name,Tax 5 Value,Phone,Receipt Number,Duties,Billing Province Name,Shipping Province Name,Payment Terms Name,Next Payment Due At
#1041,addres,pending,,unfulfilled,,yes,JPY,5500,0,0,5500,"",0,送料,2021-07-21 20:45:23 +0900,1,AAAA N,5500,,062906810,true,false,pending,name,**"Tokyo3-369, Tokyo2F"**,Tokyo3-369,Tokyo4F,,江東区,107-0000,JP-13,JP,'+81 00-0000-0000,00000000 : 111 ,"指定: なし
指定: 指定なし",,Ca"",0,A,30,,,,42348,"",Low,web,0,,,,,,,,,,,,,,東京都,東京都,,

```

"Tokyo3-369, Tokyo2F"　こちらの個所からずれが発生いたします

### 対応したこと
```VBA
For i = 1 To UBound(records)
            items = Split(records(i), ",")
            For j = 0 To UBound(items)
            If j = 0 And i <> 0 Then
                Worksheets(targetsheet).Cells(i + 1, j + 1).Value = "#" + items(j)
            Else
'                Worksheets(targetsheet).Cells(i + 1, j + 1).Value = Replace(items(j), """", "")
                Worksheets(targetsheet).Cells(i + 1, j + 1).Value = Split(Replace(replaceColon1(strLine), """", ""), ":")
            End If
            Next j
            Call write_target(i, items, headers)
        Next i
```
    End With


### やったこと
```VBA
Dim buf As String, Target As String, i As Long
    Dim records As Variant, items As Variant, j As Long
    Dim Csv_Import_File  ' Excelファイルに取り込むCSVファイルの名前を入れ込む変数
    Csv_Import_File = Application.GetOpenFilename("CSVファイル,*.csv")  ' CSVファイルを選択する

     MsgBox "先程選択した、データを選択してください"
       With CreateObject("ADODB.Stream")
        .charset = "Shift-JIS"
        .Open
        .LoadFromFile Csv_Import_File
        buf = .ReadText
        .Close
        records = Split(buf, "#")
        headers = Split(records(0), ",")
        
        ' header書き出し
        For j = 0 To UBound(headers)
            Worksheets(targetsheet).Cells(1, j + 1).Value = headers(j)
        Next j

    'カンマをセミコロンに置換
    buf = ReplaceSeparator(buf, ",", ";")
    buf = Replace(buf, """", "") '引用符(")を削除

    records = Split(buf, "#") '#で分割して配列に
    For i = 0 To UBound(records)
        If i > 0 Then records(i) = "#" & records(i)
        items = Split(records(i), ";") 'セミコロンで分割して配列に
        '配列をセル範囲に代入
        Worksheets(1).Cells(i + 1, 1).Resize(, UBound(items) + 1).Value = items
    Next
    End With
```

教えていただいたURL参考に行いましたが、CSVの値がすべて消えてしまいます。
recordsの中身がない状態です
[リンク内容](https://tonari-it.com/vba-csv-camma/)

VBA　CSVを取り込む際に、ダブルクォーテーション内のカンマを削除なり、置換をしたいです

### 前提・実現したいこと

住所データを「住所（県、市区町村・・等）」「番地」「方書」に分割したい

### 発生している問題・エラーメッセージ
現在個人情報を登録するページがあり、
Webフォームで住所を入力させています。

項目は以下の３つに分断してデータを入力し、データベースに登録させます。
入力項目：「住所（NOT NULL制約）」「番地（NOT NULL制約）」「方書」

なお登録だけではなく、照会するページも存在します。

今回画面からの登録だけではなく、
住民票形式の住所データを断続的に取り込む（読み込む）ことになりました。
こちらは住所の項目に特に区別がなく「住所」との名称１項目で管理されています。

そこで現行システムに住所データ等を取り込む際に、
現行の住所フォーマットのように分割をしたいのですが良い方法が思いつきません。
JavaScriptやSQLでどうにかなるものならば対策を教えてほしいのですが、
このあたりの管理方法について事例等を知っていればご紹介いただきたいです。

【他の解決方法例】
・現行の個人情報を登録するテーブルに住所データを残すのではなく、
　住民票形式の取り込み用のテーブルを新たに作成しそこで管理する。
・住所項目に全データで登録し、番地項目には適当なスペース項目を登録する

### 調査したこと

[住所分割　正規表現]
[https://qiita.com/zakuroishikuro/items/066421bce820e3c73ce9](https://qiita.com/zakuroishikuro/items/066421bce820e3c73ce9)

住所を「郡市区町村・町名」「番地」「方書」に分割する方法

### 前提・実現したいこと
HTMLでテーブルを作成する際、列ごとにキーワードを設定し、
チェックボックスを利用して条件に合う列だけを抽出したいと考えています。
例えば
名前|色|種類|
|:--:|:--:|:--:|
|みかん|オレンジ|果物|
|りんご|赤|果物|
|にんじん|オレンジ|野菜|

というような表があったとき、
「オレンジ」でフィルタをかければ「みかん」と「にんじん」が、
「果物」でフィルタをかければ「みかん」と「りんご」が、
「果物」と「オレンジ」でフィルタをかければ「みかん」のみが表示されるようにしたいです。
よろしくお願いします。

### 発生している問題

複数のキーワードを指定した際、そのキーワードを含むものすべてが表示されてしまう。
上記の例でいうと「果物」と「オレンジ」でフィルタをかけた場合、
「果物」を含む「みかん」と「りんご」が
「オレンジ」を含む「みかん」と「にんじん」がすべて該当してしまうため
結果３つすべてが表示されてしまう。

### 該当のソースコード(省略してあります)

```html
<input type="checkbox" onChange="goFilter()" id="chkFruit">
<input type="checkbox" onChange="goFilter()" id="chkOrange">
<table id="cardList">
 <tr class="colTitle">
  <th>名前</th>
  <th>色</th>
  <th>種類</th>
 <tr class="orange fruit">
  <td>みかん</td>
  <td>オレンジ</td>
  <td>果物</td>
 </tr>
 <tr class="red fruit">
  <td>りんご</td>
  <td>赤</td>
  <td>果物</td>
 </tr>
 <tr class="orange vegetable">
  <td>にんじん</td>
  <td>オレンジ</td>
  <td>野菜</td>
 </tr>
</table>
```
```css
  .allNoDisplay tr:not(.colTitle) {
    display: none;
  }
  .orange tr[orange]    {
    display: table-row;
  }
  .fruit tr[fruit]    {
    display: table-row;
  }
```
```javascript
function goFilter(){
 var wTable = document.getElementById("cardList");
 var value = '';
 if(document.getElementById("chkFruit").checked) {
    value += ' fruit';
  }
 if(document.getElementById("chkOrange").checked) {
    value += ' orange';
  }
 if(value == ''){
    wTable.className = '';
  } else{
    wTable.className = ' allNoDisplay' + value;
  }
}
```
###最後に
長文になりましたがよろしくお願いします。

HTMLにフィルタ機能を実装する

以前に似たような質問をしましたが、勘違いで「解決済」としていたので再度質問いたします。
C列を非表示として以下のコードを実行すると、コピーモード（セルが点線で囲まれる）になりますが、Ctrl　+　V　キー等で貼り付けると、文字が無く改行のみが貼り付けられます。
```ここに言語を入力
  Cells(3, 3).Copy
```
非表示を解除すると問題なくコピーされるので、一旦解除してから　→　コピー　→　再び非表示　というコードにしたのですが、再非表示するとコピーモードが解けてしまいます。

```ここに言語を入力

Range(Cells(3, 3), Cells(3, 3)).EntireColumn.Hidden = False’質問用にコードを作ったので、範囲についてRange(Cells(3, 3), Cells(3, 3))と元のコードに近いものを記載しました。

Cells(3, 3).Copy

Range(Cells(3, 3), Cells(3, 3)).EntireColumn.Hidden = True

```
このプロシージャが終了してもコピーモードが継続し、非表示部分もそのままの状態で　Ctrl　+　V　で貼り付けできる状態にしたいのですが、良い方法はないでしょうか？

本来、.COPY　でコピーした場合は、他のシートやセル等に張り付けする場合等が多いでしょうが、今回は、Ctrl　+　Vで、ブラウザの検索窓やメモ帳に張り付けることが目的です。

プロシージャ終了後のシートの非表示状態とCtrl　+　Vでの文字列の貼り付けが可能であれば、コピーモードが継続していなくとも構いません。

アドバイスいただきたく質問いたしました。
よろしくお願いします。

### ～以下追記部分です～
上記プロシージャですが、質問用で「標準モジュール」に入力したものでして、現在ご回答いただいた回答ですべて問題なく処理されました。（ありがとうございます！！）

今回の質問の元となった問題点なのですが、「**クラスモジュール**」に記載されたプロシージャで有り、こちらに同様の手法を用いると　Ctrl + V では空欄の貼り付けになってしまい、これを解決したく追記で質問いたしました。
（最初の時点でモジュールの種類が問題ではないと思い記載しませんでした・・・。申し訳ありません。）
   
```ここに言語を入力
Private Sub tgtctrl_Click()
   Dim intRow As Long
   Dim URL As String
   Dim intcol As Long
   Dim i As Long

MsgBox "コピーしました"
  i = tgtctrl.Tag
  intRow = tgtrange.Row
  intcol = 5 + 2 * i
  
  ECOL = 1
  Do While Cells(2, ECOL) <> ""
   If InStr(Cells(2, ECOL), "URL") > 0 Then
     SCOL = ECOL
   End If
   ECOL = ECOL + 1
  Loop
   SCOL = SCOL + 1
   ECOL = ECOL - 1
  
  Dim ws As Worksheet
  Set ws = ThisWorkbook.Worksheets("パスワード")
  
  ActiveSheet.Unprotect
  
  Dim x '変数宣言
    x = Cells(intRow, intcol).Value '値のみ取得
    With New DataObject
        .SetText x
        .PutInClipboard
        .GetFromClipboard'変数確認用
        a = GetText'変数確認用
    End With
    MsgBox a'変数確認用

  ActiveSheet.Protect
End Sub
```
フォームに配置された「コピーボタン」を押すとおこるイベントです。
1月13日時点でアドバイスいただいた方2名の方のコードを参考に作成しました。

一部確認用で配置したコード（3行）も有り、そのまま残しています。（'変数確認用とコメント入れています。）

以下については確認しています。
- Microsoft Forms 2.0 Object Library　の参照設定はされていました。
- ステップインでCells(intRow, intcol)の文字列は問題なく参照されていました。
- 変数xに文字列は問題なく参照されていました。


以下は現在の状況です。 
- エラーは起こりませんが、Ctrl + V　で貼り付けを行うと空欄が貼り付けられる。
- クリップボードから文字列を取り出し（a = GetText）表示させると空欄になる。（クリップボードに変数ｘが入っていない？）

クラスモジュールからクリップボードへの貼り付けは不可能でしょうか。
原因やこの場合のクリップボードへの貼り付け方法についてアドバイスいただければ有難く思います。

よろしくお願いします。

非表示セルのコピーについて

**概要**

現在以下の環境にて、Excelセルのデータを他アプリケーションに貼り付ける処理を実装しています。

- Windows10 (64bit)
- MS Excel2016 (32bit)

処理としては、DataObjectを使用してセルデータをクリップボードにコピーし、
他アプリケーションに貼り付ける処理を実装しています。
また、「Microsoft Forms 2.0 Object Library」を使用しています。

**知りたいこと**
上記事象が発生する「**原因**」をご教示頂きたいです。

---
**プログラム(抜粋)**
```VBA
Public Sub SampleCode

  ' 変数宣言  
  Dim dataObj as DataObject

  ' オブジェクト取得
  Set dataObj = new DataObject
  
  ' セルの値をクリップボードに設定
  With dataObj
    .SetText(Sheet1.Range("A1").Text)
    .PutInClipBoard
  End With
  
  ' 正しく値が取得できる
  Debug.Print dataObj.GetText
  
  ' 2秒待機
  Application.Wait Now() + TimeValue("00:00:02")
  
  ' **************************************************
  ' 正しく値が取得できない
  ' **************************************************
  Debug.Print dataObj.GetText
  
End Sub
```
---
補足情報として、当該事象は発生する端末と発生しない端末があります。
これらの端末間で、
「Microsoft Forms 2.0 Object Library」にて使用している「FM20.dll」ファイルの
差分はありませんでした。

また、本事象については、回避方法を検討済みです。
セルの値をクリップボートに設定する処理について、
DataObject を使用せず、「Sheet1.Range("A1").Copy」などで直接クリップボードに
コピーすると事象を回避できるようです。


冒頭にも述べた通り、本事象が発生する**原因**をご教示頂きたいです。


以上、なにとぞお助け頂けますと幸いです。

Windows10環境にてExcel VBAのDataObjectを使用すると文字化けする

### いまやっている自己流のVBAのつかいかた

処理用のExcelブックを用意してVBAを標準モジュールにいれておきます。

シートA：システムからダウンロードしてきたCSV型式ファイルを、項目名行は１９行目、データは２０行目からVBAをつかって貼付する
シートB：シートAを参照する関数を３行目にいれておく。VBAを使って、このシートの３行目の式を、データ開始の２０行目から「シートAの最終行数」までコピーして、値貼付を実行する。シートAの数値を変換、集計等した結果がこのシートにできる。

シートC:シートBと同じように、参照する関数を３行目にいれて、同じようにVBAを使って最終行までコピーして、値貼り付けを実行・・・vlookup,index,match・・・を使って表引、sumifで集計、ピボットテーブルで重複削除などしてアウトプットのデータ型式にちかづける

シートD：要求されるフォーマットの型式にして、このシートを別ファイルに保存してアウトプットとする

### お尋ねしたいこと

こんな自己流のやり方で、事務処理をやっています。
ただコピーして、値貼付するだけのVBAです。集計や最終アウトプットにも困ることはなくなりました。
ホントのVBAプログラムにくらべれば、たぶんスピードもおそいし、スマートでもないとおもいます。

これからもうちょっとスキルアップしていきたいとおもいますが、どんな勉強をしていったらいいのか、アドバイスいただけませんか？
オンライン型式のVBA講座を受講したりしてみましたが、自己流のほうが簡単に目的達成できてしまうので、もうひとつモチベーションがあがりません。

### 補足情報

書いていて、どんなアドバイスを望んでいるのか、自分自身につっこみをいれたくなりました。もっと自分自身進歩できるのではという思いがあります。ただの事務職で、若くはないので、すごい進歩は無理でしょうが・・・

自己流VBAの良し悪しについて

こんにちは。
現在VBAの学習をしているものです。
現在、下記のような機能を実装しようとしております。

##実現したいこと

**右から数えて3文字目に"/"が含まれていたら右から5文字を削除するマクロを実装したい**

具体的には

![イメージ説明](ef1b40c77b6a24b4e1807ea3bc4eace3.jpeg)

のような状態のときに

・A9に入っているセルについては「09/19」の部分を削除
・A10に入っているセルについては処置を何もしない

ということを「日付を削除」ボタンにマクロを組み実現させようとしていますがうまくいきません。
Right関数などを使用しても、条件分岐が存在しているためそのまま適用してはうまくいかないです。

ご助言頂けると嬉しいです。どうぞよろしくお願いいたします。

【VBA】右から数えて3文字目に"/"が含まれていたら右から5文字を削除するマクロを実装したい

お世話になります。

高さ・横幅・縦横比の違う画像を複数貼っていおり、画像にaタグをつけています。
現在aタグが、画像だけでなく、imgで指定している範囲全てに効いてしまいます。

```html
<div class="boxin_img">
  <a href="https://www.google.com/" target="_blank" tabindex="-1"><img src="https://1.bp.blogspot.com/-MatZaoyqiGA/XnLn6MAUAnI/AAAAAAABX0g/1UrkPi3q0XouCxHOgIvvXbUP-EQS2DsXgCNcBGAsYHQ/s400/chirashi_mansion.png"></a></div>
```
```css
.boxin_img {
    position: absolute;
    /* width: 62%; */
    height: 47.58vw;
}

.boxin_img img {
    max-width: 1012px;
    max-height: 770px;
    width: auto;
    width: 62vw;
    height: 47.58vw;
    float: left;
    position: relative;
    object-fit: contain;
}
```

[Codepen](https://codepen.io/nanitozoz/pen/vYGPeOb)

object-fit: contain;のときに画像だけにaタグを効かせる方法を教えていただきたいです。

object-fit: contain;のときに画像だけにaタグを効かせる方法

### 前提・実現したいこと

WordPressでブログを作成していますが、PCのブラウザで表示すると、個別ページのみサイドバーがコンテナ内に表示されず、最下部(正確には左下)に表示されてしまうため、なんとか意図していた通り**記事の右側に表示させたい**です。
固定ページは特に問題なく、設定通り記事のすぐ右側に表示されます。


### 発生している問題・エラーメッセージ

個別ページのみ、PCのブラウザで表示するとサイドバーがコンテナ内に表示されず、最下部(正確には左下)に表示されてしまう。

### 該当のソースコード

single.php内の以下の部分付近が怪しいかと思っています。

```php
<?php
}
?>
</aside>
</article>
<?php thk_call_sidebar(); ?>

<?php echo apply_filters( 'thk_footer', '' ); ?>
```

### 試したこと

・個別ページのテーマファイルの記述が誤っていないか
->うまくいっている別サイトのpage.phpの中身をそのままコピペで上書きしてみたが、直らず。
また、style.cssを全て消してみたが直らず。 

**追記**
<?php thk_call_sidebar(); ?>
の記述の位置を変えたところ、コンテナ内には表示されるようになりましたが、引き続き記事の左下に固定されたままです。
コードの位置が誤っている可能性が高いと思い、正常に動作している固定ページのpages.phpを参考にいろいろな位置にコードを挿入してみましたが、意図する記事の右側に表示されません。

・プラグインが影響していないか 
->全てひとつずつ停止してみたが直らず。 

・サイトのグリッドレイアウトやカラム数が影響していないか 
->うまくいっている別サイトと同じ設定にしてみたが直らず。 

・ウィジェットの設定
->ダッシュボードから確認したが、特に問題なさそう。 

### 補足情報（FW/ツールのバージョンなど）

・WordPressのバージョン：
5.1

・使用しているテーマ：
Luxeritasバージョン: 3.9.1
Luxeritas Child Themeバージョン: 3.0.0

サイトの個別ページのサイドバーが下に表示されてしまうため、右側に表示させたい

### 前提・実現したいこと

WordPress内でAページにプルダウンメニュー(SelectBox使用)を配置し、選択した要素のidをパラメータに設定し指定のページ(BページかCページ)へ遷移するようにしています。
そこでBページまたはCページに遷移後、設定されたパラメータを基にAページで選択した要素のテキストを取得して遷移後のページ内の特定箇所に表示をさせるのを目標にしています。

現状、JavaScriptでパラメータを取得して同ページ内のidを検索して要素を取得することは実現できています。
しかし、別ページの要素を取得することができていません。

### 該当のソースコード

```html
    //ページA
	<span>
		<select class="iframe_value" id="iframe_value" onchange="location.href=value">
	        <option class="" value="iframe-B.html/?test1&amp;">テスト1</option>
	        <option class="" value="iframe-B.html/?test2&amp;">テスト2</option>
	        <option class="" value="iframe-B.html/?test3&amp;">テスト3</option>
	    </select>
	</span>
```
```html
//ページB・ページC
<div class="select_message">
	<span>選択した値は</span>
	<div class="select_text" id="select_text">(ここに表示させる)</div>
	<span >です</span>
</div>
```
### 試したこと

iframeタグを使用すると別ページの要素取得が可能ということはわかったのですがこちらを活用してセレクトボックスの要素を取得する方法は出てきませんでした。
また、今後のメンテナンスの関係でAjaxやjQueryは使用せず作成したいです。
どうしたら別ページの要素を取得できるのでしょうか？
方法をご存じの方がいらっしゃいましたらご教示お願いします。

##追記
一応パラメータを使用して同名idを取得するJavaScriptコードを記述致します。
```JavaScript
    let parameter;
    if(window.location.search){
       parameter = window.location.search.substring(1,window.location.search.length)
    }
```

別ページで選択された要素のテキストをJavaScriptで取得して表示したい

CSSで破線の円を作りたいと思い、以下の処理で作成を行いました。
```ここに言語を入力
/*CSS*/
.ring {
  width: 1598px;
  height: 1598px;
  margin: -810px 0 0 -810px;
  border-width: 15px;
  border-style: dashed !important;
  border-radius: 952px !important;
  opacity: 0.2;
  -moz-transform: translateZ(75px);
  -webkit-transform: translateZ(75px);
  box-shadow: none;
}
```
この処理で破線の円は表示出来たのですが、
破線の終わりと始まりの部分の間隔が狭くなってしまい、間隔が均一になりませんでした。
![イメージ説明](f56be84f57e8ef2ab8865945aa0c7761.png)
破線の間隔を統一した円はどうすれば作成出来るでしょうか？

CSSで破線の円を作りたい

ACCESSデータベースは使用中にロックファイル（*.ldb）を作成しますが、
データベースを閉じた（つもり）なのにこのロックファイルがなかなか消えません。

C:\_Tmp\test.accdb というデータベースを用意し、
ボタンを一つ配置したような簡単な画面を作成してみました。

プロバイダは "Microsoft.Ace.OLEDB.12.0"、
データベース種類は accdb です。 

デバッガでコード中(*C)の行にブレークポイントを置きます。
ボタンを押すとデータベースに接続（db.Connect()）を実行し、
すぐに切断（db.Disconnect()）を実行します。

エクスプローラを開いて C:\_Tmp\test.accdb を見つつ動作させてみると、
1. コード中の(*A)の行を実行すると test.ldb が作成される。
   これは、(*A)にブレークポイントを置いてステップ実行し、
   この行が実行された際に test.ldb が作成されたことを予め確認しています。
2. ソース中(*C)のブレークポイントで止まる。
   しばらくそのまま放置する。
3. ブレークポイントで止まったまま約80秒経過したあたりで、
   エクスプローラから test.ldb が消える。

つまり、(*B)を実行した後、しばらくして非同期で消えるようなのです。
なぜこんなにも時間がかかるのか、
あるいは、プログラムに誤りなどありましたらお教えください。


ちなみに、以前はこのようなことがなく動いていたように思います。
以前と違う点は、
・Windows7 から 10 に端末を変更した。
・VisualStudio 2017 から 2019 に変更となった。
・Windows7 の端末では Office 2013 が入っていたが、
  これには Office365 の 32bit が入っている。

前の Windows7 端末は没収の上初期化されてしまったので、
環境が分からなくなってしまったのですが、
何か必要なものがインストールされていないなどあるでしょうか。
（Accessランタイムなどはこの端末には入れていません。）

どうぞよろしくお願いいたします。

```ここに言語を入力
using System;
using System.Windows.Forms;
using System.Data.OleDb; // OleDbConnection...

namespace Test
{
    public partial class Form1 : Form
    {
        public class DB
        {
            public OleDbConnection ConnectionObj {get; private set;}

            public DB() {
                ConnectionObj = null;
            }

            public void Connect()
            {
                if (ConnectionObj == null) {
                    ConnectionObj = new OleDbConnection();
                }

                string provider = "Microsoft.Ace.OLEDB.12.0";
                string source = @"C:\_Tmp\test.accdb";
                string connectionString = $"Provider={provider};Data Source={source}";
                ConnectionObj.ConnectionString = connectionString;
                ConnectionObj.Open(); // <-------- (*A)ここでldbが作成される
            }

            public void Disconnect()
            {
                if (ConnectionObj != null) {
                    ConnectionObj.Close(); // <-------- (*B)ここでldbが破棄されるはず？
                    ConnectionObj.Dispose(); // <-------- (*C)ここでブレークポイント
                    ConnectionObj = null;
                }
            }
        }

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            DB db = new DB();
            db.Connect();
            db.Disconnect();
            db = null;
        }
    }
}
```