人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

こちらのページ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

●質問者: mika555
●カテゴリ:コンピュータ 学習・教育
✍キーワード:application as b2 B4 SELECT
○ 状態 :キャンセル
└ 回答数 : 0/0件

回答がありません
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