ExcelVba 時間表示のフォーマット

ユーザーフォームのテキストボックスの時間表示

セルＡ１の値（時間）をフォームのテキストボックスに反映する
UserForm1!textbox1 = Format(Cells(1, 1).Value, "h:mm")

時間の計算

T1 = TimeValue(時間1)
T2 = TimeValue(時間2)
T3 = T1-T2

目次へ

プリンタ選択ダイアログを表示

プリンタ選択ダイアログを表示

Application.Dialogs(xlDialogPrinterSetup).Show


目次へ

シートの選択

シートの選択
Worksheets("シート名").Select

次のシートへ
ActiveSheet.Next.Activate

目次へ

マクロを実行する方法（別のブックのマクロを呼び出す）

Excelでマクロを実行する便利な方法です

ＶＢＡを記述する専用のブックを一つ作成しほかのブックからマクロを呼び出します

サンプルとして下記のＶＢＡをモジュールに追加します
Public Sub テスト()
MsgBox "VBAテスト"
End Sub
マクロ有効ブックで保存します

マクロをリボンに追加します
ファイル
↓
オプション
↓
コマンドの選択でマクロを選択
↓
リボンのユーザー設定で任意のタブにＶＢＡテストを追加


マクロを登録するブックはウィンドウを表示しないにします（マクロを実行するたびに自動で開いてしまうので）
↓


別のブックを開き追加したリボンのボタンをクリックします
↓


サンプルマクロが実行されました
↓



ほかにマクロダイアログボックスから実行する方法もあります


目次へ

選択した複数セルの合計を取得します 結合セルも対応してます

選択した複数セルの合計を取得します　結合セルもOKです
Excel右下（ステータスバー）に表示される合計を取得します

合計したい複数のセルを選択して（連続していなくてもOKです）下のプロシージャーを実行します

Dim GetData　←モジュールの先頭に入力します（モジュールの宣言セクション）複数のモジュールから使用できます
別のモジュールから使用する時はPublic GetData にします

Public Sub 選択セル合計()
Dim 選択セル As Range
Set 選択セル = Selection
MsgBox "合計：" & WorksheetFunction.Sum(選択セル) 'メッセージボックスに合計を表示します
GetData = WorksheetFunction.Sum(選択セル)
End Sub

合計を選択しているセルに入力します

Public Sub 選択セル合計貼り付け()
ActiveCell = GetData
End Sub

目次へ