[[20061021142253]]　『ハイパーリンクを使いたい』　ページの最後に飛ぶ

『ハイパーリンクを使いたい』
エクセルでハイパーリンクを使っているのですが、セルに「印刷」と記入して、そのセルをクリックしたら印刷できるように設定したいのですが。（カメ）

 ハイパーリンクではありませんが、、、
　
 シートモジュールへコピペ
'--------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub　
    If Target.Value <> "印刷" Then Exit Sub
    If MsgBox("よろしいですか？", vbOKCancel, "印刷します") = vbOK Then
        PrintOut
    End If
End Sub
　　
 ＼Sheet1／ 
　　　↑ここを右クリック → コードの表示 → 出てきた画面に、上記をコピペ
　
 印刷 と入力してあるセルを触るとメッセージボックスが出て確認します。
 ※印刷の設定はしてあるものと考えています。
　
 （キリキ）（〃⌒o⌒)b

（キリキ）さんお返事ありがとうございます。
今試してみました！！
上記の部分を「ファイル名」Sheet(コード）に貼り付けて、とじました。
印刷と入力したセルに触ってもメッセージボックスが出てこないので、たぶん印刷の設定がされてないのではないかと・・・。その印刷の設定はどうしたらいいのですか？

 >印刷と入力したセルに触ってもメッセージボックスが出てこないので、たぶん印刷の設定がされてないのではないかと・・・。
 メッセージが出ないということは、印刷の設定が関係しているわけではありません。
　
 確認して欲しいのですが
 １．コードを貼り付けた後、ファイルを保存してクローズ。その後立ち上げても駄目でしょうか？
 ２．「印刷」と入力してあるセルは、印刷 のみの入力で、前後にスペースや括弧や他の文字は無いでしょうか？
 ３．コードを、貼り付けしたシート内に「印刷」と入力されているセルがありますでしょうか？
　
 以上をご確認ください。
 ※ついでにエラー処理のコードも追加
 （キリキ）(〃⌒o⌒)b

（キリキ）さん、ありがとうございます。
もう一度試してみました！
＼Sheet1／を右クリック → コードの表示 → 出てきた画面に、下記をコピーして
貼り付けました。
'--------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count <> 1 Then Exit Sub　
    If Target.Value <> "印刷" Then Exit Sub
    If MsgBox("よろしいですか？", vbOKCancel, "印刷します") = vbOK Then
        PrintOut
    End If
End Sub

そして保存をし、もう一度開き「印刷」のセルをクリックしてみたら、何も変わらず・・・。
「印刷」と入力してあるセルは、印刷　しか入力はしてませんが、セルに色はつけてます。結合がよろしくないとか・・・？
上記の部分をコピーして貼り付けたので、印刷とゆう文字は入ってると思います。

そのほかに何か設定がされてないのですか？

 もともと書いてある↓ 
 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

  End Sub
 は消しましたか？？
 これを消すとうまく行くと思いますよ～
 (china)

 えと、印刷と入力されているセルが結合されていたら、うまくいかないですよ～
 念のため。　　　　　　　　　　　　　　　　　　　　　　　(かなれっと)

 これでどう？
　
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'If Target.Count <> 1 Then Exit Sub
    If Target.Cells(1, 1).Value <> "印刷" Then Exit Sub
    If MsgBox("よろしいですか？", vbOKCancel, "印刷します") = vbOK Then
        PrintOut
    End If
End Sub
　
 （キリキ）（〃⌒o⌒)b

何度もすみません。。。
（china）さんの
「Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

  End Sub」を消してみました。
（かなれっと）さんのいわれる、セルの結合も解除しました。
（キリキ）さんの新しい↓
「'If Target.Count <> 1 Then Exit Sub
    If Target.Cells(1, 1).Value <> "印刷" Then Exit Sub
    If MsgBox("よろしいですか？", vbOKCancel, "印刷します") = vbOK Then
        PrintOut」をコピーして貼り付けて、
印刷とゆうセルをクリックすると、文字を入力する時にダブルクリックをした状態（カーソルがでてくる）しかなりません。。。
他に何か原因があるのでしょうか？

 カメさんの、現在のコードは何処から何処まででしょうか？
　
「Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     'If Target.Count <> 1 Then Exit Sub
     If Target.Cells(1, 1).Value <> "印刷" Then Exit Sub
     If MsgBox("よろしいですか？", vbOKCancel, "印刷します") = vbOK Then
         PrintOut
     End If
 End Sub」
　
 になってますか？
 それ以上でも、それ以下でもダメです。
 確認してみてください。
 （キリキ）（〃⌒o⌒)b

シートの見出しを右クリック→コードの表示(Ｖ)をクリック→
「Microsoft Visual Basic-(フォルダー名）.XLS[デザイン]の画面がでてきます。
中央に
（フォルダー名）.XLS-Sheet32(コード)がでてきます。
そこに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     'If Target.Count <> 1 Then Exit Sub
     If Target.Cells(1, 1).Value <> "印刷" Then Exit Sub
     If MsgBox("よろしいですか？", vbOKCancel, "印刷します") = vbOK Then
         PrintOut
     End If
 End Sub
を貼り付け、その場で保存をし、×でとじました。
画面に戻り、印刷の入力したセルをクリックすると・・・ダブルクリックをした状態になります。
以上が私がやった手順です。

 こうなっているって事ですよね？

　
 なぜ出来ないのでしょうか？
 わかりませんね～＾＾；
　
 ためしに、どこかの空いているセル（結合なしの）に「印刷」と記入し
 クリックするとどうなりますでしょうか？
 また、他にマクロが入っているって事はないですよね？
　
 （キリキ）（〃⌒o⌒)b

 横から失礼します。

 試しに私も、キリキさんのコードを新規Excelにコピーし、保存後、再度開いてみましたが、問題なく処理が出来ます。

 ・・・もしかしてマクロが有効になっていない、という事はありませんでしょうか？
 ①ツール→マクロ→セキュリティで、セキュリティレベルが「中」ではなく「高」になっている。
 (Excelを開いた時に何もダイアログボックスが出ない場合)

 ②Excelを開いた時にダイアログボックスが出て、「マクロを無効にする」ボタンを押してしまっている。

 上記のいずれかを行っていないかどうかを御確認して下さい。
 (HT)

（キリキ）さん、（ＨＴ）さん、今やってみました！！！！！
無事にできましたｖ(≧▽≦)♪♪
[印刷]とゆうセルをクリックすると　「印刷します　よろしいですか」とゆう項目がでました★☆
原因は２つ。。。
１.　[印刷]と入力なのが、「印　刷」とスペースをいれていた。
２.　マクロが[中]ではなく[高]になっていた。
以上が原因だったみたいです。。。
ほんとに長いことありがとうございました。。おかげで勉強になりました。。
また困ったらお願いしますネ☆ﾞ

コメント返信：

[ 一覧(最新更新順) ]

[[20061021142253]] 『ハイパーリンクを使いたい』 ページの最後に飛ぶ

[[20061021142253]]　『ハイパーリンクを使いたい』　ページの最後に飛ぶ