人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

添付図のようなマクロが組みたいのですが、マクロ初心者のためわかりません。
お力を貸してください。

以下のファイルがある
・IDdate.xls
A列には地名
B列にはIDコード
・Main.xls(シート1)
A列に地名

これを編集してMain.xlsのシート2に出力したい。
編集の内容としては、
・Main.xlsのシート1、A列の値をシート2、A列に出力する
・Main.xlsのシート1、A列の値と完全一致する値をIDdate.xlsの値の行のB列をMain.xlsのシート2のB列に出力する

1233754069
●拡大する

●質問者: Ryo0524
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:Date. xls コード ファイル マクロ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● BANO
●0ポイント

ブック、シート間の編集はここに出ている方法で良いのでは?

http://www.k1simplify.com/vba/tipsleaf/leaf320.html

後は変数で1行づつ足していって、if文ににしたら簡単そうですがいかがでしょうか。

すごく簡易で書きましたので、ポイントはいりません。

sub()

dim x

x=1

Do until x=""


if ・・・・・・・・・・・・ then

・・・・・・・・・・・・

end if

x=x+1

loop

end sub

◎質問者からの返答

参考になる情報ありがとうございます。


2 ● jun6428
●80ポイント ベストアンサー

質問者さんにプログラミングの知識がどの程度あるかわからないのですが・・

T00001 - 1

T00001 - 2

F00001 - 3

T00001 - 1, 2

F00001 - 3

にするのはプログラミングにおいてはとても簡単なことです。

VBではDictionaryという概念を使えば良いようですよ。

参考になりそうなページです。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.ht...

◎質問者からの返答

ありがとうございます。Dictionaryオブジェクトを使ってみました。

ありがとうございます。


3 ● hiko3karasu
●0ポイント

関数で十分では?

Main.xls(シート2)に

A1に

=Sheet1!A1

B1に

=VLOOKUP(A1,[IDdate.xls]Sheet1!$A:$B,2,FALSE)

として、

A1をA2以降にコピー、

B1をB2以降にコピー

でできます。

◎質問者からの返答

ありがとうございます。

今回、関数ではなくマクロでやるのはこれ以外にもいろいろなことをひとつのマクロに組み込んでやっているからです。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