« 高校ラグビー愛知大会4回戦報告 | トップページ | レゴランド進出 »

2011年11月 1日 (火)

Sub 転記3()

Sub 転記3()

Dim ws1 As Worksheet

Dim ws2 As Worksheet

Dim i As Integer

Dim k As Integer

Dim m As Integer

Set ws1 = Sheets("Sheets 1")

Set ws2 = Sheets("Sheets 2")

Application.ScreenUpdating = False

ws1.Range("E5:bb52").ClearContents

ws1.Range("E63:bb110").ClearContents

For i = 1 To 50

For k = 2 To 12

m = 4 * k - 3

ws1.Cells(m, 4 + i) = ws2.Cells(14 + i, k)

ws1.Cells(m + 1, 4 + i) = ws2.Cells(64 + i, k)

Next

Next

Application.ScreenUpdating = True

End Sub

Sub転記4()

Dim i As Integer

Dim k As Integer

Dim l As Integer

Dim m As Integer

Sheets("Sheets 1").Select

Range("b15:z60000").ClearContents

l = Range("a1")

For m = 2 To l

i = Cells(4, m).Value

For k = 1 To i

Cells(14 + k, m).Value = 500

Next

Cells(15 + i, m).Value = Cells(5, m).Value

Cells(16 + i, m).Value = Cells(6, m).Value

Cells(17 + i, m).Value = Cells(7, m).Value

Cells(18 + i, m).Value = Cells(8, m).Value

Cells(19 + i, m).Value = Cells(9, m).Value

Cells(20 + i, m).Value = Cells(10, m).Value

Cells(21 + i, m).Value = Cells(11, m).Value

Cells(22 + i, m).Value = Cells(12, m).Value

Cells(23 + i, m).Value = Cells(13, m).Value

Cells(24 + i, m).Value = Cells(14, m).Value

Next

Call 転記3

Sheets("Sheets 1").Select

Range("b15:z60000").ClearContents

MsgBox ("Sheets2にデータを転記しました。")

Sheets("Sheets 2").Select

End Sub

この構文は、エクセルのブックで、500枚の束の数と端数の束をシート1で作り、その枚数を所定の位置に記述させ、シート2の所定の位置に代入させていくプログラムです。

効率化におそろしいぐらい資しています。

ここんとこずっと使っているので、間違いはないです。実際他の事務所でも欲しがっているところがあったので、公開します。ご自由に使ってくださってけっこうです。まあ、御一報してくださるとうれしいです。詳しく知りたい方はご連絡ください。

« 高校ラグビー愛知大会4回戦報告 | トップページ | レゴランド進出 »

身辺雑記」カテゴリの記事

コメント

何かスゴイもののような気はするがよく解らない・・。
僕でも活かせますかね?

すいません。ラグビーで浮かされた脳のクーリングダウンに記述してしまいました。OJさんのところはいい機械が入って自動でできることが多いんじゃない?こっちはプログラムも手づくりです。エクセルの別のシートに書き込むプログラムです。FOR-NEXT構文とCELLSプロパティーが味噌ですね。実際走るのをみると感動するよ。人の半減と30分の時間短縮が可能になりました。でも説明するの難しい!

署名集めの時とか役立つヤツですか?
すっごい面倒な作業をあっという間にやっつけてくれるんだろうなあって気がします。

俺の最高傑作かも。俳句のようなシンプルなプログラムです。  
超役に立ってます。でも、人減らしには使わせない。コストじゃないです。人は。
その分人がやるべき仕事を、人がするのです。事務にかまけちゃいけません。インターフェースです。大事なのは。

コメントを書く

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/574941/53131812

この記事へのトラックバック一覧です: Sub 転記3():

« 高校ラグビー愛知大会4回戦報告 | トップページ | レゴランド進出 »