Results of 1 - 1 of about 1215 for （Mook）
(0.001 sec.)
- [[20150429151135]]
- #score: 9211
- @digest: e4cd2bbd033b2d8cc8c907cff2ce1ed9
- @id: 67886
- @mdate: 2015-04-29T22:50:48Z
- @size: 1902
- @type: text/plain
- #keywords: intranet (14536), 度¥[ (13096), 月). (11665), 象月 (11257), 張付 (9299), 先表 (8868), 本") (6358), 果is (5684), 月dd (5588), 原本 (5580), 果as (4113), ケイ (3766), 意先 (3706), 果. (3387), 月& (3017), 得意 (2845), 表. (2743), 目セ (2548), 索結 (2505), 先名 (2264), 果= (2168), 本シ (2101), 回コ (1939), 日( (1833), 月") (1440), 名] (1287), 名") (989), 年度 (763), 対象 (761), イ） (760), 本の (674), 列2 (630)
- 『張付ける関数の*月をセル参照したい』（ケイ）
よろしくお願いします。 Sub Macro1() Sheets("原本").Select Rows("1:30").Select Selection.Copy Sheets("8月").Select Rows("2:2").Select ActiveSheet.Paste End Sub 原本の表を上のマクロで（例です） 原本の表の一部に”得意先名”というテキストが 入っているセルを検索し（場所はランダム） =IFERROR(VLOOKUP(B2,'¥¥intranet¥27年度¥[得意先表.xlsx]*月'!$B:$N,4,FALSE),"") を自動で入れたいのですが *月の部分は張付けた表のB2の日付（mm月dd日(aaa)）の mm月を参照させたいのですが、可能でしょうか? ＜ 使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- こんな感じでしょうか。 シート名が「08月」でなくて「8月」なら Format を mm月 から m月 にしてください。 Sub Sample() Dim 対象月 As String 対象月 = Format(Sheets("原本").Range("B2").Value, "mm月") Sheets("原本").Rows("1:30").Copy Sheets(対象月).Rows("2:31") Dim 検索結果 As Range Set 検索結果 = Sheets(対象月).Rows("2:31").Find("得意先名") If 検索結果 Is Nothing Then MsgBox "[得意先名]がありません" Else 検索結果.Formula = "=IFERROR(VLOOKUP(B2,'¥¥intranet¥27年度¥[得意先表.xlsx]" & 対象月 & "'!$B:$N,4,FALSE),"""")" End If End Sub （Mook） 2015/04/29(水) 16:11 ---- Mookさん ありがとうございます。 大変申し訳ありませんが、私の勘違いがありました。 mm月ではなくmm月dd日(aaa)そのままでした。 そこまでは私で調整できるのですが、 30行の表を複数回マクロでコピーしているのですが 職場環境でないので詳しいマクロは出せませんが 毎回、最終行に張付けしているため Range("B2").Value, "mm月dd日(aaa)"部分が変更になるのですが (B2)部分を張付けした部分の表の（B列2行目セル）にできないでしょうか? お手数をお掛けします。 （ケイ） 2015/04/30(木) 06:24 ---- 毎回コピー元（原本シート）の位置が変わるということでしょうか。 コピー先は固定でよいのでしょうか。 （Mook） 2015/04/30(木) 07:50... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201504/20150429151135.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97018 documents and 608145 words.
訪問者：