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

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

Excel/VBA > (Excel)罫線を引く

excel-line.bas

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 Sub test()
	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 Sub

Excel/VBA > (Excel)罫線を引く

excel-line.bas

↓ ExcelからVBE(ALT+F11)を開き

↓ excel-line.basをインポート(CTRL+M)

↓ VBEを閉じて(ALT+Q)、マクロ実行(ALT+F8)