SE_TIPS

システムエンジニアのオボエガキ

tracert

2006-03-22 10:19:53 | oracle
tracertでは、TCP/IPプロトコルにおけるTTL(Time To Live)を使って途中のルータのIPアドレスを求めている

詳細









VBAマクロ シート名の抽出

2006-03-09 16:04:17 | vsisualbasic
EXCEL内に多数のシートを作成した場合
シートの一覧を抽出しメニューを作成する

'サンプルソース

Private Sub CommandButton1_Click()

Dim objSheet As Object
Dim intLoop As Integer

intLoop = ActiveCell.Row

For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Name
intLoop = intLoop + 1
Next

End Sub

三井住友銀行グループのプロミス