如何使Excel能进行这样的自动？(20分)

M

miscbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #1

问题是这样的：
在Excel中，如何实现我在A1中输入A，Excel自动的在B1中输入
aa,在C1中自动输入bb,在D1中自动输入cc...
我要解决的问题是我有n个工程号，
如何在第一格中输入工程号后后面的内容自动完成。
这个问题是Excel本身能完成还是要另写一个程序？
我没分了，请各位帮帮忙。
请各位赐教！

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #2

如果你对于输入的东西有一定的规律,Excel自动就可以完成了,只要你知道Excel函数的用法.

 

M

miscbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #3

To:sword_liu
非常有规律，即除了第一个单元格的内容不同以外其它的都相同，
我就是不想老是进行重复的输入。
对Excel的函数我不熟，能否告诉我详细点。
谢谢！

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #4

你可以告诉我你的规律吗?

 

L

loxtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #5

方案一：
用excel函数：
定义： b1=REPT(A1,2) b2=REPT(A2,2) ......

方案二：
先把需要手工录入的单元格输入完毕并存盘，然后用OLE技术对其进行操控，对可以自动生成内容的单元格赋值。OK？

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #6

你在B1单元格用函数:=lower(left(A1))&Lower(left(A1)),得到的结果是如果你输入的是ax,B1的结果是aa,也就是说不管你A1输入的是什么,都是左边的字母+左边的字母,而且都小写.
在D1输入函数:=CHAR(CODE(LEFT(C1))+1)&CHAR(CODE(right(C1))+1)也就是得到C1单元格里面的两个字母的下一个字母的组合.

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #7

如果符合你的要求,你可以直接复制到下面的单元格,自动完成你输入后的结果.

 

M

miscbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #8

To:sword_liu
我简单一点说
如我有一产品型号码（E1-35）输入在A1中，那么在B1中就为
材料规格（35型包装），在C1中就为包装方式（每件80），
在D1中就为交货地点（香港）...
除产品型号为可变外，其它的都是不变的，
我现在是如遇到产品型号为E-35时，不得不重复的输入后面的内容。

我的目的是，当我在A1中输入产品型号后，其它的就由Excel自动完成。

 

M

miscbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #9

To:loxtln
能否详细点，
谢谢！

 

M

miscbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #10

To:loxtln
我认为你的方案二比较可行，能否告诉我操作方法？
多谢！

 

R

reflect

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #11

不用编程,直接用Excel的VBA就可以了,点击工具->宏->Visual Basic编辑器,双击Sheet1,右边的编辑区上部有两个选中框,左边的选择Worksheet,右边的选择Sheetchange事件,编程如下:
Private Sub Worksheet_Change(ByVal Target As Range)
Static flag
If flag Then
flag = Not flag
Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column) + "abc"
Else
flag = True
End If
End Sub
就可以了

 

L

l_x_yuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #12

用delphi写一个文本名字叫1.xls,内容如下：
A AA
B =B1
C =B1
D =B1
打开看看是什么结果！根本不用OLE技术了。TXTfile可以搞定

 

M

miscbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-06

• #13

多人接受答案了。