Results of 1 - 1 of about 8926 for リスト (0.007 sec.)
- [[20100611170239]]
- #score: 2746
- @digest: 168574547191b4eb8eaa3771b23a2aca
- @id: 49968
- @mdate: 2010-06-11T10:22:13Z
- @size: 1972
- @type: text/plain
- #keywords: ペッ (15419), ク!$ (13814), れリ (9419), sheetname (8329), ク") (7163), す== (4947), 枚増 (4723), 加ac (3868), 換マ (3712), 枚分 (3360), スペ (3088), ト") (2773), ーwo (2767), 行") (2615), ト] (2581), ト最 (2332), ク", (2314), リス (2210), visible (1812), replaceformat (1750), るwo (1633), スト (1437), クシ (1428), searchformat (1227), worksheets (1066), 名", (1002), 置換 (969), searchorder (914), 「ス (880), トシ (871), replacement (853), 規シ (811)
- 『置換マクロ』(もこ)
「スペックシート」と「リスト」を作成するボタンを作りました。 ボタンを押すと新しくスペックシートが作成され、名前を付れるようにしました。 そして[リスト]というシートに[かくれリスト]からコピー・挿入してリストの表が作成されます。 そこまでは良いのですがリストの表はスペックシートからリンクしたいのです。 元の[かくれリスト]に =IF(スペック!$D$5="","",スペック!$D$5) と入力しているので、置換で「スペック」→「新しく作成したシート名」にする方法はありますでしょうか? 宜しくお願い致します。 Sub シート作成() Dim sheetname As String Dim ws '===スペックシートを増やす=== sheetname = Application.InputBox("新規シート名を指定してください", "シート名", Type:=2) If sheetname > "" And sheetname <> "False" Then Worksheets("スペック").Visible = True 'スペックシートを表示させる Worksheets("スペック").Copy After:=Sheets(Sheets.Count) 'シートを最後に追加 ActiveSheet.Name = sheetname Worksheets("スペック").Visible = False 'スペックシートを非表示にする End If '===リストを一枚増やす=== Worksheets("かくれリスト").Visible = True 'かくれリストシートを表示させる Worksheets("かくれリスト").Range("1:56").Copy 'リスト1枚分をコピー Worksheets("リスト").Range("リスト最終行").Insert 'コピーしたリスト1枚分を挿入 '増やしたリストのリンク先を変更(置換) Worksheets("かくれリスト").Visible = False 'かくれリストシートを非表示にする End Sub ---- 置換するのをマクロ記録で取ってヘルプを見ながら引数をちょっと変えると Worksheets("リスト").Cells.Replace _ What:="スペック", Replacement:=sheetname, LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False こんなコードを作れると思います。 (momo) ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201006/20100611170239.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97037 documents and 608027 words.
訪問者: