我在下面找到了代码,在突出显示整个行的同时,它还从任何以前着色的单元格中删除了颜色。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Target.Parent.Cells.Interior.ColorIndex = 0
With Target
我正在写一个VSTO,需要从电子邮件中获取选定的文本,并使用它做一些事情。我发现/修改了一些代码,可以很好地从纯文本的电子邮件正文中获取文本。如果文本在表格中,它似乎只返回第一个选定的单元格。如果我尝试检查Application.Selection.Range.Cells,它将返回表的一部分,但包括选定的单元格,但不包括所有单元格。有人知道如何获取选定的单元格吗?以下是从电子邮件正文中获取选定文本的基本代码:
Dim objExplorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer()
我实现了一个TableView,以便在选择特定行时显示一个PickerView。但这有时会阻塞选定的单元格。因此,当pickerView出现时,我希望我的scrollView滚动到选定的单元格。
有没有办法获得所选行的当前位置?这样我就可以实现像这样的东西
//---scroll to the current text field---
CGRect textFieldRect = [currentTextField frame];
[scrollView scrollRectToVisible:textFieldRect animated:YES];
谢谢。
我安装了一个非常简单的命令按钮来标记选定的单元格。命令按钮完全正常工作,直到我保护工作表,然后它抛出标题中提到的错误。我已经检查了单元格的格式没有被选中为“锁定”。
Private Sub CommandButton1_Click()
Dim ts As Date
With Selection
.Value = Now
.NumberFormat = "h:mm AM/PM"
End With
End Sub
我正在尝试使用标签分隔的文本文件作为数据源在我的web应用程序中创建一个Excel电子表格。加载我的数据的代码如下所示:
// Load the data into the cells
Int32 rowIdx = 1;
foreach (String line in tab.Lines)
{
String[] cellTexts = line.Split(TAB);
Int32 colIdx = 1;
foreach (String cellText in cellTexts)
{
sheet.Cells[rowIdx, colIdx].Val
我试图存储所选单元格的左上角。稍后,下面的代码选择许多不同的区域,执行之后,我希望将选定的单元格设置为原来选定的单元格的左上角。
我在With Selection后的行中出现了一个错误
Private Sub Test()
Dim InsertPoint As Range
With Selection
Set InsertPoint = Range(.Row, .Column)
'insert a bunch of code working with this selection
End With
'inser
我在工作表中有一些代码来突出显示选定单元格的行。但是,此工作表有条件格式,其中一些行的颜色。高亮显示宏不适用于正在满足格式化条件的行(即高亮显示的颜色不覆盖条件格式的颜色)。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 19 'Highlight row
End Sub
有没有人知道在不删除条件格式的情况下解决这个问题
我有一个简单的子例程以某种方式格式化选定的单元格,我希望在处理过程中有一个条件,这样与条件匹配的选定单元格将接收到某种格式,而其他单元格则接收另一种格式。
我可以用一个简单的循环来完成,但是我的问题是专门针对with的
是否有这样的事情:
With Selection
value > 10 THEN HorizontalAlignment = xlCenter
End With
但是,我已经创建了一个宏,但它实际上无法工作,因为在删除过程中,行实际上会发生变化。用户在表中选择任何单元格。在宏运行时,只删除属于选定单元格的行。到目前为止,我要说的是:
Sub DeleteSelectedRows()
Dim Cell As Range
With Sheet1
For Each Cell In Selection
.Range(Cell.Address).EntireRow.Delete
Next Cell
End With
End Sub
任何帮助都将不胜感激。