ALIENWARE M17xR2

アクセスカウンタ

zoom RSS Excel VBA マクロ サンプル3

<<   作成日時 : 2010/06/21 12:43   >>

ブログ気持玉 0 / トラックバック 0 / コメント 0

Sub Macro1()
'
' Macro1 Macro
'

'
Dim Target_No As Integer
Dim Data01(5) As Integer
Dim I As Integer

Target_No = 0
I = 0

For I = 1 To 4
  Data01(I) = 0
Next I

Windows("Book1").Activate
Sheets("入力").Select

Target_No = Range("B1")

For I = 1 To 4
  Data01(I) = Cells(I + 1, 2)
Next I

Windows("Book2").Activate
Sheets("貼付先").Select

For I = 1 To 4
  Worksheets("貼付先").Cells(I + 1, Target_No + 1) = Data01(I)
Next I

Windows("Book1").Activate
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft

Sheets("入力").Select
Range("A1").Select

End Sub

テーマ

関連テーマ 一覧


月別リンク

ブログ気持玉

クリックして気持ちを伝えよう!
ログインしてクリックすれば、自分のブログへのリンクが付きます。
→ログインへ

トラックバック(0件)

タイトル (本文) ブログ名/日時

トラックバック用URL help


自分のブログにトラックバック記事作成(会員用) help

タイトル
本 文

コメント(0件)

内 容 ニックネーム/日時

コメントする help

ニックネーム
本 文
Excel VBA マクロ サンプル3 ALIENWARE M17xR2/BIGLOBEウェブリブログ
文字サイズ:       閉じる