gooドクター有料プランが1ヶ月間無料!

お世話になります。
下記マクロの変更ができましたらお願いします。
1,語句検索データーシートB列(語句)Wクリックで単価表へ移動、同語句を探しセル移動
2,語句の明細から値を選び、WクリックでデータシートD4列(同じ行内)へ転記

データシートマクロ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Set FromRange = Target
Select Case Target.Column
Case 2
Worksheets("単価表").Select  
Case Else
Cancel = False
Set FromRange = Nothing  
If Intersect(Target, Range("A3:A25")) Is Nothing Then Exit Sub

   単価表のターゲットセルの語句検索VBAが分かりません。

If ActiveCell = "" Then
ActiveCell = Date
Cancel = True
End If

End Select
End Sub

単価表シートVBA
検索セル(B列目)へは転記できますが、2個となりD列目へ転記することができません(同じ行)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If FromRange Is Nothing Then
MsgBox ("無効操作")
Exit Sub
End If
If FromRange.Column <> 15 Then
MsgBox ("無効操作")
Exit Sub
End If
FromRange.Value = Target.Value
FromRange.Worksheet.Select
FromRange.Select
End Sub

うまく説明できていませんがよろしくお願いします。

gooドクター

A 回答 (1件)

>検索セル(B列目)へは転記できますが、2個となりD列目へ転記することができません(同じ行)



ここだけなら。

これだけはおさえるセル操作(1)-Offsetで自由自在
https://www.moug.net/tech/exvba/0050057.html

こちらが参考になるのでは?

あとはシート内容も良くわからないので初級レベルにはきつかな。
    • good
    • 0
この回答へのお礼

ありがとうございます。早速検討します。

お礼日時:2021/05/20 14:43

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング