ベストアンサー

SheetBeforeDoubleClick

2006/06/28 12:07

ダブルクリックすると、選択セルが切り取り状態になるようにしたいのですが。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Selection.Cut End Sub 上記ではダメでした。正しい表記法を教えて下さい。よろしくお願いします。

wakanex
お礼率100% (8/8)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

m3_maki
ベストアンサー率64% (296/460)

2006/06/28 12:39 回答No.1

Selection.Cut Cancel = True

質問者

お礼 2006/06/28 14:45

有難うございます。

関連するQ&A

ExcelのVBAについてです。

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) UserForm1.Show End Sub というコードで、シート上で右クリックしたら、ユーザーフォームを表示するようにしたんですが、ユーザーフォームを閉じると右クリックメニューが出てきます。これを出なくするにはどのようにしたらいいのでしょうか。教えてください。よろしくお願いします。
Excelでシート名と最終更新日を自動表示したい

Excelを使って（１）セルA1に入れた名目をシート名にし（２）セルH1には、最終更新日を自動で入れたいです。調べた結果、シート名を右クリックして「コードの表示」から（１）は Private Sub Worksheet_Change(ByVal Target As Range) Sheets(1).Name = Range("B1") End Sub を入れてうまくいきましたが、（２）は Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 　If ThisWorkbook.Saved = False Then 　　Worksheets("Sheet1").Range("H1").Value = Date 　End If End Sub を入れてみましたが（←調べましたもの）うまくいきませんでした。単純に、 Private Sub Worksheet_Change(ByVal Target As Range) Sheets(1).Name = Range("B1") End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 　If ThisWorkbook.Saved = False Then 　　Worksheets("Sheet1").Range("H1").Value = Date 　End If End Sub とつなげて入れるのではだめなんでしょうか？それとも、（２）の何かが間違っていますか？ご教授願います。
マクロで二つの構文を繋ぐには

いつもお世話になります。 WIN7 EXCELL2010　です。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub ThisWorkbook　に上記のマクロに下記のマクロを追加したいのですが、 End Sub の　ところを　End If　End With などに変えたのですがうまくゆきません。御指導お願いできませんでしょうか。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Intersect(Target, Range("M3:V27")) If Not myRange Is Nothing Then Select Case Target.Value Case "" Target.Value = "○" Case "○" Target.Value = "●" Case Else Target.ClearContents End Select Cancel = True End If End Sub 宜しくお願いいします。
コンパイルエラー　Target.Range

シート上のセルに値を入力したら、入力した値をイミディエイトに表示させたいのですが Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Debug.Print Target.Range End Sub こうすると、コンパイルエラー引数は省略できません。になります。 .Range の部分がエラーになります。原因と対策を教えてください。
マクロでシート名を変更を変更したい

A1セルの値をシート名にするマクロは以下のとおりだと思います。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub では、E6セルの値をシート名にすることは可能でしょうか？よろしくお願いします。
なぜ、ByVal Sh As Objectは

NewSheetイベントについて質問なのですが、なぜ、ByVal Sh As Objectは、Objectなのでしょうか？ Sub Workbook_NewSheet(ByVal Sh As Worksheets) や Sub Workbook_NewSheet(ByVal Sh As Worksheet) にしたら、コンパイルエラーになります。シートの方では、 Private Sub Worksheet_Change(ByVal Target As Range) のようにrange型で宣言しているのに、なぜシートはオブジェクト型で宣言するのでしょうか？
エクセル　デバッグできるのとできないのがある

シートイベントについて教えてください。シートモジュールに --------------------------------------------------------- Option Explicit Private Sub Worksheet_Activate() MsgBox "" End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "" End Sub Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "" End Sub --------------------------------------------------------- と記載した時に、Ｆ８で動かせるのは、Worksheet_Activateだけなのですがなぜでしょうか？ほかのイベントは、F8で実行させても、ＯＳの音が鳴るだけで、マクロの実行はされません。ご回答よろしくお願いします。
エクセル　VBA　について

