Question

我想在我的VBA代码中添加一些内容，以便我可以在名为“Pull”的工作表中搜索名为“Pull”的文本，在“A”列中名为“HourTracker”的工作表中搜索单元格“A2”，并向右偏移1个单元格。在我找到的这个单元格中，我想在“拉”工作表中粘贴单元格“Z1”的内容。

每次运行宏时，“拉”的内容都会改变，单元格“A2”和“Z1”也会改变。 “A2”将包含我可以在“HourTracker”表单的A列中找到的单词，“Pull”表单中的“Z1”将具有“HourTracker”中找到的单元格旁边的单元格中需要的总小时数”

Deprecation warning: value provided is not in a recognized RFC2822 or ISO format. moment construction falls back to js Date(), which is not reliable across all browsers and versions. Non RFC2822/ISO date formats are discouraged and will be removed in an upcoming major release. Please refer to http://momentjs.com/guides/#/warnings/js-date/ for more info.
Arguments: 
[0] _isAMomentObject: true, _isUTC: true, _useUTC: true, _l: undefined, _i: Apr 2017, _f: undefined, _strict: undefined, _locale: [object Object]
Error
    at Function.createFromInputFallback (js/moment.js:314:94)
    at configFromString (js/moment.js:2172:11)
    at configFromInput (js/moment.js:2541:9)
    at prepareConfig (js/moment.js:2524:9)
    at createFromConfig (js/moment.js:2491:40)
    at createLocalOrUTC (js/moment.js:2578:12)
    at Function.createUTC [as utc] (js/moment.js:81:12)
    at makeMoment (js/fullcalendar.js:1197:21)
    at FC.moment.parseZone (js/fullcalendar.js:1154:9)
    at constructor.moment (js/fullcalendar.js:11795:30)
warn @ moment.js:287

ActiveSheet.Range（“A：R”）部分的所有内容都是从网站中拉出表格，然后对表格及其下方进行排序，我总结了“时数”列并将总和放在“Z1”中。 “HourTracker”工作表中的“A”列不会更改。

我是网站的新手，所以请让我知道您可能需要提供的其他信息，谢谢！

Answer 1

所以在经过一些搜索之后，我将以下内容添加到我的宏中，它完美无缺。

Range("Z1").Select
ActiveCell.FormulaR1C1 = "=SUM(C[-15])"
Range("Y1").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-24]"

Range("Z1").Copy

Dim FindString As String
Dim Rng As Range
FindString = Sheets("Pull").Range("Y1").Value
If Trim(FindString) <> "" Then
    With Sheets("HourTracker").Range("A:A")
        Set Rng = .Find(What:=FindString, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Application.Goto Rng, True
        Else
            MsgBox "Nothing found"
        End If
    End With
            ActiveCell.Offset(0, 1).Activate
            Selection.PasteSpecial xlPasteValues

我有单元格＆＃34; Y1＆＃34; = A2，复制小时数（Z1），然后使用FindString搜索单元格的最后一个值＆＃34; Y1＆＃34;在＆＃34;拉＆＃34;片。一旦我这样做，我使用活动单元格偏移来选择它右侧的单元格并粘贴该值。

我希望这可以帮助其他人尝试做类似我的事情！

从一个工作表中查找单元格文本，在另一个工作表中，然后使用vba进行偏移

1 个答案: