常連

## テーマ、知りたいこと

ExcelをCOM利用しているVB6のプログラムがあるのですが
これをVB.Netにバージョンアップしたい。という話が私の所に来ています。

私は、社内で使うだけのプログラムなら、Excelマクロでいいのではと思いました。
ソースを読む限り、VBAでも事足りると感じたためです。

VBAはソースコードのバージョン管理が上手くできないと思うので
そこがネックとしてはあるのかなと思っているのですが
果たしてどうなのでしょうか。

また、.Netへの改修は、.Net Frameworkにしろ、.Net にしろ
解放処理をやたらとしないといけないのでコードが煩雑になると思っています。

また、EPPlusやClosedXMLを使うというのも手としてはあるのかなと思ってはいますが
余り使用経験がないのでよくわかっていません。

そのため、私はExcelマクロを推して提案しようかなと思っています。
皆さんならどうしますか？

## 自分で試したこと

.Netにする場合、以下がいいのかなと今は感じている所です。
ただ、これよりもExcelマクロの方がいいんじゃないかなとも思っている次第です。

以下の共通処理を作って
```VB.Net
Imports System.Runtime.InteropServices
Module Module1
    Private mListObject As List(Of Object)
    Public Sub AddComObject(rObject)
        If mListObject Is Nothing Then mListObject = New List(Of Object)
        mListObject.Add(rObject)
    End Sub

    Public Sub AllRereseComObjec()
        For i As Integer = mListObject.Count - 1 To 0 Step -1
            Marshal.ReleaseComObject(mListObject.Item(i))
        Next
        mListObject.Clear()
        mListObject = Nothing
    End Sub
End Module
```
こんな感じに使う方法です。
```VB.Net
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim objXLSApp As Object
        Dim objXLSBooks As Object 'Excel.Workbooks
        Dim objXLSBook As Object 'Excel.Workbook
        Dim objXLSSheets As Object 'Excel.Worksheets
        Dim objXLSSheet As Object 'Excel.Worksheet

        Dim objXLSCells As Object 'Excel.Range
        Dim objXLSRange As Object 'Excel.Range

        Dim tReleaseCom As New ReleaseComClass

        objXLSApp = CreateObject("Excel.Application")
        AddComObject(objXLSApp)
        objXLSBooks = objXLSApp.Workbooks
        AddComObject(objXLSBooks)
        objXLSBook = objXLSBooks.Open(TextBox1.Text, False, True)
        AddComObject(objXLSBook)
        objXLSSheets = objXLSBook.Sheets
        AddComObject(objXLSSheets)
        objXLSSheet = objXLSSheets.Item("Sheet1")
        AddComObject(objXLSSheet)
        objXLSCells = objXLSSheet.Cells
        AddComObject(objXLSCells)

        objXLSRange = objXLSCells.Item(1, 1)
        AddComObject(objXLSRange)
        objXLSRange.value = "2"

        objXLSRange = objXLSCells.Item(2, 1)
        AddComObject(objXLSRange)
        objXLSRange.value = "2"

        If System.IO.File.Exists(TextBox2.Text) Then
            System.IO.File.Delete(TextBox2.Text)
        End If
        objXLSBook.SaveAs(TextBox2.Text)

        objXLSBook.Close
        objXLSApp.Quit

        AllRereseComObjec()

    End Sub
```

オブジェクトを参照するたびに、それを追加していって
最後に逆順でリリースするだけなんですけど
最後に、順番を意識してリリースするのを列挙するのが大変だったり
同じ変数名を使いまわしたい場合、最後にリリースを列挙するより良いのかなと思った次第です。


ExcelをCOM利用しているVB6のプログラムについて

### 実現したいこと
別途説明するエクセルファイルをClosedXMLを使用して読み込めるようにしたい
エクセルがインストールされていない端末でもそれが可能な事

### 発生している問題・分からないこと
以下のスレッドの続きです。（見なくても、ここに必要要項は書きますが。）
https://teratail.com/questions/lmfwqvnb5lx442#reply-85ukqmng7vq6ft

