こちらのページhttp://homepage1.nifty.com/h-fuji/excel_sample.htmの■簡単入力ブック

を改造させていただいて、利用しようと思いましたが入力項目の増やし方がわかりません。どなたか教えて頂けたら幸いです。
Dim res As Integer
' Dim ss As String
Dim 修正行 As Long
Dim Max_Gyou As Long ' 項目の最大行
Dim GYOU As Long
Dim owari_g As Long
Dim 状態 As String
Dim RETU As Long

Sub 転記()
Application.ScreenUpdating = False
'
If 修正行 > 0 And 状態 = "修正" Then
GYOU = 修正行
End If

If 修正行 = 0 Or 状態 = "流用" Then
GYOU = Worksheets("DATA").Range("A4").CurrentRegion.Rows.Count + 4
End If

Sheets("入力").Select
owari_g = Range("a4").CurrentRegion.Rows.Count + 3
Range("b4:b" & owari_g).Select
Selection.Copy
Sheets("DATA").Select
Range("A" & GYOU).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Sheets("入力").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B5").Formula = "=PHONETIC(B4)"
Range("b2").ClearContents
Range("B4").Select
End Sub

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2007/09/13 14:23:44
  • 終了:2007/09/20 14:27:08

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません