Excel VBAの覚書 | ワクガンス

パフォーマンス向上

	■描画モードをOFFにしてからONにする。
	Application.ScreenUpdating = False
	～セルへの書き込み処理～
	Application.ScreenUpdating = True
	
	■高速処理となる方法。列にデータを格納する
	　　Range(Cells(Row, 1), Cells(Row, MAXCOL)).Select
	　　Selection.Value = aryVal
	

参考サイト


2007-3-13

シートのロックと解除

	ActiveSheet.Unprotect 'シートロック解除

	ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False 'シートをロックする。
	

2011-3-29

セルとRangeについて

	Dim rng As Range
	Set rng = Range(Cells(1, 2), Cells(2, 2))

	'異なるシートの場合
	With Worksheets("Sheet1")
	  .Range(.Cells(GYO1, COL1), .Cells(GYO2, COL2)).Value = 1
	End With
	

2011-2-22

Excel2010で保存するときにいちいちでるメッセージを出ないようにする。

エクセル「ファイル」タブ＞「オプション」＞「セキュリティーセンター」＞「保存時にファイルのプロパティから個人情報を削除する」
Excel2007の場合
エクセルの「ツール」＞「オプション」＞「セキュリティ」タブ「保存時にファイルのプロパティから個人情報を削除する」


2011-3-18

フィールド名などが付属した多機能なリスト

フィールド名などが付属した多機能なリストはListViewコントロールを用いる。


2011-3-18

全角を半角に変換する

	StrConv("１２３４ＡＢＣ", vbNarrow)

2011-3-18

正規表現の使い方

参照設定（R）を選択
「Microsoft VBScript Regular Expressions 5.5」にチェックを付ける（下図参照）

	Dim re As RegExp
	Set re = New RegExp
	re.Pattern = "[A-Za-z]+" 'アルファベットの連続を表す正規表現
	MsgBox re.Replace("私はMikeです。", "マイク") '私はマイクです。

	Executeメソッドの使用例（その1）
	Dim re As RegExp
	Dim mc As MatchCollection
	Dim m As Match
	Dim i As Integer
	
	Set re = New RegExp
	re.Pattern = "[A-Z]+" 'アルファベット（大文字）の連続を表す正規表現
	re.Global = True	  '複数マッチを有効にする
	Set mc = re.Execute("ABC DEFG HIJKL MNOPQR STUVWXY")
	MsgBox "mc.Count = " & mc.Count 'mc.Count = 5
	For i = 0 To mc.Count - 1
		Set m = mc.Item(i)
		MsgBox "FirstIndex = " & m.FirstIndex & " Length = " _
							   & m.Length & " Value = " & m.Value
	Next i
	

参考


2010-12-24

xxx