【3】
VBAyb日期宏find
czm2v)yb日期宏find
Sub yb日期宏find()
Dim iStr(1) As String
Dim dz1 As String, dz2 As String, dz3 As String
y = Year(Now)
'MsgBox y
m = Month(Now)
m1 = m - 1
'MsgBox m1
ym1 = "/" & y & "-" & m1
'MsgBox ym1
Qnh = InputBox("企业号＝")
'msg = 12
hym1 = Qnh & ym1
'MsgBox hym1
'Range("B2") = hym1
'hym1 = "1a/2019-05"
iStr(1) = "销售收入"
'MsgBox iStr1
iStr2 = "产品产量"
n1 = 0
For n1 = 0 To 0 Step 0
n1 = n1 + 1
'MsgBox n
'CallByName(Me, "iStr" & n, VbLet, "")
'iStr = CallByName(Me, "iStr" & n, VbGet)
'iStr = "iStr" & n
'MsgBox iStr
'iStr1 = iStr
'MsgBox iStr1
'dz = "dz" & n
'MsgBox dz
'dz = Sheets("s").Range("A1:A60").Find("销售收入").Address 'Ok!
Set dz = Sheets("s").Range("A1:A10").Find(iStr(1), LookIn:=xlValues) 'Ok!
'Set dz = Sheets("s").Range("A1:A60").Find(iStr, LookIn:=xlValues)
If Not dz Is Nothing Then
R1 = dz.Row
'MsgBox R1
dz1 = dz.Address
'MsgBox dz1
dz2 = Range(dz1) '将dz单元格中内容，赋值于dz2
'MsgBox dz2
dz3 = dz2 & hym1 '将dz单元格中内容（销售收入...）/年份-月份，赋值于dz2
'MsgBox dz3
Range(dz1) = dz3 '将新内容回填入单元格dz中
'ls1Cell = "c" & R1 + 1
'MsgBox ls1Cell
'lr1Cell = "c" & R1 + 2
'MsgBox ls1Cell
'sj1 = Range("c" & R1 + 1).Value - Range("c" & R1 + 2).Value
'MsgBox sj
Range("a" & R1 + 3) = "税金="
Range("c" & R1 + 3) = Range("c" & R1 + 1).Value - Range("c" & R1 + 2).Value
Range("d" & R1 + 3) = Range("d" & R1 + 1).Value - Range("d" & R1 + 2).Value
End If
Next n1
End Sub
-------
czm1)yb日期宏find
Sub yb日期宏()
Dim dz As String, dz2 As String, dz3 As String
y = Year(Now)
'MsgBox y
m = Month(Now)
m1 = m - 1
'MsgBox m1
ym1 = "/" & y & "-" & m1
'MsgBox ym1
msg = InputBox("企业号＝")
'msg = 12
hym1 = msg & ym1
'MsgBox hym1
'Range("B2") = hym1
'销售收入
dz11 = Sheets("s").Range("A1:A60").Find("销售收入").Address '得到字符串“销售收入”所在单元格的地址，赋值于dz11
MsgBox dz11
dz2 = Range(dz11) '将dz单元格中内容，赋值于dz2
'MsgBox dz2
dz3 = dz2 & hym1 '将dz单元格中内容（销售收入...）/年份-月份，赋值于dz2
'MsgBox dz3
Range(dz11) = dz3 '将新内容回填入单元格dz中
'工业总产值(按现行价)
dz12 = Sheets("s").Range("A1:A60").Find("工业总产值").Address '得到字符串“工业总产值”所在单元格的地址，赋值于dz12
'MsgBox dz12
dz2 = Range(dz12) '将dz单元格中内容，赋值于dz2
'MsgBox dz2
dz3 = dz2 & hym1 '将dz单元格中内容（销售收入...）/年份-月份，赋值于dz2
'MsgBox dz3
Range(dz12) = dz3 '将新内容回填入单元格dz中
'一、主要工业产品产量
'On Error Resume Next '宏运行过程中，即使出错，也不出现报错提示信息，继续执行下一条语句。
dz13 = Sheets("s").Range("A1:A60").Find("产品产量").Address '得到字符串“主要工业产品产量”所在单元格的地址，赋值于dz13
'MsgBox dz13
'dz13 = Sheet1.Range("A1:A60").Find("化学纤维").Address '得到字符串“主要工业产品产量”所在单元格的地址，赋值于dz13
dz2 = Range(dz13) '将dz单元格中内容，赋值于dz2
'MsgBox dz2
dz3 = dz2 & hym1 '将dz单元格中内容（销售收入...）/年份-月份，赋值于dz2
'MsgBox dz3
Range(dz13) = dz3 '将新内容回填入单元格dz中
End Sub
【2】VBAvba find函数find返回值
2）vba怎么让find没有返回值的时候查找下一个目标
http://club.excelhome.net/thread-1343263-1-1.html
BBS：3楼
b = Sheet2.Range("D2:D6583").Find(a, LookIn:=xlValues).Row
做如下修改
set rng= Sheet2.Range("D2:D6583").Find(a, LookIn:=xlValues)
if not rng is nothing then
b=rng.row
endif
注：运行的时候显示应用程序定义或对象定义错误。我用3楼方法解决了
1）excel vba find函数 返回值问题
http://club.excelhome.net/thread-1438894-1-1.html
问题：使用find函数返回值调用有问题；
Set dict = Workbooks.Open("F:\01_lishuang_work\03_VBA\01_dict.xlsx")
rng = dict.Sheets(1).UsedRange.Find(code_uncheck)
MsgBox rng 此句代码报错；
BBS:
set rng = dict.Sheets(1).UsedRange.Find(code_uncheck)
if not rng is nothing then
MsgBox rng
else
MsgBox "找不到"
endif
试用时：运行这段代码提示 类型不匹配；
联系客服