ClosedXMLを使用してExcelファイルを読み込む時に、式が入ったセルでエラーになるので、上記のスレッドを立てました。
しかし、ClosedXMLやVBのソースではなく、Excelファイルが壊れていました。

なぜ、Excelファイルが壊れていると言えるのか
ClosedXMLからは読めないが、本物のエクセルでは読み込む事ができるので、本物のエクセルで再保存したところ正しく処理が行えた。

ClosedXMLの読込能力の低さを残念がる事もできますが、エクセルで再保存したものは正しく処理できたので、ファイル作成者が悪いという見方もできます。

そのファイル作成者は外ならぬClosedXMLライブラリでした。
ですので、今回は書き込み側中心の話になります。

### エラーメッセージ
```error
型 'System.StackOverflowException' のハンドルされていない例外が mscorlib.dll で発生しました

埋め込みドキュメント 'System.Globalization\CompareInfo.cs' を 'C:\Users\sys_developer\AppData\Local\Temp\.vsdbgsrc\82f5c4d99137273f37e4fbe578de1a03843e6011bebc9ed0966c7a983ed26386\CompareInfo.cs' に抽出しました
プログラム '[18536] WindowsApp1.exe' はコード 4294967295 (0xffffffff) で終了しました。
```

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

```Form1.vb
Imports System.IO
Imports System.Reflection
Imports ClosedXML.Excel
Imports DocumentFormat.OpenXml.Spreadsheet

Public Class Form1
 Const Temp1 As String = "d:\work\TEMP1.xlsx"
 Const Temp2 As String = "d:\work\TEMP2.xlsx"
 Dim DataTableDGView1 As New DataTable
 Dim ExcelResourceName As String = "WindowsApp1.TEST1.xlsx"

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  TabControl1.Dock = DockStyle.Fill
  DataGridView1.Dock = DockStyle.Fill
  DataGridView2.Dock = DockStyle.Fill
  Call DataTable1Set()
 End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  Dim Eod As Integer
  Using ResourceStream As Stream = Assembly.GetExecutingAssembly().GetManifestResourceStream(Me.ExcelResourceName)
   If ResourceStream Is Nothing Then
    MessageBox.Show("リソースが見つかりませんでした。")
    Exit Sub
   End If
   Using fileStream As FileStream = File.Create(Temp1)
    ResourceStream.CopyTo(fileStream)
   End Using
  End Using

  Using XLWorkbook1 = New XLWorkbook(Temp1)
   Dim WorksheetX = XLWorkbook1.Worksheet(1)
   Dim CntRow As Integer = 1
   For Each DataRow1 As DataRow In Me.DataTableDGView1.Rows
    CntRow += 1
    Dim CntCol As Integer = 1
    WorksheetX.Cell(CntRow, CntCol).Value = DataRow1("A-Item").ToString
    WorksheetX.Cell(CntRow, CntCol + 1).Value = DataRow1("B-Key").ToString
    WorksheetX.Cell(CntRow, CntCol + 2).Value = ExcelCellDate(DataRow1("C-Date").ToString)
    For For1 As Integer = 1 To 28
     WorksheetX.Cell(CntRow, CntCol + 2 + For1).Value = "Dummy" & For1.ToString(0)
    Next
    WorksheetX.Cell(CntRow, CntCol + 31).Value = DataRow1("AG-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 32).Value = ExcelCellDate(DataRow1("AH-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 33).Value = ExcelCellDate(DataRow1("AI-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 35).Value = ExcelCellDate(DataRow1("AK-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 36).Value = DataRow1("AL-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 37).Value = DataRow1("AM-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 38).Value = ExcelCellNumeric(DataRow1("AN-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 41).Value = ExcelCellNumeric(DataRow1("AQ-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 43).Value = ExcelCellNumeric(DataRow1("AS-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 44).Value = ExcelCellDate(DataRow1("AT-Date").ToString)
   Next
   Eod = CntRow
   XLWorkbook1.Save()
  End Using

  Call ExcelRemoveRows(Temp1, Eod + 1, 1000)
  Call ExcelSaveAs(Temp1, Temp2)
  MsgBox("Excelファイルへの書き込みが正常に完了しました。")
 End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  Call Put_DataGrid(Temp1)
 End Sub

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  Call Put_DataGrid(Temp2)
 End Sub

 Private Sub DataTable1Set()
  Me.DataTableDGView1 = New DataTable()
  With Me.DataTableDGView1.Columns
   .Add("A-Item", GetType(String))
   .Add("B-Key", GetType(String))
   .Add("C-Date", GetType(String))
   .Add("AG-String", GetType(String))
   .Add("AH-Date", GetType(String))
   .Add("AI-Date", GetType(String))
   .Add("AK-Date", GetType(String))
   .Add("AL-String", GetType(String))
   .Add("AM-String", GetType(String))
   .Add("AN-フラグ", GetType(String))
   .Add("AQ-フラグ", GetType(String))
   .Add("AS-フラグ", GetType(String))
   .Add("AT-Date", GetType(String))
  End With

  Dim Random1 As New Random()
  For Count1 As Integer = 1 To 255
   Dim RandomNumb As Integer = Random1.Next(0, 2)
   Dim NewRow1 As DataRow = Me.DataTableDGView1.NewRow()
   NewRow1("A-Item") = "あああ"
   NewRow1("B-Key") = "KEY" & Count1.ToString("0000000000")
   NewRow1("C-Date") = DateTime.Now.AddDays(Random1.Next(-50, 61)).ToString("yyyy/MM/dd")
   NewRow1("AG-String") = If(RandomNumb = 0, String.Empty, "AG" & RandomNumb.ToString)
   NewRow1("AH-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AI-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AK-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AL-String") = "AL" & (Random1.Next(-10, 10)).ToString
   NewRow1("AM-String") = "AM" & (Random1.Next(-10, 10)).ToString
   NewRow1("AN-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AQ-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AS-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AT-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   Me.DataTableDGView1.Rows.Add(NewRow1)
  Next
  DataGridView1.DataSource = Me.DataTableDGView1
 End Sub

 Private Function ExcelCellDate(inputDateTime As String) As String
  Try
   Return DateTime.Parse(inputDateTime).ToString("yyyy-MM-dd")
  Catch ex As Exception
   Debug.WriteLine($"エラー: {ex.Message}")
   Return String.Empty
  End Try
 End Function

 Private Function ExcelCellNumeric(numericValue As String) As Double
  Try
   If String.IsNullOrWhiteSpace(numericValue) Then Return 0.0
   Dim result As Double
   If Double.TryParse(numericValue, result) Then Return result
   Debug.WriteLine($"数値変換失敗: 入力値 '{numericValue}' は数値ではありません。")
   Return 0.0
  Catch ex As Exception
   Debug.WriteLine($"エラー発生: {ex.Message}")
   Return 0.0
  End Try
 End Function

 Private Sub ExcelRemoveRows(filePath As String, startRow As Integer, endRow As Integer)
  Debug.WriteLine($"ファイルパス: {filePath}, 削除範囲: {startRow} から {endRow}")
  Using XLWorkbook1 As New XLWorkbook(filePath)
   Dim IXLWorksheet1 As IXLWorksheet = XLWorkbook1.Worksheet("Sheet1")
   Dim delcnt = 0
   For rowIndex As Integer = endRow To startRow Step -1
    delcnt += 1
    IXLWorksheet1.Row(rowIndex).Delete()
    If delcnt >= 50 Then
     XLWorkbook1.Save()
     Application.DoEvents()
     Debug.WriteLine($"50件削除")
     delcnt = 0
    End If
   Next
   XLWorkbook1.Save()
   Debug.WriteLine($"削除完了")
  End Using
 End Sub

 Private Sub ExcelSaveAs(filePath1 As String, filePath2 As String)
  Using XLWorkbook1 As New XLWorkbook(filePath1)
   XLWorkbook1.SaveAs(filePath2)
   Debug.WriteLine($"保存しなおし完了")
  End Using
 End Sub

 Private Sub Put_DataGrid(TempFile As String)
  Dim DataTable1 = New DataTable

  'Headerのセット
  Using XLWorkbook1 As New XLWorkbook(TempFile)
   Dim Worksheet1 = XLWorkbook1.Worksheet(1)
   Dim lastColumn As Integer = Worksheet1.LastColumnUsed().ColumnNumber()
   For col As Integer = 1 To lastColumn
    Dim IXLCell1 As IXLCell = Worksheet1.Cell(1, col)
    Dim headerValue As String = If(IXLCell1.IsEmpty(), String.Empty, IXLCell1.GetValue(Of String)())
    DataTable1.Columns.Add(headerValue)
   Next
  End Using
  DataGridView2.DataSource = DataTable1

  'Bodyのデータは割愛
  MsgBox("Excelファイルへの読み込みが正常に完了しました。")
 End Sub
End Class
```

