Results of 1 - 1 of about 14729 for VBA�������������� (0.003 sec.)
- [[20070914114644]]
- #score: 3408
- @digest: 485abda68b839fef9af8323be2792c32
- @id: 33255
- @mdate: 2007-09-14T08:59:41Z
- @size: 1712
- @type: text/plain
- #keywords: 動⇒ (23835), ェフ (9815), 買上 (4966), し担 (4966), カチ (3773), 数枚 (3018), ロス (2153), 客番 (1774), フ） (1650), が編 (1568), 数種 (1546), 種類 (1486), 各種 (1305), 旦、 (1274), に顧 (1268), 各シ (1242), ク内 (1122), トカ (1024), 起動 (1015), たvb (894), 、種 (831), 顧客 (818), 更の (801), トッ (780), 一旦 (778), 拝借 (722), 類に (721), （ト (705), 当者 (697), の種 (637), て結 (583), シー (579)
- 『VBAによるシートの操作』（トカチェフ）
お疲れ様です。いつもありがとうございます。 1つのブックに数枚のシートがあります。各シートには A列に顧客番号（2桁より6桁まで様々）、B列に顧客 の種類（数種類ほど）が書かれています。 この種類は毎月の買上によって、変化するので、一度こ の数枚のシートを1つのシートにくっつけて、そこで編 集してから、また各種類に応じて振り分ける作業をして います。 VBA起動⇒そのブック内にあるシートを全て結合 ここで一旦、種類の変更のため、マクロストップし担当者が編集 またVBA起動⇒その1つのシートをB列の種類に応じて 各シートに分ける。 以上のような作業をマクロで可能でしょうか。もしお知恵を 拝借できるなら、よろしくお願い致します。 ---- >VBA起動⇒そのブック内にあるシートを全て結合 >ここで一旦、種類の変更のため、マクロストップし担当者が編集 >またVBA起動⇒その1つのシートをB列の種類に応じて >各シートに分ける。 マクロを、"Before" と "After" の2つ作ればできそうですが。 それではまずいのでしょうか? (じゅんじゅん) ---- マクロは2つになっても大丈夫だと思います。 よろしくお願い致します。 （トカチェフ） ---- 一番右のシートにデータを纏めるサンプル。 Sub test() Dim r As Range Dim rr As Range Dim i As Integer Set rr = Worksheets(Worksheets.Count).Range("A1") For i = 1 To Worksheets.Count - 1 With Worksheets(i) Set r = .Range(.[A1], .Cells(Rows.Count, "B").End(xlUp)) End With r.Copy rr Set rr = rr.Cells(r.Rows.Count, "A").Offset(1) Next End Sub ご参考になれば。 (じゅんじゅん) ---- データを分ける方法 [[20070730174656]] 『VBA-データ抽出、転送方法』（aoki） ご参考になりませんか? (じゅんじゅん)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200709/20070914114644.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97037 documents and 608190 words.
訪問者：