東日本大震災の影響がいまだ続くなか、事業継続計画における、自社の情報システムの早急な災害対策策定や既存の対策の見直し、つまり「災害復旧計画」の見直しが求められている。サイオステクノロジー セールスコンサルティング部 担当部長の小野寺章氏が、「災害復旧計画」を、最も重要となる復旧時間や復旧したい過去データなどとともに検討項目を挙げて解説する。 事業継続計画（BCP）と災害復旧計画（DRP） 災害復旧計画（DRP）は事業継続計画（BCP）の一部であるので、BCPの策定や体制の構築が不可欠ではないか？という誤解に陥りがちだ。BCPに立脚したDRPを立案することが理想的なことは言うまでもないが、DRPは対象が情報システム＝コンピューターシステムであるということに着目すれば、DRPは単独で策定・実行することも可能となる。以下がそれらの定義である。 事業継続計画：BCP 「自然災害など不測の事態が発

「キー」と「値」がセットになっていて、「神奈川県」というキーで「横浜市」という値を検索できるような仕組みです。Dictionaryオブジェクトでは、こうした連想配列にデータ(キーと値のセット)を追加したり、検索したり、任意のキーがすでに存在しているかどうかを調べことなどができます。なお、連想配列では同じキーを登録できません。 Dictionaryオブジェクトを使って重複しないリストを作成するには、次のように考えます。 セルA2からセルA8まで順にデータを取得します 取得したデータが連想配列に登録されていなかったら登録します 取得したデータが連想配列に登録されていたら何もしません 流れはこんな感じです。さて登録するデータですが、連想配列では「キー」と「値」の二つが必要です。今回のケースでは「名前」データしかありません。「名前」を「キー」にするとして、「値」には何を登録したらいいのでしょう。

Sub Search() Dim lngYLine As Long Dim intXLine As Integer Dim Obj As Object Set Obj = Worksheets("Sheet1").Cells.Find("りんご") If Obj Is Nothing Then MsgBox "りんごは見つかりませんでした。" Else lngYLine = Worksheets("Sheet1").Cells.Find("りんご").Row intXLine = Worksheets("Sheet1").Cells.Find("りんご").Column MsgBox "りんごは、" + CStr(lngYLine) + "行目の" _ + CStr(intXLine) + "列目にあります" End If End Sub Sub Search() Dim lngYLine

Sub Sample1() Dim Target As Worksheet Target = ActiveSheet Target.Name = "Sample" End Sub これは、よく見るエラーメッセージです。 上のコードは、オブジェクト変数Targetにアクティブシート(への参照)を格納して、シート名を"Sample"に変更しようとしていますが、オブジェクト変数に格納するときのSetステートメントがありませんのでエラーになります。正しくは次のようにします。 Sub Sample2() Dim Target As Worksheet Set Target = ActiveSheet Target.Name = "Sample" End Sub また、そもそもオブジェクトを格納していないオブジェクト変数を操作しようとしたときにも発生します。 Sub Sample3() Dim Tar

Sub Sample1() Dim i As Long For i = 1 To 4 Cells(i, 1) = Worksheets(i).Name Next i End Sub これは、よく起こるエラーです。 上のコード、ワークシートが3枚しかない状態で実行すると「インデックスが有効範囲にありません」と怒られます。 そりゃそうです。Worksheets(1)からWorksheets(3)までしかないのに、Worksheets(4)を調べようとしているのですから。30人の生徒がいるクラスで、出席番号31番の生徒を指しているようなものですね。"学校の怪談"じゃないんですから、それで返事される方が怖いです。 インデックスは、コレクションの数だけではありません。次のようなケースでも同じエラーが起こります。 Sub Sample2() Dim tmp As Variant, i As Long

NO.7 重複したデータのチェックを行う データ入力のチェックで重複入力のチェックを必要とする場合があります。 たとえばNO.5 セルへの入力でデータチェックを行うで説明したときの顧客コードが重複入力チェックの対象となります。 同様に入力されたデータの整合性チェックを行う場合で、今までに入力されている内容を走査するときでも同じですね。 VBAの作成 今まで入力されたデータを先頭から順番に走査する方法を考えてみます。 作成するモジュール Dim iLast As Integer Dim iRow As Integer Dim bError As Boolean ・ ・ ・ iLast = WorksheetFunction.CountA(Sheets("data").Columns(1)) '入力されている最後の行位置を求める bError = False For iRow

COUNTIF関数：=COUNTIF(範囲,検索条件) OR条件 出席が○または△のセル数を数える =COUNTIF(E4:E10,"○")+COUNTIF(E4:E10,"△") =SUM(COUNTIF(E4:E10,{"○","△"})) (注)この数式ではセル参照はできません。 AND条件 年齢が20以上かつ25以下のセル数を数える F列を作業列として利用します。 F4セルに条件式=AND($D$4:$D$10>=20,$D$4:$D$10<=25)を入れF10までコピーします。 =COUNTIF(F4:F10,TRUE)　でセル数をカウントします。 作業列を使わず、25以下のカウント数から20未満のカウント数を引きと考えれば、 =SUM(COUNTIF(D4:D10,{"<=25","<20"})*{1,-1}) としてカウントできます。 =SUM(COUNTIF(D4:D10,

この記事は検証可能な参考文献や出典が全く示されていないか、不十分です。出典を追加して記事の信頼性向上にご協力ください。（このテンプレートの使い方） 出典検索?: "全銀協標準プロトコル" – ニュース · 書籍 · スカラー · CiNii · J-STAGE · NDL · dlib.jp · ジャパンサーチ · TWL（2012年5月） 全銀協標準プロトコル（ぜんぎんきょうひょうじゅんプロトコル、英語: Zengin-Procedure[1]）とは、全国銀行協会により公表された日本銀行と各金融機関、各金融機関間、各金融機関と利用者の間のコンピュータ接続方式。金融機関とのデータ交換にとどまらず、一般的な企業間データ交換手順としても利用されている。全銀協手順、全銀手順、Z手順とも呼ばれる。仕様書は全国銀行協会から有償で入手することができる。 概要[編集] ベーシック手順[編集] 銀行と企業