excel 記号変換 表

質問

Sheet（入力）にはD10:AH44まで記号があります。（例：日、夜などの勤務）
Sheet（マスタ）にはB5:E83の範囲でマスター登録をしています。

例）Sheet（マスタ）
　　B　　C　　D　　E
１　日　　　　　　　００１
２　夜　　　　　　　００２
というようにセルの値があります。

入力Sheetにはコマンドボタンがあり、クリックするとSheet（提出）に転写していきSheet（マスタ）の値を一括入力させたいです。

例）
　　Sheet（入力）　　　　クリック　　Sheet（提出）
　　B　　C　　D　　E　　　　　　　　　B　　C　　D　　E
５　日　夜　日　　夜　　　→　　　　001　002　001　002　　　　
６　夜　　　　　　

VLOOK関数でしたいのですが、その後の処理もあり００１という値が欲しいのでマクロでやっていきたいのですが。。教えてください

回答No.3

keithin · ベストアンサー

方法１の方がはるかに簡単なんですけどね。

方法１：
sub Commandbutton1_Click()
　with worksheets("提出").range("B10:AF44")
　.numberformatlocal = "000"
　.formula = "=IF(入力!D10="""","""",VLOOKUP(入力!D10,マスタ!$B:$E,4,FALSE))"
　.value = .value
　end with
end sub

方法２：
sub CommandButton1_Click()
　dim h as range
　dim c as range

　for each h in worksheets("入力").range("D10:AH44")
　if h <> "" then
　　set c = worksheets("マスタ").range("B5:B83").find(what:=h.value, lookin:=xlvalues, lookat:=xlwhole)
　　if not c is nothing then
　　　c.offset(0, 3).copy destination:=worksheets("提出").range(h.offset(0, -2).address)
　　end if
　end if
　next
end sub

お礼

本当にありがとうございました。方法１ですると上手く動かなかったので方法２でやりました。

回答No.2

K Kazz（@JazzCorp）

http://okwave.jp/qa/q7686801.html
結局何も見えん！！
帳票以前の問題？？
何をやりたいのか？？
下手に抽象化しないで、何をやりたいのかだけ書いた方が？？

回答No.1

keithin

＞Sheet（入力）にはD10:AH44まで記号があります

Ｄ１０からなのですか？　それとも「例」のように実はＢ５からなのですか？
まぁ、自力で修正してください。

方法１：さっき回答済み
sub Commandbutton1_Click()
　with worksheets("提出").range("D10:AH44")
　.formula = "=IF(入力!D10="""","""",VLOOKUP(入力!D10,マスタ!$B:$E,4,FALSE))"
　.value = .value
　end with
end sub

方法２：元のマクロ（遅い）
sub CommandButton1_Click()
　dim h as range
　dim c as range

　for each h in worksheets("入力").range("D10:AH44")
　if h <> "" then
　　set c = worksheets("マスタ").range("B5:B83").find(what:=h.value, lookin:=xlvalues, lookat:=xlwhole)
　　if not c is nothing then
　　　c.offset(0, 3).copy destination:=worksheets("提出").range(h.address)
　　end if
　end if
　next
end sub

補足

ありがとうございます。何度もすいませんでした。
方法２：元のマクロ（遅い）
で上手くいきました。質問内容など本当に申し訳ございません。
途中変更などがあり、私自身理解していなかったです。

もうひとつだけ教えていただきたいです。
c.offset(0, 3).copworksheets("提出").y destination:=worksheets("提出").range(h.address)
のworksheets("提出")で範囲の変更が可能でしょうか？B10：AF44の範囲で提出Sheetは貼り付けたいのですが・・ｈ.addressだと当然ずれてしまうので教えてください。初心者で本当に申し訳ございません。