Sub pastepaste() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub Sub main() Dim myCBCtrl As CommandBarButton Set myCBCtrl = Application.CommandBars("Cell").Controls.Add(Type:=msoC…

regexpの参照設定は「Microsoft VBScript Regular Expressions 5.5」

特殊文字 出力される文字 \b バックスペース \f 改ページ(フォームフィード) \n 改行(LF) \r 復帰(CR:キャリッジリターン) \t タブ \\ 通貨記号(またはバックスラッシュ) \" or \' 文字としてのクォーテーションマーク \uXXXX ユニコード文字 (JavaScript1.3…

Function GetFolder(str As Variant) '２．Split関数でファイル名を操作（XL2000のみ） 'Dim Var As Variant 'Var = Split(str, "\") '\マークを区切り文字にして配列化 'Dim i As Integer 'Dim fPath As String 'fPath = "" 'For i = 0 To UBound(Var) - 1 …

MS-Gothic MS-PGothic MS-PMincho MS-Mincho HGMaruGothicMPRO

http://support.microsoft.com/kb/829072/ja Office 2003 でハイパーリンク警告メッセージを無効にする方法

Delegate Sub delegateSet(ByVal str As String) 'いつものスレッドからの実行 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SuperLoop() End Sub '新しいスレッドからの実行 Private Sub…

ProgressBar1.Style = ProgressBarStyle.Marquee

Imports System.Xml Sub Main() Dim item As New XmlDocument() item.Load("C:\Sample\link.xml") Dim cbase As XmlElement = item.DocumentElement For i As Integer = 0 To cbase.ChildNodes.Count - 1 CType(cbase.ChildNodes(i), XmlElement).SetAttribu…