エクセルで、ダブルクリックしたら"*"を表示したい範囲に【入力】という名前をつけ、ダブルクリックしたら９つ左のセルの内容を表示したい範囲に【金額】という名前をつけ、二つの構文？をVisual Basicに作成したんですが、エラーが出てしまいます。ひとつずつだと上手くいくのですが、なぜでしょうか？わかる方教えてください。あと申し訳ないのですが、VBAはまったくわからないため、ネット上で構文をコピーして貼り付けました。そんな者でもわかる修正の説明をお願いいたします。以下が作成し、エラーとなってしまう構文です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const RangeName As String = "金額" If Target.Value = "" Then Target.Value = Target.Offset(0, -9).Value Cancel = True End If End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const RangeName As String = "入力" If Not Intersect(Range(RangeName), Target) Is Nothing Then Cancel = True If Target = "*" Then Target = "" Else Target = "*" End If End If End Sub
Excel　VBA

Excel　VBAのテキストを片手に色々（仕事で必要で・・・）試しています。そこで、セルをダブルクリックしたときに実行するマクロを作成してみました。（テキストにしたがって）コピー元シートのＡ２番地に入力されている文字と同じ文字を、Shieet１の任意のセルをダブルクリックすると自動的に入力されるマクロです。ですが、コピー元の文字だけではなく書式も一緒に反映されるので、任意のセルに書式が設定されている場合、書式が崩れてしまいます。なので、どなたか　文字だけもしくは　書式だけ　を自動実行する方法を教えてください。なかなか伝わりにくい文章で申し訳ありませんが・・・。宜しくお願いいたします。ちなみに↓↓VBの記述を貼り付けます。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True Worksheets("コピー元").Range("A2").Copy Destination:=Target End Sub
どこが間違ってますか？ (エクセルVBAです)

質問をご覧くださりありがとうございます。どなたか助けていただけないでしょうか。以下のコードの場合、B2セルをダブルクリックすればシート(1)が開くと思っていたのですが、B2以外のセルをダブルクリックしてもシート(1)が開いてしまいます。どこが悪いのでしょうか。詳しい方がいらっしゃいましたら、どうか教えてください。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean) If Target = Range("B2") Then cancel = True Worksheets("シート(1)").Activate End If End Sub どうか、宜しくお願いいたします。
今日の日付に該当するシート名に赤色を

いつもお世話になります。 WIN7 EXCELL2010 です。 A1に「20140721」と記入しエンターキーを押すと下記のマクロでシート名が自動で「20140721」となるようにしています。例えば今日(７月２１日)になったら自動で赤色にしていくつかあるシートの中で今日のシートを目指させたいのでご指導いただけませんでしょうか。参考に Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub 是非ご協力をお願いします。
エクセルVBA　イベントプロシージャに引数を渡せま

お世話になります。エクセル２００３／XP　使用です。イベントプロシージャに引数を渡せまるかどうか教えていただけますでしょうか？下記のコード中の変数mysheetnameをユーザーフォーム、→　CommandButton１のプロシージャに引数として渡して行きたいのですが、実行すると、一番最初のWorkbook_SheetBeforeRightClickの時点で、コンパイルエラー：　プロシージャの宣言が、イベントまたはプロシージャの定義と一致していません。とエラー表示されます。イベントプロシージャに引数を渡すことはできますでしょうか？ ---------- ThisWorkBook内 ---------- Public mysheetname As String Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) mysheetname = ActiveSheet.Name UserForm1.Show (mysheetname)　　　　　'←変数mysheetnameの値をユーザーフォームに渡したい。 End Sub ---------- ユーザーフォーム ---------- Private Sub UserForm_Initialize(ByVal mysheetname As String ) 処理 End Sub Private Sub CommandButton1_Click(ByVal mysheetname As String ) 処理 End Sub ’---------　ここまで引数について少し理解し始めたばかりの者です。よろしくお願いします。
Excel　VBAについて

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, cancel As Boolean) If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub Application.Goto Worksheets("人件費").Range("A1") Worksheets("人件費").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Target.Offset(, -5).Value cancel = True End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, cancel As Boolean) If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub Application.Goto Worksheets("外注費").Range("A1") Worksheets("外注費").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Target.Offset(, -5).Value cancel = True End Sub 上の指令はFの列をダブルクリックすると人件費のシートが開いてAある値を人件費の新しいセルのAに代入する指令ですがそれをG列ダブルクリックで外注費シートに同じようにやろうと思いましたが出来ません。たぶん根本的に書き方が間違っているのかと思われますが、ご指導のほどお願いします。
Excel2007　マクロについて

