インターネット学習帳

この広告は30日以上更新がないブログに表示されております。
新規記事の投稿を行うことで、非表示にすることが可能です。

Sub Sample()

　Dim myRng1 As Range
　Dim myRng2 As Range

　　Set myRng1 = Range("A1") '任意のセル
　　Set myRng2 = myRng1.CurrentRegion

　　　myRng2.Select '確認用
　　　MsgBox myRng2.Address

　　Set myRng1 = Nothing 'オブジェクトの解放
　　Set myRng2 = Nothing

End Sub

Sub Sample()

　Dim myRng As Range
　Dim mySht As Worksheet

　　Set mySht = Worksheets(1) '任意のシート
　　Set myRng = mySht.UsedRange

　　　myRng.Select '確認用
　　　MsgBox myRng.Address

　　Set myRng = Nothing 'オブジェクトの解放
　　Set mySht = Nothing

End Sub

Sub Sample()

　Dim myRng As Range
　Dim myStr As String

　　myStr = "マウスでセル範囲を選択して、OKボタンを押してください"

　　On Error Resume Next
　　　Set myRng = Application.InputBox(myStr, Type:=8)
　　On Error GoTo 0

　　If myRng Is Nothing Then

　　　MsgBox "キャンセルされました"

　　Else

　　　myRng.Select '確認用
　　　MsgBox myRng.Address

　　End If

　　　Set myRng = Nothing 'オブジェクトの解放

End Sub

Sub Sample()

　Dim myRng As Range

　　On Error Resume Next
　　　Set myRng = ActiveCell
　　On Error GoTo 0

　　If myRng Is Nothing Then

　　　MsgBox "ActiveCellが取得できません"

　　Else

　　　MsgBox myRng.Address

　　End If

　　Set myRng = Nothing 'オブジェクトの解放

End Sub

Sub Sample()

　　Dim myRng As Range

　　If TypeName(Selection) = "Range" Then

　　　Set myRng = Selection
　　　MsgBox myRng.Address

　　Else

　　　MsgBox "セルが選択されていません"

　　End If

　Set myRng = Nothing 'オブジェクトの解放

End Sub

リストを作成したいシートを一番左側に置き、アクティブにした状態で実行します。

　Sub sample()

　　Dim i

　　For i = 2 To Sheets.Count
　　　Cells(i, 1) = Sheets(i).Name
　　Next i

　End Sub

ExcelからWebページへの自動入力

便利アイテムのコンテナを活用したデザイン

アクションボタンをつける