□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[12]: オートSUMボタン

    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195245] Re[11]: オートSUMボタン-

    ■記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/09/09(23:22))
    □U R L/

      さすがに、これでよいってことはないですね。

      Range("A13").FormulaR1C1 = "=sum(r5c:r[-1]c)"



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195243] Re[9]: オートSUMボタン-

    ■記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/09/09(22:36))
    □U R L/

      私もどうやっていいのか、どう説明していいのかが整理できなくてすみません。

      合計する範囲が定まらないので、どうやっていいのかわかりません。


      違うやり方で行うとしたら、
      A5セルからA12セルをドラッグアンドドロップ（これはマニュアルで選択）します。
      ここからVBAでA13セルに「=SUM(A5:A12)」と入力したいです。

      こういう方法はできませんか？

      宜しくお願い致します。





    [195242] Re[8]: オートSUMボタン-

    ■記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/09/09(18:52))
    □U R L/

      やはり使い道が理解できません。

      ＞Application.CommandBars.ExecuteMso "AutoSum"を実行後に範囲を選択して、

      １）途中で、人の操作を挟むなら、Inputboxで範囲指定でよいのでは？
      ２）そもそも合計する範囲をマクロで求めることはできないのでしょうか。





    [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

      ↑としましても、上記エンターキー確定されない状態で次のマクロが実行されてしまいます。

      何かよい方法はありますか？

      宜しくお願い致します。





    [195240] Re[6]: オートSUMボタン-

    ■記事引用/メール受信=OFF■

    □投稿者/ kazuo -(2022/09/09(12:15))
    □U R L/

      >複数のPCで行うので、タブ等は弄りたくはなく
      基本でショートカットキーに登録あるのでそれじゃダメですか？
      ３keyを押すのが大変なら、Ctrl+kにでも登録したらどうですか？

      >「タブの変更」して、「SUMボタンを押す」作業を簡略化
      それでは、そのマクロをどのように起動させますか？
      セルの右クリックメニューに登録するとか、
      セルの右クリックやダブルクリックで動作するではだめですか？

      コード内にコメントを記載してありますので、それを読み取って応用してください。
      初めてのプロパティやメソッドが紹介されたら、ヘルプを起動して勉強してください。



    [195239] Re[5]: オートSUMボタン-

    ■記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/09/09(09:11))
    □U R L/ 
      マナ様

複数のPCで行うので、タブ等は弄りたくはなく、
作業として、「タブの変更」して、「SUMボタンを押す」作業を簡略化したいです。
と言う趣旨です。

kazuo様
次の方法ができればいいのですが、動きません。
Sub オートsum()
    Application.OnKey "%+="            '通常のオートＳＵＭ（範囲入力待ち）
End Sub

宜しくお願い致します。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195237] Re[3]: オートSUMボタン-

    ■記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/09/08(16:40))
    □U R L/

      ＞VBAでオートSUMボタンを押すと同じ作業

      使用する場面がわからないのですが？
      オートSUMボタンを押すのでは何が問題ですか。
      改善したい点は何なのかということです。



    [195236] Re[2]: オートSUMボタン-

    ■記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/09/08(15:32))
    □U R L/

      面倒耕太郎様

      私も下記でやっていますが、イマイチでして。
      ActiveCell.Value = "=SUM"

      何か良い方法ないですかね？



    [195235] Re[1]: オートSUMボタン-

    ■記事引用/メール受信=OFF■

    □投稿者/ 面倒耕太郎 -(2022/09/08(15:20))
    □U R L/

      ここ十数年使った事ないな。
      =sum(
      と書いてる。
      難しいスペルでもないし。



    [195234] オートSUMボタン-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/09/08(14:40))
    □U R L/

      出来ないと思われますが、質問させてください。

      VBAでオートSUMボタンを押すと同じ作業はできませんか？

      範囲が指定できないので。

      宜しくお願い致します。


      office2016



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