たとえばですが sheet1のF5列をダブルクリックすると、その左側にあるA5の値をコピーし sheet2のA列の未入力行へ貼り付けするにはどうしたらよいでしょうか Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, cancel As Boolean) If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub cancel = True End Sub とりあえずここまで作って開くことは開いたのですが、その先がわからず困っております。よろしくお願いいたします。
エクセルのマクロ

セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。どのように直したらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address If Intersect(Target, Range("EK22")) Is Nothing Then Exit Sub Else Range("EK24:EM28").Select Selection.ClearContents End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("EK24")) Is Nothing Then Exit Sub Else Range("EK27:EM28").Select Selection.ClearContents End If End Sub
エクセルＶＢＡで Cancel=Trueの使い方

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Cancel = True MsgBox "キャンセルしました" End Sub Private Sub Worksheet_Deactivate() Cancel = True MsgBox "キャンセルしました" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cancel = True MsgBox "キャンセルしました" End Sub 以上のように使ってみましたが、どれも「キャンセルしました」とメッセージは出るものの、直前の操作（入力、シート切替、セル移動）はキャンセルされませんでした。どこが間違っているのでしょうか？
VBAで二つの構文を繋げるには

いつもお世話になります。 WIN7 EXCELL2010 です。１) A1に　数値化した日付を入力するとシート名表示に反映される。　例えば　2014/07/31　で　A1　には　20140731　と入力するとシート名にも　　　　　20140731 が表示 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub ２) １)で表示された複数のシートから今日のシート名になっているシートの色付けです。 Private Sub Workbook_Open() Dim mySheet As Worksheet For Each mySheet In Worksheets mySheet.Tab.ColorIndex = 19 If mySheet.Name = Format(Now(), "yyyymmdd") Then mySheet.Tab.ColorIndex = 3 End If Next End Sub ３) 各月をまとめたシートで　シート名は　1～12　あります。このシート名にも色付けするため下記マクロを追加したいのですが、１)のマクロとどう繋げばいいか分かりません。 Private Sub Workbook_Open() Dim sh As Worksheet 　　　　For Each sh In Worksheets 　　　　　　　　If isnumeric(sh.Name) Then 　　　　　　　　　　　　sh.Tab.ColorIndex = xlNone 　　　　　　　　　　　　If sh.Name = Month(Now) Then 　　　　　　　　　　　　　　　　sh.Tab.Color = 255 ' 赤　　　　　　　　　　　　End If 　　　　　　　　End If 　　　　Next End Sub 同じ　Private Sub Workbook_Open()　で始まるので丸められることが可能ならも含めていい方法を御指導いただけると幸甚です。宜しくお願いします。
ダブルクリック・右クリックの操作方法

