Trang 3 của 7 Đầu tiênĐầu tiên 12345 ... CuốiCuối
Kết quả 21 đến 30 của 61

Chủ đề: Tự động lấy ngày giờ hệ thống trong excel

  1. #21
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi leonguyenz
    Thì cột B đã hiển thị ngày tháng rồi mà?
    Ý bạn là sao?
    Nếu bạn muốn ghi ngày tháng thôi thì vào trong code thay Now bằng Date
    Em hiểu rồi anh ạ, cảm ơn anh nhiều hj

  2. #22
    Ngày tham gia
    Aug 2015
    Bài viết
    4
    khi mình lưu rồi mở lại thì không còn tự động cập nhật ngày tháng nữa, xin hỏi làm cách nào để khi mở file thì ứng dụng tự chạy, mình xài exel 2007. Xin cảm ơn

  3. #23
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    [QUOTE="leonguyenz"] Nguyên văn bởi smjler0109
    cảm ơn anh rất nhiều ạ, vậy anh cho em hỏi thêm là thêm điều kiện để cột B đó hiện thị ngày tháng thì phải sửa code sao vậy anh hj
    Thì cột B đã hiển thị ngày tháng rồi mà?
    Ý bạn là sao?
    Nếu bạn muốn ghi ngày tháng thôi thì vào trong code thay Now bằng Date Tập tin đính kèm
    • Ghi lại ngày tháng.xls (30.5 KB, 15 lần tải)


    40px
    Code mặc định là gõ bên cột A thì bên cột B tự động hiện ngày tháng giờ. Có cách nào ngược lại ko bạn, nghĩa là khi mình gõ cột B thì nó tự động hiện ngày tháng giờ bên cột A. Đoạn code đây, ai rành code chỉ giúp mình, thanks



    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    With Range("A1:A100")
    If Not Intersect(Target, .Cells) Is Nothing Then
    If Target <> "" Then Target.Offset(, 1) = Now
    End If
    End With
    End Sub

  4. #24
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi minhthai123
    Code mặc định là gõ bên cột A thì bên cột B tự động hiện ngày tháng giờ. Có cách nào ngược lại ko bạn, nghĩa là khi mình gõ cột B thì nó tự động hiện ngày tháng giờ bên cột A. Đoạn code đây, ai rành code chỉ giúp mình, thanks
    Bạn sử dụng code này:
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shCore.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAppleScript.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAS3.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushBash.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushColdFusion.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCpp.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCSharp.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCss.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDelphi.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDiff.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushErlang.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushGroovy.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJava.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJavaFx.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJScript.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPerl.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPhp.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPlain.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPowerShell.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPython.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushRuby.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSass.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushScala.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSql.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushVb.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushXml.js"></script>

    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>

    <link type="text/css" rel="stylesheet" href="/forum/vctinh_xcode/styles/shCoreDefault.css">
    <link type="text/css" rel="Stylesheet" href="/forum/vctinh_xcode/styles/shThemeDefault.css">

    <pre class="brush: vb; toolbar: false;">Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range
    If Target.Column <> 2 Then Exit Sub
    For Each Cll In Intersect(Target, [B:B])
    If Cll = "" Then
    Cll.Offset(, -1).ClearContents
    Else
    Cll.Offset(, -1) = Now
    End If
    Next
    End Sub</pre>

    <script type="text/javascript">
    function path()
    {
    var args = arguments,
    result = []
    ;

    for(var i = 0; i < args.length; i++)
    result.push(args[i].replace('@', '/forum/vctinh_xcode/scripts/'));
    return result;
    };

    SyntaxHighlighter.autoloader.apply(null, path(
    'applescript @shBrushAppleScript.js',
    'actionscript3 as3 @shBrushAS3.js',
    'ahk autohotkey @shBrushAhk.js',
    'asm x86 @shBrushAsm.js',
    'bash shell @shBrushBash.js',
    'coldfusion cf @shBrushColdFusion.js',
    'cpp c @shBrushCpp.js',
    'c# c-sharp csharp @shBrushCSharp.js',
    'css @shBrushCss.js',
    'delphi pascal @shBrushDelphi.js',
    'diff patch pas @shBrushDiff.js',
    'erl erlang @shBrushErlang.js',
    'groovy @shBrushGroovy.js',
    'java @shBrushJava.js',
    'jfx javafx @shBrushJavaFX.js',
    'js jscript javascript @shBrushJScript.js',
    'perl pl @shBrushPerl.js',
    'php @shBrushPhp.js',
    'text plain @shBrushPlain.js',
    'py python @shBrushPython.js',
    'ruby rails ror rb @shBrushRuby.js',
    'sass scss @shBrushSass.js',
    'scala @shBrushScala.js',
    'sql SQL @shBrushSql.js',
    'vb vbnet vba @shBrushVb.js',
    'xml xhtml xslt html @shBrushXml.js'
    ));
    SyntaxHighlighter.config.stripBrs = true;
    SyntaxHighlighter.all();
    </script>

  5. #25
    machao112 Guest
    Trích dẫn Gửi bởi minhthai123
    Mà sao ngộ thiệt, khi mình save lại được thì mình chỉ xài dc trên máy tính có excel 2010, còn trên máy tính có excel 2007 thì nó ko hiện ngày giờ hệ thống ra.
    Không chừng ở cái máy xài Excel 2007 đó chưa bật Enable Macro à nghen.
    Nếu đã bật rồi mà code vẫn không chạy được thì cũng có thể do anh Excel 2007 "dở dở ương ương" này có vấn đề thật. Bạn thử lưu file về định dạng Excel 97-2003 (có phần mở rộng .xls) xem sao.

  6. #26
    hoathienduy Guest
    Làm sao save lại cái đó bạn, mình nhập code vô thì sử dụng được và bấm save lại thì nó kêu chọn Macro gì đó. Xg rồi mình tắt file đi và mở lại thì nó k có lưu là sao các bạn.

  7. #27
    vietkanpy Guest
    Trích dẫn Gửi bởi minhthai123
    Làm sao save lại cái đó bạn, mình nhập code vô thì sử dụng được và bấm save lại thì nó kêu chọn Macro gì đó. Xg rồi mình tắt file đi và mở lại thì nó k có lưu là sao các bạn.
    Chắc bạn đang xài Excel 2007 (2010, 2013). Nếu đúng như vậy thì bạn nhấn F12 và lưu file với một trong các định dạng sau là được: Excel Macro-Enable Workbook (phần mở rộng .xlsm) hoặc Excel 97-2003 Workbook (phần mở rộng .xls)

  8. #28
    Ngày tham gia
    Aug 2015
    Bài viết
    10
    Mà sao ngộ thiệt, khi mình save lại được thì mình chỉ xài dc trên máy tính có excel 2010, còn trên máy tính có excel 2007 thì nó ko hiện ngày giờ hệ thống ra.

  9. #29
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Macro Enable All rồi bạn. Cuối cùng thì chỉ có đuôi .xls của 98-2003 là xài dc macro này thôi, đuôi .xlsx, .xlsm thì ko xài được, hxhx. Mà khổ nổi mấy file liên kết của mình thì lại là đuôi .xlsx và mình thì xài office 2k7 nên mỗi khi save file đuôi .xls thì nó hiện lên thông báo kêu convert file mới nhức đầu. Với lại, các bạn cho mình hỏi chỉnh làm sao để link tự động cập nhật giữa các file excel với nhau, hiện tại mình mà muốn cập nhật là phải mở mấy file có link với nhau rồi save lại từng cái thì nó mới cập nhật.

  10. #30
    thick69 Guest
    Trích dẫn Gửi bởi leonguyenz
    Ghi lại thời gian sau 1 ô nhập liệu:
    Alt+F11, coppy code:
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shCore.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAppleScript.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAS3.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushBash.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushColdFusion.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCpp.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCSharp.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCss.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDelphi.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDiff.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushErlang.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushGroovy.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJava.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJavaFx.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJScript.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPerl.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPhp.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPlain.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPowerShell.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPython.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushRuby.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSass.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushScala.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSql.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushVb.js"></script>
    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushXml.js"></script>

    <script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>

    <link type="text/css" rel="stylesheet" href="/forum/vctinh_xcode/styles/shCoreDefault.css">
    <link type="text/css" rel="Stylesheet" href="/forum/vctinh_xcode/styles/shThemeDefault.css">

    <pre class="brush: vb; toolbar: false;">
    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    With Range("A1:A100")
    If Not Intersect(Target, .Cells) Is Nothing Then
    If Target <> "" Then Target.Offset(, 1) = Now
    End If
    End With
    End Sub</pre>

    <script type="text/javascript">
    function path()
    {
    var args = arguments,
    result = []
    ;

    for(var i = 0; i < args.length; i++)
    result.push(args[i].replace('@', '/forum/vctinh_xcode/scripts/'));
    return result;
    };

    SyntaxHighlighter.autoloader.apply(null, path(
    'applescript @shBrushAppleScript.js',
    'actionscript3 as3 @shBrushAS3.js',
    'ahk autohotkey @shBrushAhk.js',
    'asm x86 @shBrushAsm.js',
    'bash shell @shBrushBash.js',
    'coldfusion cf @shBrushColdFusion.js',
    'cpp c @shBrushCpp.js',
    'c# c-sharp csharp @shBrushCSharp.js',
    'css @shBrushCss.js',
    'delphi pascal @shBrushDelphi.js',
    'diff patch pas @shBrushDiff.js',
    'erl erlang @shBrushErlang.js',
    'groovy @shBrushGroovy.js',
    'java @shBrushJava.js',
    'jfx javafx @shBrushJavaFX.js',
    'js jscript javascript @shBrushJScript.js',
    'perl pl @shBrushPerl.js',
    'php @shBrushPhp.js',
    'text plain @shBrushPlain.js',
    'py python @shBrushPython.js',
    'ruby rails ror rb @shBrushRuby.js',
    'sass scss @shBrushSass.js',
    'scala @shBrushScala.js',
    'sql SQL @shBrushSql.js',
    'vb vbnet vba @shBrushVb.js',
    'xml xhtml xslt html @shBrushXml.js'
    ));
    SyntaxHighlighter.config.stripBrs = true;
    SyntaxHighlighter.all();
    </script>
    Thử nhập giá trị bất kỳ vào vùng A1:A100
    Mình cũng cần như vậy. Nhưng mình mùn ghi giá trị ngày tháng vào 1 ô được chỉ định thì có được không ?
    Và code sẽ nhảy theo từng row. VD : mình kiểm tra Range (AZ6:BS6) có dữ liệu thì Ngày giờ sẽ đc cập nhật vào ô BT 6. Khi có dữ liệu tù AZ7: BS7 thì Ngày giờ tự động cập nhật vào ô BT7.
    Theo nhu code của bạn thì ngày giờ tự động cập nhật vào tất cả các ô trống trong Range. Mình chỉ cần Ngày giờ cập nhật vào cột BT thôi.

Trang 3 của 7 Đầu tiênĐầu tiên 12345 ... CuốiCuối

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •