Sub SJIS判定() Dim i As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 4).Value = Asc(Cells(i, 1).Value) If isSJIS(Cells(i, 1).Value) Then Cells(i, 6).Value = "Shift_JIS" Else Cells(i, 6).Value = "環境依存" ...
ファイルの操作(Shift-JIS/UTF8対応)[ExcelのVBA] SJIS 写入 Private Sub CommandButton2_Click() Dim fileNo As Integer ' ファイル番号 ' ファイルを開く為のファイル番号を取得 fileNo = FreeFile ' 指定されたファイルを開く(ない場合は作成する) Open "Sjisの書き込みテスト.txt" For Outpu...
グローバルに言えば、この関数が Trueを返せば、そのファイルはSJISでありえますが、SJISだと断定できるわけではないです。 ただ、日本国内での使用に限定して、テキストファイルは、たいていSJISかUTF-8のどちらかであると仮定すれば、この関数がTrueを返した場合は、SJISだと判断可能だと思いま...