勤務表作成してます。 A1に「ON・OFF」を表示します。「ON」のときに、ダブルクリックで、上のセルを表示、右クリックで「１」を表示します。「OFF」のときは、コンテキストメニュ-(通常の操作)が出来るようにしたいのですが、ON.OFFの切り替え操作のVBAがわかりません。よろしくお願いします。 Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell = ActiveCell.Offset(-1, 0).Value If Target = Range("$A$1") Then Cancel = True If Range("$A$1").Value = "イベントON" Then Range("$A$1").Value = "イベントOFF" Else Range("$A$1").Value = "イベントON" End If If Range("$A$1").Value = "イベントOFF" Then Exit Sub End If End If End Sub Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ActiveCell = "1" ' If Target = Range("$A$1") Then ' Cancel = True ' ' If Range("$A$1").Value = "イベントON" Then ' Range("$A$1").Value = "イベントOFF" ' Else ' Range("$A$1").Value = "イベントON" ' End If If Range("$A$1").Value = "イベントOFF" Then Exit Sub End If End Sub
同じシート内にイベントプロシージャが二つある時

いつもお世話になります。 WINDWS7 EXCELL2010 です。下記の１　２のマクロを同じシート内にイベントプロシージャを二つ挿入したところ、 ※１　※２のような現象が起きました。この現象を解決したくご指導を仰ぎたいです。宜しくお願いします。 ※１　エラー表示コンパイルエラー: 名前が適切ではありません; Worksheet_BeforeDoubleClick ※２　下記の構文が青色に反転 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) １ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A2:A51")) Is Nothing Then Exit Sub Cancel = True Sheets(CStr(Target.Value)).Select End Sub ２ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Intersect(Target, Range("B2:B51")) If Not myRange Is Nothing Then Select Case Target.Value Case "" Target.Value = "○" Case Else Target.ClearContents End Select Cancel = True End If End Sub
VBAでWorkbook_BeforeSaveイベントで質問

Workbook_BeforeSaveイベントである条件に達していればExcelファイルを終了したくないのですがどうすればよいでしょうか？ WindowsXP ProSP2、Excel2000 コード例） Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) dim flg as boolean if flg=true then exit sub end if End Sub

SheetBeforeDoubleClick

質問者が選んだベストアンサー

お礼 2006/06/28 14:45

関連するQ&A

ExcelのVBAについてです。

Excelでシート名と最終更新日を自動表示したい

マクロで二つの構文を繋ぐには

コンパイルエラー　Target.Range

マクロでシート名を変更を変更したい

なぜ、ByVal Sh As Objectは

エクセル　デバッグできるのとできないのがある

エクセル　VBA　について

Excel　VBA

どこが間違ってますか？ (エクセルVBAです)

今日の日付に該当するシート名に赤色を

エクセルVBA　イベントプロシージャに引数を渡せま

Excel　VBAについて

Excel2007　マクロについて

エクセルのマクロ

エクセルＶＢＡで Cancel=Trueの使い方

VBAで二つの構文を繋げるには

ダブルクリック・右クリックの操作方法

同じシート内にイベントプロシージャが二つある時

VBAでWorkbook_BeforeSaveイベントで質問

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

SheetBeforeDoubleClick

質問者が選んだベストアンサー

お礼 2006/06/28 14:45

関連するQ&A

ExcelのVBAについてです。

Excelでシート名と最終更新日を自動表示したい

マクロで二つの構文を繋ぐには

コンパイルエラー Target.Range

マクロでシート名を変更を変更したい

なぜ、ByVal Sh As Objectは

エクセル デバッグできるのとできないのがある

エクセル VBA について

Excel VBA

どこが間違ってますか？ (エクセルVBAです)

今日の日付に該当するシート名に赤色を

エクセルVBA イベントプロシージャに引数を渡せま

Excel VBAについて

Excel2007 マクロについて

エクセルのマクロ

エクセルＶＢＡで Cancel=Trueの使い方

VBAで二つの構文を繋げるには

ダブルクリック・右クリックの操作方法

同じシート内にイベントプロシージャが二つある時

VBAでWorkbook_BeforeSaveイベントで質問

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

コンパイルエラー　Target.Range

エクセル　デバッグできるのとできないのがある

エクセル　VBA　について

Excel　VBA

エクセルVBA　イベントプロシージャに引数を渡せま

Excel　VBAについて

Excel2007　マクロについて

カテゴリ
一覧

専門家に質問してみよう
専門家登録