[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『自動記録作成の指定範囲変更』(まゆみ)
お世話になっております
教えて頂けたら有り難いと思い質問させていただきます
宜しくお願いいたします
自動記録で下記の様に作成しました
N7の部分を Range("N" & Rows.Count).End(xlUp)に変更すればいいと思いますが
どの様に入れればいいのでしょうか?
Sub 日付整え1()
'
'
'
Columns("K:N").Select Selection.NumberFormatLocal = "G/標準" Range("M2").Select ActiveCell.FormulaR1C1 = "=VALUE(RC[-2])" Range("M2").Select Selection.AutoFill Destination:=Range("M2:N2"), Type:=xlFillDefault Range("M2:N2").Select Selection.AutoFill Destination:=Range("M2:N7"), Type:=xlFillDefault Range("M2:N7").Select Selection.Copy Range("K2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("M:N").Select Application.CutCopyMode = False Selection.ClearContents End Sub
< 使用 Excel:Excel2010、使用 OS:Windows7 >
Range("K:N").NumberFormatLocal = "G/標準"
Range("M2").VALUE = Range("K2").Value
などのように直してみてください
(デイト) 2015/01/23(金) 09:20
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.