| |
先にレスした右クリックイベントを応用すると、以下のようになります。
選択するセルは、必ず A列 にして下さい。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Dim C As Range
Dim i As Long
Dim Buf As String
Const MyF As String = _
"C:\Documents and Settings\User\My Documents\Test.txt"
'↑実際のテキストファイルの保存先とファイル名にすること
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Cancel = True
If Dir(MyF) <> "" Then Kill MyF
Open MyF For OutPut Access Write As #1
For Each C In Target
i = C.Row
If i > 1 And i <= Range("A65536").End(xlUp).Row Then
Buf = Cells(i, 1).Value & vbTab & Cells(i, 2).Value & _
vbTab & Cells(i, 4).Value & vbTab & Cells(i, 6).Value
Print #1, Buf
End If
Next
Close #1
If Buf = "" Then
MsgBox "テキストファイルは作成されませんでした", 48
Kill MyF
Else
MsgBox "テキストファイルを作成しました", 64
End If
End Sub
|
|
Kein
- 06/6/2(金) 11:03 -
