2017年01月16日

付録が今日も役立った!「日経ソフトウエア 2017年2月号」の特別付録2Excel VBAを使いこなす本

日経ソフトウエア 2017年2月号の特別付録2「Excel VBAを使いこなす本」は、
過去のExcel VBA徹底活用術などの連載を1冊にまとめているので、
かなりお得です。

市販のVBA書籍を買う前に、
1度試してみる価値が十分あります。

ところで、出先で活用できるように
メモっておきます。
明日、使いそうな気がする。

@Form表示させてもExcelシートで作業をしたい場合
Sub form_open()
UserForm1.Show vbModeless
End Sub

Aファイル一覧をつくりたい場合
Sub f_dir2()
Dim f_d As Object
Dim p As String
Dim f_n As String
Dim c As Long

Rows("2:" & Cells.Rows.Count).ClearContents

Set f_d = Application.FileDialog(msoFileDialogFolderPicker)

If f_d.Show = -1 Then
Cells(1, 2).Value = f_d.SelectedItems(1)

p = Cells(1, 2).Value
c = 2
f_n = Dir(p & "\*.*")

Do While f_n <> ""
Cells(c, 1).Value = f_n
c = c + 1
f_n = Dir()
Loop
End If
End Sub

B表作成
Sub Create_EC2_table()
Call WsAdd
Call CellFont
Call CellBorders
Call FillIn_ColumnName
End Sub

Sub WsAdd()
'
For Each w In Worksheets
If w.Name = "Sheet1" Then
w.Name = "Sheet1_old"
End If
Next

'Sheet1の直後に新規シートを1枚挿入
Worksheets.Add After:=Worksheets("2017年"), Count:=1
End Sub

Sub CellFont()
Range("A2..G2").Select
Selection.Font.Bold = True
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlHAlignCenter
Selection.Interior.Color = RGB(255, 255, 0)
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub

Sub CellBorders()
Range("A2..G8").Select
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
End Sub

Sub FillIn_ColumnName()
Cells(1, 1).Value = "更新日時:" & FormatDateTime(Now, vbLongDate) & Chr(13)
Cells(2, 1).Value = "No"
Cells(2, 2).Value = "Instance Name"
Cells(2, 3).Value = "Instance Type"
Cells(2, 4).Value = "IP Address"
Cells(2, 5).Value = "CPU"
Cells(2, 6).Value = "Memory"
Cells(2, 7).Value = "Hard Disk"

Columns("B").ColumnWidth = 16
Columns("C").ColumnWidth = 16
Columns("D").ColumnWidth = 16
Columns("E").ColumnWidth = 16
Columns("F").ColumnWidth = 16
Columns("G").ColumnWidth = 16
End Sub



◎日経ソフトウエア 2017年2月号:1,320円
日経ソフトウエア2017年2月号 -
日経ソフトウエア2017年2月号 -

◎日経ソフトウエア 2017年1月号:1,320円
日経ソフトウエア 2017年 1月号 [雑誌] -
日経ソフトウエア 2017年 1月号 [雑誌] -
posted by アンドレアス at 00:05| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。
この記事へのトラックバックURL
http://blog.seesaa.jp/tb/445955719
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック