Simple
Sand
Samples
プログラミング言語サンプル集
TOPへ
Hello World!(各言語のTOP)
(正規表現)正規表現を使う
(ファイル)カレントディレクトリ取得
(ファイル)ディレクトリ存在チェック
(ファイル)ディレクトリのファイル一覧
(日付時刻)今日の日付を得る
(日付時刻)現在の時刻を得る
(日付時刻)日付と時刻を得る
乱数を使う
(RDBMS)MySQLへ接続する
(RDBMS)MDB(MSAccess)へ接続
(MsgBox)MsgBoxを使う
(Excel)Excelを起動する
(Excel)ブックを保存
(Excel)ブックを開く
(Excel)ブックを複数開く
(Excel)シートを追加する(末尾)
(Excel)シートを追加する(先頭)
(Excel)セルに値を設定する
(Excel)セルの前景色を設定する
(Excel)セルの背景色を設定する
(Excel)コメントオブジェクトを使う
(Excel)罫線を引く
(Excel)罫線の色や太さを変更する
(Excel)図形作成
(Excel)タイミングチャート作成

説明のないとってもシンプルなサンプルプログラム集
COBOL awk C言語 D言語 GO言語 Lua Vim
bash Perl Gauche Clojure CLISP EmacsLisp VimScript
tcsh Ruby Groovy Java C# VBScript JavaScript
Io言語 Python Erlang Scala VB.NET Excel/VBA PHP
Tcl Haskell OCaml PowerShell Windows Unix/Linux

VBS > (Excel)データからタイミングチャートを作成する

    excel-timingdiagram.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
dim src(3)
src(0) = "001011000101101100000"
src(1) = "001111110111111111111"
src(2) = "101010101010101010101"
With CreateObject("Excel.Application")
.Visible = True
.Workbooks.Add
.ActiveWindow.DisplayGridLines = False
' 罫線見えにくいため枠線を消す
.Columns("B:U").ColumnWidth = 2.0
.Rows("2").RowHeight = 40.0
.Rows("4").RowHeight = 40.0
.Rows("6").RowHeight = 40.0
For y = 0 To 2
pre_level = "_"
For x = 1 To Len(src(y))
now_level = Mid(src(y),x,1)
With .Cells(y*2+2,x)
If now_level = "1" Then
.Borders(8).LineStyle = 1
'8=xlEdgeTop '1=xlContinuous
End If
If now_level = "0" Then
.Borders(9).LineStyle = 1
'9=xlEdgeBottom '1=xlContinuous
End If
If now_level <> pre_level Then
If pre_level <> "_" Then
.Borders(7).LineStyle = 1
'7=xlEdgeLeft '1=xlContinuous
End If
End If
End With
pre_level = now_level
Next
Next
End With

    ↓    excel-timingdiagram.vbsをダブルクリック