Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel Refedit返回相应的行和列_Excel_Vba_Userform - Fatal编程技术网

Excel Refedit返回相应的行和列

Excel Refedit返回相应的行和列,excel,vba,userform,Excel,Vba,Userform,当通过Refedit选择范围时,是否有人可以帮助我检索相应的行和列?我把照片放在下面,它看起来是什么样子 我想做的是,当我通过用户表单中的“Refedit1”选择一个范围(例如E12:E16)时,它应该返回相应行的开始和结束时间(上午11点-下午3点+1)以及列中的相应日期(2020年2月26日星期三) 下一步是将这些值立即插入到3个DTPicker中,但我认为,一旦有了返回值,我就可以这样做 我尝试了我找到的所有不同的代码,它们总是给我单元格中的值(在本例中为“)、类似“sheet1$E$12

当通过Refedit选择范围时,是否有人可以帮助我检索相应的行和列?我把照片放在下面,它看起来是什么样子

我想做的是,当我通过用户表单中的“Refedit1”选择一个范围(例如E12:E16)时,它应该返回相应行的开始和结束时间(上午11点-下午3点+1)以及列中的相应日期(2020年2月26日星期三) 下一步是将这些值立即插入到3个DTPicker中,但我认为,一旦有了返回值,我就可以这样做

我尝试了我找到的所有不同的代码,它们总是给我单元格中的值(在本例中为“)、类似“sheet1$E$12”的文本字符串,或者当我使用Active.cell时,它返回在我通过RefEdit选择范围之前处于活动状态的单元格

希望有人能给我指出正确的方向,我会帮我很大的忙!很抱歉,我不能上传原始的excel文件,但里面有很多机密信息

图纸布局

用户表单布局


您可以这样读取日期和时间:

With rRange
    '.Interior.ColorIndex = 16
    .Font.Bold = True
    '.BorderAround LineStyle:=xlContinuous, Weight:=xlThick

    startTime = .cells(1).EntireRow.cells(2).Value

    endTime = .cells(.cells.count).EntireRow.cells(2).Value

    theDate = .cells(1).EntireColumn.cells(5).Value

End With

您可以这样读取日期和时间:

With rRange
    '.Interior.ColorIndex = 16
    .Font.Bold = True
    '.BorderAround LineStyle:=xlContinuous, Weight:=xlThick

    startTime = .cells(1).EntireRow.cells(2).Value

    endTime = .cells(.cells.count).EntireRow.cells(2).Value

    theDate = .cells(1).EntireColumn.cells(5).Value

End With

始终帮助显示您尝试的代码。代码已添加,因此它已使用组合框中的值填充所有选定单元格。但返回值为“sheet1$x$x:$x$x。始终帮助显示您尝试的代码。代码已添加,因此它已使用组合框中的值填充所有选定单元格。但返回值是“第一张$x$x:$x$x。哇,太棒了!这就是我要找的。许多传统提示:您不能使用包含
RefEdit
控件的无模式用户表单仅供参考-您可能有兴趣在@WesleyWow上看到相关方面,太好了!这就是我要找的。许多传统提示:您不能使用包含
RefEdit
控件的无模式用户表单仅供参考-您可能有兴趣在@Wesley上查看相关方面