| |
▼かみちゃん さん：
ありがとうございます。
>どこが文字列になっているかを考えましょう。
>ListBox1.Value
>とは、何だと思いますか？
>Left(ListBox1.Value, 6)
>今回は、半角数字とのことですが、全角半角が混ざってバイト単位の処理をしたい
これから作成する書類の中に↑が出てきますどのように処理できるのでしょうか
場合、少しややこしい処理が必要です。
テキスト.txtの表示が下記コードなら可能なのですが
Sub コード()
Dim FName As String
FName = ThisWorkbook.Path + "C:\テキスト.txt"
Const cnsFILENAME = "C:\テキスト.txt"
Dim intFF As Integer
Dim strREC As String
Dim GYO As Long
intFF = FreeFile
Open cnsFILENAME For Input As #intFF
GYO = 1
Do Until EOF(intFF)
Line Input #intFF, strREC
UserForm2.ListBox1.AddItem strREC
Loop
Close #intFF
UserForm2.Show
End Sub
ユーザーフォームを下記コードで立ち上げたらテキスト.txtが
表示できなくなりました
どこか違いますか。
よろしくお願いします。
If 1 < Target.Count Then Exit Sub 'If Target.Cells.Count > 1 Then
On Error Resume Next
If Not Intersect(Target, Range("R8:R107")) Is Nothing Then
Cancel = True
UserForm2.Show
Else
UserForm2.Hide
End If
|
|
yasu
- 07/1/21(日) 12:43 -
