MSアクセス03-焼ならし（焼準からのデータのエクセル形式のシート

StackOverflow https://stackoverflow.com/questions/1159697

質問

あると思いますが、どのようにつの方法とも離れています。私はこのエクセル形式のシートを提供してくれているデータを必要とすることにいずれかの操作を行います。そのインターネットはモバイルって、真っ直ぐ進むと、しかしある特定の部分のことを与えてくれた一部の悲しみ

にExcelのスプレッドシートにあるカラムリスト"関係者"の一つです。これは通常は約12名の名はカンマで区切られてもorgID内で:

joe smith(DIV32)、john doe(DIV12)ロジャー-アンドリュース(DIV14,DIV67,DIV01)など

私にこれらの個々のカラムすると共に個人分野にまで輸入しています。私はい"文字列"Excel、この取得をねじ込み時 jon doe (DIV13,DIV54など、よりよい、個人情報の取り扱いについて.

いかにこのアクセスのいくつかマーチャンダイスになっています。

誰かのいずれかのエクセ式、またはアクセス方法はこてください?

役に立ちましたか？

解決

いを輸入していることへのデータベースです。いかりやすいと言えだけでも、やり直すての報告書

すると、三つのテーブルを表すのにこの状況

  1. theParty（人）
  2. theOrganisation
  3. thePartyOrg

thePartyとしてはIDカラム

theOrganisationまで自分のIDカラム

thePartyOrderまで自分のID欄には、theParty、theOrganisation

自分が知りたいときには当事者として持参の一員と組織は、いかどうかを確認するための者が存在する/の作成の組織が存在する/を作成し、編成のthePartyOrgテーブルポイントです。

この接続情報として格納されたテキスト内の単一カラムはあるんじゃないでしょうか、簡単に読んで入演テーブルやその文字列VBA

他のヒント

ここソリューションです：

私はstrReplaceによってstrFind文字列の出現をすべて置き換える機能を書かれましたが、strFindは括弧の中に発生した場合にのみ。だから、あなたが何か他のもの（例えば 『*』）による「」のすべての文字を置き換えることができ、その後、再び 『』と 『*』さんを置き換え、その後、列にExcelのテキストを実行します。

Function replace_paren(strSource As String, strFind As String, strReplace As String) As String
    ' Within strString, replaces any occurrence of strFind with strReplace *IF* strFind occurs within parentheses '

    Dim intOpenParenIndex As Integer
    Dim intCloseParenIndex As Integer

    Do
        intOpenParenIndex = InStr(intCloseParenIndex + 1, strSource, "(")
        intCloseParenIndex = InStr(intOpenParenIndex + 1, strSource, ")")
        If intOpenParenIndex = 0 Then
            Exit Do
        End If

        Mid(strSource, intOpenParenIndex, intCloseParenIndex - intOpenParenIndex) = Replace(Mid(strSource, intOpenParenIndex, intCloseParenIndex - intOpenParenIndex), strFind, strReplace)
    Loop

    replace_paren = strSource

End Function

だから、手順は次のとおりです：

1）Excelブック内のモジュールにこのマクロをコピー

2）のは、あなたの文字列は、このようなカンマを交換する機能を設定し、列Bの列Aにあるとしましょう。

= replace_paren（A1、 ""、 "*"）

3）カラム下式塗りつぶし

4）の値として列をコピーして貼り付け

5）区切り文字として使用して列を解析する列「」するために使用するExcelのテキスト

6） "" によって "*" のすべての出現を置き換えるために再びreplace_paren使用

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top