```TEST1.xlsx
ある程度負荷をかけないと落ちてくれないので、列はあまり減らしていない。
任意の場所で作成し、直下にアドしてビルドアクションを埋め込みリソースに変更する。

＜ヘッダ＞
A-Item
【式】="B-Key" & CHAR(10) & COUNTA(B2:B999) & "件"
C-Date
dummy1
dummy2
dummy3
dummy4
dummy5
dummy6
dummy7
dummy8
dummy9
dummy10
dummy11
dummy12
dummy13
dummy14
dummy15
dummy16
dummy17
dummy18
dummy19
dummy20
dummy21
dummy22
dummy23
dummy24
dummy25
dummy26
dummy27
dummy28
【式】="アラート３⇒" & CHAR(10) & COUNTIF(AF2:AF1000,"！") & "件"
AG-String
AH-Date
AI-Date
【式】="アラート１⇒" & CHAR(10) & COUNTIF(AJ2:AJ1000,"！") & "件"
AK-Date
AL-String
AM-String
AN-フラグ
AO-式
AP-式
AQ-フラグ
【式】="アラート２⇒" & CHAR(10) & COUNTIF(AR2:AR1000,"！") & "件"
AS-フラグ
AT-Date


＜ボディ＞
ボディに式があるのは下記の5項目、行2～1000まで埋まっているものとする。

アラート３⇒
=IF(C2+30<TODAY(), IF(LEN(TRIM(AG2)) < 1, TRIM("！"), TRIM("")), TRIM(""))

アラート１⇒
=IF(AK2+0<TODAY(), TRIM("！"), TRIM(""))

AO-式
=IF(TEXT(AS2, "0") <> TRIM("1"), IF(C2 + 7 * 2 < TODAY(), TRIM(1), TRIM(0)), TRIM(0))

AP-式
=IF(TRIM(AT2) = TRIM(""), IF(TRIM(AH2) = TRIM(""), 1, IF(AH2 > TODAY(), 1, 0)), IF(AT2 - 7 * 2 >= TODAY(), 1, 0))

アラート２⇒
=IF((TRIM(AP2) & TRIM(AQ2)) = TRIM("11"), TRIM(""), IF(TRIM(AO2) = "1", TRIM("！"), TRIM("")))

```

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

