※ニッチな作業用（自分だけかな。。。） --------------------------------------------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Tage As Range, Cancel As Boolean)ActiveSheet.Shapes.AddTextbox( _Orientat…

Sub シート一覧作成() Dim wsht As Worksheet, i As IntegerFor Each wsht In Worksheets i = i + 1 Range("A" & i).Value = wsht.NameNext wsht End Sub

Sub マクロサンプル_VBA速度UP() '最初With Application.ScreenUpdating = False.EnableEvents = False.Calculation = xlCalculationManual.DisplayAlert = FalseEnd With ’自分の作った計算式等々 '最後With Application.ScreenUpdating = True.EnableEvent…

自分のBMI値知る為に、忘備録用として。。。 File名:BMI.vbs※vbs text中身は下記の通り。 H = InputBox("身長（㎝）を入力してください。")W = InputBox("体重（Kg）を入力してください。")H = H/100BMI = W/H/HMsgBox Round(BMI,1), vbOKonly + vbInfomatio…