设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123
返回列表 发新帖
楼主: cangqiong
打印 上一主题 下一主题

[基础应用] excel怎么实现,左侧单元格输入数据。右侧单元格出现左侧单元格的录入时间及日期

[复制链接]
21#
发表于 2006-9-1 08:10:00 | 只看该作者
以下是引用LIXIANACCP在2006-8-31 13:23:00的发言:



怎么我的OFFICE2003就没你所说的这些呢?

注意要在工作表模块中,比如SHEET1
22#
发表于 2006-9-1 20:43:00 | 只看该作者
以下是引用老鬼在2006-9-1 0:10:00的发言:



注意要在工作表模块中,比如SHEET1

双击桌面的EXCEL进入EXCEL,按ALT+F11进入的介面是不是叫作工作表模块?如果是,就没有嘛,如果不是这样进入,哪该怎么进入??

看一下我的附件吧!
23#
 楼主| 发表于 2006-9-1 20:50:00 | 只看该作者
谢谢老鬼......问题基本解决...

但还是有问题...OFFSET是移动的

我不想让我输入的时间和日期移动...

例如我在A1,A2,A3,A4,A5单元格输入数据....想在固定的A7单元格显示日期和时间应该怎么办啊
24#
发表于 2006-9-2 05:53:00 | 只看该作者
那你就直接用RANGE("A7")=NOW()就行了
25#
发表于 2006-9-2 20:37:00 | 只看该作者
以下是引用老鬼在2006-9-1 21:53:00的发言:
那你就直接用RANGE("A7")=NOW()就行了

真烦!!!!!!

怎么这个问题折腾了这么久还是没能解决呢?我的EXCEL进入(通过ALT+F11)根本就没有CHANG什么的!是没引用哪个?


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
26#
发表于 2006-9-2 21:23:00 | 只看该作者
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Column < 7 Then
        Sh.Cells(Target.Row, 7) = Now()
    End If
End Sub
27#
发表于 2006-9-3 02:06:00 | 只看该作者
以下是引用tangqp在2006-9-2 13:23:00的发言:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Column < 7 Then
        Sh.Cells(Target.Row, 7) = Now()
    End If
End Sub

上帝!赐给我智慧吧!!!!!!!!!!

我还是不懂!!!!!!!!!!![em06][em06][em06]
28#
发表于 2006-9-6 10:32:00 | 只看该作者
终于看明白啦,感谢各位啊.
29#
 楼主| 发表于 2006-9-6 16:22:00 | 只看该作者
以下是引用LIXIANACCP在2006-9-2 12:37:00的发言:



真烦!!!!!!


怎么这个问题折腾了这么久还是没能解决呢?我的EXCEL进入(通过ALT+F11)根本就没有CHANG什么的!是没引用哪个?

用ALT+F11 进入程序状态下。双击左侧的SHEET1 右侧上边出现通用和声明。点通用和声明的下拉菜单就看见了
30#
发表于 2007-8-11 15:50:58 | 只看该作者
我的问题也解决了,多谢了!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 04:41 , Processed in 0.100028 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表