تغییر عدد در سلول

[mch2v]

سلام
خسته نباشید
توی این کدی که گذاشتم وقتی تو ستون A عددی مثلا 880630 رو وارد میکنم ، وقتی اینتر رو میزنم عدد به اون شکلی که میخوام در میاد ولی دوباره که اینتر میزنم عدد عوض میشه.
اگه میشه کد رو ببینید چه مشکلی داره.
از طریق vba میخوام فرمت عدد به شکل تاریخ نوشته بشه 1390/01/01 ( توی فرمت سل نمیخوام این کار رو انجام بدم ).
ممنون.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


endrow = Sheet1.Range("A:A").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim C As Range


For Each C In Range("A1:A" & endrow)
    If C <> "" Then
          C.Value = Format(C.Value, "1300/00/00")
    End If
Next


End Sub

[iranweld]

سلام
خسته نباشید
توی این کدی که گذاشتم وقتی تو ستون A عددی مثلا 880630 رو وارد میکنم ، وقتی اینتر رو میزنم عدد به اون شکلی که میخوام در میاد ولی دوباره که اینتر میزنم عدد عوض میشه.
اگه میشه کد رو ببینید چه مشکلی داره.
از طریق vba میخوام فرمت عدد به شکل تاریخ نوشته بشه 1390/01/01 ( توی فرمت سل نمیخوام این کار رو انجام بدم ).
ممنون.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


endrow = Sheet1.Range("A:A").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim C As Range


For Each C In Range("A1:A" & endrow)
    If C <> "" Then
          C.Value = Format(C.Value, "1300/00/00")
    End If
Next


End Sub

با سلام
این کد را امتحان کنید

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A2:A1000")) Is Nothing Then
    
    ActiveCell.NumberFormat = "13##""/""##""/""##"
    End If
End Sub 

[mch2v]

با سلام
این کد را امتحان کنید

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A2:A1000")) Is Nothing Then
    
    ActiveCell.NumberFormat = "13##""/""##""/""##"
    End If
End Sub 

ببخشید این دوباره داره کار فرمت سل رو انجام میده.
من میخوام عددی رو که تو سلول وارد میکنم کاملا به شکل تاریخ در بیاد و نمایشی نباشه.
با تشکر.

[iranweld]

با سلام

Sub data()

Dim i As Long

For i = 1 To 100000

If Range("A" & i) = "" Then



 Exit For
End If

If Len(Range("A" & i)) = 6 Then

Range("A" & i).Value = 13 & Left(Range("A" & i), 2) & "/" & Mid(Range("A" & i), 3, 2) & "/" & Right(Range("A" & i), 2)

End If

Next i
End Sub