##### 上記の詳細・結果
起動⇒ページ2にテストデータ
ボタン1⇒TEMP1、TEMP2が作成される
ボタン2⇒TEMP1から読み込めない
ボタン3⇒SaveAsで保存したTEMP2から読み込めない
その後
TEMP1を開きExcelで再保存するとボタン2でページ3にデータが読み込めるのを確認できる
TEMP2を開きExcelで再保存するとボタン2でページ3にデータが読み込めるのを確認できる


### 補足
■バージョン
vb 2022
.NET Framework 4.8
ClosedXML(0.104.2)


vbのClosedXMLを使用して出力したエクセルがClosedXMLでは読めない

Visual Basic 6.0 にて作成したアプリ(32bit用)を Windows 10 (64bit) 上で
動作させようとしたところ、

Component '********.ocx' or one of its dependencies not correctly registered: a file is missing or invalid

とエラー表示され、実行できない。

********.ocx は、c:\Windows\SysWOW64 フォルダ内に実在しています。

本アプリを dependency walker にて依存関係を調べたところ、

MSVBVM60.DLL が見つからないとエラーが出ました。

しかしながら、c:\Windows\SysWOW64 フォルダ内に msvbvm60.dll は存在しています。
（ファイル名が、大文字／小文字という違いはあります）

