| |
返信、本当にありがとうございます。
ここまで教えて頂いてお恥ずかしく、大変申し訳ないのですが
まだできません・・・
すみません。コードの解読ができないんです。
ネットからコピペして、なんとなく加工して
なんとなくできるというばかりで。
★★★
教えて頂いた事を下記の通りにやってみたのですが、
間違っている箇所を訂正して
再度コードを送っていただけないでしょうかm(__)m
★★★
Alt+F11画面で
ThisWorkbookをダブルクリックし、そこに
頂いたコードを貼り付け（←貼り付ける場所あってますか?)
それから
質問を簡素にするために
「シート1」「Ａ１・Ｂ１」などと書いたのですが、
実際は
ｼｰﾄ1は「はじめに」という名前
ｼｰﾄ2は「売上伝票」という名前
ｼｰﾄ3は「得意先ｺｰﾄﾞ」という名前
ｼｰﾄ4は「作業ｺｰﾄﾞ」という名前
で
売上伝票(ｼｰﾄ2)画面のD12をダブルクリックすると
ｼｰﾄ3（得意先ｺｰﾄﾞ)へジャンプ希望
売上伝票のC20、C21、C22、C23、C24の5つをダブルクリックすると
ｼｰﾄ4(作業ｺｰﾄﾞ）へジャンプ希望
が本当の為、自分なりに下記のように加工しました。
（ある程度教えて頂ければ自分でできるかなと思ったのですが
全然だめでしたm(__)m・初めから言ってよ！だったら
ほんとすみません)
Dim ToCell As Range
Const shName1 As String = "はじめに"
Const shName2 As String = "売上伝票"
Const shName3 As String = "得意先ｺｰﾄﾞ"
Const shName4 As String = "作業ｺｰﾄﾞ"
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Sh Is Sheets(shName3) Then
If ToCell Is Nothing Then
MsgBox "先に転記先のセルをクリックしてから、このシートでダブルクリックしてください"
Exit Sub
End If
ToCell.Value = Target.Value
Application.Goto ToCell
Set ToCell = Nothing
ElseIf Sh Is Sheets(shName4) Then
If ToCell Is Nothing Then
MsgBox "先に転記先のセルをクリックしてから、このシートでダブルクリックしてください"
Exit Sub
End If
ToCell.Value = Target.Value
Application.Goto ToCell
Set ToCell = Nothing
ElseIf Sh Is Sheets(shName2) Then
Set ToCell = Target
Select Case Target.Address
Case "$D$12"
Sheets(shName3).Activate
Case "$C$20"
Sheets(shName4).Activate
End Select
End If
End Sub
よろしくお願いしますm(__)m
|
|
hamako
- 14/6/13(金) 9:36 -
