説明のないとってもシンプルなサンプルプログラム集

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-line.vbs

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 With CreateObject("Excel.Application")
	.Visible = True
	.Workbooks.Add
	.ActiveWindow.DisplayGridLines = False	' 罫線見えにくいため枠線を消す
	With .Range("B2:D4")
		.Borders(7).LineStyle = 1	'7=xlEdgeLeft '1=xlContinuous
		.Borders(8).LineStyle = 1	'8=xlEdgeTop '1=xlContinuous
		.Borders(9).LineStyle = 1	'9=xlEdgeBottom '1=xlContinuous
		.Borders(10).LineStyle = 1	'10=xlEdgeRight '1=xlContinuous
	End With
	With .Range("B6:D8")
		.Borders(11).LineStyle = 1	'11=xlInsideVertical '1=xlContinuous
		.Borders(12).LineStyle = 1	'12=xlInsideHorizontal '1=xlContinuous
	End With
End With

VBS > (Excel)罫線を引く

excel-line.vbs

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