□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| オートSUMボタン | |
|---|---|
[195234] オートSUMボタン- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ちわわ -(2022/09/08(14:40)) □U R L/ 出来ないと思われますが、質問させてください。 VBAでオートSUMボタンを押すと同じ作業はできませんか？ 範囲が指定できないので。 宜しくお願い致します。 office2016 | |
[195235] Re[1]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ 面倒耕太郎 -(2022/09/08(15:20)) □U R L/ ここ十数年使った事ないな。 =sum( と書いてる。 難しいスペルでもないし。 | |
[195236] Re[2]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ ちわわ -(2022/09/08(15:32)) □U R L/ 面倒耕太郎様 私も下記でやっていますが、イマイチでして。 ActiveCell.Value = "=SUM" 何か良い方法ないですかね？ | |
[195237] Re[3]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/09/08(16:40)) □U R L/ ＞VBAでオートSUMボタンを押すと同じ作業 使用する場面がわからないのですが？ オートSUMボタンを押すのでは何が問題ですか。 改善したい点は何なのかということです。 | |
[195238] Re[4]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2022/09/08(20:04)) □U R L/ ショートカットキーを変更したいというのなら、
Sub 確定オートsum() 'Alt + Shift + = に登録
Application.OnKey "%+=", "autosum" 'オートＳＵＭを確定
End Sub
Sub オートsum()
Application.OnKey "%+=" '通常のオートＳＵＭ（範囲入力待ち）
End Sub
Private Sub autosum()
Application.CommandBars.ExecuteMso "AutoSum"
Application.CommandBars.ExecuteMso "AutoSum"
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195239] Re[5]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ ちわわ -(2022/09/09(09:11)) □U R L/ マナ様
複数のPCで行うので、タブ等は弄りたくはなく、
作業として、「タブの変更」して、「SUMボタンを押す」作業を簡略化したいです。
と言う趣旨です。
kazuo様
次の方法ができればいいのですが、動きません。
Sub オートsum()
Application.OnKey "%+=" '通常のオートＳＵＭ（範囲入力待ち）
End Sub
宜しくお願い致します。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195240] Re[6]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2022/09/09(12:15)) □U R L/ >複数のPCで行うので、タブ等は弄りたくはなく 基本でショートカットキーに登録あるのでそれじゃダメですか？ ３keyを押すのが大変なら、Ctrl+kにでも登録したらどうですか？ >「タブの変更」して、「SUMボタンを押す」作業を簡略化 それでは、そのマクロをどのように起動させますか？ セルの右クリックメニューに登録するとか、 セルの右クリックやダブルクリックで動作するではだめですか？ コード内にコメントを記載してありますので、それを読み取って応用してください。 初めてのプロパティやメソッドが紹介されたら、ヘルプを起動して勉強してください。 | |
[195241] Re[7]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ ちわわ -(2022/09/09(14:05)) □U R L/ kazuo様 複数の方が行うのと、それ以外にも自動化できないところが多々ありまして、 条件が多いので、できれば、割り当ては避けたいのです。 Application.CommandBars.ExecuteMso "AutoSum"できそうですので、 こちらのVBAを使わせて頂きます。 Application.CommandBars.ExecuteMso "AutoSum"を実行後に範囲を選択して、 エンターキーで確定後に、次のマクロを実行したいのですが、 そちらはどのようにすればいいのでしょうか？ Call AAA（上記マクロ） ActiveCell.Offset(0, -1).Select Call kansucopy ↑としましても、上記エンターキー確定されない状態で次のマクロが実行されてしまいます。 何かよい方法はありますか？ 宜しくお願い致します。 | |
[195242] Re[8]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/09/09(18:52)) □U R L/ やはり使い道が理解できません。 ＞Application.CommandBars.ExecuteMso "AutoSum"を実行後に範囲を選択して、 １）途中で、人の操作を挟むなら、Inputboxで範囲指定でよいのでは？ ２）そもそも合計する範囲をマクロで求めることはできないのでしょうか。 | |
[195243] Re[9]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ ちわわ -(2022/09/09(22:36)) □U R L/ 私もどうやっていいのか、どう説明していいのかが整理できなくてすみません。 合計する範囲が定まらないので、どうやっていいのかわかりません。 違うやり方で行うとしたら、 A5セルからA12セルをドラッグアンドドロップ（これはマニュアルで選択）します。 ここからVBAでA13セルに「=SUM(A5:A12)」と入力したいです。 こういう方法はできませんか？ 宜しくお願い致します。 | |
[195244] Re[10]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/09/09(23:01)) □U R L/ 低アウト次第で、A5:A12を、SpecialCellsメソッドで求めることも可能？
Sub test()
Dim r As Range
On Error Resume Next
Set r = Application.InputBox("範囲選択", Type:=8)
On Error GoTo 0
If r Is Nothing Then Exit Sub
Range("A13").Formula = "=sum(" & r.Address(0, 0) & ")"
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195245] Re[11]: オートSUMボタン- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/09/09(23:22)) □U R L/ さすがに、これでよいってことはないですね。 Range("A13").FormulaR1C1 = "=sum(r5c:r[-1]c)" | |
[195246] Re[12]: オートSUMボタン- ■  / 記事引用/メール受信=OFF■
□投稿者/ ちわわ -(2022/09/10(08:39)) □U R L/ マナ様
ありがとうございました。
思っていたものができました。
範囲選択とSUM関数セルが指定できない（シートの中でまばらなので）ので、
どうしていいのかわかりませんでした。
InputBoxも試してはみたものの思うようにできませんでした。
やっと次に進めます。
Sub test()
Dim r As Range
On Error Resume Next
Set r = Application.InputBox("範囲選択", Type:=8)
On Error GoTo 0
If r Is Nothing Then Exit Sub
ActiveCell.Formula = "=sum(" & r.Address(0, 0) & ")"
End Sub
助かりました。感謝です。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |