[[20181011095056]]　『セルの表示設定』（みき）　ページの最後に飛ぶ

『セルの表示設定』（みき）

お世話になります
教えてください

セルに表示設定をしたいのですが
下記のように組んだのですが

 With Worksheets("Sheet1")
        ki = .Cells(19, Columns.Count).End(xlToLeft).Offset(, 1).Column
        ii = .Cells(1, ki).End(xlUp).Offset(1).Row
        If ii < 8 Then i = 8
        .NumberFormatLocal = "yyyy/mm/dd"
        .Cells(i, ki).Value = Me.TextBox4.Text

    End With

下記の部分でエラーが出てしまいます
.NumberFormatLocal = "yyyy/mm/dd"

どのように直せばいいのでしょうか

ご教示お願いします
よろしくお願いいたします

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 WorksheetオブジェクトにはNumberFormatLocalプロパティはなく、Rangeオブジェクトのプロパティになる。
 >.Cells(i, ki).NumberFormatLocal = "yyyy/mm/dd"
 だろうか。
 あと、エラー時にはそのエラー内容も書くように。
（ねむねむ） 2018/10/11(木) 10:06

ねむねむ様
ありがとうございます

指摘ありがとうございます
今後気を付けます

本当にありがとうございます
（みき） 2018/10/11(木) 10:14

コメント返信：

[ 一覧(最新更新順) ]

[[20181011095056]] 『セルの表示設定』（みき） ページの最後に飛ぶ

[[20181011095056]]　『セルの表示設定』（みき）　ページの最後に飛ぶ