_Kyleのプロフィール

左図のような表があるときに、共通の値"1"を持つ座標の組み合わせを右図のように表示できるVBAを作ることができないかということで考えているところです。 右図の説明をすると ２行目にある　1 2 5 7は 左図　（１行,２列）のところに1、（１行,５列）のところに1、（１行,７列）のところに1、（２行,５列）のところに1、（２行,７列）のところに1、（５行,７列）のところに1 というように 1 2 5 7　のどの組み合わせを選んでも必ず1がある組み合わせです。 以下右図３行目以降も同じような形で表示されています。 VBAに詳しい方からのお知恵を拝借することができれば幸いです。よろしくお願いします。

左図のような表があるときに、共通の値"1"を持つ座標の組み合わせを右図のように表示できるVBAを作ることができないかということで考えているところです。 右図の説明をすると ２行目にある　1 2 5 7は 左図　（１行,２列）のところに1、（１行,５列）のところに1、（１行,７列）のところに1、（２行,５列）のところに1、（２行,７列）のところに1、（５行,７列）のところに1 というように 1 2 5 7　のどの組み合わせを選んでも必ず1がある組み合わせです。 以下右図３行目以降も同じような形で表示されています。 VBAに詳しい方からのお知恵を拝借することができれば幸いです。よろしくお願いします。

左図のような表があるときに、共通の値"1"を持つ座標の組み合わせを右図のように表示できるVBAを作ることができないかということで考えているところです。 右図の説明をすると ２行目にある　1 2 5 7は 左図　（１行,２列）のところに1、（１行,５列）のところに1、（１行,７列）のところに1、（２行,５列）のところに1、（２行,７列）のところに1、（５行,７列）のところに1 というように 1 2 5 7　のどの組み合わせを選んでも必ず1がある組み合わせです。 以下右図３行目以降も同じような形で表示されています。 VBAに詳しい方からのお知恵を拝借することができれば幸いです。よろしくお願いします。

VBA初心者です。 以下の構文でコンパイルエラーがでます。 どこが悪いでしょうか。。 Private Sub AddNewButton_Click()←ここが黄色になっています。 'データを更新する WriteData CurrentRecord 'テキストボックスをクリアにする PatientBox.Text = "" TimeBox.Text = "" InstitutionCombo.Text = "" MedicineBox.Text = "" DemondBox.Text = "" TotalBox.Text = "" CompanyNameCombo.Text = "" SectionCombo1.Text = "" SectionCombo2.Text = "" NameBox.Text = "" 'レコードとデータ件数を表示する RecordCount = RecordCount + 1 CurrentRecord = RecordCount RecordLabel = "レコード件数：" & CurrentRecord & "/" & RecordCount 'カーソルを患者名に移動する PatientBox.SetFocus End Sub

添付図のファイルに、セキュリティ警告が出ています。 質問1. 警告どおり、このコンテンツを有効にしなければ、「安全」と判断してよろしいか。 他に留意することは無いですか。 質問2. 「データ接続が無効にされました」とありますが、作成してあつたデータは全て表示されており、無効にされたデータは見つかりませんが、無効にされたデータとは何でしようか。 質問3 何が原因で警告されたのでしょうか。 [経過説明] book_1 (以下bookはbookでsheetの間違いではありません) 1.この表のA列はテキスト、B,C列は2桁以内の数値 2.B,C列は手入力で、A列は、手入力またはテキストデータ貼り付け 3.貼り付けデータは 無料サイト(怪しい物ではないと思われる)、の画面をキャプチャーしたものを 読み取り革命Liteで認識させたTXTデータを使用。 book_2 1.bok1を保存して数週間後コピーして新規のbook_2に貼り付けてから 2.book_1の2.と同じ方法であたらしいデータを追加して更新 book_x 以上の方法を？回目(10回以上ぐらい)繰り返すため1個前世代のファイルを開いた時 警告を見つけました。 book_1,2,・・・・の現存するものには、警告出ません。 [その他試したこと] 1. このファイルはウイルスバスター2012の検索で、セキュリティの脅威は検索されません。 2. このファイルのデータを、メモ帳にコピーしたTXTデータを新規のエクセルに取り込んだときは 警告現れませんが、一旦 *.xslxで保存してから開らくと警告が出る。 3. 警告がてでているファイルを *.CSVで保存しても画面に警告は残っていますが 閉じて、開き直すと警告は消えている。 このCSVフアイルを　xlsxで保存すれば警告は消えている。 [疑問} 前項3.の操作で、警告を消すことができjたので、特に危険なものがPC内に潜んではいないと素人判断し、困っているわけではないですが、「なぜ警告が表示されたか」知っておきたくて質問した次第です。 <以上>長文にお付き合いありがとうございます。