VBAJapanese.docVIP

Sub テスト() Dim fname As String fname = Application.GetOpenFilename( _ Title:=売上ファイルの選択) If fname False Then MsgBox 選択したファイルは fname です Workbooks.Open filename:=fname End If End Sub Sub テスト() Dim book1 As Workbook Dim str As String Workbooks.Open C:￥excelsample￥成績.xls Set book1 = Workbooks(成績.xls) str = book1.Worksheets(Sheet1).Range(B2).Value MsgBox str End Sub Sub テスト() Workbooks.Open C:￥excelsample￥2005年成績.xls Workbooks.Open C:￥excelsample￥2006年成績.xls Workbooks(2005年成績.xls).Activate End Sub Dim sheet1 As Worksheet Set sheet1 = Worksheets(1) sheet1.Visible = False Sub テスト() Dim sheet1 As Worksheet Set sheet1 = Worksheets(2) sheet1.Range(A1).Value = Test Worksheets(Sheet3).name = シート3 End Sub Sub テスト() Dim sheet1 As Worksheet Set sheet1 = Worksheets(2) sheet1.Activate End Sub Sub テスト() Worksheets(1).Copy After:=Worksheets(Sheet2) End Sub Dim sheet1 As Worksheet Set sheet1 = Worksheets(1) sheet1.Move Before:=Worksheets(Sheet2) Sub テスト() Worksheets.Add Before:=Worksheets(1) Worksheets.Add After:=Worksheets(Sheet2), count:=2 End Sub Sub テスト() With Range(B2) .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous End With With Range(B4:D7) .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous End With End Sub Sub テスト() Dim border1 As Borders Set border1 = Range(B2).Borders border1.LineStyle = xlContinuous border1.Weight = xlMedium border1.ColorIndex = 3 Range(B4:D7).Borders.LineStyle = xlContinuous End Sub 定数罫線の種類xlContinuous実線(細)xlDa