| |
お世話になります。
シートAをダブルクリックする事でシートBのrangeを取得しようとしたのですが
rangeのところで下記のようにエラーとなります。
どなたか解決法をお教えいただけないでしょうか？
（ｼｰﾄ内のﾌﾟﾛｸﾞﾗﾑです）
Public pWs1, pWs2 As Worksheet
Public cel1, cel2 As Range
Private Sub worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)
Set pWs1 = Worksheets("A")
Set pWs2 = Worksheets("B")
Set cel1 = pWs2.Cells(1, 1)
Set cel2 = pWs2.Cells(2, 1)
If Target.Value <> Null Then
Else
pWs2.Cells(3, 3) = Target.Value
↓ここでエラーとなります RANGEが使えないのでしょうか?
pWs2.Cells(3, 5) = Range(CELL1, CELL2)
End If
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
