常連

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を使用しています。

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

【実現したいこと】
テキストボックスに文字を入れる
ボタンを押したらツイートされる

【フォームの中にあるもの】
・ボタン１つ（ツイートボタンになる予定）
・テキストボックス（ツイート文が入る予定）
・WebView2（非表示にしてる）

【躓いている所】
ボタンを押してもツイートされない

【やったこと】
・ツイッターにログイン
・ツイートする画面で右クリック
・検証で要素をコピー　★ここが怪しい
（javascriptのコード）
document.querySelector("#react-root > div > div > div.css-175oi2r.r-1f2l425.r-13qz1uu.r-417010.r-18u37iz > main > div > div > div.css-175oi2r.r-136ojw6 > div > div > div > div > div.css-175oi2r.r-1pz39u2.r-1777fci.r-15ysp7h.r-obd0qt.r-s8bhmr > div > button:nth-child(2)")

(Selectorのコード)
#react-root > div > div > div.css-175oi2r.r-1f2l425.r-13qz1uu.r-417010.r-18u37iz > main > div > div > div.css-175oi2r.r-136ojw6 > div > div > div > div > div.css-175oi2r.r-1pz39u2.r-1777fci.r-15ysp7h.r-obd0qt.r-s8bhmr > div > button:nth-child(2)

・VBのクリックイベントを記入
Private Async Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

Await WebView21.ExecuteScriptAsync("document.querySelector('#react-root').click()")

End Sub

起動してボタンを押しても何も起こりません
誰かわかる方教えてください。

ちなみに、別のサイトのinputタグのボタンは動作しました。

VB.NETとWebView2でツイッターの投稿機能を作りたい

以前似た内容を質問させていただいたのですが、
それに少し似た内容の不明点が出てきましたので、再度質問させていただきました。

### やりたいこと①
"値一致シート"の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でブラウザを別ウィンドウで開く方法

### 2023年9月29日　修正
業務内容漏洩リスクを指摘されたため、質問の内容を伏せさせていただきます。
協力していただいた方々、大変申し訳ありません。

動作はできたもののまだテストはしていない状況です。
テストが通り世に出回りましたら、ブログなど何らかの方法で公開させていただきます。


C#で作成したDLLをVB6より呼び出せるようにしたい

### 前提・実現したいこと
現在、```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