Simple Sand Samples

プログラミング言語サンプル集

---

TOPへ

Hello World!(各言語のTOP)

(繰り返し)foreachを使う

サブルーチン(プロシージャ)

関数(メソッド)を使う

(計算)商と余りを求める

(計算)算術まるめ四捨五入

(計算)銀行まるめ四捨五入

(計算)小数点以下切り捨て

(計算)小数点以下切り上げ

(計算)べき乗を計算する

(変換)10進数->16進数

(変換)10進数->8進数

(文字列)文字列を連結する

(文字列)小文字->大文字 変換

(文字列)大文字->小文字 変換

(文字列)文字列の長さを得る

(文字列)文字列を左右反転

(文字列)文字列を置換する

(文字列)文字列を置換(初回マッチのみ)

(文字列)10進文字列->数値 変換

(文字列)16進文字列->数値 変換

(文字列)文字列の一部を取り出す

(文字列)文字列を分割する

(文字列)一文字毎に分割する

(連想配列)連想配列(辞書)を使う

(連想配列)連想配列(辞書)応用例

(テキスト)ファイル読み込み

(テキスト)ファイル書き込み

(テキスト)列挙した数の合計を求める

(ファイル)カレントディレクトリ取得

(ファイル)ディレクトリのファイル一覧

(日付時刻)現在の時刻を得る

(日付時刻)日付と時刻を得る

乱数を使う

(MsgBox)MsgBoxを使う

(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

Excel/VBA > (Dictionary)連想配列(辞書)の応用例

    hash-sample.bas

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
Sub test()
	Set dict = CreateObject("Scripting.Dictionary")
	With Sheets(1)
	For y = 1 To 10
		no = .Cells(y, 1)
		For x = 2 To 10
			tmpkey = .Cells(y, x)
			If tmpkey <> "" Then
				If Not dict.Exists(tmpkey) Then
					dict.Add tmpkey, no
				Else
					dict(tmpkey) _
					= dict(tmpkey) & "," & no
				End If
			End If
		Next
		
	Next
	
	y = 10
	For Each m In dict.keys
		.Cells(y , 1) = m
		arr = Split(dict(m), ",")
		x = 2
		For Each xm In arr
			.Cells(y , x) = xm
			x = x + 1
		Next
		y = y + 1
	Next
	End With
End Sub
   

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

    ↓    hash-sample.basをインポート(CTRL+M)

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