また、********.ocx も同様に dependency walker にて依存関係を調べたところ、

API-MS-WIN-CRT-********-l1-1-0.DLL
API-MS-WIN-CORE-********-l1-1-0.DLL
API-MS-WIN-GDI-********-l1-1-0.DLL
API-MS-WIN-SECURITY-********-l1-1-0.DLL
API-MS-WIN-SERVICE-********-l1-1-0.DLL
EXT-MS-WIN-GDI-********-l1-1-0.DLL

など、ファイルが見つからないと大量のエラーが出ました。

これらの DLL ファイルも、c:\Windows\SysWOW64\downlevel フォルダに存在しています。
（こちらもファイル名が、大文字／小文字という違いはあります）

解決するためにはどのように対応すれば良いでしょうか？

どなたかご教授を宜しくお願い致します。

Visual Basic 6.0 にて作成したアプリを Windows 10 上で動作させたい

###エクセルマクロ 非表示シートへの処理について
vbaを使用して、エクセルのマクロを作成しています。
処理内容としては非表示シートの内容を一部処理をして別のシートに貼り付けることを行っています。

ただ非表示シートのまま、処理を行おうとするとエラーが起きます。
Sheets(非表示のシート名).Cells.Select

一度、隠しシートを表示にして、処理の完了後に非表示にすることで、作りたいもの自体はできました。
シートが非表示の状態だと、どのような処理ができなくなるのでしょうか？
それともただ私のコード書き方がいけないだけでしょうか？
理由がわからずもモヤモヤしています。
初歩的な質問だと思いますがよろしくお願いします。

###発生している問題・エラーメッセージ
実行時エラー 1004 
RangeクラスのSelectメソッドが失敗しました。

###試したこと

###補足情報(言語/FW/ツール等のバージョンなど)
Excel2010を使用しています。

エクセルマクロ 非表示シートで受け付けない処理

以前似た内容を質問させていただいたのですが、
それに少し似た内容の不明点が出てきましたので、再度質問させていただきました。

### やりたいこと①
"値一致シート"のC列の値と"値の元"シートのA列の値が一致したら、
"値一致シート"のC列の値をA列に転記する。
この際転記する値は年(2019など)に変換して表示させたい。

**"値一致シート"**![イメージ説明](6fc74f4953342fa2ecf9af9f6063b63e.jpeg)
**"値の元"シート**![イメージ説明](78a76fe26ab797038107e50f36e72531.jpeg)
"値一致シート"のC列には、"19.01.05"などの値があります。これは"2019/01/05"という
年月日のことを指しています。
"値の元"シートのA列の"年間カレンダー"の列も"2019/01/05"という
年月日の値が入っています。
この値をキーに、"値一致シート"のC列の値が"値の元"シートのA列と一致していたら、
"値一致シート"のA列に"19.01.05"の頭の"19"に"20"をつけて"2019"という4桁の
年を表示させたいです。

### やりたいこと②
"値一致シート"のC列の値が"値の元"シートのA列と一致していたら、
"値の元"シートのC列の"WK表示"の値を、"値一致シート"のB列に転記させたいです。
例えば、"19.01.05"なら"WK 01"、"2019/1/22"なら"WK 04"。

下記の画像のように仕上げるのを目標として
色々試行錯誤しているところです。

[完成させたいイメージ図]![イメージ説明](c69d6f8ff7ba01a3591f3b48026dafce.jpeg)

```
Dim S2 As Worksheet
Dim ws As Worksheet
Dim R As Long
    Set S2 = Worksheets("値一致シート")  '転記先
	Set ws = Worksheets("値の元")  'Calendar

 
  For R = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row
      If S2.Cells(R, "C").Value = ws.Cells(Rows.Count, "A")Then
          S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
      End If
  Next R
End Sub
```

