从单元格中的值中select一个工作表
是否可以根据单元格中的值select工作表？ 例如
Col_1 Col_2 Col_3 gor 100 jan mack 60 jan john 40 mar---->this data ..... So on 在这里，我要检查50个小时以下的人，如果他们有50个小时，那么我必须去看那张表并标记出来代表他们。 这里约翰有50小时以下，那么我必须从3月份的col_3那里得到表格名称。 我必须转到那张纸上并标记它们。 我的问题是。 是否可以根据单元格中的值select或获取图纸名称？
如果您的单元格值是datestring，则可以使用Format将其放入所需的string格式。 例如，如果您的单元格包含“3/15/15”，则可以使用以下代码将其转换为表格名称“Mar-15”：
Dim dateVal As String ' assume this is your active sheet Worksheets(1).Activate ' for simplicity, just set a date Cells(1, 1).Value = "3/15/15" ' read the date from the cell and format to get month name dateVal = Format(Cells(1, 1).Value, "mmm-YY") MsgBox ("Month from Date: " & dateVal)
输出显示：
请注意，您可能需要根据您的date格式进行调整，因为我正在使用美国英语格式，但是其概念是将单元格中的值包含在您想要的内容中。
关于此行ws = Worksheets（工作表（“报表”）。范围（“H”＆intRow1）.Value）.Activate –
当你想select或激活特定工作表的任何值，那么这些工作表必须激活o / w它会给出一个错误。
尝试使用下面的代码。 它仅为activecell写入，但可以扩展为cell的范围。
Dim sname As String If ActiveCell.Value < 50 Then sname = ActiveCell.Offset(0, 1).Value & "-" & "15" Sheets(sname).Select End If