vba 環境依存文字がListViewボックスに設定すると化ける

解決済

質問者：公共ごま
質問日時：2022/01/21 18:21
回答数：3件

いつもお世話になります

今、Listviewボックスを使ってシートを選択するプログラムで
シート名に環境依存文字が含まれていると？マークになり
選択するとエラーになってしまいます

いろいろ調べて
AscWやChrWを使ってみましたがうまく行きません
webからプログラムをコピーして下記のようなプログランで
検証してみましたがダメでした

何か良い方法がありましたら教えてください

Dim aaa As String
Private Sub UserForm_Initialize()

aaa = ActiveSheet.Name
For Each ws In Worksheets
Call isSJIS(ws.Name)　　'...ws.nameは"B2中柱㉒"です
With ListView1.ListItems.Add
.Text = ws.Name
End With
Cells(11, 1) = ws.Name
Cells(12, 1) = aaa
Next ws
Cells(13, 1) = ListView1.ListItems(1).Text
End Sub

Sub isSJIS(ByVal argStr As String)
Dim sQuestion As String
Dim ccc As String
aaa = argStr
sQuestion = Chr(63) '?:文字リテラルでは誤解があるといけないので
Dim i As Long
For i = 1 To Len(argStr)
ccc = Mid(argStr, i, 1)
If ccc <> sQuestion And _
Asc(ccc) = Asc(sQuestion) Then
aaa = Replace(aaa, ccc, ChrW(AscW(ccc)))
End If
Next
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： mygoonickname
回答日時：2022/01/21 19:01

こんばんは。

直接の回答ではないかも知れないが、表示上は？になってしまいますが、
ListViewのIndexを取って、それをシートのインデックスで指定では
ダメでしょうか？

Private Sub ListView1_Click()
Sheets(ListView1.SelectedItem.Index).Select
End Sub

- 0
- 件

通報する

この回答へのお礼

いつもお世話様です
早速のご回答に感謝します

ご指摘の通りListViewでは？のなってしまいますが
エラーを出さずにシートを選択できました
これで行きたいと思います
ありがとうございました
これからもよろしくお願い申し上げます

通報する

お礼日時：2022/01/22 14:00

参考程度に

No.3

回答者： Qchan1962
回答日時：2022/01/21 19:34

こんばんは

環境依存文字って文字コードで取得する必要があったような記憶が、、
？は表示上のもの、、

でFunctionを作成すると

Function isSJIS(ByVal argStr As String) As String
Dim buf()
Dim strA As String
Dim i As Long
ReDim buf(Len(argStr) - 1)
For i = 1 To Len(argStr)
buf(i - 1) = Hex(AscW(Mid(argStr, i, 1)))
Next
For i = 0 To UBound(buf)
strA = strA & ChrW("&H" & buf(i))
Next
isSJIS = strA
End Function

変数名はいい加減です
これを該当の
Cells(12, 1) = isSJIS(aaa)
で上手くいかないかな？