Find関数などを使用し、何度も検索⇒一致したら転記を試したのですが、
やはりうまく値の検索も抽出も転記もできなかったので、
まずセルとセルの内容が一致しているか⇒一致しているなら、その値を
セルに転記させる・・・
という方法をとってみました。
しかし、上記のソースコードだとエラーは出ないのですが、
何一つ値をとってこれません。

値を抽出できないので、やりたいこと②のロジックも
わかりません。。。


2019/03/13　修正したソースを追記(まだ未完成ですが、途中経過です)
```
Sub 編集中()
Dim S2 As Worksheet
Dim ws As Worksheet
Dim R As Long
      
'Selection.Value = Selection.Value '(この式は値に変換するという意味らしい)

    Set S2 = Worksheets("値一致")  
    Set ws = Worksheets("値の元")  
    
Dim iRowI As Integer    '"値の元"(読み取り)行
Dim iLastRow As Integer

    'A列の最終データ行を取得する(年間カレンダーの最終行)
    iLastRow = ws.Range("A2").SpecialCells(xlLastCell).Row
    '表示形式を年だけで表示させる

'Calendar加工"の2行目～最終データ行までループ処理させる
        For iRowI = 2 To iLastRow
'"Weeklyシート加工"の"F列"の最後の行になるまで実行させる
        For R = 2 To S2.Cells(Rows.Count, "F").End(xlUp).Row
   
        'If S2.Cells(R, "C").Value = ws.Cells(Rows.Count, "A") Then
        
      '「値一致」シートのC列の値を、「値の元」シートのA列と比較して、一致しているか調べてみる
      If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
        'S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
            
            '「値一致」シートと「値の元」シートで一致していたら、その行の値を転記する
            S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
        End If
        If S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value Then
        ' S2.Cells(R, "A").Value = CStr(S2.Cells(R, "A").Value)　CStr 関数は、指定した値を文字列型 (String) に変換する
'                S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
'                S2.Cells(R, "A").Value = Format("2019/01/05", "yyyy")
'                S2.Cells(R, "A").Value = Format(ws.Cells(S2.Cells(R, "A").Value, "yyyy"))
        End If
             '"WK"列の値を表示させる
         If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
            S2.Cells(R, "B").Value = ws.Cells(iRowI, "C").Value
         End If
                
         Next R
    Next

End Sub

```

2019/03/14　上手くいかないので引き続き検証中(備忘録も兼ねてソースを残します)

検証①
```
       
      '「値一致」シートの値を、「値の元」シートのA列と比較して一致していたら
      If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
        'S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
            
        'その行の値を転記する
         S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
         
        'CStr 関数は、指定した値を文字列型 (String) に変換する
         S2.Cells(R, "A").Value = CStr(S2.Cells(R, "A").Value)
         
'         S2.Cells(R, "A").Value = Format("2019/01/01", "yyyy")
         S2.Cells(2, 1).Value = Format("2019/01/01", "yyyy")  '検証①
'         Range("A2:A30").Value = Format("2019/01/01", "yyyy")  '検証②
            
       End If
```
(コメント多く読みにくくてすみません)
この状態で実行すると、以下の画像のように抽出される。
参照先の設定を誤っているのか、A1のセルだけ表示がおかしいです。
元に戻しても、このA2の表示が修正されない。
引き続きこちらも修正・検証中。

![イメージ説明](a44d3516d0c5649b97f5bfc7d3391a68.png)

検証②
```
       
      '「値一致」シートの値を、「値の元」シートのA列と比較して一致していたら
      If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
        'S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
            
        'その行の値を転記する
         S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
         
        'CStr 関数は、指定した値を文字列型 (String) に変換する
         S2.Cells(R, "A").Value = CStr(S2.Cells(R, "A").Value)
         
'         S2.Cells(R, "A").Value = Format("2019/01/01", "yyyy")
'         S2.Cells(2, 1).Value = Format("2019/01/01", "yyyy")  '検証①
         Range("A2:A30").Value = Format("2019/01/01", "yyyy")  '検証②
            
       End If

```
![イメージ説明](1c638783f479a309e149ba6a20f27a05.jpeg)

