No.8ベストアンサー
- 回答日時:
選択範囲を変えても前のセル範囲の計算結果が残っている、という
ことでしたら、ショートカットキーではなく、シートの
SelectionChangeイベント
で行うといいと思います。
あるいは、WaitやAPIのSleepで指定時間経過後にステータスバー
の表示をクリア、でもいいですね。
でも、連続してショートカットキーで動作させたときにどういう影響が
出るかは分かりません。
SelectionChangeイベント
でステータスバーの表示をクリア、がいいかもしれません。
No.7
- 回答日時:
>ご教示いただいた内容を貼り付けてみましたが、ちょっとイメージしていたのと違って
>「ずっと表示し続ける」という感じになるのでしょうか。
オートカルクも選択セルに数値が入っていたら、表示されたままになってますが。
あなたがイメージされているのがどういうものか提示しないと回答のしようがありません。
>ためしに適当な文字を空白のセル込みで10個入力し(11行にまたがって)VBE画面から実行をしてみましたが 「選択個数」のみ「11」を表示され
>他は「0」のままとなっております。
数値が選択範囲にないのであれば、選択個数以外は「0」になるのは当然です。
数値以外は足したり平均を出したり出来ないので。エクセル以前に算数、数学の世界です。
すみません。
何度もありがとう御座います。
ご教示いただいた内容を元にユーザーフォームで解決しようと考え中です。
ユーザーフォーム挑戦中にもまたここで質問すると思いますので
その際には またお願いします。
ありがとう御座いました。
No.6
- 回答日時:
#5の修正
×マスス・シュミレーションでキーボードで...KeyPointer
~~~~~~
マウス・シュミレーション
↓
http://www.vector.co.jp/magazine/softnews/020320 …
キーボードのみでほとんどのマウス操作を可能にするユーティリティ
Excelというよりも、Windowsでは、マウスで行うものは、マウス処理の延長というところかもしれません。他に、キーボードマクロというものがありますが、それは、位置の問題が出てきます。
ご回答ありがとう御座います。
質問後も色々調べたのですが、やはり そういうのは無いようですね。。。
ベクターのページも見ましたが この方も「無いから作った」と言ってますね。
面倒ですがユーザーフォームで解決しようかと考え中です。
ありがとう御座いました!!
No.5
- 回答日時:
こんばんは。
インターネット検索してみますと、「オートカルクのショートカットはありませんか?(英語)」という質問が出てきます。その受け答えをみると、残念ながら、そのようなキー設定はありませんというものだけですね。
マニアの日本人ですと、ハックして操作する人もいるのかもしれませんが、それは、私は、どうかと思います。
もともと、マスス・シュミレーションでキーボードで再現すれば可能ですが、それは、興味があれば試してみてもよいと思います。(例えば、KeyPointerというものがあります。)
No.4
- 回答日時:
先ほどは全部表示するものをご提示しましたが、もちろん合計だけ、平均だけ、
というのも可能です。
ショートカットキー一覧で使われていないショートカットキー(Ctrl+Lのような)
を探して割り付けます。
なお、AltキーやCtrlキーはVBAでは%とか^とかになりますので注意が必要です。
VBAヘルプで
SendKeysメソッド
を調べてみてください。そこに各キーの記述方法が載っています。
No.3
- 回答日時:
>(出来れば他の方法がいいのですが、ご存知ありませんか。
。)ネットでエクセル関係のショートカットキー関連のHPをいくつか見てみましたが、
それらしきものは見当たりませんでした。
いちおう、ユーザー定義のショートカットキーの設定方法を書いておきます。
↓は
CtrlキーとLキーを同時に押したときに起動します。
'ThisWorkBookモジュール
Private Sub Workbook_Activate()
Application.OnKey "^l", "atcalc"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "^l"
End Sub
Private Sub Workbook_Open()
Application.OnKey "^l", "atcalc"
End Sub
'標準モジュール
Sub atcalc()
Dim msgstr As String
Dim numcnt As Long
Dim fomlcnt As Long
Dim c As Range
Dim kei As Variant
Dim avrgstr As String
numcnt = 0
fomlcnt = 0
kei = 0
For Each c In Selection
If IsNumeric(c.Value) = True Then
If c.Value <> "" Then
kei = kei + c.Value
numcnt = numcnt + 1
If c.HasFormula = True Then fomlcnt = fomlcnt + 1
End If
End If
Next c
If numcnt = 0 Then
avrgstr = "-"
Else
avrgstr = kei / numcnt
End If
msgstr = "選択個数:" & Selection.Cells.Count & "/" & _
"数値個数:" & numcnt & "/" & _
"数値個数(数式除く):" & numcnt - fomlcnt & "/" & _
"選択合計:" & kei & "/" & _
"選択平均:" & avrgstr & "/" & _
"選択最大:" & WorksheetFunction.Max(Selection.Cells) & "/" & _
"選択最小:" & WorksheetFunction.Min(Selection.Cells)
Application.StatusBar = msgstr
End Sub
何度もありがとう御座います。
ご教示いただいた内容を貼り付けてみましたが、ちょっとイメージしていたのと違って
「ずっと表示し続ける」という感じになるのでしょうか。
ためしに適当な文字を空白のセル込みで10個入力し(11行にまたがって)VBE画面から実行をしてみましたが 「選択個数」のみ「11」を表示され
他は「0」のままとなっております。
どの辺を修正すればよろしいのでしょうか。
お手数お掛けしますが、宜しくお願い致します。
No.2
- 回答日時:
#1です。
間違いがありました。>If c.HasFormula = False Then fomlcnt = fomlcnt + 1
↓に修正です。
If c.HasFormula = True Then fomlcnt = fomlcnt + 1
ご回答ありがとう御座います。
やはりVBAに不可能はないみたいですね。
ご回答いただいた内容を拝見してマウスを使ってマクロの記録で
ショートカットを作ろうとしたのですが出来ませんでした。
&の間を任意で好きな文字に変更すればOKでしょうか。
(出来れば他の方法がいいのですが、ご存知ありませんか。。)
No.1
- 回答日時:
キーボードで切り替え、ではないですが・・・。
ステータスバーの表示を自作する、ではだめですか?
↓はシートモジュールに記述します。
表示がごちゃごちゃしてみにくいですが。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim msgstr As String
Dim numcnt As Long
Dim fomlcnt As Long
Dim c As Range
Dim kei As Variant
Dim avrgstr As String
numcnt = 0
fomlcnt = 0
kei = 0
For Each c In Selection
If IsNumeric(c.Value) = True Then
If c.Value <> "" Then
kei = kei + c.Value
numcnt = numcnt + 1
If c.HasFormula = False Then fomlcnt = fomlcnt + 1
End If
End If
Next c
If numcnt = 0 Then
avrgstr = "-"
Else
avrgstr = kei / numcnt
End If
msgstr = "選択個数:" & Selection.Cells.Count & "/" & _
"数値個数:" & numcnt & "/" & _
"数値個数(数式除く):" & numcnt - fomlcnt & "/" & _
"選択合計:" & kei & "/" & _
"選択平均:" & avrgstr & "/" & _
"選択最大:" & WorksheetFunction.Max(Selection.Cells) & "/" & _
"選択最小:" & WorksheetFunction.Min(Selection.Cells)
Application.StatusBar = msgstr
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- マウス・キーボード macからリモートデスクトップでwindowsに接続した際のキーボード配列 3 2023/07/10 08:40
- Excel(エクセル) 結合セルのソートについて 5 2022/04/22 11:57
- マウス・キーボード 不良表示キー(キーボード) 3 2022/04/27 10:53
- マウス・キーボード real vnc viewer で遠隔先で操作が出来ない。 2 2023/07/24 15:00
- Excel(エクセル) iphonからone driveに保存してあるExcelを閲覧すると表示の仕方がちがうデータ 2 2022/12/21 13:51
- その他(パソコン・周辺機器) PCの再生デバイス切り替え、ミュート、音量調整可能なデバイス機器があれば教えて下さい 1 2023/02/01 13:10
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Windows 10 なぜか全角カタカナ入力になってしまう (USキーボード、「Alt」 + 「`」) 1 2022/06/29 13:22
- その他(パソコン・スマホ・電化製品) ios専用のbluetooth機器をandroidで接続する方法 4 2023/01/09 16:50
- Excel(エクセル) 全角文字「ヴ」の半角文字「ヴ」への変換方法について 3 2022/11/05 12:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字の色を変えるショートカッ...
-
パワーポイントのデザインの移...
-
F10が効きません・・・
-
Excelで指定行以降を非表示にす...
-
文字列の選択範囲が勝手に広が...
-
ご質問です。エクセルの表で、...
-
Excel-Vba Textbox選択時のカー...
-
WORDの塗りつぶし ショートカット
-
スマホでの文字削除方法で
-
wordで円を3つ書き、バランス...
-
選択が上手くできない
-
【エクセル】 スクロールバー...
-
windows8.1のエクスプローラで...
-
移動するとコピーしてしまう
-
カーソルが左に移動しないんです?
-
ペイント用法 白紙にもどすには?
-
IME2010での変換途中でのバック...
-
Windows10(Surface)でFnキー...
-
カーソルキーで文字間を移動し...
-
エクセルのカーソルの移動速度...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ご質問です。エクセルの表で、...
-
スマホでの文字削除方法で
-
パワーポイントのデザインの移...
-
文字の色を変えるショートカッ...
-
Excelで指定行以降を非表示にす...
-
文字列の選択範囲が勝手に広が...
-
フォルダ内のファイルを自由に...
-
wordで円を3つ書き、バランス...
-
カーソルキーで文字間を移動し...
-
ワードの文章の前後にカギカッ...
-
F10が効きません・・・
-
エクセルのカーソルの移動速度...
-
カーソルが左に移動しないんです?
-
移動するとコピーしてしまう
-
WORDの塗りつぶし ショートカット
-
Web上のプルダウンメニュー...
-
windows8.1のエクスプローラで...
-
フォントの色をしょっちゅう変...
-
選択が上手くできない
-
windows11のタスクバーをこの手...
おすすめ情報