選択セル値をダブルクリックでテキストに置き換え

※ニッチな作業用（自分だけかな。。。）

---------------------------------------------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Tage As Range, Cancel As Boolean)
ActiveSheet.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=Tage.Offset(, 1).Left, Top:=Tage.Offset(, 1).Top, _
Width:=Tage.Offset(, 1).Width, Height:=Tage.Offset(, 1).Height).Select

With Selection
.Characters.Text = Tage
.AutoSize = True
End With
Tage.ClearContents
End Sub

 

シート名の一覧作成

Sub シート一覧作成()

Dim wsht As Worksheet, i As Integer
For Each wsht In Worksheets
　i = i + 1
　Range("A" & i).Value = wsht.Name
Next wsht

End Sub

VBA速度UPの呪文を入れて改善♪

 

Sub マクロサンプル_VBA速度UP()

'最初
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
.DisplayAlert = False
End With

’自分の作った計算式等々

'最後
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.CutCopyMode = False
End With

End Sub

BMIツール作成

自分のBMI値知る為に、忘備録用として。。。

File名:BMI.vbs
※vbs text中身は下記の通り。

H = InputBox("身長（㎝）を入力してください。")
W = InputBox("体重（Kg）を入力してください。")
H = H/100
BMI = W/H/H
MsgBox Round(BMI,1), vbOKonly + vbInfomation, "あなたのBMIは？"