この状態で実行すると、以下の画像のように抽出される。

検証③　書式を文字列で設定しても「日付」で抽出されてしまう
```
  'CStr 関数は、指定した値を文字列型 (String) に変換する
       S2.Cells(R, "A").Value = CStr(S2.Cells(R, "A").Value)
  
      '「値一致」シートの値を、「値の元」シートのA列と比較して一致していたら
      If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
        'S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
        
        'その行の値を転記する
        S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
  
               
'         S2.Cells(R, "A").Value = Format("2019/01/01", "yyyy")
'         S2.Cells(2, 1).Value = Format("2019/01/01", "yyyy")  '検証①
'         Range("A2:A100").Value = Format("2019/01/01", "yyyy")  '検証②
            
       End If
```
![イメージ説明](87ce324f36888f787855b3985f536918.jpeg)

【Excel VBA】一致検索、検索後の値が一致していたら値の変換転記したい

現在あるソースのVBのバージョンが知りたいです。
確認する方法をご教授ください。

### 試したこと

[vb.netのバージョンを知りたい - QA@IT](https://qa.atmarkit.co.jp/q/6475)
→vbprojファイル内に「ProductVersion」という文言が無かった

[VBのバージョンを確認する方法内容](http://rucio.a.la9.jp/main/kiso/Version.htm)
![![バージョン画面のスクリーンショット](47d36672cf07c189e492db7b710ff10c.png)](5e23a4a0d86def47009eaced1c721d76.png)
→2017がバージョン？　これはVisual Studioのではなくて？

### 補足情報（FW/ツールのバージョンなど）

.NET Framework 4 Client Profile(これは判明しています)

他に不足している情報がございましたら提示いたします。
どうぞよろしくお願いいたします。

VBのバージョンを確認する方法

VBで下記のソースを何回か実行すると既定ブラウザのタブで開かれてしまいますが、
別ウィンドウで開く方法はありますでしょうか？

```ここに言語を入力
System.Diagnostics.Process.Start("https://yahoo.co.jp")
```

宜しくお願いします。

.NETでブラウザを別ウィンドウで開く方法

### 前提・実現したいこと
現在、```WindowForms```を```VB.NET```にて開発しています。
入力されたテキストに合わせてドロップダウンリストが部分一致で絞り込まれていくコンボボックスを作成しているのですが、上手く動作せず、お力添えを願いたいです。
（コンボボックスへのテキスト入力にあわせてリアルタイム的に候補が絞り込まれていく、という動作）

### 発生している問題・エラーメッセージ
コンボボックスの```KeyDownイベント```の中で```DataSource(DataTable)```に```Select```で部分一致の絞り込みをする処理を行っているのですが…

0. 絞り込みが行われるたびにドロップダウンリストの先頭のデータが自動で選択される
0. データが選択されるとコンボボックスのテキストフォームにその内容が反映される

という動きになってしまい、絞り込みがうまくいきません。

絞り込み時にリスト先頭への自動選択を行わず、あるいはコンボボックスの入力欄への反映を行わずにドロップダウンリストの候補の絞り込みだけを行っていく方法などないでしょうか？

そもそもですが、私の考え方が間違っているかもしれないので、入力内容に応じて候補のリストを絞り込んでいくコンボボックスの作り方で良い方法があればそちらも教えていただきたいです。

よろしくお願いします。


### 該当のソースコード

コンボボックスの```KeyDownイベント```で部分一致の絞り込みを実行しています。

```
Me.ComboBox1.DroppedDown = True
Me.ComboBox1.DataSource = dt.Select(" [NAME] LIKE '%" + ComboBox1.Text + "%'").CopyToDataTable
```

### 試したこと
下記のサイトを参考にしたりしましたが、やはり絞り込み（```DataSource```の更新）を行うとリストの先頭が自動で選択されてしまいます。
https://www.oborodukiyo.info/Forms/VS2015/F-FilterDataSourceOfComboBox

### 補足情報（FW/ツールのバージョンなど）
開発環境　Windows 10
ツール　VisualStudio2019