| |
▼じん さん：
>マクロで読み込み、転記用シートにコピー
>転記用シートにコピーされたデータを本シートに転記していく感じです。
>L列は自動で転記されていきます。
>
別案です。
他のところからデータをコピーして貼り付けると、貼り付けたとき、
Changeイベントというのが発生します。この方法は、これを利用するもの
です。
以下のコードを シート見出し(シートタブ)を右クリックして出てくる
「コードの表示」メニューで表示されるコード・ウィンドウに貼り付けて
L列にデータ貼付けてみてください。
'// L列にデータが追加／更新／削除があったら自動実行する
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim r As Range, c As Range
Dim sa As String
Set r = Intersect(Target, Range("L:L"))
If r Is Nothing Then Exit Sub
Application.EnableEvents = False 'イベントを一時的に無視
For Each c In r
If IsEmpty(c.Value) Then
c.Offset(, -3).ClearContents
Else
Select Case c.Value
Case Is >= 501: sa = "501 - "
Case Is >= 451: sa = "451 - 500"
Case Is >= 401: sa = "401 - 450"
Case Is >= 351: sa = "351 - 400"
Case Is >= 301: sa = "301 - 350"
Case Is >= 251: sa = "251 - 300"
Case Is >= 201: sa = "201 - 250"
Case Is >= 151: sa = "151 - 200"
Case Is >= 101: sa = "101 - 150"
Case Else: sa = " - 100"
End Select
c.Offset(, -3).Value = sa
End If
Next
Application.EnableEvents = True 'イベント復活
End Sub
|
|
kanabun
- 14/4/4(金) 9:38 -
