• Python
• PHP
• JavaScript
• Ruby
• Go
• Java
• Kotlin
• Swift
• C
• C++
• C#
• HTML
• CSS
• PlainText
• Rust
• Markdown
• Shell
• R
• Lisp
• Perl
• Q#
• SQL
• Scala
• TypeScript
• VisualBasic
• ObjectiveC
• Arduino
• ALGOL
• AWK
• Brainfuck
• COBOL
• CoffeeScript
• D
• Delphi
• Erlang
• Fortran
• F#
• Haskell
• MATLAB
• Nim
• Ocaml
• Simula
• Skript
• Smalltalk
• Julia
• VBA

Enter code which you want to share 'ブックモジュール Option Explicit Private Sub Workbook_Open() Application.OnKey "+^{c}", "inTotal" Application.OnKey "+^{+}", "plusTotal" Application.OnKey "+^{v}", "outTotal" Application.OnKey "+^{*}", "clearTotal" End Sub '標準モジュール Option Explicit Dim stackSum As Variant Sub inTotal() stackSum = CDec(WorksheetFunction.Sum(Selection)) Call showStatusBer(stackSum) End Sub Sub plusTotal() stackSum = stackSum + CDec(WorksheetFunction.Sum(Selection)) Call showStatusBer(stackSum) End Sub Sub outTotal() Selection.Value = stackSum End Sub Sub clearTotal() stackSum = 0 Application.StatusBar = False End Sub Sub showStatusBer(ByVal num As Variant) Dim len小数部 As Long: len小数部 = Len(CStr(num)) - Len(CStr(Int(num))) - 1 If len小数部 <= 0 Then Application.StatusBar = "Total = " & Format(num, "#,##0") Else Application.StatusBar = "Total = " & Format(num, "#,##0." & String(len小数部, "0")) End If End Sub Select language

Python PHP JavaScript Ruby Go Java Kotlin Swift C C++ C# HTML CSS PlainText Rust Markdown Shell R Lisp Perl Q# SQL Scala TypeScript VisualBasic ObjectiveC Arduino ALGOL AWK Brainfuck COBOL CoffeeScript D Delphi Erlang Fortran F# Haskell MATLAB Nim Ocaml Simula Skript Smalltalk Julia VBA

Check to hide your code on timeline Preferences Enter title Set tags Enter description about code Select license

No License Apache v2 GPL v2 MIT Mozilla Public v 2.0 LGPL v2.1 The BSD 3-Clause Artistic 2.0 GPL v3 LGPL v3 Affero GPL Public Domain Eclipse Public v1.0 BSD 2-Clause

ユーザー Submit