收据填写

qztxwangds · 发表于 2014-2-23 20:11

学习学习。

cqchenying · 发表于 2014-2-25 16:38

谢谢楼主

sarden1 · 发表于 2014-2-27 16:31

夏蕾绿 · 发表于 2014-3-6 21:48

很想很想看

xanping · 发表于 2014-3-13 08:56

看看，谢谢分享！

wgnld · 发表于 2014-3-13 11:04

这个需要啊

prince7166 · 发表于 2014-3-14 17:17

谢楼主分享

飘遥 · 发表于 2014-3-14 23:58

进来看看。第一个回贴。

qq506557256 · 发表于 2014-3-16 15:24

Sub HelloWord()
'---------------------------------------------------------------------------------------
' Procedure : HelloWord
' Author : hwc2ycy
' Date : 2013/11/1
' Purpose :
'---------------------------------------------------------------------------------------
'

Dim str As String
'定义一个字符串变量，变量名为str

str = "HelloWord!"
'给变量str赋值 HelloWord!

Range("a1").Value = str
'给当前活动工作表的A1单元格赋值 HelloWord!

ActiveSheet.Name = str
'给当前活动工作表改名，新的工作表名为HelloWord!

MsgBox prompt:=str, Title:="第一个过程"
'显示一个对话框,对话框的标题为第一个过程，提示信息为HelloWord!

End Sub

雨涨南塘 · 发表于 2014-3-17 07:11

		自动登录	找回密码
密码			注册

[待分类] 收据填写

浏览过的版块