お疲れ様です。
Takkoです。
VBAで現在ツール作成をしています。
B6~B300には文字データがほかのbookからコピーされ下記のようなデータが入っています。
17/09/25(月)
17/09/26(火)
17/09/26(火)
17/09/26(火)
17/09/26(火)
17/09/26(火)
17/09/26(火)
17/09/27(水)
17/09/27(水)
17/09/27(水)
17/09/27(水)
これを17/09/27とし、セルの形式を日付型に変更して
2017/09/25
2017/09/26
2017/09/26
2017/09/26
2017/09/26
2017/09/26
2017/09/26
・・・・
と、なるようにしたいです。
実装したコードは下記のようになっていますが、
使い方の問題か、動作できていません。(マクロの実行でプロシージャをデバックするとエラーになります)
VBA
1Sub FormatEditor() 2 For i = 6 To 300 3 Debug.Print (Cells(2, 6).Value) 4 If Cells(2, i).Value.Length() > 0 Then 'この行でエラー 5 Cells(2, i).Value = Right(Cells(2, i).Value, 3) 6 Cells(2, i).Select 7 Selection.NumberFormatLocal = "yyyy/m/d;@" 8 End If 9 Next i 10End Sub
エラー内容
オブジェクトが必要です。
Cells(a,b).Valueで値が取れないようなので、
Debug.Print (Cells(2, 6).Value)を追加したのですが、
案の定取れていませんでした。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/09/25 08:07
2017/09/25 08:26