運営会社 - お問い合せ - 広告掲載 - プライバシーポリシー - サイトマップ - リスキリング支援 All rights reserved by Odyssey Communications Inc. Microsoft、Windows、およびMicrosoft Officeは Microsoft Corporationの米国及びその他の国における登録商標です。 また、その他システム名、プログラム名などは、一般に各社の登録商標です。
アクティブシートの使われているセルに表示されている値のみ新規ブックに貼り付けます。 Sub Sample() ActiveSheet.UsedRange.Select Selection.Copy Workbooks.Add Range("A1").Select Selection.PasteSpecial Paste:=xlValues End Sub
プロシージャを他のプロシージャから呼び出して使用する場合に、指定する引数が呼出す毎に異なる場合、ParamArrayキーワードを用いて引数を指定します。 ParamArrayキーワードを用いた引数はVariant型配列として扱われ、データ型の宣言は出来ません。したがって、宣言は・・・ Sub/Function (ParamArray 引数名()) As ・・・ のようになります。 以下のサンプルではFunctionプロシージャ”MySum”に任意の数の引数を与え、すべてを合計した値を返します。”TEST”プロシージャを実行してください。 (サンプル) Function MySum(ParamArray MyVal()) As Currency Dim i As Long Dim Amount As Currency For i = LBound(MyVal) To UBound(MyVal
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く