换行重新登记信息

jyjy90lzy

各位老师，最近一直在论坛上学习，慢慢研究，因为我太愚钝并没有完全弄清楚，现有个问题想请教各位老师。
我设计的这个表的目的是：
1.在离线本地局域网内，通过文件共享的方式，可以让网内所有人查看到汇总表的基本信息。
2.局域网内各人员均可通过登记表的信息填写，点击提交存储到汇总表当中。
现在遇到的问题：
1.登记表点击提交，在复制的过程中发现，数据不到粘贴到指定位置，而是光标在哪里复制到哪里。
2.如果将两表放在一个工作簿内，由于担心网内同时登记，文件无法保存，所以我将两表分开存放到两个工作簿内。但是在复制过程中两个工作簿都要打开，很笨拙，有没有后台操作的办法？
麻烦有识之士帮我解决这些问题，感激不尽。


Sub 复制信息()

    ActiveCell.Range("A1:A6").Select
    Selection.Copy
    Windows("登记表.xlsx").Activate
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveCell.Offset(3, 5).Range("A1").Select
    Windows("客户信息表.xlsx").Activate
    ActiveCell.Offset(6, 4).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("登记表.xlsx").Activate
    ActiveCell.Offset(-3, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("客户信息表.xlsx").Activate
    ActiveCell.Offset(0, -4).Columns("A:D").EntireColumn.Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveCell.Select
End Sub


以上是代码，关于复制我想应该是需要一个相对引用，但是实在学不来。
第一次发贴不会传附件，我把文件传到了网盘中，麻烦各位老师帮我看一下，谢谢。

链接：https://pan.baidu.com/s/1upQWtnkxw5ka1O0TUzmFOg
提取码：nkg3

zpy2

协同不是excel的强项，网页版的比较好

jyjy90lzy

zpy2 发表于 2019-4-10 19:15
协同不是excel的强项，网页版的比较好

谢谢，我以前在大学选修过最基本的动态网页设计，我最初的想法也是这么做的。后来发现连接数据库有点犯难，因为我更想要的是excel表格结果。那我再研究研究网页的表单 试试

zpy2

jyjy90lzy 发表于 2019-4-11 14:25
谢谢，我以前在大学选修过最基本的动态网页设计，我最初的想法也是这么做的。后来发现连接数据库有点犯难 ...

嗯，一种是学学，就收集的话还有第三方的在线表单，问卷星之类的

zpy2

如果查询的话，自定义比较方便。

jyjy90lzy

zpy2 发表于 2019-4-11 15:37
嗯，一种是学学，就收集的话还有第三方的在线表单，问卷星之类的

在线表单 的方法 是很完美，我原来也是这么做到的。不过现在不行了，因为所有的操作都要在离线状态下完成。

jyjy90lzy

zpy2 发表于 2019-4-10 19:15
协同不是excel的强项，网页版的比较好

这几天从excel研究到dw，dw必须得建立数据库，access我又很渣，看完access的基础发现好像access自身就可以完成。看了半天课件发现和excel功能又差不多（期间讨教同事的时候跟我说access太过时了），后来又放弃了，正在迷糊的时候发现明明就是一句代码的事。

Range("c" & Range("c65536").End(xlUp).Row + 1).Select选择C列有数据的下一行的单元格，就是这个代码就完成了。我竟然原地不动，用了三天研究咋办，哈哈~~~

zpy2

jyjy90lzy 发表于 2019-4-12 15:39
在线表单 的方法 是很完美，我原来也是这么做到的。不过现在不行了，因为所有的操作都要在离线状态下完成 ...

http://5809c7f4.nat123.cc:15216/bsbm/pdo/eh2/a22/a2201/show_table.php
不明白你离线状态的意思和意义，现在都是手机电脑上网登记。如果仅仅是收集信息，问卷星就行，如果要在线查询，可以试试上面的链接。当然有时间自己再学习一下也行啊。。。
账号
user2是新增
李四 是 查改。

zpy2

jyjy90lzy 发表于 2019-4-12 16:46
这几天从excel研究到dw，dw必须得建立数据库，access我又很渣，看完access的基础发现好像access自身就可 ...

不错啊，解决问题就好了。。。。

jyjy90lzy

zpy2 发表于 2019-4-12 16:53
http://5809c7f4.nat123.cc:15216/bsbm/pdo/eh2/a22/a2201/show_table.php
不明白你离线状态的意思和意 ...

师傅说的对，现在都能手机电脑，我早就已经做出过网上的登记表单，我用的是蕃茄，不过后来由于使用的单位出于保护客户信息，将所有的外网一律封杀了，包括主机的USB这些。所有的传输只能走内网邮箱。所以这就是我说的离线的意思，我想线上做，但是条件不允许。