「VBScript」フォルダを作成するサンプル
サンプルコード
Dim fsobj
Dim cft
Set fsobj = WScript.CreateObject(“Scripting.FileSystemObject”)
「VBScript」ファイルを作成するサンプル
サンプルコード
Dim wsc
Dim cft
Set wsc = WScript.CreateObject(“Scripting.FileSystemObject”)
Se ...
「VBA」列挙型(Enum)の定数に値を設定するサンプル
書式
public Enum 列挙型名
メンバ定数 =値
サンプルコード
「VBScript」コンピュータ名を取得するサンプル
サンプルコード
Dim cft
Set cft = WScript.CreateObject(“WScript.Network”)
WScript.Echo “パソコン名:& ...
「VBA」アクティブセルの座標や行や列の位置を取得する
書式
オブジェクト.Address(, , , , )
Addressプロパティは、Rangeオブジェクトのプロパティとして使用します。
1.RowAbsolute
行アドレスの取得を絶対参照か相対参照 ...
[VBScript]配列の値を変更するサンプル
使用例
Dim cftcft = Array("A001", "B002", "C003","D004")cft(2) = "kkkk"WScript.Echo cft(0)WScript.Echo cft(1) WScript ...「VBScript」Array()メソッドで配列を作成するサンプル
書式
Array(要素1,要素2,xxx)
格納されたバリアント型 (Variant) の値を返します。
使用例
「VBScript」乱数を返すサンプルコード
1.0~1の間の値の乱数
Dim cft
Randomize
cft = rnd
wscript.echo cft
2.100~150までの値の乱数返す
Dim cft ...
「VBScript」ファイルの更新日時を取得するサンプル
サンプルコード
Dim fso
Dim fdr
Set fso = WScript.CreateObject(“Scripting.FileSystemObject”)
Se ...
「VBScript入門」Right関数を使うサンプル
説明
Right(strString, mojiCnt)
文字列の右端から指定された文字数分の文字列を返します。
使用例
「VBScript入門」Replace 関数で一部文字列を置換するサンプル
説明
Replace(strString, strFind, strRep )
strString:置換元文字列
strFind:検索文字列
strRep:置換先文字列
posStart:開始位 ...
「Excel VBA」メッセージボックスのサンプル
1.中止、再試行、無視ボタン
Sub funcA() Dim val As Integer val = MsgBox("hello", vbAbortRetryIgnore + vbInformation) Debug.Prin ...「Excel VBA」メッセージボックスのタイトル、ボタンを表示するサンプル
1.メッセージボックスのタイトル
Sub funcA() MsgBox("hello", vbOKCancel + vbInformation, "test title")End Sub2.はい、いいえボタンを表示 ...
「VBA」Shapes.AddPictureで画像ファイルをシートに追加するサンプル
構文
式.AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
パラメーター
1.FileName :Str ...
「VBScript」ユーザ名を取得するサンプル
サンプルコード
Dim sn
Set sn = WScript.CreateObject(“WScript.Network”)
WScript.Echo “user name ...
「VBA」GetOpenFilenameでファイルダイアログを開くサンプル
構文
expression.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
パラメーター
1.FileFilt ...
「VBScript」Attributesでファイルが読み取り専用かどうかを判定する
サンプルコード
Dim fso
Dim gf
Dim result
Set fso = WScript.CreateObject(“Scripting.FileSystemObject& ...
「VBScript」指定ファイルが隠しファイルかどうかを判定するサンプル
サンプルコード
Dim fso
Dim gf
Dim result
Set fso = WScript.CreateObject(“Scripting.FileSystemObject& ...