OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

エクセルについて(セルから終了にする)

  • 困ってます
  • 質問No.187139
  • 閲覧数29
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 26% (10/38)

アイコンを使わず、セルをクリックすると保存・終了ができる・・・デスクトプにもどるこの設定の方法を教えてください。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

>セルをクリックすると保存・終了ができる・・・
どのセルをクリックした時に保存・終了するか分かりませんが、下記は『Sheet1』の『セル範囲A1:B2』をクリックした時に保存・終了ができるようにした例です。
ご参考に。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、表示→プロジェクトエクスプローラ でプロジェクトエクスプローラを表示し、そこのThisWorkbookをダブルクリックして、出てきたコードウインドウに下記マクロを貼り付けます。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
  '例)シート1をクリックしたら
  If Sh.Name = "Sheet1" Then
    '例)シート1の中のA1~B2の矩形範囲をクリックしたら
    If Not Intersect(Target, Range("A1:B2")) Is Nothing Then
      '保存・終了の確認
      If MsgBox("保存して終了します。", vbOKCancel, "確認") = vbCancel Then
        'キャンセルなので保存・終了はしない
        Exit Sub
      Else
        '保存・終了を行う時にメッセージを出さないようにする
        ActiveWorkbook.Saved = True
        'Bookを保存
        ActiveWorkbook.Save
        'Excelを終了
        Application.Quit
      End If
    End If
  End If
End Sub
お礼コメント
sena33

お礼率 26% (10/38)

教えて頂きありがとうございます。早速やってみたいと思いますが、ちょと難しいですか?とりあえずがんばってみます。
投稿日時 - 2001-12-19 10:30:23
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